diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-26 13:25:52 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-26 13:25:52 -0700 |
| commit | cc8773c013ccdaec9cb8d2c57d85a70c368e102f (patch) | |
| tree | 75c4d64ff937319b810abe13657eb1924017f8d3 /perl.h | |
| parent | 52a66c2cc3722485e8a16f1da9c026524180ca8c (diff) | |
| download | perl-cc8773c013ccdaec9cb8d2c57d85a70c368e102f.tar.gz | |
New debugging flag -DB now dumps subroutine definitions,
leaving -Dx for its original purpose of dumping syntax trees.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -3618,8 +3618,9 @@ Gid_t getegid (void); #define DEBUG_C_FLAG 0x00200000 /*2097152 */ #define DEBUG_A_FLAG 0x00400000 /*4194304 */ #define DEBUG_q_FLAG 0x00800000 /*8388608 */ -#define DEBUG_M_FLAG 0x01000000 /*8388608 */ -#define DEBUG_MASK 0x01FEEFFF /* mask of all the standard flags */ +#define DEBUG_M_FLAG 0x01000000 /*16777216*/ +#define DEBUG_B_FLAG 0x02000000 /*33554432*/ +#define DEBUG_MASK 0x03FEEFFF /* mask of all the standard flags */ #define DEBUG_DB_RECURSE_FLAG 0x40000000 #define DEBUG_TOP_FLAG 0x80000000 /* XXX what's this for ??? Signal @@ -3649,6 +3650,7 @@ Gid_t getegid (void); # define DEBUG_A_TEST_ (PL_debug & DEBUG_A_FLAG) # define DEBUG_q_TEST_ (PL_debug & DEBUG_q_FLAG) # define DEBUG_M_TEST_ (PL_debug & DEBUG_M_FLAG) +# define DEBUG_B_TEST_ (PL_debug & DEBUG_B_FLAG) # define DEBUG_Xv_TEST_ (DEBUG_X_TEST_ && DEBUG_v_TEST_) # define DEBUG_Uv_TEST_ (DEBUG_U_TEST_ && DEBUG_v_TEST_) @@ -3678,6 +3680,7 @@ Gid_t getegid (void); # define DEBUG_A_TEST DEBUG_A_TEST_ # define DEBUG_q_TEST DEBUG_q_TEST_ # define DEBUG_M_TEST DEBUG_M_TEST_ +# define DEBUG_B_TEST DEBUG_B_TEST_ # define DEBUG_Xv_TEST DEBUG_Xv_TEST_ # define DEBUG_Uv_TEST DEBUG_Uv_TEST_ @@ -3725,6 +3728,7 @@ Gid_t getegid (void); # define DEBUG_A(a) DEBUG__(DEBUG_A_TEST, a) # define DEBUG_q(a) DEBUG__(DEBUG_q_TEST, a) # define DEBUG_M(a) DEBUG__(DEBUG_M_TEST, a) +# define DEBUG_B(a) DEBUG__(DEBUG_B_TEST, a) #else /* DEBUGGING */ @@ -3752,6 +3756,7 @@ Gid_t getegid (void); # define DEBUG_A_TEST (0) # define DEBUG_q_TEST (0) # define DEBUG_M_TEST (0) +# define DEBUG_B_TEST (0) # define DEBUG_Xv_TEST (0) # define DEBUG_Uv_TEST (0) @@ -3780,6 +3785,7 @@ Gid_t getegid (void); # define DEBUG_A(a) # define DEBUG_q(a) # define DEBUG_M(a) +# define DEBUG_B(a) # define DEBUG_Xv(a) # define DEBUG_Uv(a) #endif /* DEBUGGING */ |