source: trunk/third/perl/perly_c.diff @ 20075

Revision 20075, 13.8 KB checked in by zacheiss, 21 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r20074, which included commits to RCS files with non-trunk default branches.

  • perly.c

    old new  
    11#ifndef lint 
    2 static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; 
     2/* static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; */ 
    33#endif 
    44#define YYBYACC 1 
    55#line 16 "perly.y" 
    … …  
    99#ifdef EBCDIC 
    1010#undef YYDEBUG 
    1111#endif 
    12 #define dep() deprecate("\"do\" to call subroutines") 
     12#define dep() deprecate_old("\"do\" to call subroutines") 
    1313 
    1414/* stuff included here to make perly_c.diff apply better */ 
    1515 
    … …  
    5050#define yylex yylex_r 
    5151#endif 
    5252 
    53 #line 54 "y.tab.c" 
    54 #define WORD 257 
    55 #define METHOD 258 
    56 #define FUNCMETH 259 
    57 #define THING 260 
    58 #define PMFUNC 261 
    59 #define PRIVATEREF 262 
    60 #define FUNC0SUB 263 
    61 #define UNIOPSUB 264 
    62 #define LSTOPSUB 265 
    63 #define LABEL 266 
    64 #define FORMAT 267 
    65 #define SUB 268 
    66 #define ANONSUB 269 
    67 #define PACKAGE 270 
    68 #define USE 271 
    69 #define WHILE 272 
    70 #define UNTIL 273 
    71 #define IF 274 
    72 #define UNLESS 275 
    73 #define ELSE 276 
    74 #define ELSIF 277 
    75 #define CONTINUE 278 
    76 #define FOR 279 
    77 #define LOOPEX 280 
    78 #define DOTDOT 281 
    79 #define FUNC0 282 
    80 #define FUNC1 283 
    81 #define FUNC 284 
    82 #define UNIOP 285 
    83 #define LSTOP 286 
    84 #define RELOP 287 
    85 #define EQOP 288 
    86 #define MULOP 289 
    87 #define ADDOP 290 
    88 #define DOLSHARP 291 
    89 #define DO 292 
    90 #define HASHBRACK 293 
    91 #define NOAMP 294 
    92 #define LOCAL 295 
    93 #define MY 296 
    94 #define MYSUB 297 
    95 #define COLONATTR 298 
    96 #define PREC_LOW 299 
    97 #define OROP 300 
    98 #define ANDOP 301 
    99 #define NOTOP 302 
    100 #define ASSIGNOP 303 
    101 #define OROR 304 
    102 #define ANDAND 305 
    103 #define BITOROP 306 
    104 #define BITANDOP 307 
    105 #define SHIFTOP 308 
    106 #define MATCHOP 309 
    107 #define UMINUS 310 
    108 #define REFGEN 311 
    109 #define POWOP 312 
    110 #define PREINC 313 
    111 #define PREDEC 314 
    112 #define POSTINC 315 
    113 #define POSTDEC 316 
    114 #define ARROW 317 
     53#line 54 "perly.c" 
    11554#define YYERRCODE 256 
    116 short yylhs[] = {                                        -1, 
     55static short yylhs[] = {                                        -1, 
    11756    0,    9,    7,    6,   10,    8,   11,   11,   11,   12, 
    11857   12,   12,   12,   25,   25,   25,   25,   25,   25,   25, 
    11958   15,   15,   15,   14,   14,   43,   43,   13,   13,   13, 
    … …  
    13574   49,   34,   34,   35,   35,   35,   44,   24,   19,   20, 
    13675   21,   22,   23,   36,   36,   36,   36, 
    13776}; 
    138 short yylen[] = {                                         2, 
     77static short yylen[] = {                                         2, 
    13978    2,    4,    0,    0,    4,    0,    0,    2,    2,    2, 
    14079    1,    2,    3,    1,    1,    3,    3,    3,    3,    3, 
    14180    0,    2,    6,    7,    7,    0,    2,    8,    8,   10, 
    … …  
    15796    1,    0,    1,    0,    1,    2,    1,    2,    2,    2, 
    15897    2,    2,    2,    1,    1,    1,    1, 
    15998}; 
    160 short yydefred[] = {                                      4, 
     99static short yydefred[] = {                                      4, 
    161100    0,    7,    0,   45,   58,   56,    0,   56,   56,    8, 
    162101   46,    9,   11,   48,    0,   47,   49,   50,    0,    0, 
    163102    0,   70,   71,    0,   14,    3,  173,    0,    0,  154, 
    … …  
    199138    0,   22,    0,    0,    0,   31,    5,    0,   30,    0, 
    200139    0,   33,    0,   23, 
    201140}; 
    202 short yydgoto[] = {                                       1, 
     141static short yydgoto[] = {                                       1, 
    203142   10,   11,   20,  104,   19,    2,   95,  370,   98,  359, 
    204143    3,   12,   13,   70,  375,  285,   72,   73,   74,   75, 
    205144   76,   77,   78,   79,  291,   81,  292,  281,  283,  286, 
    … …  
    207146  194,  327,  156,  289,  271,  225,   14,   83,  137,   84, 
    208147   85,   86,   87,   15,   16,   17,   18,   93,  278, 
    209148}; 
    210 short yysindex[] = {                                      0, 
     149static short yysindex[] = {                                      0, 
    211150    0,    0, -132,    0,    0,    0,  -51,    0,    0,    0, 
    212151    0,    0,    0,    0,  650,    0,    0,    0, -239, -215, 
    213152    5,    0,    0, -215,    0,    0,    0,  -31,  -31,    0, 
    … …  
    249188  449,    0, 2181, -150,  340,    0,    0,  355,    0,  216, 
    250189  216,    0, -123,    0, 
    251190}; 
    252 short yyrindex[] = {                                      0, 
     191static short yyrindex[] = {                                      0, 
    253192    0,    0,  247,    0,    0,    0,    0,    0,    0,    0, 
    254193    0,    0,    0,    0,    0,    0,    0,    0,  274,    0, 
    255194    0,    0,    0,    0,    0,    0,    0,    0,    0,    0, 
    … …  
    291230  917,    0,    0,  119,    0,    0,    0,    0,    0,    0, 
    292231    0,    0,  179,    0, 
    293232}; 
    294 short yygindex[] = {                                      0, 
     233static short yygindex[] = {                                      0, 
    295234    0,    0,  196,  425,    0,    0,   -2,    0,   37,  634, 
    296235  -94,    0,    0,    0, -323,  -15, 2445,    0,  999,  414, 
    297236  417,    0,    0,    0,  463,  -43,    0,    0,  321, -198, 
    … …  
    300239    0,    0,    0,    0,    0,    0,    0,    0,    0, 
    301240}; 
    302241#define YYTABLESIZE 4568 
    303 short yytable[] = {                                      71, 
     242static short yytable[] = {                                      71, 
    304243  197,   65,  121,  227,   65,  111,  220,   22,  198,  293, 
    305244  139,  296,  315,  275,  305,  102,  273,   88,  113,  228, 
    306245   60,  113,  279,   65,  317,   60,  182,  254,  325,  101, 
    … …  
    759698    0,    0,    0,    0,    0,    0,    0,    0,    0,    0, 
    760699    0,    0,    0,    0,    0,    0,   77,   77, 
    761700}; 
    762 short yycheck[] = {                                      15, 
     701static short yycheck[] = {                                      15, 
    763702   95,   36,   46,   41,   36,   40,   59,   59,  100,  208, 
    764703   54,   41,   59,  199,   41,   40,  196,  257,   41,   93, 
    765704  123,   44,  202,   36,   93,   59,   40,   40,   59,   29, 
    … …  
    12241163#endif 
    12251164#define YYMAXTOKEN 317 
    12261165#if YYDEBUG 
    1227 char *yyname[] = { 
     1166static char *yyname[] = { 
    12281167"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, 
    12291168"'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0, 
    123011690,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, 
    … …  
    12411180"ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP", 
    12421181"PREINC","PREDEC","POSTINC","POSTDEC","ARROW", 
    12431182}; 
    1244 char *yyrule[] = { 
     1183static char *yyrule[] = { 
    12451184"$accept : prog", 
    12461185"prog : progstart lineseq", 
    12471186"block : '{' remember lineseq '}'", 
    … …  
    14561395#define YYMAXDEPTH 500 
    14571396#endif 
    14581397#endif 
    1459 int yydebug; 
    1460 int yynerrs; 
    1461 int yyerrflag; 
    1462 int yychar; 
    1463 short *yyssp; 
    1464 YYSTYPE *yyvsp; 
    1465 YYSTYPE yyval; 
    1466 YYSTYPE yylval; 
    1467 short yyss[YYSTACKSIZE]; 
    1468 YYSTYPE yyvs[YYSTACKSIZE]; 
    1469 #define yystacksize YYSTACKSIZE 
    14701398#line 794 "perly.y" 
    14711399 /* PROGRAM */ 
    14721400 
    … …  
    14771405#endif 
    14781406#define yyparse() Perl_yyparse(pTHX) 
    14791407 
    1480 #line 1481 "y.tab.c" 
     1408#line 1409 "perly.c" 
    14811409#define YYABORT goto yyabort 
    14821410#define YYACCEPT goto yyaccept 
    14831411#define YYERROR goto yyerrlab 
    … …  
    14851413yyparse() 
    14861414{ 
    14871415    register int yym, yyn, yystate; 
     1416    register short *yyssp; 
     1417    register YYSTYPE *yyvsp; 
     1418    short* yyss; 
     1419    YYSTYPE* yyvs; 
     1420    unsigned yystacksize = YYSTACKSIZE; 
     1421    int retval = 0; 
    14881422#if YYDEBUG 
    14891423    register char *yys; 
    1490     extern char *getenv(); 
     1424#endif 
     1425 
     1426    struct ysv *ysave; 
     1427#ifdef USE_ITHREADS 
     1428    ENTER;                      /* force yydestruct() before we return */ 
     1429#endif 
     1430    New(73, ysave, 1, struct ysv); 
     1431    SAVEDESTRUCTOR_X(yydestruct, ysave); 
     1432    ysave->oldyydebug   = yydebug; 
     1433    ysave->oldyynerrs   = yynerrs; 
     1434    ysave->oldyyerrflag = yyerrflag; 
     1435    ysave->oldyychar    = yychar; 
     1436    ysave->oldyyval     = yyval; 
     1437    ysave->oldyylval    = yylval; 
    14911438 
    1492     if (yys = getenv("YYDEBUG")) 
     1439#if YYDEBUG 
     1440    if ((yys = getenv("YYDEBUG"))) 
    14931441    { 
    14941442        yyn = *yys; 
    14951443        if (yyn >= '0' && yyn <= '9') 
    … …  
    15011449    yyerrflag = 0; 
    15021450    yychar = (-1); 
    15031451 
     1452    /* 
     1453    ** Initialize private stacks (yyparse may be called from an action) 
     1454    */ 
     1455    New(73, yyss, yystacksize, short); 
     1456    New(73, yyvs, yystacksize, YYSTYPE); 
     1457    ysave->yyss = yyss; 
     1458    ysave->yyvs = yyvs; 
     1459    if (!yyvs || !yyss) 
     1460        goto yyoverflow; 
     1461 
    15041462    yyssp = yyss; 
    15051463    yyvsp = yyvs; 
    15061464    *yyssp = yystate = 0; 
    15071465 
    15081466yyloop: 
    1509     if (yyn = yydefred[yystate]) goto yyreduce; 
     1467    if ((yyn = yydefred[yystate])) goto yyreduce; 
    15101468    if (yychar < 0) 
    15111469    { 
    15121470        if ((yychar = yylex()) < 0) yychar = 0; 
    … …  
    15161474            yys = 0; 
    15171475            if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; 
    15181476            if (!yys) yys = "illegal-symbol"; 
    1519             printf("yydebug: state %d, reading %d (%s)\n", yystate, 
     1477            PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate, 
    15201478                    yychar, yys); 
    15211479        } 
    15221480#endif 
    … …  
    15261484    { 
    15271485#if YYDEBUG 
    15281486        if (yydebug) 
    1529             printf("yydebug: state %d, shifting to state %d\n", 
     1487            PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n", 
    15301488                    yystate, yytable[yyn]); 
    15311489#endif 
    15321490        if (yyssp >= yyss + yystacksize - 1) 
    15331491        { 
     1492            /* 
     1493            ** reallocate and recover.  Note that pointers 
     1494            ** have to be reset, or bad things will happen 
     1495            */ 
     1496            int yyps_index = (yyssp - yyss); 
     1497            int yypv_index = (yyvsp - yyvs); 
     1498            yystacksize += YYSTACKSIZE; 
     1499            ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); 
     1500            ysave->yyss = Renew(yyss, yystacksize, short); 
     1501            if (!yyvs || !yyss) 
    15341502            goto yyoverflow; 
     1503            yyssp = yyss + yyps_index; 
     1504            yyvsp = yyvs + yypv_index; 
    15351505        } 
    15361506        *++yyssp = yystate = yytable[yyn]; 
    15371507        *++yyvsp = yylval; 
    … …  
    15471517    } 
    15481518    if (yyerrflag) goto yyinrecovery; 
    15491519#ifdef lint 
    1550     goto yynewerror; 
     1520 
    15511521#endif 
    1552 yynewerror: 
     1522 
    15531523    yyerror("syntax error"); 
    15541524#ifdef lint 
    1555     goto yyerrlab; 
     1525 
    15561526#endif 
    1557 yyerrlab: 
     1527 
    15581528    ++yynerrs; 
    15591529yyinrecovery: 
    15601530    if (yyerrflag < 3) 
    … …  
    15671537            { 
    15681538#if YYDEBUG 
    15691539                if (yydebug) 
    1570                     printf("yydebug: state %d, error recovery shifting\ 
     1540                    PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery shifting\ 
    15711541 to state %d\n", *yyssp, yytable[yyn]); 
    15721542#endif 
    15731543                if (yyssp >= yyss + yystacksize - 1) 
    15741544                { 
     1545                    /* 
     1546                    ** reallocate and recover.  Note that pointers 
     1547                    ** have to be reset, or bad things will happen 
     1548                    */ 
     1549                    int yyps_index = (yyssp - yyss); 
     1550                    int yypv_index = (yyvsp - yyvs); 
     1551                    yystacksize += YYSTACKSIZE; 
     1552                    ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); 
     1553                    ysave->yyss = Renew(yyss, yystacksize, short); 
     1554                    if (!yyvs || !yyss) 
    15751555                    goto yyoverflow; 
     1556                    yyssp = yyss + yyps_index; 
     1557                    yyvsp = yyvs + yypv_index; 
    15761558                } 
    15771559                *++yyssp = yystate = yytable[yyn]; 
    15781560                *++yyvsp = yylval; 
    … …  
    15821564            { 
    15831565#if YYDEBUG 
    15841566                if (yydebug) 
    1585                     printf("yydebug: error recovery discarding state %d\n", 
     1567                    PerlIO_printf(Perl_debug_log, "yydebug: error recovery discarding state %d\n", 
    15861568                            *yyssp); 
    15871569#endif 
    15881570                if (yyssp <= yyss) goto yyabort; 
    … …  
    16001582            yys = 0; 
    16011583            if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; 
    16021584            if (!yys) yys = "illegal-symbol"; 
    1603             printf("yydebug: state %d, error recovery discards token %d (%s)\n", 
     1585            PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery discards token %d (%s)\n", 
    16041586                    yystate, yychar, yys); 
    16051587        } 
    16061588#endif 
    … …  
    16101592yyreduce: 
    16111593#if YYDEBUG 
    16121594    if (yydebug) 
    1613         printf("yydebug: state %d, reducing by rule %d (%s)\n", 
     1595        PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n", 
    16141596                yystate, yyn, yyrule[yyn]); 
    16151597#endif 
    16161598    yym = yylen[yyn]; 
    … …  
    24742456#line 791 "perly.y" 
    24752457{ yyval.opval = yyvsp[0].opval; } 
    24762458break; 
    2477 #line 2478 "y.tab.c" 
     2459#line 2460 "perly.c" 
    24782460    } 
    24792461    yyssp -= yym; 
    24802462    yystate = *yyssp; 
    … …  
    24842466    { 
    24852467#if YYDEBUG 
    24862468        if (yydebug) 
    2487             printf("yydebug: after reduction, shifting from state 0 to\ 
     2469            PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state 0 to\ 
    24882470 state %d\n", YYFINAL); 
    24892471#endif 
    24902472        yystate = YYFINAL; 
    … …  
    24992481                yys = 0; 
    25002482                if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; 
    25012483                if (!yys) yys = "illegal-symbol"; 
    2502                 printf("yydebug: state %d, reading %d (%s)\n", 
     2484                PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", 
    25032485                        YYFINAL, yychar, yys); 
    25042486            } 
    25052487#endif 
    … …  
    25142496        yystate = yydgoto[yym]; 
    25152497#if YYDEBUG 
    25162498    if (yydebug) 
    2517         printf("yydebug: after reduction, shifting from state %d \ 
     2499        PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state %d \ 
    25182500to state %d\n", *yyssp, yystate); 
    25192501#endif 
    25202502    if (yyssp >= yyss + yystacksize - 1) 
    25212503    { 
     2504        /* 
     2505        ** reallocate and recover.  Note that pointers 
     2506        ** have to be reset, or bad things will happen 
     2507        */ 
     2508        int yyps_index = (yyssp - yyss); 
     2509        int yypv_index = (yyvsp - yyvs); 
     2510        yystacksize += YYSTACKSIZE; 
     2511        ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); 
     2512        ysave->yyss = Renew(yyss, yystacksize, short); 
     2513        if (!yyvs || !yyss) 
    25222514        goto yyoverflow; 
     2515        yyssp = yyss + yyps_index; 
     2516        yyvsp = yyvs + yypv_index; 
    25232517    } 
    25242518    *++yyssp = yystate; 
    25252519    *++yyvsp = yyval; 
    25262520    goto yyloop; 
    25272521yyoverflow: 
    2528     yyerror("yacc stack overflow"); 
     2522    yyerror("Out of memory for yacc stack"); 
    25292523yyabort: 
    2530     return (1); 
     2524    retval = 1; 
    25312525yyaccept: 
    2532     return (0); 
     2526#ifdef USE_ITHREADS 
     2527    LEAVE;                      /* force yydestruct() before we return */ 
     2528#endif 
     2529    return retval; 
     2530} 
     2531 
     2532static void 
     2533yydestruct(pTHX_ void *ptr) 
     2534{ 
     2535    struct ysv* ysave = (struct ysv*)ptr; 
     2536    if (ysave->yyss) Safefree(ysave->yyss); 
     2537    if (ysave->yyvs) Safefree(ysave->yyvs); 
     2538    yydebug     = ysave->oldyydebug; 
     2539    yynerrs     = ysave->oldyynerrs; 
     2540    yyerrflag   = ysave->oldyyerrflag; 
     2541    yychar      = ysave->oldyychar; 
     2542    yyval       = ysave->oldyyval; 
     2543    yylval      = ysave->oldyylval; 
     2544    Safefree(ysave); 
    25332545} 
Note: See TracBrowser for help on using the repository browser.