This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Give a better error if malloc.c is used without MYMALLOC
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 8 Aug 2015 20:39:25 +0000 (16:39 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Aug 2015 12:35:14 +0000 (08:35 -0400)
The build will die already on errors because of the missing ASSERT
macros (plus get warnings on the implicit declarations, i.e. missing
prototypes), but better to give a clear error.

FWIW, looking at hints/*, only HP-UX of the even remotely
common/current systems seems to use Perl's malloc anymore,
and then only if perlio is NOT being used.

(Other platforms that seemingly use Perl's malloc include ancient
SysVs like SCO 2.3.4, NCR Tower, Tektronix' UTek V, then Unicos and
Unicos/mk of Cray, and NEC's SUPER-UX.)  (OS/2 still probably does
use it, given all the work ilyaz used to pour on it.)

malloc.c

index 05810b5..69b6b95 100644 (file)
--- a/malloc.c
+++ b/malloc.c
 #     define PERL_MAYBE_ALIVE  1
 #endif
 
 #     define PERL_MAYBE_ALIVE  1
 #endif
 
+#ifndef MYMALLOC
+#  error "MYMALLOC is not defined"
+#endif
+
 #ifndef MUTEX_LOCK
 #  define MUTEX_LOCK(l)
 #endif 
 #ifndef MUTEX_LOCK
 #  define MUTEX_LOCK(l)
 #endif