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 /plan9 | |
| 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 'plan9')
| -rw-r--r-- | plan9/plan9ish.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plan9/plan9ish.h b/plan9/plan9ish.h index 9b32a7dd80..5c922cf0ba 100644 --- a/plan9/plan9ish.h +++ b/plan9/plan9ish.h @@ -106,7 +106,7 @@ #define ABORT() kill(PerlProc_getpid(),SIGABRT); #define BIT_BUCKET "/dev/null" -#define PERL_SYS_INIT(c,v) MALLOC_INIT +#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) MALLOC_INIT #define dXSUB_SYS #define PERL_SYS_TERM() MALLOC_TERM |