Mercurial > emacs
comparison src/hftctl.c @ 2439:b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
This isn't specific to X, and it allows us to avoid #including
xterm.h in files that don't really have anything to do with X.
* blockinput.h: New file.
* xterm.h (BLOCK_INPUT, UNBLOCK_INPUT, TOTALLY_UNBLOCK_INPUT,
UNBLOCK_INPUT_RESIGNAL): These are now in blockinput.h.
(x_input_blocked, x_pending_input): Deleted; there are analogs
in blockinput.h called interrupt_input_blocked and
interrupt_input_pending.
* keyboard.c (interrupt_input_blocked, interrupt_input_pending):
New variables, used by the macros in blockinput.h.
* xterm.c: #include blockinput.h.
(x_input_blocked, x_pending_input): Deleted.
(XTread_socket): Test and set interrupt_input_blocked and
interrupt_input_pending instead of the old variables.
* alloc.c, xfaces.c, xfns.c, xmenu.c, xselect.c, keymap.c:
#include blockinput.h.
* eval.c: #include blockinput.h instead of xterm.h.
* keyboard.c: #include blockinput.h.
(input_poll_signal): Just test
interrupt_input_blocked, instead of testing HAVE_X_WINDOWS and
x_input_blocked.
Block the processing of interrupt input while we're manipulating the
malloc heap.
* alloc.c: (xfree): New function, to make it easy to free things
safely.
(xmalloc, xrealloc): Block X input while doing the deed.
(VALIDATE_LISP_STORAGE, gc_sweep, compact_strings): Use xfree
instead of free.
(uninterrupt_malloc): New function, to install input-blocking
hooks into the GNU malloc routines.
* emacs.c [not SYSTEM_MALLOC] (main): Call uninterrupt_malloc
on startup.
* alloc.c: (make_interval, make_float, Fcons, Fmake_vector,
Fmake_symbol, Fmake_marker, make_uninit_string, Fgarbage_collect):
Use xmalloc instead of malloc; don't bother to check if out of
memory here.
(Fgarbage_collect): Call xrealloc instead of realloc.
* buffer.c: Use xmalloc and xfree instead of malloc and free;
don't bother to check if out of memory here.
(Fget_buffer_create): Put BLOCK_INPUT/UNBLOCK_INPUT pair around
calls to ralloc routines.
* insdel.c: Same.
* lisp.h (xfree): New extern declaration.
* xfaces.c (xfree): Don't #define this to be free; use the
definition in alloc.c.
* dispnew.c, doc.c, doprnt.c, fileio.c, lread.c, term.c, xfns.c,
xmenu.c, xterm.c: Use xfree instead of free.
* hftctl.c: Use xfree and xmalloc instead of free and malloc.
* keymap.c (current_minor_maps): BLOCK_INPUT while calling realloc
and malloc.
* search.c: Since the regexp routines can malloc, BLOCK_INPUT
while runing them. #include blockinput.h.
* sysdep.c: #include blockinput.h. Call xfree and xmalloc instead
of free and malloc. BLOCK_INPUT around routines which we know
will call malloc.
ymakefile (keyboard.o, keymap.o, search.o, sysdep.o, xfaces.o,
xfns.o, xmenu.o, xterm.o, xselect.o, alloc.o, eval.o): Note that
these depend on blockinput.h.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Wed, 31 Mar 1993 10:55:33 +0000 |
parents | 68111c4a3885 |
children | dcc64ab7de8c |
comparison
equal
deleted
inserted
replaced
2438:b513de4de386 | 2439:b6c62e4abf59 |
---|---|
77 | 77 |
78 /*************** EXTERNAL / GLOBAL DATA AREA ********************/ | 78 /*************** EXTERNAL / GLOBAL DATA AREA ********************/ |
79 | 79 |
80 static int hfqry(); | 80 static int hfqry(); |
81 static int hfskbd(); | 81 static int hfskbd(); |
82 char *malloc(); | 82 char *xmalloc(); |
83 | 83 |
84 extern int errno; | 84 extern int errno; |
85 static jmp_buf hftenv; | 85 static jmp_buf hftenv; |
86 static int is_ack_vtd; | 86 static int is_ack_vtd; |
87 static FUNC sav_alrm; | 87 static FUNC sav_alrm; |
317 req.hf_rsp_len = resplen; | 317 req.hf_rsp_len = resplen; |
318 | 318 |
319 if (cmdlen) /* if arg structure to pass */ | 319 if (cmdlen) /* if arg structure to pass */ |
320 { | 320 { |
321 size = sizeof (struct hfctlreq) + cmdlen; | 321 size = sizeof (struct hfctlreq) + cmdlen; |
322 if ((p.c = malloc(size)) == NULL) /* malloc one area */ | 322 if ((p.c = xmalloc(size)) == NULL) /* malloc one area */ |
323 return (-1); | 323 return (-1); |
324 | 324 |
325 memcpy (p.c, &req, sizeof (req)); /* copy CTL REQ struct */ | 325 memcpy (p.c, &req, sizeof (req)); /* copy CTL REQ struct */ |
326 memcpy (p.c + sizeof (req), cmd, cmdlen); /* copy arg struct */ | 326 memcpy (p.c + sizeof (req), cmd, cmdlen); /* copy arg struct */ |
327 } | 327 } |
332 } | 332 } |
333 | 333 |
334 /* write request to terminal */ | 334 /* write request to terminal */ |
335 if (write(fd,p.c,size) == -1) return (-1); | 335 if (write(fd,p.c,size) == -1) return (-1); |
336 if (p.req != &req) /* free if allocated */ | 336 if (p.req != &req) /* free if allocated */ |
337 free (p.c); | 337 xfree (p.c); |
338 return (0); | 338 return (0); |
339 | 339 |
340 } | 340 } |