[perl5.git] / perly_c.diff

*** perly.c.orig	Mon Jul 26 03:27:57 1999
--- perly.c	Mon Jul 26 02:47:03 1999
***************
*** 8,91 ****
  #include "perl.h"
  
  #define dep() deprecate("\"do\" to call subroutines")
  
! #line 27 "perly.y"
! /* I sense a Big Blue pattern here... */
! #if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
! #line 31 "perly.y"
! typedef union {
!     I32	ival;
!     char *pval;
!     OP *opval;
!     GV *gvval;
! } YYSTYPE;
! #line 39 "perly.y"
! #endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
  
! #ifdef USE_PURE_BISON
! #define YYLEX_PARAM (&yychar)
! #endif
! #line 29 "y.tab.c"
! #define WORD 257
! #define METHOD 258
! #define FUNCMETH 259
! #define THING 260
! #define PMFUNC 261
! #define PRIVATEREF 262
! #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 UNIOP 285
! #define LSTOP 286
! #define RELOP 287
! #define EQOP 288
! #define MULOP 289
! #define ADDOP 290
! #define DOLSHARP 291
! #define DO 292
! #define HASHBRACK 293
! #define NOAMP 294
! #define LOCAL 295
! #define MY 296
! #define PREC_LOW 297
! #define OROP 298
! #define ANDOP 299
! #define NOTOP 300
! #define ASSIGNOP 301
! #define OROR 302
! #define ANDAND 303
! #define BITOROP 304
! #define BITANDOP 305
! #define SHIFTOP 306
! #define MATCHOP 307
! #define UMINUS 308
! #define REFGEN 309
! #define POWOP 310
! #define PREINC 311
! #define PREDEC 312
! #define POSTINC 313
! #define POSTDEC 314
! #define ARROW 315
  #define YYERRCODE 256
