diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-20 07:31:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-20 07:31:11 +0000 |
| commit | 22f7c9c9717fe07b508ba0e9958ef0592cdbbeef (patch) | |
| tree | 242e338c2ed54d78f98bb01642efd8eda56268fa /epoc | |
| parent | dda12f46c06c4294f4f764c1854204b0608b68e4 (diff) | |
| download | perl-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.h | 2 |
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 |