diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2001-03-09 13:49:31 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-09 14:38:56 +0000 |
| commit | 04932ac8f7d72810cce59c52976ab33010e88b99 (patch) | |
| tree | bc6507fa14063a22f27503c74bc21bfb9ed56af1 /perl.h | |
| parent | 1dfe7606714789cb685cd524877388fe1e9008b4 (diff) | |
| download | perl-04932ac8f7d72810cce59c52976ab33010e88b99.tar.gz | |
Re: [ PATCH perl@8956 ] new debug option -DR shows ref counts
Message-Id: <200103091349.NAA16617@tiree.fdgroup.co.uk>
p4raw-id: //depot/perl@9087
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -2150,7 +2150,8 @@ Gid_t getegid (void); #define DEBUG_D_FLAG 0x00008000 /* 32768 */ #define DEBUG_S_FLAG 0x00010000 /* 65536 */ #define DEBUG_T_FLAG 0x00020000 /* 131072 */ -#define DEBUG_MASK 0x0003FFFF /* mask of all the standard flags */ +#define DEBUG_R_FLAG 0x00040000 /* 262144 */ +#define DEBUG_MASK 0x0007FFFF /* mask of all the standard flags */ #define DEBUG_DB_RECURSE_FLAG 0x40000000 #define DEBUG_TOP_FLAG 0x80000000 /* XXX what's this for ??? */ @@ -2179,6 +2180,7 @@ Gid_t getegid (void); # define DEBUG_D_TEST (PL_debug & DEBUG_D_FLAG) # define DEBUG_S_TEST (PL_debug & DEBUG_S_FLAG) # define DEBUG_T_TEST (PL_debug & DEBUG_T_FLAG) +# define DEBUG_R_TEST (PL_debug & DEBUG_R_FLAG) # define DEB(a) a # define DEBUG(a) if (PL_debug) a @@ -2217,6 +2219,7 @@ Gid_t getegid (void); # endif # define DEBUG_T(a) if (DEBUG_T_TEST) a +# define DEBUG_R(a) if (DEBUG_R_TEST) a #else /* DEBUGGING */ @@ -2238,6 +2241,7 @@ Gid_t getegid (void); # define DEBUG_D_TEST (0) # define DEBUG_S_TEST (0) # define DEBUG_T_TEST (0) +# define DEBUG_R_TEST (0) # define DEB(a) # define DEBUG(a) @@ -2259,6 +2263,7 @@ Gid_t getegid (void); # define DEBUG_D(a) # define DEBUG_S(a) # define DEBUG_T(a) +# define DEBUG_R(a) #endif /* DEBUGGING */ |