diff options
-rw-r--r-- | libguile/alloca.c | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/libguile/alloca.c b/libguile/alloca.c index 25b0ab498..b36c32aec 100644 --- a/libguile/alloca.c +++ b/libguile/alloca.c @@ -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. |