diff options
| author | Paul Eggert | 2013-06-18 00:42:37 -0700 |
|---|---|---|
| committer | Paul Eggert | 2013-06-18 00:42:37 -0700 |
| commit | 9349e5f76716b44f92391fa722f5feba58898f27 (patch) | |
| tree | b92794231ade365c43949c92850d1af491953e4a /src/process.c | |
| parent | e0df2d1420f322f0879c59471d9e579cf74a8ea5 (diff) | |
| download | emacs-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.c | 2 |
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; |