1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00

* alloca.c: Use scm_must_malloc to obtain storage. Hopefully this

works; I can't conveniently test it myself.  (Thanks to Dvid
Tillman for the bug report.)
This commit is contained in:
Jim Blandy 1998-10-03 19:51:05 +00:00
parent 48ca6468ab
commit ce6ed4bae6

View file

@ -25,6 +25,9 @@
#include <scmconfig.h>
#endif
#define malloc(size) (scm_must_malloc ((size), "alloca emulation"))
extern char *scm_must_malloc ();
#ifdef HAVE_STRING_H
#include <string.h>
#endif
@ -77,21 +80,6 @@ typedef char *pointer;
#define NULL 0
#endif
/* Different portions of Emacs need to call different versions of
malloc. The Emacs executable needs alloca to call xmalloc, because
ordinary malloc isn't protected from input signals. On the other
hand, the utilities in lib-src need alloca to call malloc; some of
them are very simple, and don't have an xmalloc routine.
Non-Emacs programs expect this to call use xmalloc.
Callers below should use malloc. */
#ifndef emacs
#define malloc xmalloc
#endif
extern pointer malloc ();
/* Define STACK_DIRECTION if you know the direction of stack
growth for your system; otherwise it will be automatically
deduced at run-time.