! short yylhs[] = {                                        -1,
     46,    0,    9,    7,   10,    8,   11,   11,   11,   12,
     12,   12,   12,   25,   25,   25,   25,   25,   25,   25,
--- 8,25 ----
  #include "perl.h"
  
+ #define yydebug	    PL_yydebug
+ #define yynerrs	    PL_yynerrs
+ #define yyerrflag   PL_yyerrflag
+ #define yychar	    PL_yychar
+ #define yyval	    PL_yyval
+ #define yylval	    PL_yylval
+ 
  #define dep() deprecate("\"do\" to call subroutines")
  
! static void yydestruct(pTHXo_ void *ptr);
  
! #line 27 "perly.y"
  #define YYERRCODE 256
! static short yylhs[] = {                                 -1,
     46,    0,    9,    7,   10,    8,   11,   11,   11,   12,
     12,   12,   12,   25,   25,   25,   25,   25,   25,   25,
***************
*** 107,111 ****
     24,   19,   20,   21,   22,   23,   36,   36,   36,   36,
  };
! short yylen[] = {                                         2,
      0,    2,    4,    0,    4,    0,    0,    2,    2,    2,
      1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
--- 41,45 ----
     24,   19,   20,   21,   22,   23,   36,   36,   36,   36,
  };
! static short yylen[] = {                                  2,
      0,    2,    4,    0,    4,    0,    0,    2,    2,    2,
      1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
***************
*** 127,131 ****
      2,    2,    2,    2,    2,    2,    1,    1,    1,    1,
  };
! short yydefred[] = {                                      1,
      0,    7,    0,   45,   56,   54,    0,   54,    8,   46,
      9,   11,    0,   47,   48,   49,    0,    0,    0,   63,
--- 61,65 ----
      2,    2,    2,    2,    2,    2,    1,    1,    1,    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,
***************
*** 166,170 ****
      5,    0,   30,    0,    0,   33,    0,   23,
  };
! short yydgoto[] = {                                       1,
      9,   66,   10,   18,   96,   17,   87,  344,   90,  333,
      3,   11,   12,   68,  349,  267,   70,   71,   72,   73,
--- 100,104 ----
      5,    0,   30,    0,    0,   33,    0,   23,
  };
! static short yydgoto[] = {                                1,
      9,   66,   10,   18,   96,   17,   87,  344,   90,  333,
      3,   11,   12,   68,  349,  267,   70,   71,   72,   73,
***************
*** 174,178 ****
    260,
  };
! short yysindex[] = {                                      0,
      0,    0,  142,    0,    0,    0,  -57,    0,    0,    0,
      0,    0,  622,    0,    0,    0, -239, -229,  -10,    0,
--- 108,112 ----
    260,
  };
! static short yysindex[] = {                               0,
      0,    0,  142,    0,    0,    0,  -57,    0,    0,    0,
      0,    0,  622,    0,    0,    0, -239, -229,  -10,    0,
***************
*** 213,217 ****
      0,  228,    0,   92,   92,    0, -204,    0,
  };
! short yyrindex[] = {                                      0,
      0,    0,  225,    0,    0,    0,    0,    0,    0,    0,
      0,    0,    0,    0,    0,    0,  155,    0,    0,    0,
--- 147,151 ----
      0,  228,    0,   92,   92,    0, -204,    0,
  };
! static short yyrindex[] = {                               0,
      0,    0,  225,    0,    0,    0,    0,    0,    0,    0,
      0,    0,    0,    0,    0,    0,  155,    0,    0,    0,
***************
*** 252,256 ****
      0,    0,    0,    0,    0,    0,  168,    0,
  };
! short yygindex[] = {                                      0,
      0,    0,    0,  339,  320,    0,  -11,    0,  913,  360,
    -78,    0,    0,    0, -320,  -13, 4321,    0, 1367,    0,
--- 186,190 ----
      0,    0,    0,    0,    0,    0,  168,    0,
  };
! static short yygindex[] = {                               0,
      0,    0,    0,  339,  320,    0,  -11,    0,  913,  360,
    -78,    0,    0,    0, -320,  -13, 4321,    0, 1367,    0,
***************
*** 261,265 ****
  };
  #define YYTABLESIZE 4610
! short yytable[] = {                                      69,
    206,   20,  295,   62,  113,  257,  184,  103,  183,  298,
    172,   62,  125,  104,  252,  350,  104,   81,  209,  169,
--- 195,199 ----
  };
  #define YYTABLESIZE 4610
! static short yytable[] = {                               69,
    206,   20,  295,   62,  113,  257,  184,  103,  183,  298,
    172,   62,  125,  104,  252,  350,  104,   81,  209,  169,
***************
*** 724,728 ****
      0,    0,    0,    0,    0,    0,    0,    0,    0,  321,
  };
! short yycheck[] = {                                      13,
     59,   59,   59,   36,   43,  185,   92,   40,   87,   59,
     91,   36,   51,   41,   59,  336,   44,  257,   41,   40,
--- 658,662 ----
      0,    0,    0,    0,    0,    0,    0,    0,    0,  321,
  };
! static short yycheck[] = {                               13,
     59,   59,   59,   36,   43,  185,   92,   40,   87,   59,
     91,   36,   51,   41,   59,  336,   44,  257,   41,   40,
***************
*** 1193,1197 ****
  #define YYMAXTOKEN 315
  #if YYDEBUG
! 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,
--- 1127,1131 ----
  #define YYMAXTOKEN 315
  #if YYDEBUG
! 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,
***************
*** 1210,1214 ****
  "POSTINC","POSTDEC","ARROW",
  };
! char *yyrule[] = {
  "$accept : prog",
  "$$1 :",
--- 1144,1148 ----
  "POSTINC","POSTDEC","ARROW",
  };
! static char *yyrule[] = {
  "$accept : prog",
  "$$1 :",
***************
*** 1408,1436 ****
  #endif
  #endif
- int yydebug;
- int yynerrs;
- int yyerrflag;
- int yychar;
- short *yyssp;
- YYSTYPE *yyvsp;
- YYSTYPE yyval;
- YYSTYPE yylval;
- short yyss[YYSTACKSIZE];
- YYSTYPE yyvs[YYSTACKSIZE];
- #define yystacksize YYSTACKSIZE
  #line 666 "perly.y"
   /* PROGRAM */
! #line 1424 "y.tab.c"
  #define YYABORT goto yyabort
  #define YYACCEPT goto yyaccept
  #define YYERROR goto yyerrlab
  int
! yyparse()
  {
      register int yym, yyn, yystate;
  #if YYDEBUG
      register char *yys;
      extern char *getenv();
  
      if (yys = getenv("YYDEBUG"))
      {
--- 1342,1391 ----
  #endif
  #endif
  #line 666 "perly.y"
   /* PROGRAM */
! #line 1427 "perly.c"
  #define YYABORT goto yyabort
  #define YYACCEPT goto yyaccept
  #define YYERROR goto yyerrlab
+ 
+ struct ysv {
+     short* yyss;
+     YYSTYPE* yyvs;
+     int oldyydebug;
+     int oldyynerrs;
+     int oldyyerrflag;
+     int oldyychar;
+     YYSTYPE oldyyval;
+     YYSTYPE oldyylval;
+ };
+ 
  int
! Perl_yyparse(pTHX)
  {
      register int yym, yyn, yystate;
+     register short *yyssp;
+     register YYSTYPE *yyvsp;
+     short* yyss;
+     YYSTYPE* yyvs;
+     unsigned yystacksize = YYSTACKSIZE;
+     int retval = 0;
  #if YYDEBUG
      register char *yys;
+ #ifndef __cplusplus
      extern char *getenv();
+ #endif
+ #endif
+ 
+     struct ysv *ysave;
+     New(73, ysave, 1, struct ysv);
+     SAVEDESTRUCTOR(yydestruct, ysave);
+     ysave->oldyydebug	= yydebug;
+     ysave->oldyynerrs	= yynerrs;
+     ysave->oldyyerrflag	= yyerrflag;
+     ysave->oldyychar	= yychar;
+     ysave->oldyyval	= yyval;
+     ysave->oldyylval	= yylval;
  
+ #if YYDEBUG
      if (yys = getenv("YYDEBUG"))
      {
***************
*** 1445,1448 ****
--- 1400,1413 ----
      yychar = (-1);
  
+     /*
+     ** Initialize private stacks (yyparse may be called from an action)
+     */
+     New(73, yyss, yystacksize, short);
+     New(73, yyvs, yystacksize, YYSTYPE);
+     ysave->yyss = yyss;
+     ysave->yyvs = yyvs;
+     if (!yyvs || !yyss)
+ 	goto yyoverflow;
+ 
      yyssp = yyss;
      yyvsp = yyvs;
***************
*** 1470,1479 ****
  #if YYDEBUG
          if (yydebug)
!             printf("yydebug: state %d, shifting to state %d\n",
                      yystate, yytable[yyn]);
  #endif
          if (yyssp >= yyss + yystacksize - 1)
          {
!             goto yyoverflow;
          }
          *++yyssp = yystate = yytable[yyn];
--- 1435,1458 ----
  #if YYDEBUG
          if (yydebug)
!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
                      yystate, yytable[yyn]);
  #endif
          if (yyssp >= yyss + yystacksize - 1)
          {
! 	    /*
! 	    ** reallocate and recover.  Note that pointers
! 	    ** have to be reset, or bad things will happen
! 	    */
! 	    int yyps_index = (yyssp - yyss);
! 	    int yypv_index = (yyvsp - yyvs);
! 	    yystacksize += YYSTACKSIZE;
! 	    ysave->yyvs = yyvs =
! 		(YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
! 	    ysave->yyss = yyss =
! 		(short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
! 	    if (!yyvs || !yyss)
! 		goto yyoverflow;
! 	    yyssp = yyss + yyps_index;
! 	    yyvsp = yyvs + yypv_index;
          }
          *++yyssp = yystate = yytable[yyn];
***************
*** 1511,1520 ****
  #if YYDEBUG
                  if (yydebug)
!                     printf("yydebug: state %d, error recovery shifting\
!  to state %d\n", *yyssp, yytable[yyn]);
  #endif
                  if (yyssp >= yyss + yystacksize - 1)
                  {
!                     goto yyoverflow;
                  }
                  *++yyssp = yystate = yytable[yyn];
--- 1490,1514 ----
  #if YYDEBUG
                  if (yydebug)
!                     PerlIO_printf(Perl_debug_log,
! 		     "yydebug: state %d, error recovery shifting to state %d\n",
! 		     *yyssp, yytable[yyn]);
  #endif
                  if (yyssp >= yyss + yystacksize - 1)
                  {
! 		    /*
! 		    ** reallocate and recover.  Note that pointers
! 		    ** have to be reset, or bad things will happen
! 		    */
! 		    int yyps_index = (yyssp - yyss);
! 		    int yypv_index = (yyvsp - yyvs);
! 		    yystacksize += YYSTACKSIZE;
! 		    ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
! 			yystacksize * sizeof(YYSTYPE));
! 		    ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
! 			yystacksize * sizeof(short));
! 		    if (!yyvs || !yyss)
! 			goto yyoverflow;
! 		    yyssp = yyss + yyps_index;
! 		    yyvsp = yyvs + yypv_index;
                  }
                  *++yyssp = yystate = yytable[yyn];
***************
*** 1526,1531 ****
  #if YYDEBUG
                  if (yydebug)
!                     printf("yydebug: error recovery discarding state %d\n",
!                             *yyssp);
  #endif
                  if (yyssp <= yyss) goto yyabort;
--- 1520,1526 ----
  #if YYDEBUG
                  if (yydebug)
!                     PerlIO_printf(Perl_debug_log,
! 			"yydebug: error recovery discarding state %d\n",
! 			*yyssp);
  #endif
                  if (yyssp <= yyss) goto yyabort;
***************
*** 1544,1549 ****
              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
              if (!yys) yys = "illegal-symbol";
!             printf("yydebug: state %d, error recovery discards token %d (%s)\n",
!                     yystate, yychar, yys);
          }
  #endif
--- 1539,1545 ----
              if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
              if (!yys) yys = "illegal-symbol";
!             PerlIO_printf(Perl_debug_log,
! 		"yydebug: state %d, error recovery discards token %d (%s)\n",
! 		yystate, yychar, yys);
          }
  #endif
***************
*** 1554,1558 ****
  #if YYDEBUG
      if (yydebug)
!         printf("yydebug: state %d, reducing by rule %d (%s)\n",
                  yystate, yyn, yyrule[yyn]);
  #endif
--- 1550,1554 ----
  #if YYDEBUG
      if (yydebug)
!         PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
                  yystate, yyn, yyrule[yyn]);
  #endif
***************
*** 2358,2362 ****
  { yyval.opval = yyvsp[0].opval; }
  break;
! #line 2361 "y.tab.c"
      }
      yyssp -= yym;
--- 2354,2358 ----
  { yyval.opval = yyvsp[0].opval; }
  break;
! #line 2365 "perly.c"
      }
      yyssp -= yym;
