Initial VMS patches

[p5sagit/p5-mst-13.2.git] / perly.c

diff --git a/perly.c b/perly.c
index f9799a8..50494a3 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -10,8 +10,6 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
 #define yynerrs            PL_yynerrs
 #define yyerrflag   PL_yyerrflag
 #define yychar     PL_yychar
-#define yyssp      PL_yyssp
-#define yyvsp      PL_yyvsp
 #define yyval      PL_yyval
 #define yylval     PL_yylval
 
@@ -32,7 +30,7 @@ dep(void)
 
 #line 30 "perly.y"
 #define YYERRCODE 256
-short yylhs[] = {                                        -1,
+static short yylhs[] = {                                        -1,
    45,    0,    9,    7,   10,    8,   11,   11,   11,   12,
    12,   12,   12,   24,   24,   24,   24,   24,   24,   24,
    15,   15,   15,   14,   14,   42,   42,   13,   13,   13,
@@ -52,7 +50,7 @@ short yylhs[] = {                                        -1,
    34,   34,   34,    2,    2,   43,   23,   18,   19,   20,
    21,   22,   35,   35,   35,   35,
 };
-short yylen[] = {                                         2,
+static short yylen[] = {                                         2,
     0,    2,    4,    0,    4,    0,    0,    2,    2,    2,
     1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
     0,    2,    6,    7,    7,    0,    2,    8,    8,   10,
@@ -72,7 +70,7 @@ short yylen[] = {                                         2,
     0,    1,    2,    1,    1,    1,    2,    2,    2,    2,
     2,    2,    1,    1,    1,    1,
 };
-short yydefred[] = {                                      1,
+static short yydefred[] = {                                      1,
     0,    7,    0,   45,   56,   54,    0,   54,    8,   46,
     9,   11,    0,   47,   48,   49,    0,    0,    0,   63,
    64,   14,    4,  157,    0,    0,  130,    0,  152,    0,
@@ -111,14 +109,14 @@ short yydefred[] = {                                      1,
    22,    0,    0,    0,   31,    5,    0,   30,    0,    0,
    33,    0,   23,
 };
-short yydgoto[] = {                                       1,
+static short yydgoto[] = {                                       1,
     9,   66,   10,   18,   95,   17,   86,  339,   89,  328,
     3,   11,   12,   68,  344,  263,   70,   71,   72,   73,
    74,   75,   76,  269,   78,  270,  259,  261,  264,  272,
   260,  262,  113,  198,   91,   79,  238,   81,   83,  179,
   250,  142,  267,   13,    2,   14,   15,   16,   85,  256,
 };
-short yysindex[] = {                                      0,
+static short yysindex[] = {                                      0,
     0,    0,  -66,    0,    0,    0,  -48,    0,    0,    0,
     0,    0,  645,    0,    0,    0, -232, -227,  -27,    0,
     0,    0,    0,    0,  -23,  -23,    0,   -6,    0, 2099,
@@ -157,7 +155,7 @@ short yysindex[] = {                                      0,
     0, 2099, -206,  256,    0,    0,  259,    0,   92,   92,
     0, -238,    0,
 };
-short yyrindex[] = {                                      0,
+static short yyrindex[] = {                                      0,
     0,    0,  249,    0,    0,    0,    0,    0,    0,    0,
     0,    0,    0,    0,    0,    0,  184,    0,    0,    0,
     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
@@ -196,7 +194,7 @@ short yyrindex[] = {                                      0,
     0,    0,   59,    0,    0,    0,    0,    0,    0,    0,
     0,  154,    0,
 };
-short yygindex[] = {                                      0,
+static short yygindex[] = {                                      0,
     0,    0,    0,  374,  351,    0,  -12,    0,  946,  413,
   -83,    0,    0,    0, -311,  -13, 4007, 2893,    0,    0,
     0,    0,    0,  372,   -8,    0,    0,  246, -131,   43,
@@ -204,7 +202,7 @@ short yygindex[] = {                                      0,
     0, -271,    0,    0,    0,    0,    0,    0,    0,    0,
 };
 #define YYTABLESIZE 4293
-short yytable[] = {                                      69,
+static short yytable[] = {                                      69,
   207,   62,  181,  104,  168,  102,  104,  204,  168,  248,
    20,  208,   62,  253,   58,  285,  274,  170,  298,  345,
   104,  104,  172,  202,   80,  104,  311,  148,  149,   82,
@@ -636,7 +634,7 @@ short yytable[] = {                                      69,
     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     0,    0,  317,
 };
-short yycheck[] = {                                      13,
+static short yycheck[] = {                                      13,
    41,   36,   86,   41,   91,   40,   44,   59,   91,   59,
    59,   93,   36,  183,   59,   59,   41,   91,   41,  331,
    58,   59,   91,   40,  257,   63,   41,  297,  298,  257,
@@ -1074,7 +1072,7 @@ short yycheck[] = {                                      13,
 #endif
 #define YYMAXTOKEN 314
 #if YYDEBUG
-char *yyname[] = {
+static char *yyname[] = {
 "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
 "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
 0,0,0,0,0,"':'","';'",0,0,0,"'?'","'@'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
@@ -1091,7 +1089,7 @@ char *yyname[] = {
 "SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP","PREINC","PREDEC","POSTINC",
 "POSTDEC","ARROW",
 };
-char *yyrule[] = {
+static char *yyrule[] = {
 "$accept : prog",
 "$$1 :",
 "prog : $$1 lineseq",
@@ -1773,7 +1771,7 @@ case 56:
 break;
 case 57:
 #line 302 "perly.y"
-{ char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, PL_na);
+{ STRLEN n_a; char *name = SvPV(((SVOP*)yyvsp[0].opval)->op_sv, n_a);
                          if (strEQ(name, "BEGIN") || strEQ(name, "END")
                              || strEQ(name, "INIT"))
                              CvUNIQUE_on(PL_compcv);
@@ -2110,7 +2108,7 @@ case 134:
 break;
 case 135:
 #line 515 "perly.y"
-{ yyval.opval = newUNOP(OP_DOFILE, 0, scalar(yyvsp[0].opval)); }
+{ yyval.opval = dofile(yyvsp[0].opval); }
 break;
 case 136:
 #line 517 "perly.y"