summaryrefslogtreecommitdiff
path: root/epoc
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-06-20 07:31:11 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-06-20 07:31:11 +0000
commit22f7c9c9717fe07b508ba0e9958ef0592cdbbeef (patch)
tree242e338c2ed54d78f98bb01642efd8eda56268fa /epoc
parentdda12f46c06c4294f4f764c1854204b0608b68e4 (diff)
downloadperl-22f7c9c9717fe07b508ba0e9958ef0592cdbbeef.tar.gz
More Perl malloc debugging magic from Ilya. Seems to work in
Linux, Solaris, AIX. Had to do #ifdef OS2 for the <io.h> in malloc.c, found in AIX since there is no such header. In Tru64 miniperl fails an assert: "free()ed/realloc()ed-away memory was overwritten?" (In IRIX compiles but that doesn't prove much since in IRIX Perl's malloc is simply not used.) p4raw-id: //depot/perl@19831
Diffstat (limited to 'epoc')
-rw-r--r--epoc/epocish.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/epoc/epocish.h b/epoc/epocish.h
index a7ef41871c..a971a8e6c7 100644
--- a/epoc/epocish.h
+++ b/epoc/epocish.h
@@ -108,7 +108,7 @@
/* epocemx setenv bug workaround */
#ifndef PERL_SYS_INIT
-# define PERL_SYS_INIT(c,v) putenv(".dummy=foo"); putenv(".dummy"); MALLOC_INIT
+# define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); MALLOC_INIT
#endif
#ifndef PERL_SYS_TERM