diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-04 09:35:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-04 09:35:55 +0000 |
| commit | 488b0c7a33e6590f9d65377c476a73506eafed7d (patch) | |
| tree | 89cbe8e56db18798bccf23bcf33bf45d97b6ae87 | |
| parent | ec5333ab3f00b2b61d8bf1323f9d62119d703ac2 (diff) | |
| download | perl-488b0c7a33e6590f9d65377c476a73506eafed7d.tar.gz | |
Rename DEBUG() and DEB() to PERL_DEBUG() and PERL_DEB().
p4raw-id: //depot/perl@20475
| -rw-r--r-- | perl.c | 2 | ||||
| -rw-r--r-- | perl.h | 12 |
2 files changed, 7 insertions, 7 deletions
@@ -1665,7 +1665,7 @@ S_run_body(pTHX_ I32 oldscope) if (!PL_restartop) { DEBUG_x(dump_all()); - DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n")); + PERL_DEBUG(PerlIO_printf(Perl_debug_log, "\nEXECUTING...\n\n")); DEBUG_S(PerlIO_printf(Perl_debug_log, "main thread is 0x%"UVxf"\n", PTR2UV(thr))); @@ -2553,8 +2553,8 @@ Gid_t getegid (void); # define DEBUG_v_TEST DEBUG_v_TEST_ # define DEBUG_C_TEST DEBUG_C_TEST_ -# define DEB(a) a -# define DEBUG(a) if (PL_debug) a +# define PERL_DEB(a) a +# define PERL_DEBUG(a) if (PL_debug) a # define DEBUG_p(a) if (DEBUG_p_TEST) a # define DEBUG_s(a) if (DEBUG_s_TEST) a # define DEBUG_l(a) if (DEBUG_l_TEST) a @@ -2616,8 +2616,8 @@ Gid_t getegid (void); # define DEBUG_v_TEST (0) # define DEBUG_C_TEST (0) -# define DEB(a) -# define DEBUG(a) +# define PERL_DEB(a) +# define PERL_DEBUG(a) # define DEBUG_p(a) # define DEBUG_s(a) # define DEBUG_l(a) @@ -2704,14 +2704,14 @@ Gid_t getegid (void); #ifndef assert /* <assert.h> might have been included somehow */ #ifdef DEBUGGING -#define assert(what) DEB( { \ +#define assert(what) PERL_DEB( { \ if (!(what)) { \ Perl_croak(aTHX_ "Assertion " STRINGIFY(what) " failed: file \"%s\", line %d", \ __FILE__, __LINE__); \ PerlProc_exit(1); \ }}) #else -#define assert(what) DEB( { \ +#define assert(what) PERL_DEB( { \ if (!(what)) { \ Perl_croak(aTHX_ "Assertion failed: file \"%s\", line %d", \ __FILE__, __LINE__); \ |