diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-22 03:37:31 +0200 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-10-24 16:35:48 +0000 |
| commit | d7a2c63ca1dd960ced99dbacbd31f848d2ffa77f (patch) | |
| tree | a8f59c0ca2d4b6923117b257ea5456767b8b28db /intrpvar.h | |
| parent | 0b0ab8012d4b74bc5d71b9135bd023ebdcf5e983 (diff) | |
| download | perl-d7a2c63ca1dd960ced99dbacbd31f848d2ffa77f.tar.gz | |
Add SV allocation tracing to -Dm and PERL_MEM_LOG
Message-ID: <20081022013731.23b5a2e5@r2d2>
p4raw-id: //depot/perl@34568
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 4a62779288..3a55eb9b3d 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -674,6 +674,10 @@ PERLVARI(Islab_count, U32, 0) /* Size of the array */ /* Can shared object be destroyed */ PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable)) +#ifdef DEBUG_LEAKING_SCALARS +PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */ +#endif + /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */ |