Update to version 1.16

[perl5.git] / perly.c.diff

diff --git a/perly.c.diff b/perly.c.diff
index a6e9389..3b3c04e 100644 (file)
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -1,11 +1,11 @@
-*** perly.c.orig       Thu Sep 15 11:18:35 1994
---- perly.c    Thu Sep 15 11:19:31 1994
+*** perly.c.orig       Wed Feb 14 15:29:04 1996
+--- perly.c    Wed Feb 14 15:29:05 1996
 ***************
-*** 12,79 ****
+*** 12,82 ****
       deprecate("\"do\" to call subroutines");
   }
   
-- #line 30 "perly.y"
+- #line 29 "perly.y"
 - typedef union {
 -     I32      ival;
 -     char *pval;
@@ -19,60 +19,63 @@
 - #define THING 260
 - #define PMFUNC 261
 - #define PRIVATEREF 262
-- #define LABEL 263
-- #define FORMAT 264
-- #define SUB 265
-- #define ANONSUB 266
-- #define PACKAGE 267
-- #define USE 268
-- #define WHILE 269
-- #define UNTIL 270
-- #define IF 271
-- #define UNLESS 272
-- #define ELSE 273
-- #define ELSIF 274
-- #define CONTINUE 275
-- #define FOR 276
-- #define LOOPEX 277
-- #define DOTDOT 278
-- #define FUNC0 279
-- #define FUNC1 280
-- #define FUNC 281
-- #define RELOP 282
-- #define EQOP 283
-- #define MULOP 284
-- #define ADDOP 285
-- #define DOLSHARP 286
-- #define DO 287
-- #define LOCAL 288
-- #define HASHBRACK 289
-- #define NOAMP 290
-- #define OROP 291
-- #define ANDOP 292
-- #define NOTOP 293
-- #define LSTOP 294
-- #define ASSIGNOP 295
-- #define OROR 296
-- #define ANDAND 297
-- #define BITOROP 298
-- #define BITANDOP 299
-- #define UNIOP 300
-- #define SHIFTOP 301
-- #define MATCHOP 302
-- #define UMINUS 303
-- #define REFGEN 304
-- #define POWOP 305
-- #define PREINC 306
-- #define PREDEC 307
-- #define POSTINC 308
-- #define POSTDEC 309
-- #define ARROW 310
+- #define FUNC0SUB 263
+- #define UNIOPSUB 264
+- #define LSTOPSUB 265
+- #define LABEL 266
+- #define FORMAT 267
+- #define SUB 268
+- #define ANONSUB 269
+- #define PACKAGE 270
+- #define USE 271
+- #define WHILE 272
+- #define UNTIL 273
+- #define IF 274
+- #define UNLESS 275
+- #define ELSE 276
+- #define ELSIF 277
+- #define CONTINUE 278
+- #define FOR 279
+- #define LOOPEX 280
+- #define DOTDOT 281
+- #define FUNC0 282
+- #define FUNC1 283
+- #define FUNC 284
+- #define RELOP 285
+- #define EQOP 286
+- #define MULOP 287
+- #define ADDOP 288
+- #define DOLSHARP 289
+- #define DO 290
+- #define LOCAL 291
+- #define HASHBRACK 292
+- #define NOAMP 293
+- #define OROP 294
+- #define ANDOP 295
+- #define NOTOP 296
+- #define LSTOP 297
+- #define ASSIGNOP 298
+- #define OROR 299
+- #define ANDAND 300
+- #define BITOROP 301
+- #define BITANDOP 302
+- #define UNIOP 303
+- #define SHIFTOP 304
+- #define MATCHOP 305
+- #define UMINUS 306
+- #define REFGEN 307
+- #define POWOP 308
+- #define PREINC 309
+- #define PREDEC 310
+- #define POSTINC 311
+- #define POSTDEC 312
+- #define ARROW 313
   #define YYERRCODE 256
   short yylhs[] = {                                        -1,
-     30,    0,    5,    3,    6,    6,    6,    7,    7,    7,
+     31,    0,    5,    3,    6,    6,    6,    7,    7,    7,
 --- 12,17 ----
 ***************
-*** 1334,1346 ****
+*** 1381,1393 ****
   int yynerrs;
   int yyerrflag;
   int yychar;
@@ -83,13 +86,13 @@
 - short yyss[YYSTACKSIZE];
 - YYSTYPE yyvs[YYSTACKSIZE];
 - #define yystacksize YYSTACKSIZE
-  #line 544 "perly.y"
+  #line 571 "perly.y"
    /* PROGRAM */
-  #line 1347 "y.tab.c"
---- 1272,1279 ----
+  #line 1394 "y.tab.c"
+--- 1316,1323 ----
 ***************
-*** 1347,1360 ****
---- 1280,1338 ----
+*** 1394,1407 ****
+--- 1324,1382 ----
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
@@ -150,8 +153,8 @@
       {
           yyn = *yys;
 ***************
-*** 1367,1372 ****
---- 1345,1358 ----
+*** 1414,1419 ****
+--- 1389,1402 ----
       yyerrflag = 0;
       yychar = (-1);
   
@@ -167,7 +170,7 @@
       yyvsp = yyvs;
       *yyssp = yystate = 0;
 ***************
-*** 1382,1388 ****
+*** 1429,1435 ****
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -175,7 +178,7 @@
                       yychar, yys);
           }
   #endif
---- 1368,1374 ----
+--- 1412,1418 ----
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -184,7 +187,7 @@
           }
   #endif
 ***************
