1 | *** y.tab.c.orig Thu Aug 26 22:31:26 1999 |
---|
2 | --- y.tab.c Thu Aug 26 22:32:22 1999 |
---|
3 | *************** |
---|
4 | *** 1447,1456 **** |
---|
5 | yyparse() |
---|
6 | { |
---|
7 | register int yym, yyn, yystate; |
---|
8 | #if YYDEBUG |
---|
9 | register char *yys; |
---|
10 | ! extern char *getenv(); |
---|
11 | |
---|
12 | if (yys = getenv("YYDEBUG")) |
---|
13 | { |
---|
14 | yyn = *yys; |
---|
15 | --- 1447,1476 ---- |
---|
16 | yyparse() |
---|
17 | { |
---|
18 | register int yym, yyn, yystate; |
---|
19 | + register short *yyssp; |
---|
20 | + register YYSTYPE *yyvsp; |
---|
21 | + short* yyss; |
---|
22 | + YYSTYPE* yyvs; |
---|
23 | + unsigned yystacksize = YYSTACKSIZE; |
---|
24 | + int retval = 0; |
---|
25 | #if YYDEBUG |
---|
26 | register char *yys; |
---|
27 | ! #endif |
---|
28 | |
---|
29 | + struct ysv *ysave; |
---|
30 | + #ifdef USE_ITHREADS |
---|
31 | + ENTER; /* force yydestruct() before we return */ |
---|
32 | + #endif |
---|
33 | + New(73, ysave, 1, struct ysv); |
---|
34 | + SAVEDESTRUCTOR_X(yydestruct, ysave); |
---|
35 | + ysave->oldyydebug = yydebug; |
---|
36 | + ysave->oldyynerrs = yynerrs; |
---|
37 | + ysave->oldyyerrflag = yyerrflag; |
---|
38 | + ysave->oldyychar = yychar; |
---|
39 | + ysave->oldyyval = yyval; |
---|
40 | + ysave->oldyylval = yylval; |
---|
41 | + |
---|
42 | + #if YYDEBUG |
---|
43 | if (yys = getenv("YYDEBUG")) |
---|
44 | { |
---|
45 | yyn = *yys; |
---|
46 | *************** |
---|
47 | *** 1463,1468 **** |
---|
48 | --- 1483,1498 ---- |
---|
49 | yyerrflag = 0; |
---|
50 | yychar = (-1); |
---|
51 | |
---|
52 | + /* |
---|
53 | + ** Initialize private stacks (yyparse may be called from an action) |
---|
54 | + */ |
---|
55 | + New(73, yyss, yystacksize, short); |
---|
56 | + New(73, yyvs, yystacksize, YYSTYPE); |
---|
57 | + ysave->yyss = yyss; |
---|
58 | + ysave->yyvs = yyvs; |
---|
59 | + if (!yyvs || !yyss) |
---|
60 | + goto yyoverflow; |
---|
61 | + |
---|
62 | yyssp = yyss; |
---|
63 | yyvsp = yyvs; |
---|
64 | *yyssp = yystate = 0; |
---|
65 | *************** |
---|
66 | *** 1493,1499 **** |
---|
67 | #endif |
---|
68 | if (yyssp >= yyss + yystacksize - 1) |
---|
69 | { |
---|
70 | ! goto yyoverflow; |
---|
71 | } |
---|
72 | *++yyssp = yystate = yytable[yyn]; |
---|
73 | *++yyvsp = yylval; |
---|
74 | --- 1523,1541 ---- |
---|
75 | #endif |
---|
76 | if (yyssp >= yyss + yystacksize - 1) |
---|
77 | { |
---|
78 | ! /* |
---|
79 | ! ** reallocate and recover. Note that pointers |
---|
80 | ! ** have to be reset, or bad things will happen |
---|
81 | ! */ |
---|
82 | ! int yyps_index = (yyssp - yyss); |
---|
83 | ! int yypv_index = (yyvsp - yyvs); |
---|
84 | ! yystacksize += YYSTACKSIZE; |
---|
85 | ! ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); |
---|
86 | ! ysave->yyss = Renew(yyss, yystacksize, short); |
---|
87 | ! if (!yyvs || !yyss) |
---|
88 | ! goto yyoverflow; |
---|
89 | ! yyssp = yyss + yyps_index; |
---|
90 | ! yyvsp = yyvs + yypv_index; |
---|
91 | } |
---|
92 | *++yyssp = yystate = yytable[yyn]; |
---|
93 | *++yyvsp = yylval; |
---|
94 | *************** |
---|
95 | *** 1534,1540 **** |
---|
96 | #endif |
---|
97 | if (yyssp >= yyss + yystacksize - 1) |
---|
98 | { |
---|
99 | ! goto yyoverflow; |
---|
100 | } |
---|
101 | *++yyssp = yystate = yytable[yyn]; |
---|
102 | *++yyvsp = yylval; |
---|
103 | --- 1576,1594 ---- |
---|
104 | #endif |
---|
105 | if (yyssp >= yyss + yystacksize - 1) |
---|
106 | { |
---|
107 | ! /* |
---|
108 | ! ** reallocate and recover. Note that pointers |
---|
109 | ! ** have to be reset, or bad things will happen |
---|
110 | ! */ |
---|
111 | ! int yyps_index = (yyssp - yyss); |
---|
112 | ! int yypv_index = (yyvsp - yyvs); |
---|
113 | ! yystacksize += YYSTACKSIZE; |
---|
114 | ! ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); |
---|
115 | ! ysave->yyss = Renew(yyss, yystacksize, short); |
---|
116 | ! if (!yyvs || !yyss) |
---|
117 | ! goto yyoverflow; |
---|
118 | ! yyssp = yyss + yyps_index; |
---|
119 | ! yyvsp = yyvs + yypv_index; |
---|
120 | } |
---|
121 | *++yyssp = yystate = yytable[yyn]; |
---|
122 | *++yyvsp = yylval; |
---|
123 | *************** |
---|
124 | *** 2473,2487 **** |
---|
125 | #endif |
---|
126 | if (yyssp >= yyss + yystacksize - 1) |
---|
127 | { |
---|
128 | ! goto yyoverflow; |
---|
129 | } |
---|
130 | *++yyssp = yystate; |
---|
131 | *++yyvsp = yyval; |
---|
132 | goto yyloop; |
---|
133 | yyoverflow: |
---|
134 | ! yyerror("yacc stack overflow"); |
---|
135 | yyabort: |
---|
136 | ! return (1); |
---|
137 | yyaccept: |
---|
138 | ! return (0); |
---|
139 | } |
---|
140 | --- 2527,2575 ---- |
---|
141 | #endif |
---|
142 | if (yyssp >= yyss + yystacksize - 1) |
---|
143 | { |
---|
144 | ! /* |
---|
145 | ! ** reallocate and recover. Note that pointers |
---|
146 | ! ** have to be reset, or bad things will happen |
---|
147 | ! */ |
---|
148 | ! int yyps_index = (yyssp - yyss); |
---|
149 | ! int yypv_index = (yyvsp - yyvs); |
---|
150 | ! yystacksize += YYSTACKSIZE; |
---|
151 | ! ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE); |
---|
152 | ! ysave->yyss = Renew(yyss, yystacksize, short); |
---|
153 | ! if (!yyvs || !yyss) |
---|
154 | ! goto yyoverflow; |
---|
155 | ! yyssp = yyss + yyps_index; |
---|
156 | ! yyvsp = yyvs + yypv_index; |
---|
157 | } |
---|
158 | *++yyssp = yystate; |
---|
159 | *++yyvsp = yyval; |
---|
160 | goto yyloop; |
---|
161 | yyoverflow: |
---|
162 | ! yyerror("Out of memory for yacc stack"); |
---|
163 | yyabort: |
---|
164 | ! retval = 1; |
---|
165 | yyaccept: |
---|
166 | ! #ifdef USE_ITHREADS |
---|
167 | ! LEAVE; /* force yydestruct() before we return */ |
---|
168 | ! #endif |
---|
169 | ! return retval; |
---|
170 | ! } |
---|
171 | ! |
---|
172 | ! #ifdef PERL_OBJECT |
---|
173 | ! #include "XSUB.h" |
---|
174 | ! #endif |
---|
175 | ! |
---|
176 | ! static void |
---|
177 | ! yydestruct(pTHXo_ void *ptr) |
---|
178 | ! { |
---|
179 | ! struct ysv* ysave = (struct ysv*)ptr; |
---|
180 | ! if (ysave->yyss) Safefree(ysave->yyss); |
---|
181 | ! if (ysave->yyvs) Safefree(ysave->yyvs); |
---|
182 | ! yydebug = ysave->oldyydebug; |
---|
183 | ! yynerrs = ysave->oldyynerrs; |
---|
184 | ! yyerrflag = ysave->oldyyerrflag; |
---|
185 | ! yychar = ysave->oldyychar; |
---|
186 | ! yyval = ysave->oldyyval; |
---|
187 | ! yylval = ysave->oldyylval; |
---|
188 | ! Safefree(ysave); |
---|
189 | } |
---|