***************
*** 2368,2373 ****
  #if YYDEBUG
          if (yydebug)
!             printf("yydebug: after reduction, shifting from state 0 to\
!  state %d\n", YYFINAL);
  #endif
          yystate = YYFINAL;
--- 2364,2370 ----
  #if YYDEBUG
          if (yydebug)
!             PerlIO_printf(Perl_debug_log,
! 		"yydebug: after reduction, shifting from state 0 to state %d\n",
! 		YYFINAL);
  #endif
          yystate = YYFINAL;
***************
*** 2383,2387 ****
                  if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                  if (!yys) yys = "illegal-symbol";
!                 printf("yydebug: state %d, reading %d (%s)\n",
                          YYFINAL, yychar, yys);
              }
--- 2380,2384 ----
                  if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                  if (!yys) yys = "illegal-symbol";
!                 PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
                          YYFINAL, yychar, yys);
              }
***************
*** 2398,2407 ****
  #if YYDEBUG
      if (yydebug)
!         printf("yydebug: after reduction, shifting from state %d \
! to state %d\n", *yyssp, yystate);
  #endif
      if (yyssp >= yyss + yystacksize - 1)
      {
!         goto yyoverflow;
      }
      *++yyssp = yystate;
--- 2395,2419 ----
  #if YYDEBUG
      if (yydebug)
