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 /vms/vmsish.h | |
| 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 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 1a29aa6b59..076a6967f6 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -331,7 +331,7 @@ struct interp_intern { #endif #define BIT_BUCKET "_NLA0:" -#define PERL_SYS_INIT(c,v) vms_image_init((c),(v)); MALLOC_INIT +#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); MALLOC_INIT #define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM #define dXSUB_SYS #define HAS_KILL |