This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perly.c: Disarm the YYDEBUG defines in perly.h
authorFather Chrysostomos <sprout@cpan.org>
Tue, 2 Oct 2012 03:05:45 +0000 (20:05 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 2 Oct 2012 03:05:45 +0000 (20:05 -0700)
See <craigberry-E9C729.16313730092012@cpc2-bmly6-0-0-cust974.2-3.cable.virginmedia.com>.

Move the YYDEBUG defines in perly.c back where they were before, but
undefine YYDEBUG first.  That leaves bison 2.6’s YYDEBUG defines in
perly.h harmless.

perly.c

diff --git a/perly.c b/perly.c
index 0f1b7a8..d17f19b 100644 (file)
--- a/perly.c
+++ b/perly.c
 
 #include "EXTERN.h"
 #define PERL_IN_PERLY_C
-
-#ifdef DEBUGGING
-#  define YYDEBUG 1
-#else
-#  define YYDEBUG 0
-#endif
-
 #include "perl.h"
 
 typedef unsigned char yytype_uint8;
@@ -45,6 +38,15 @@ typedef signed char yysigned_char;
 /* YYINITDEPTH -- initial size of the parser's stacks.  */
 #define YYINITDEPTH 200
 
+#ifdef YYDEBUG
+#  undef YYDEBUG
+#endif
+#ifdef DEBUGGING
+#  define YYDEBUG 1
+#else
+#  define YYDEBUG 0
+#endif
+
 #ifndef YY_NULL
 # define YY_NULL 0
 #endif