!         PerlIO_printf(Perl_debug_log,
! 	    "yydebug: after reduction, shifting from state %d to state %d\n",
! 	    *yyssp, yystate);
  #endif
      if (yyssp >= yyss + yystacksize - 1)
      {
! 	/*
! 	** reallocate and recover.  Note that pointers
! 	** have to be reset, or bad things will happen
! 	*/
! 	int yyps_index = (yyssp - yyss);
! 	int yypv_index = (yyvsp - yyvs);
! 	yystacksize += YYSTACKSIZE;
! 	ysave->yyvs = yyvs =
! 	    (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
! 	ysave->yyss = yyss =
! 	    (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
! 	if (!yyvs || !yyss)
! 	    goto yyoverflow;
! 	yyssp = yyss + yyps_index;
! 	yyvsp = yyvs + yypv_index;
      }
      *++yyssp = yystate;
***************
*** 2409,2416 ****
      goto yyloop;
  yyoverflow:
!     yyerror("yacc stack overflow");
  yyabort:
!     return (1);
  yyaccept:
!     return (0);
  }
--- 2421,2448 ----
      goto yyloop;
  yyoverflow:
!     yyerror("Out of memory for yacc stack");
  yyabort:
!     retval = 1;
  yyaccept:
!     return retval;
! }
! 
! #ifdef PERL_OBJECT
! #define NO_XSLOCKS
! #include "XSUB.h"
! #endif
! 
! static void
! yydestruct(pTHXo_ void *ptr)
! {
!     struct ysv* ysave = (struct ysv*)ptr;
!     if (ysave->yyss) Safefree(ysave->yyss);
!     if (ysave->yyvs) Safefree(ysave->yyvs);
!     yydebug	= ysave->oldyydebug;
!     yynerrs	= ysave->oldyynerrs;
!     yyerrflag	= ysave->oldyyerrflag;
!     yychar	= ysave->oldyychar;
!     yyval	= ysave->oldyyval;
!     yylval	= ysave->oldyylval;
!     Safefree(ysave);
  }
Commit	Line	Data
fad39ff1 SM	1	*** perly.c.orig Mon Jul 26 03:27:57 1999
fad39ff1 SM	2	--- perly.c Mon Jul 26 02:47:03 1999
93a17b20	3	***************
fad39ff1 SM	4	* 8,91 **
	5	#include "perl.h"
	6
	7	#define dep() deprecate("\"do\" to call subroutines")
	8
	9	! #line 27 "perly.y"
	10	! /* I sense a Big Blue pattern here... */
	11	! #if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
	12	! #line 31 "perly.y"
	13	! typedef union {
	14	! I32 ival;
	15	! char *pval;
	16	! OP *opval;
	17	! GV *gvval;
	18	! } YYSTYPE;
	19	! #line 39 "perly.y"
	20	! #endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
	21
	22	! #ifdef USE_PURE_BISON
	23	! #define YYLEX_PARAM (&yychar)
	24	! #endif
	25	! #line 29 "y.tab.c"
	26	! #define WORD 257
	27	! #define METHOD 258
	28	! #define FUNCMETH 259
	29	! #define THING 260
	30	! #define PMFUNC 261
	31	! #define PRIVATEREF 262
	32	! #define FUNC0SUB 263
	33	! #define UNIOPSUB 264
	34	! #define LSTOPSUB 265
	35	! #define LABEL 266
	36	! #define FORMAT 267
	37	! #define SUB 268
	38	! #define ANONSUB 269
	39	! #define PACKAGE 270
	40	! #define USE 271
	41	! #define WHILE 272
	42	! #define UNTIL 273
	43	! #define IF 274
	44	! #define UNLESS 275
	45	! #define ELSE 276
	46	! #define ELSIF 277
	47	! #define CONTINUE 278
	48	! #define FOR 279
	49	! #define LOOPEX 280
	50	! #define DOTDOT 281
	51	! #define FUNC0 282
	52	! #define FUNC1 283
	53	! #define FUNC 284
	54	! #define UNIOP 285
	55	! #define LSTOP 286
	56	! #define RELOP 287
	57	! #define EQOP 288
	58	! #define MULOP 289
	59	! #define ADDOP 290
	60	! #define DOLSHARP 291
	61	! #define DO 292
	62	! #define HASHBRACK 293
	63	! #define NOAMP 294
	64	! #define LOCAL 295
	65	! #define MY 296
	66	! #define PREC_LOW 297
	67	! #define OROP 298
68	! #define ANDOP 299
69	! #define NOTOP 300
70	! #define ASSIGNOP 301
71	! #define OROR 302
72	! #define ANDAND 303
73	! #define BITOROP 304
74	! #define BITANDOP 305
75	! #define SHIFTOP 306
76	! #define MATCHOP 307
77	! #define UMINUS 308
78	! #define REFGEN 309
79	! #define POWOP 310
80	! #define PREINC 311
81	! #define PREDEC 312
82	! #define POSTINC 313
83	! #define POSTDEC 314
84	! #define ARROW 315
85	#define YYERRCODE 256
86	! short yylhs[] = { -1,
87	46, 0, 9, 7, 10, 8, 11, 11, 11, 12,
88	12, 12, 12, 25, 25, 25, 25, 25, 25, 25,
89	--- 8,25 ----
640b9ef6 SM	90	#include "perl.h"
640b9ef6 SM	91
d3b6f988 GS	92	+ #define yydebug PL_yydebug
	93	+ #define yynerrs PL_yynerrs
	94	+ #define yyerrflag PL_yyerrflag
	95	+ #define yychar PL_yychar
d3b6f988 GS	96	+ #define yyval PL_yyval
	97	+ #define yylval PL_yylval
	98	+
fad39ff1	99	#define dep() deprecate("\"do\" to call subroutines")
a0d0e21e	100
fad39ff1	101	! static void yydestruct(pTHXo_ void *ptr);
36477c24	102
fad39ff1	103	! #line 27 "perly.y"
a0d0e21e	104	#define YYERRCODE 256
b1524f17	105	! static short yylhs[] = { -1,
fad39ff1 SM	106	46, 0, 9, 7, 10, 8, 11, 11, 11, 12,
fad39ff1 SM	107	12, 12, 12, 25, 25, 25, 25, 25, 25, 25,
a0d0e21e	108	***************
fad39ff1 SM	109	* 107,111 **
fad39ff1 SM	110	24, 19, 20, 21, 22, 23, 36, 36, 36, 36,
b1524f17 SM	111	};
	112	! short yylen[] = { 2,
	113	0, 2, 4, 0, 4, 0, 0, 2, 2, 2,
	114	1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
fad39ff1 SM	115	--- 41,45 ----
fad39ff1 SM	116	24, 19, 20, 21, 22, 23, 36, 36, 36, 36,
b1524f17 SM	117	};
	118	! static short yylen[] = { 2,
	119	0, 2, 4, 0, 4, 0, 0, 2, 2, 2,
	120	1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
	121	***************
fad39ff1 SM	122	* 127,131 **
fad39ff1 SM	123	2, 2, 2, 2, 2, 2, 1, 1, 1, 1,
b1524f17 SM	124	};
	125	! short yydefred[] = { 1,
	126	0, 7, 0, 45, 56, 54, 0, 54, 8, 46,
	127	9, 11, 0, 47, 48, 49, 0, 0, 0, 63,
fad39ff1 SM	128	--- 61,65 ----
fad39ff1 SM	129	2, 2, 2, 2, 2, 2, 1, 1, 1, 1,
b1524f17 SM	130	};
	131	! static short yydefred[] = { 1,
	132	0, 7, 0, 45, 56, 54, 0, 54, 8, 46,
	133	9, 11, 0, 47, 48, 49, 0, 0, 0, 63,
	134	***************
fad39ff1 SM	135	* 166,170 **
fad39ff1 SM	136	5, 0, 30, 0, 0, 33, 0, 23,
b1524f17 SM	137	};
b1524f17 SM	138	! short yydgoto[] = { 1,
fad39ff1 SM	139	9, 66, 10, 18, 96, 17, 87, 344, 90, 333,
	140	3, 11, 12, 68, 349, 267, 70, 71, 72, 73,
	141	--- 100,104 ----
	142	5, 0, 30, 0, 0, 33, 0, 23,
b1524f17 SM	143	};
b1524f17 SM	144	! static short yydgoto[] = { 1,
fad39ff1 SM	145	9, 66, 10, 18, 96, 17, 87, 344, 90, 333,
fad39ff1 SM	146	3, 11, 12, 68, 349, 267, 70, 71, 72, 73,
b1524f17	147	***************
fad39ff1 SM	148	* 174,178 **
fad39ff1 SM	149	260,
b1524f17 SM	150	};
b1524f17 SM	151	! short yysindex[] = { 0,
fad39ff1 SM	152	0, 0, 142, 0, 0, 0, -57, 0, 0, 0,
	153	0, 0, 622, 0, 0, 0, -239, -229, -10, 0,
	154	--- 108,112 ----
	155	260,
b1524f17	156	};
428f79ef	157	! static short yysindex[] = { 0,
fad39ff1 SM	158	0, 0, 142, 0, 0, 0, -57, 0, 0, 0,
fad39ff1 SM	159	0, 0, 622, 0, 0, 0, -239, -229, -10, 0,
b1524f17	160	***************
fad39ff1 SM	161	* 213,217 **
fad39ff1 SM	162	0, 228, 0, 92, 92, 0, -204, 0,
b1524f17 SM	163	};
b1524f17 SM	164	! short yyrindex[] = { 0,
fad39ff1 SM	165	0, 0, 225, 0, 0, 0, 0, 0, 0, 0,
	166	0, 0, 0, 0, 0, 0, 155, 0, 0, 0,
	167	--- 147,151 ----
	168	0, 228, 0, 92, 92, 0, -204, 0,
b1524f17 SM	169	};
b1524f17 SM	170	! static short yyrindex[] = { 0,
fad39ff1 SM	171	0, 0, 225, 0, 0, 0, 0, 0, 0, 0,
fad39ff1 SM	172	0, 0, 0, 0, 0, 0, 155, 0, 0, 0,
b1524f17	173	***************
fad39ff1 SM	174	* 252,256 **
fad39ff1 SM	175	0, 0, 0, 0, 0, 0, 168, 0,
b1524f17 SM	176	};
b1524f17 SM	177	! short yygindex[] = { 0,
fad39ff1 SM	178	0, 0, 0, 339, 320, 0, -11, 0, 913, 360,
	179	-78, 0, 0, 0, -320, -13, 4321, 0, 1367, 0,
	180	--- 186,190 ----
	181	0, 0, 0, 0, 0, 0, 168, 0,
b1524f17 SM	182	};
b1524f17 SM	183	! static short yygindex[] = { 0,
fad39ff1 SM	184	0, 0, 0, 339, 320, 0, -11, 0, 913, 360,
fad39ff1 SM	185	-78, 0, 0, 0, -320, -13, 4321, 0, 1367, 0,
b1524f17 SM	186	***************
	187	* 261,265 **
	188	};
fad39ff1	189	#define YYTABLESIZE 4610
b1524f17	190	! short yytable[] = { 69,
fad39ff1 SM	191	206, 20, 295, 62, 113, 257, 184, 103, 183, 298,
	192	172, 62, 125, 104, 252, 350, 104, 81, 209, 169,
	193	--- 195,199 ----
b1524f17	194	};
fad39ff1	195	#define YYTABLESIZE 4610
b1524f17	196	! static short yytable[] = { 69,
fad39ff1 SM	197	206, 20, 295, 62, 113, 257, 184, 103, 183, 298,
fad39ff1 SM	198	172, 62, 125, 104, 252, 350, 104, 81, 209, 169,
b1524f17	199	***************
fad39ff1 SM	200	* 724,728 **
fad39ff1 SM	201	0, 0, 0, 0, 0, 0, 0, 0, 0, 321,
b1524f17 SM	202	};
b1524f17 SM	203	! short yycheck[] = { 13,
fad39ff1 SM	204	59, 59, 59, 36, 43, 185, 92, 40, 87, 59,
	205	91, 36, 51, 41, 59, 336, 44, 257, 41, 40,
	206	--- 658,662 ----
	207	0, 0, 0, 0, 0, 0, 0, 0, 0, 321,
b1524f17 SM	208	};
b1524f17 SM	209	! static short yycheck[] = { 13,
fad39ff1 SM	210	59, 59, 59, 36, 43, 185, 92, 40, 87, 59,
fad39ff1 SM	211	91, 36, 51, 41, 59, 336, 44, 257, 41, 40,
b1524f17	212	***************
fad39ff1 SM	213	* 1193,1197 **
fad39ff1 SM	214	#define YYMAXTOKEN 315
b1524f17 SM	215	#if YYDEBUG
	216	! char *yyname[] = {
	217	"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,
	218	"'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
fad39ff1 SM	219	--- 1127,1131 ----
fad39ff1 SM	220	#define YYMAXTOKEN 315
b1524f17 SM	221	#if YYDEBUG
	222	! static char *yyname[] = {
	223	"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,
	224	"'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
	225	***************
fad39ff1 SM	226	* 1210,1214 **
fad39ff1 SM	227	"POSTINC","POSTDEC","ARROW",
b1524f17 SM	228	};
	229	! char *yyrule[] = {
	230	"$accept : prog",
	231	"$$1 :",
fad39ff1 SM	232	--- 1144,1148 ----
fad39ff1 SM	233	"POSTINC","POSTDEC","ARROW",
b1524f17 SM	234	};
	235	! static char *yyrule[] = {
	236	"$accept : prog",
	237	"$$1 :",
	238	***************
fad39ff1	239	* 1408,1436 **
d3b6f988 GS	240	#endif
	241	#endif
	242	- int yydebug;
	243	- int yynerrs;
	244	- int yyerrflag;
	245	- int yychar;
	246	- short *yyssp;
	247	- YYSTYPE *yyvsp;
	248	- YYSTYPE yyval;
	249	- YYSTYPE yylval;
93a17b20 LW	250	- short yyss[YYSTACKSIZE];
	251	- YYSTYPE yyvs[YYSTACKSIZE];
	252	- #define yystacksize YYSTACKSIZE
fad39ff1	253	#line 666 "perly.y"
93a17b20	254	/* PROGRAM */
fad39ff1	255	! #line 1424 "y.tab.c"
640b9ef6	256	#define YYABORT goto yyabort
0da4822f GS	257	#define YYACCEPT goto yyaccept
	258	#define YYERROR goto yyerrlab
	259	int
	260	! yyparse()
	261	{
	262	register int yym, yyn, yystate;
	263	#if YYDEBUG
	264	register char *yys;
	265	extern char *getenv();
	266
	267	if (yys = getenv("YYDEBUG"))
	268	{
fad39ff1	269	--- 1342,1391 ----
d3b6f988 GS	270	#endif
d3b6f988 GS	271	#endif
fad39ff1	272	#line 666 "perly.y"
640b9ef6	273	/* PROGRAM */
fad39ff1	274	! #line 1427 "perly.c"
640b9ef6	275	#define YYABORT goto yyabort
a0d0e21e LW	276	#define YYACCEPT goto yyaccept
	277	#define YYERROR goto yyerrlab
	278	+
	279	+ struct ysv {
	280	+ short* yyss;
	281	+ YYSTYPE* yyvs;
	282	+ int oldyydebug;
	283	+ int oldyynerrs;
	284	+ int oldyyerrflag;
	285	+ int oldyychar;
	286	+ YYSTYPE oldyyval;
	287	+ YYSTYPE oldyylval;
	288	+ };
	289	+
a0d0e21e	290	int
fad39ff1	291	! Perl_yyparse(pTHX)
93a17b20 LW	292	{
	293	register int yym, yyn, yystate;
	294	+ register short *yyssp;
	295	+ register YYSTYPE *yyvsp;
	296	+ short* yyss;
	297	+ YYSTYPE* yyvs;
	298	+ unsigned yystacksize = YYSTACKSIZE;
93a17b20	299	+ int retval = 0;
93a17b20 LW	300	#if YYDEBUG
93a17b20 LW	301	register char *yys;
0da4822f	302	+ #ifndef __cplusplus
93a17b20	303	extern char *getenv();
a0d0e21e	304	+ #endif
0da4822f	305	+ #endif
d3b6f988	306	+
8c52afec IZ	307	+ struct ysv *ysave;
8c52afec IZ	308	+ New(73, ysave, 1, struct ysv);
a0d0e21e LW	309	+ SAVEDESTRUCTOR(yydestruct, ysave);
	310	+ ysave->oldyydebug = yydebug;
	311	+ ysave->oldyynerrs = yynerrs;
	312	+ ysave->oldyyerrflag = yyerrflag;
	313	+ ysave->oldyychar = yychar;
	314	+ ysave->oldyyval = yyval;
	315	+ ysave->oldyylval = yylval;
d3b6f988	316
a0d0e21e LW	317	+ #if YYDEBUG
	318	if (yys = getenv("YYDEBUG"))
	319	{
93a17b20	320	***************
fad39ff1 SM	321	* 1445,1448 **
fad39ff1 SM	322	--- 1400,1413 ----
93a17b20 LW	323	yychar = (-1);
	324
	325	+ /*
	326	+ ** Initialize private stacks (yyparse may be called from an action)
	327	+ */
8c52afec IZ	328	+ New(73, yyss, yystacksize, short);
	329	+ New(73, yyvs, yystacksize, YYSTYPE);
	330	+ ysave->yyss = yyss;
	331	+ ysave->yyvs = yyvs;
93a17b20 LW	332	+ if (!yyvs \|\| !yyss)
	333	+ goto yyoverflow;
	334	+
	335	yyssp = yyss;
	336	yyvsp = yyvs;
93a17b20	337	***************
fad39ff1	338	* 1470,1479 **
ed6116ce LW	339	#if YYDEBUG
	340	if (yydebug)
	341	! printf("yydebug: state %d, shifting to state %d\n",
	342	yystate, yytable[yyn]);
93a17b20	343	#endif
9d116dd7 JH	344	if (yyssp >= yyss + yystacksize - 1)
	345	{
	346	! goto yyoverflow;
	347	}
	348	*++yyssp = yystate = yytable[yyn];
fad39ff1	349	--- 1435,1458 ----
d3b6f988 GS	350	#if YYDEBUG
	351	if (yydebug)
	352	! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
	353	yystate, yytable[yyn]);
	354	#endif
93a17b20 LW	355	if (yyssp >= yyss + yystacksize - 1)
	356	{
	357	! /*
	358	! ** reallocate and recover. Note that pointers
	359	! ** have to be reset, or bad things will happen
	360	! */
	361	! int yyps_index = (yyssp - yyss);
	362	! int yypv_index = (yyvsp - yyvs);
	363	! yystacksize += YYSTACKSIZE;
a0d0e21e	364	! ysave->yyvs = yyvs =
d3b6f988	365	! (YYSTYPE)PerlMem_realloc((char)yyvs,yystacksize * sizeof(YYSTYPE));
a0d0e21e	366	! ysave->yyss = yyss =
d3b6f988	367	! (short)PerlMem_realloc((char)yyss,yystacksize * sizeof(short));
93a17b20 LW	368	! if (!yyvs \|\| !yyss)
	369	! goto yyoverflow;
	370	! yyssp = yyss + yyps_index;
	371	! yyvsp = yyvs + yypv_index;
	372	}
	373	*++yyssp = yystate = yytable[yyn];
93a17b20	374	***************
fad39ff1	375	* 1511,1520 **
ed6116ce LW	376	#if YYDEBUG
	377	if (yydebug)
	378	! printf("yydebug: state %d, error recovery shifting\
	379	! to state %d\n", *yyssp, yytable[yyn]);
93a17b20 LW	380	#endif
	381	if (yyssp >= yyss + yystacksize - 1)
	382	{
	383	! goto yyoverflow;
	384	}
	385	*++yyssp = yystate = yytable[yyn];
fad39ff1	386	--- 1490,1514 ----
ed6116ce LW	387	#if YYDEBUG
ed6116ce LW	388	if (yydebug)
ac4c12e7	389	! PerlIO_printf(Perl_debug_log,
ed6116ce LW	390	! "yydebug: state %d, error recovery shifting to state %d\n",
ed6116ce LW	391	! *yyssp, yytable[yyn]);
93a17b20 LW	392	#endif
	393	if (yyssp >= yyss + yystacksize - 1)
	394	{
	395	! /*
	396	! ** reallocate and recover. Note that pointers
	397	! ** have to be reset, or bad things will happen
	398	! */
	399	! int yyps_index = (yyssp - yyss);
	400	! int yypv_index = (yyvsp - yyvs);
	401	! yystacksize += YYSTACKSIZE;
d3b6f988	402	! ysave->yyvs = yyvs = (YYSTYPE)PerlMem_realloc((char)yyvs,
93a17b20	403	! yystacksize * sizeof(YYSTYPE));
d3b6f988	404	! ysave->yyss = yyss = (short)PerlMem_realloc((char)yyss,
93a17b20 LW	405	! yystacksize * sizeof(short));
	406	! if (!yyvs \|\| !yyss)
	407	! goto yyoverflow;
	408	! yyssp = yyss + yyps_index;
	409	! yyvsp = yyvs + yypv_index;
	410	}
	411	*++yyssp = yystate = yytable[yyn];
93a17b20	412	***************
fad39ff1	413	* 1526,1531 **
ed6116ce LW	414	#if YYDEBUG
	415	if (yydebug)
	416	! printf("yydebug: error recovery discarding state %d\n",
	417	! *yyssp);
	418	#endif
	419	if (yyssp <= yyss) goto yyabort;
fad39ff1	420	--- 1520,1526 ----
ed6116ce LW	421	#if YYDEBUG
ed6116ce LW	422	if (yydebug)
ac4c12e7	423	! PerlIO_printf(Perl_debug_log,
ed6116ce LW	424	! "yydebug: error recovery discarding state %d\n",
	425	! *yyssp);
	426	#endif
	427	if (yyssp <= yyss) goto yyabort;
ed6116ce	428	***************
fad39ff1	429	* 1544,1549 **
ed6116ce LW	430	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
	431	if (!yys) yys = "illegal-symbol";
	432	! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
	433	! yystate, yychar, yys);
	434	}
	435	#endif
fad39ff1	436	--- 1539,1545 ----
ed6116ce LW	437	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
ed6116ce LW	438	if (!yys) yys = "illegal-symbol";
ac4c12e7	439	! PerlIO_printf(Perl_debug_log,
ed6116ce LW	440	! "yydebug: state %d, error recovery discards token %d (%s)\n",
	441	! yystate, yychar, yys);
	442	}
	443	#endif
ed6116ce	444	***************
fad39ff1	445	* 1554,1558 **
ed6116ce LW	446	#if YYDEBUG
	447	if (yydebug)
	448	! printf("yydebug: state %d, reducing by rule %d (%s)\n",
	449	yystate, yyn, yyrule[yyn]);
	450	#endif
fad39ff1	451	--- 1550,1554 ----
ed6116ce LW	452	#if YYDEBUG
ed6116ce LW	453	if (yydebug)
ac4c12e7	454	! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
ed6116ce LW	455	yystate, yyn, yyrule[yyn]);
ed6116ce LW	456	#endif
ed6116ce	457	***************
fad39ff1	458	* 2358,2362 **
640b9ef6 SM	459	{ yyval.opval = yyvsp[0].opval; }
640b9ef6 SM	460	break;
fad39ff1	461	! #line 2361 "y.tab.c"
640b9ef6 SM	462	}
640b9ef6 SM	463	yyssp -= yym;
fad39ff1	464	--- 2354,2358 ----
640b9ef6 SM	465	{ yyval.opval = yyvsp[0].opval; }
640b9ef6 SM	466	break;
fad39ff1	467	! #line 2365 "perly.c"
640b9ef6 SM	468	}
	469	yyssp -= yym;
	470	***************
fad39ff1	471	* 2368,2373 **
ed6116ce LW	472	#if YYDEBUG
	473	if (yydebug)
	474	! printf("yydebug: after reduction, shifting from state 0 to\
	475	! state %d\n", YYFINAL);
	476	#endif
	477	yystate = YYFINAL;
fad39ff1	478	--- 2364,2370 ----
ed6116ce LW	479	#if YYDEBUG
ed6116ce LW	480	if (yydebug)
ac4c12e7	481	! PerlIO_printf(Perl_debug_log,
ed6116ce LW	482	! "yydebug: after reduction, shifting from state 0 to state %d\n",
	483	! YYFINAL);
	484	#endif
	485	yystate = YYFINAL;
ed6116ce	486	***************
fad39ff1	487	* 2383,2387 **
ed6116ce LW	488	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
	489	if (!yys) yys = "illegal-symbol";
	490	! printf("yydebug: state %d, reading %d (%s)\n",
	491	YYFINAL, yychar, yys);
	492	}
