More de-cut-and-pastos.

[p5sagit/p5-mst-13.2.git] / perly_c.diff

diff --git a/perly_c.diff b/perly_c.diff
index f770e24..11664b4 100644 (file)
--- a/perly_c.diff
+++ b/perly_c.diff
@@ -1,5 +1,5 @@
-*** perly.c.orig       Thu Sep 24 00:32:28 1998
---- perly.c    Thu Sep 24 00:18:13 1998
+*** perly.c.orig       Tue Oct 27 12:59:58 1998
+--- perly.c    Tue Oct 27 13:00:18 1998
 ***************
 *** 7,10 ****
 --- 7,27 ----
@@ -25,22 +25,27 @@
   static void
   dep(void)
 ***************
-*** 12,86 ****
+*** 12,91 ****
       deprecate("\"do\" to call subroutines");
   }
   
   #line 30 "perly.y"
-- #ifndef OEMVS
-- #line 33 "perly.y"
+- /* I sense a Big Blue pattern here... */
+- #if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
+- #line 34 "perly.y"
 - typedef union {
 -     I32      ival;
 -     char *pval;
 -     OP *opval;
 -     GV *gvval;
 - } YYSTYPE;
-- #line 41 "perly.y"
-- #endif /* OEMVS */
-- #line 27 "y.tab.c"
+- #line 42 "perly.y"
+- #endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
+- 
+- #ifdef USE_PURE_BISON
+- #define YYLEX_PARAM (&yychar)
+- #endif
+- #line 32 "y.tab.c"
 - #define WORD 257
 - #define METHOD 258
 - #define FUNCMETH 259
@@ -110,7 +115,7 @@
   #define YYERRCODE 256
   short yylhs[] = {                                        -1,
 ***************
-*** 1337,1365 ****
+*** 1342,1370 ****
   #endif
   #endif
 - int yydebug;
@@ -124,9 +129,9 @@
 - short yyss[YYSTACKSIZE];
 - YYSTYPE yyvs[YYSTACKSIZE];
 - #define yystacksize YYSTACKSIZE
-  #line 643 "perly.y"
+  #line 648 "perly.y"
    /* PROGRAM */
-! #line 1353 "y.tab.c"
+! #line 1358 "y.tab.c"
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
@@ -143,9 +148,9 @@
 --- 1286,1350 ----
   #endif
   #endif
-  #line 643 "perly.y"
+  #line 648 "perly.y"
    /* PROGRAM */
-! #line 1353 "perly.c"
+! #line 1358 "perly.c"
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
@@ -207,7 +212,7 @@
       if (yys = getenv("YYDEBUG"))
       {
 ***************
-*** 1374,1377 ****
+*** 1379,1382 ****
 --- 1359,1372 ----
       yychar = (-1);
   
@@ -224,20 +229,7 @@
       yyssp = yyss;
       yyvsp = yyvs;
 ***************
-*** 1389,1393 ****
-              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
-              if (!yys) yys = "illegal-symbol";
-!             printf("yydebug: state %d, reading %d (%s)\n", yystate,
-                      yychar, yys);
-          }
---- 1384,1388 ----
-              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
-              if (!yys) yys = "illegal-symbol";
-!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
-                      yychar, yys);
-          }
-***************
-*** 1399,1408 ****
+*** 1404,1413 ****
   #if YYDEBUG
           if (yydebug)
 !             printf("yydebug: state %d, shifting to state %d\n",
@@ -274,7 +266,7 @@
           }
           *++yyssp = yystate = yytable[yyn];
 ***************
-*** 1440,1449 ****
+*** 1445,1454 ****
   #if YYDEBUG
                   if (yydebug)
 !                     printf("yydebug: state %d, error recovery shifting\
@@ -312,7 +304,7 @@
                   }
                   *++yyssp = yystate = yytable[yyn];
 ***************
-*** 1455,1460 ****
+*** 1460,1465 ****
   #if YYDEBUG
                   if (yydebug)
 !                     printf("yydebug: error recovery discarding state %d\n",
@@ -328,7 +320,7 @@
   #endif
                   if (yyssp <= yyss) goto yyabort;
 ***************
-*** 1473,1478 ****
+*** 1478,1483 ****
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
 !             printf("yydebug: state %d, error recovery discards token %d (%s)\n",
@@ -344,7 +336,7 @@
           }
   #endif
 ***************
-*** 1483,1487 ****
+*** 1488,1492 ****
   #if YYDEBUG
       if (yydebug)
 !         printf("yydebug: state %d, reducing by rule %d (%s)\n",
@@ -357,20 +349,20 @@
                   yystate, yyn, yyrule[yyn]);
   #endif
 ***************
-*** 2267,2271 ****
+*** 2272,2276 ****
   { yyval.opval = yyvsp[0].opval; }
   break;
-! #line 2270 "y.tab.c"
+! #line 2275 "y.tab.c"
       }
       yyssp -= yym;
 --- 2293,2297 ----
   { yyval.opval = yyvsp[0].opval; }
   break;
-! #line 2270 "perly.c"
+! #line 2275 "perly.c"
       }
       yyssp -= yym;
 ***************
-*** 2277,2282 ****
+*** 2282,2287 ****
   #if YYDEBUG
           if (yydebug)
 !             printf("yydebug: after reduction, shifting from state 0 to\
@@ -386,7 +378,7 @@
   #endif
           yystate = YYFINAL;
 ***************
-*** 2292,2296 ****
+*** 2297,2301 ****
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
 !                 printf("yydebug: state %d, reading %d (%s)\n",
@@ -399,7 +391,7 @@
                           YYFINAL, yychar, yys);
               }
 ***************
-*** 2307,2316 ****
+*** 2312,2321 ****
   #if YYDEBUG
       if (yydebug)
 !         printf("yydebug: after reduction, shifting from state %d \
@@ -437,7 +429,7 @@
       }
       *++yyssp = yystate;
 ***************
-*** 2318,2325 ****
+*** 2323,2330 ****
       goto yyloop;
   yyoverflow:
 !     yyerror("yacc stack overflow");