aboutsummaryrefslogtreecommitdiffstats
path: root/src/process.c
diff options
context:
space:
mode:
authorPaul Eggert2013-06-18 00:42:37 -0700
committerPaul Eggert2013-06-18 00:42:37 -0700
commit9349e5f76716b44f92391fa722f5feba58898f27 (patch)
treeb92794231ade365c43949c92850d1af491953e4a /src/process.c
parente0df2d1420f322f0879c59471d9e579cf74a8ea5 (diff)
downloademacs-9349e5f76716b44f92391fa722f5feba58898f27.tar.gz
emacs-9349e5f76716b44f92391fa722f5feba58898f27.zip
Porting fixes for merged specpdl and backtrace stacks.
In particular this ports to 32-bit sparc Sun cc. * eval.c (init_eval_once, grow_specpdl): Allocate a specbinding array with a dummy element at specpdl[-1], so that its address can be taken portably. (unbind_to): Do not copy the binding; not needed, now that we copy old_value in the one place where the copy is needed. * fileio.c (Fwrite_region): Use ptrdiff_t, not int, for specpdl count. * lisp.h (BITS_PER_PTRDIFF_T): Remove; no longer needed. (union specbinding): Rename from struct specbinding. Redo layout to avoid the need for 'ptrdiff_t nargs : BITS_PER_PTRDIFF_T - 1;', which is not portable. With Sun C 5.12 32-bit sparc, the declaration causes nargs to be an unsigned bitfield, a behavior that the C standard allows; but Emacs wants nargs to be signed. The overall type is now a union of structures rather than a structure of union of structures, and the 'kind' member is now a bitfield, so that the overall type doesn't grow. All uses changed. * process.c (Fmake_serial_process): Remove unnecessary initialization. Fixes: debbugs:14643
Diffstat (limited to 'src/process.c')
-rw-r--r--src/process.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/process.c b/src/process.c
index a873dd0cdb2..0afd8b5d2ac 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2524,7 +2524,7 @@ usage: (make-serial-process &rest ARGS) */)
2524 struct gcpro gcpro1; 2524 struct gcpro gcpro1;
2525 Lisp_Object name, buffer; 2525 Lisp_Object name, buffer;
2526 Lisp_Object tem, val; 2526 Lisp_Object tem, val;
2527 ptrdiff_t specpdl_count = -1; 2527 ptrdiff_t specpdl_count;
2528 2528
2529 if (nargs == 0) 2529 if (nargs == 0)
2530 return Qnil; 2530 return Qnil;