fad39ff1	493	--- 2380,2384 ----
ed6116ce LW	494	if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
ed6116ce LW	495	if (!yys) yys = "illegal-symbol";
ac4c12e7	496	! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
ed6116ce LW	497	YYFINAL, yychar, yys);
ed6116ce LW	498	}
ed6116ce	499	***************
fad39ff1	500	* 2398,2407 **
ed6116ce LW	501	#if YYDEBUG
	502	if (yydebug)
	503	! printf("yydebug: after reduction, shifting from state %d \
	504	! to state %d\n", *yyssp, yystate);
93a17b20 LW	505	#endif
	506	if (yyssp >= yyss + yystacksize - 1)
	507	{
	508	! goto yyoverflow;
	509	}
	510	*++yyssp = yystate;
fad39ff1	511	--- 2395,2419 ----
ed6116ce LW	512	#if YYDEBUG
ed6116ce LW	513	if (yydebug)
ac4c12e7	514	! PerlIO_printf(Perl_debug_log,
ed6116ce LW	515	! "yydebug: after reduction, shifting from state %d to state %d\n",
ed6116ce LW	516	! *yyssp, yystate);
93a17b20 LW	517	#endif
	518	if (yyssp >= yyss + yystacksize - 1)
	519	{
	520	! /*
	521	! ** reallocate and recover. Note that pointers
	522	! ** have to be reset, or bad things will happen
	523	! */
	524	! int yyps_index = (yyssp - yyss);
	525	! int yypv_index = (yyvsp - yyvs);
	526	! yystacksize += YYSTACKSIZE;
a0d0e21e	527	! ysave->yyvs = yyvs =
d3b6f988	528	! (YYSTYPE)PerlMem_realloc((char)yyvs,yystacksize * sizeof(YYSTYPE));
a0d0e21e	529	! ysave->yyss = yyss =
d3b6f988	530	! (short)PerlMem_realloc((char)yyss,yystacksize * sizeof(short));
93a17b20 LW	531	! if (!yyvs \|\| !yyss)
	532	! goto yyoverflow;
	533	! yyssp = yyss + yyps_index;
	534	! yyvsp = yyvs + yypv_index;
	535	}
	536	*++yyssp = yystate;
