From 3c856c47a94c788468840220dbd1d0dfc85e79a6 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 29 May 2014 22:37:11 -0400 Subject: Revert "DEBUG_X_TEST are only for DEBUGGING." This reverts commit efbe0e532ca914af071ffbd40bfc8932fab1ecf9. --- toke.c | 12 ------------ 1 file changed, 12 deletions(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 509495189c..2d4064ffae 100644 --- a/toke.c +++ b/toke.c @@ -415,7 +415,6 @@ S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp) PERL_ARGS_ASSERT_TOKEREPORT; -#ifdef DEBUGGING if (DEBUG_T_TEST) { const char *name = NULL; enum token_type type = TOKENTYPE_NONE; @@ -470,7 +469,6 @@ S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp) } PerlIO_printf(Perl_debug_log, "### %s\n\n", SvPV_nolen_const(report)); }; -#endif return (int)rv; } @@ -11669,9 +11667,7 @@ S_swallow_bom(pTHX_ U8 *s) /* diag_listed_as: Unsupported script encoding %s */ Perl_croak(aTHX_ "Unsupported script encoding UTF-32LE"); #ifndef PERL_NO_UTF16_FILTER -# ifdef DEBUGGING if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16LE script encoding (BOM)\n"); -# endif s += 2; if (PL_bufend > (char*)s) { s = add_utf16_textfilter(s, TRUE); @@ -11685,9 +11681,7 @@ S_swallow_bom(pTHX_ U8 *s) case 0xFE: if (s[1] == 0xFF) { /* UTF-16 big-endian? */ #ifndef PERL_NO_UTF16_FILTER -# ifdef DEBUGGING if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16BE script encoding (BOM)\n"); -# endif s += 2; if (PL_bufend > (char *)s) { s = add_utf16_textfilter(s, FALSE); @@ -11701,9 +11695,7 @@ S_swallow_bom(pTHX_ U8 *s) case BOM_UTF8_FIRST_BYTE: { const STRLEN len = sizeof(BOM_UTF8_TAIL) - 1; /* Exclude trailing NUL */ if (slen > len && memEQ(s+1, BOM_UTF8_TAIL, len)) { -#ifdef DEBUGGING if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-8 script encoding (BOM)\n"); -#endif s += len + 1; /* UTF-8 */ } break; @@ -11722,9 +11714,7 @@ S_swallow_bom(pTHX_ U8 *s) * 00 xx 00 xx * are a good indicator of UTF-16BE. */ #ifndef PERL_NO_UTF16_FILTER -# ifdef DEBUGGING if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16BE script encoding (no BOM)\n"); -# endif s = add_utf16_textfilter(s, FALSE); #else /* diag_listed_as: Unsupported script encoding %s */ @@ -11740,10 +11730,8 @@ S_swallow_bom(pTHX_ U8 *s) * xx 00 xx 00 * are a good indicator of UTF-16LE. */ #ifndef PERL_NO_UTF16_FILTER -# ifdef DEBUGGING if (DEBUG_p_TEST || DEBUG_T_TEST) PerlIO_printf(Perl_debug_log, "UTF-16LE script encoding (no BOM)\n"); s = add_utf16_textfilter(s, TRUE); -# endif #else /* diag_listed_as: Unsupported script encoding %s */ Perl_croak(aTHX_ "Unsupported script encoding UTF-16LE"); -- cgit v1.2.1