[asperl] various changes to get asperl working under Borland

[perl5.git] / perly.c.diff

diff --git a/perly.c.diff b/perly.c.diff
index e082aec..55f0a11 100644 (file)
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -194,7 +194,7 @@ Index: perly.c
 --- 1372,1376 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
-!             fprintf(stderr, "yydebug: state %d, reading %d (%s)\n", yystate,
+!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
                       yychar, yys);
           }
 ***************
@@ -212,7 +212,7 @@ Index: perly.c
 --- 1382,1405 ----
   #if YYDEBUG
           if (yydebug)
-!             fprintf(stderr, "yydebug: state %d, shifting to state %d\n",
+!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
                       yystate, yytable[yyn]);
   #endif
           if (yyssp >= yyss + yystacksize - 1)
@@ -249,7 +249,7 @@ Index: perly.c
 --- 1437,1461 ----
   #if YYDEBUG
                   if (yydebug)
-!                     fprintf(stderr,
+!                     PerlIO_printf(Perl_debug_log,
 !                   "yydebug: state %d, error recovery shifting to state %d\n",
 !                   *yyssp, yytable[yyn]);
   #endif
@@ -283,7 +283,7 @@ Index: perly.c
 --- 1467,1473 ----
   #if YYDEBUG
                   if (yydebug)
-!                     fprintf(stderr,
+!                     PerlIO_printf(Perl_debug_log,
 !                      "yydebug: error recovery discarding state %d\n",
 !                      *yyssp);
   #endif
@@ -299,7 +299,7 @@ Index: perly.c
 --- 1486,1492 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
-!             fprintf(stderr,
+!             PerlIO_printf(Perl_debug_log,
 !              "yydebug: state %d, error recovery discards token %d (%s)\n",
 !              yystate, yychar, yys);
           }
@@ -314,7 +314,7 @@ Index: perly.c
 --- 1497,1501 ----
   #if YYDEBUG
       if (yydebug)
-!         fprintf(stderr, "yydebug: state %d, reducing by rule %d (%s)\n",
+!         PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
                   yystate, yyn, yyrule[yyn]);
   #endif
 ***************
@@ -328,7 +328,7 @@ Index: perly.c
 --- 2292,2298 ----
   #if YYDEBUG
           if (yydebug)
-!             fprintf(stderr,
+!             PerlIO_printf(Perl_debug_log,
 !              "yydebug: after reduction, shifting from state 0 to state %d\n",
 !              YYFINAL);
   #endif
@@ -343,7 +343,7 @@ Index: perly.c
 --- 2308,2312 ----
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
-!                 fprintf(stderr, "yydebug: state %d, reading %d (%s)\n",
+!                 PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
                           YYFINAL, yychar, yys);
               }
 ***************
@@ -361,7 +361,7 @@ Index: perly.c
 --- 2323,2347 ----
   #if YYDEBUG
       if (yydebug)
-!         fprintf(stderr,
+!         PerlIO_printf(Perl_debug_log,
 !          "yydebug: after reduction, shifting from state %d to state %d\n",
 !          *yyssp, yystate);
   #endif