Mercurial > emacs
diff src/process.c @ 15895:85112cca0b22
(send_process): GCPRO object.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Aug 1996 02:57:09 +0000 |
| parents | c7870b16f24b |
| children | 855c8d8ba0f0 |
line wrap: on
line diff
--- a/src/process.c Wed Aug 21 20:36:30 1996 +0000 +++ b/src/process.c Thu Aug 22 02:57:09 1996 +0000 @@ -2645,6 +2645,9 @@ /* Use volatile to protect variables from being clobbered by longjmp. */ int rv; volatile unsigned char *procname = XSTRING (XPROCESS (proc)->name)->data; + struct gcpro gcpro1; + + GCPRO1 (object); #ifdef VMS struct Lisp_Process *p = XPROCESS (proc); @@ -2783,6 +2786,8 @@ error ("SIGPIPE raised on process %s; closed it", procname); #endif } + + UNGCPRO; } DEFUN ("process-send-region", Fprocess_send_region, Sprocess_send_region,