Perl 5.8.3 patches from the BS2000 port - part 2

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

diff --git a/perly_c.diff b/perly_c.diff
index f9981c5..1a9c2d7 100644 (file)
--- a/perly_c.diff
+++ b/perly_c.diff
@@ -1,5 +1,5 @@
---- y.tab.c.orig       2002-12-08 00:49:43.000000000 -0500
-+++ y.tab.c    2002-12-08 00:50:29.000000000 -0500
+--- perly.c.orig       Sun Dec 28 01:04:08 2003
++++ perly.c    Sun Dec 28 01:08:37 2003
 @@ -1,5 +1,5 @@
  #ifndef lint
 -static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
@@ -124,45 +124,45 @@
  };
 -short yysindex[] = {                                      0,
 +static short yysindex[] = {                                      0,
-     0,    0, -230,    0,    0,    0, -233,    0,    0,    0,
-     0,    0,    0,    0,  819,    0,    0,    0, -226, -194,
-    27,    0, -194,    0,    0,    0,  -32,  -32,    0,   32,
+     0,    0, -236,    0,    0,    0, -231,    0,    0,    0,
+     0,    0,    0,    0,  819,    0,    0,    0, -211, -209,
+     3,    0, -209,    0,    0,    0,  -32,  -32,    0,   23,
 @@ -251,7 +188,7 @@
-     0, 1859, -100,  350,    0, 2213, -100,  435,    0,    0,
-   443,    0,  289,  289,    0, -229,    0,
+     0, 1859, -173,  350,    0, 2213, -173,  360,    0,    0,
+   361,    0,  221,  221,    0, -240,    0,
  };
 -short yyrindex[] = {                                      0,
 +static short yyrindex[] = {                                      0,
      0,    0,  371,    0,    0,    0,    0,    0,    0,    0,
-     0,    0,    0,    0,    0,    0,    0,    0,  362,    0,
+     0,    0,    0,    0,    0,    0,    0,    0,  289,    0,
      0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
 @@ -293,7 +230,7 @@
-     0,  465,   90,  880,    0,    0,   90,    0,    0,    0,
+     0,  435,   90,  880,    0,    0,   90,    0,    0,    0,
      0,    0,    0,    0,    0,  186,    0,
  };
 -short yygindex[] = {                                      0,
 +static short yygindex[] = {                                      0,
-     0,    0,  116,  486,    0,    0,   -4,    0,   63,  153,
-   -93,    0,    0,    0, -319,  -15, 2480,    0, 1744,  470,
-   472,    0,    0,    0,  509,  -37,    0,    0,  370, -184,
+     0,    0,   50,  453,    0,    0,  -22,    0,   63,  153,
+   -93,    0,    0,    0, -346,  -15, 2480,    0, 1744,  437,
+   439,    0,    0,    0,  481,  755,    0,    0,  341, -186,
 @@ -302,7 +239,7 @@
      0,    0,    0,    0,    0,    0,    0,    0,    0,
  };
  #define YYTABLESIZE 5051
 -short yytable[] = {                                      70,
 +static short yytable[] = {                                      70,
-   198,  300,   75,   64,  312,  280,  228,  120,  279,   64,
-   199,   60,   60,  257,  183,  138,  278,   64,  328,   75,
-    75,  110,   62,   21,  296,  186,  188,  170,  219,   64,
+   198,  300,   75,   64,   60,  280,  228,   60,  279,   64,
+   199,  328,  183,  257,  219,   62,  278,   64,  379,  186,
+    75,  110,  296,  188,   15,   21,  197,  170,   64,    4,
 @@ -810,7 +747,7 @@
      0,    0,    0,    0,  114,  114,  114,    0,  114,  114,
    114,
  };
 -short yycheck[] = {                                      15,
 +static short yycheck[] = {                                      15,
-    94,   44,   41,   36,   58,   41,   41,   45,   44,   36,
-    99,   59,  123,   40,   40,   53,  200,   36,   59,   58,
-    59,   40,   59,  257,  209,   91,   91,   63,   40,   59,
+    94,   44,   41,   36,   59,   41,   41,  123,   44,   36,
+    99,   59,   40,   40,   40,   59,  200,   36,  365,   91,
+    59,   40,  209,   91,   41,  257,   93,   63,   59,  266,
 @@ -1324,7 +1261,7 @@
  #endif
  #define YYMAXTOKEN 319
@@ -196,7 +196,7 @@
 -short yyss[YYSTACKSIZE];
 -YYSTYPE yyvs[YYSTACKSIZE];
 -#define yystacksize YYSTACKSIZE
- #line 795 "perly.y"
+ #line 796 "perly.y"
   /* PROGRAM */
  
 @@ -1578,7 +1504,7 @@
@@ -204,7 +204,7 @@
  #define yyparse() Perl_yyparse(pTHX)
  
 -#line 1582 "y.tab.c"
-+#line 1582 "perly.c"
++#line 1508 "perly.c"
  #define YYABORT goto yyabort
  #define YYACCEPT goto yyaccept
  #define YYERROR goto yyerrlab
@@ -373,16 +373,16 @@
                  yystate, yyn, yyrule[yyn]);
  #endif
      yym = yylen[yyn];
-@@ -2578,7 +2558,7 @@
- #line 792 "perly.y"
+@@ -2579,7 +2559,7 @@
+ #line 793 "perly.y"
  { yyval.opval = yyvsp[0].opval; }
  break;
--#line 2582 "y.tab.c"
-+#line 2582 "perly.c"
+-#line 2583 "y.tab.c"
++#line 2563 "perly.c"
      }
      yyssp -= yym;
      yystate = *yyssp;
-@@ -2588,7 +2568,7 @@
+@@ -2589,7 +2569,7 @@
      {
  #if YYDEBUG
          if (yydebug)
@@ -391,7 +391,7 @@
   state %d\n", YYFINAL);
  #endif
          yystate = YYFINAL;
-@@ -2603,7 +2583,7 @@
+@@ -2604,7 +2584,7 @@
                  yys = 0;
                  if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                  if (!yys) yys = "illegal-symbol";
@@ -400,7 +400,7 @@
                          YYFINAL, yychar, yys);
              }
  #endif
-@@ -2618,20 +2598,50 @@
+@@ -2619,20 +2599,50 @@
          yystate = yydgoto[yym];
  #if YYDEBUG
      if (yydebug)