bbce6d69	537	***************
fad39ff1	538	* 2409,2416 **
bbce6d69	539	goto yyloop;
	540	yyoverflow:
	541	! yyerror("yacc stack overflow");
	542	yyabort:
	543	! return (1);
	544	yyaccept:
	545	! return (0);
	546	}
fad39ff1	547	--- 2421,2448 ----
93a17b20 LW	548	goto yyloop;
	549	yyoverflow:
	550	! yyerror("Out of memory for yacc stack");
	551	yyabort:
	552	! retval = 1;
	553	yyaccept:
93a17b20	554	! return retval;
fad39ff1 SM	555	! }
	556	!
	557	! #ifdef PERL_OBJECT
	558	! #define NO_XSLOCKS
	559	! #include "XSUB.h"
	560	! #endif
	561	!
	562	! static void
	563	! yydestruct(pTHXo_ void *ptr)
	564	! {
	565	! struct ysv* ysave = (struct ysv*)ptr;
	566	! if (ysave->yyss) Safefree(ysave->yyss);
	567	! if (ysave->yyvs) Safefree(ysave->yyvs);
	568	! yydebug = ysave->oldyydebug;
	569	! yynerrs = ysave->oldyynerrs;
	570	! yyerrflag = ysave->oldyyerrflag;
	571	! yychar = ysave->oldyychar;
	572	! yyval = ysave->oldyyval;
	573	! yylval = ysave->oldyylval;
	574	! Safefree(ysave);
93a17b20	575	}