-*** 1392,1403 ****
+*** 1439,1450 ****
       {
   #if YYDEBUG
           if (yydebug)
@@ -197,7 +200,7 @@
           }
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
---- 1378,1403 ----
+--- 1422,1447 ----
       {
   #if YYDEBUG
           if (yydebug)
@@ -225,7 +228,7 @@
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
 ***************
-*** 1433,1444 ****
+*** 1480,1491 ****
               {
   #if YYDEBUG
                   if (yydebug)
@@ -238,7 +241,7 @@
                   }
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
---- 1433,1459 ----
+--- 1477,1503 ----
               {
   #if YYDEBUG
                   if (yydebug)
@@ -267,7 +270,7 @@
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
 ***************
-*** 1448,1455 ****
+*** 1495,1502 ****
               {
   #if YYDEBUG
                   if (yydebug)
@@ -276,7 +279,7 @@
   #endif
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
---- 1463,1471 ----
+--- 1507,1515 ----
               {
   #if YYDEBUG
                   if (yydebug)
@@ -287,7 +290,7 @@
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
 ***************
-*** 1466,1473 ****
+*** 1513,1520 ****
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -296,7 +299,7 @@
           }
   #endif
           yychar = (-1);
---- 1482,1490 ----
+--- 1526,1534 ----
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
@@ -307,7 +310,7 @@
   #endif
           yychar = (-1);
 ***************
-*** 1476,1482 ****
+*** 1523,1529 ****
   yyreduce:
   #if YYDEBUG
       if (yydebug)
@@ -315,7 +318,7 @@
                   yystate, yyn, yyrule[yyn]);
   #endif
       yym = yylen[yyn];
---- 1493,1499 ----
+--- 1537,1543 ----
   yyreduce:
   #if YYDEBUG
       if (yydebug)
@@ -324,7 +327,7 @@
   #endif
       yym = yylen[yyn];
 ***************
-*** 2161,2168 ****
+*** 2242,2249 ****
       {
   #if YYDEBUG
           if (yydebug)
@@ -333,7 +336,7 @@
   #endif
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
---- 2178,2186 ----
+--- 2256,2264 ----
       {
   #if YYDEBUG
           if (yydebug)
@@ -344,7 +347,7 @@
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
 ***************
-*** 2176,2182 ****
+*** 2257,2263 ****
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
@@ -352,7 +355,7 @@
                           YYFINAL, yychar, yys);
               }
   #endif
---- 2194,2200 ----
+--- 2272,2278 ----
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
@@ -361,7 +364,7 @@
               }
   #endif
 ***************
-*** 2191,2210 ****
+*** 2272,2291 ****
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)
@@ -382,7 +385,7 @@
   yyaccept:
 !     return (0);
   }
---- 2209,2243 ----
+--- 2287,2321 ----
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)