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 /os2 | |
| 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 'os2')
| -rw-r--r-- | os2/os2ish.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/os2/os2ish.h b/os2/os2ish.h index b612683602..225d271236 100644 --- a/os2/os2ish.h +++ b/os2/os2ish.h @@ -218,6 +218,7 @@ void Perl_OS2_term(void **excH, int exitstatus, int flags); # define PERL_SYS_INIT3(argcp, argvp, envp) \ { void *xreg[2]; \ + MALLOC_CHECK_TAINT(*argcp, *argvp, *envp) \ _response(argcp, argvp); \ _wildcard(argcp, argvp); \ Perl_OS2_init3(*envp, xreg, 0) |