y.tab..c

c 语言编译器 源代码- c compiler

#line 2050 "gram.y"
int yynerrs = 0 ; 

#line 2051 "gram.y"
int yyerrflag = 0 ; 

#line 2052 "gram.y"
int yychar = 0 ; 

#line 2060 "gram.y"
extern int yyparse ( ) 
#line 2061 "gram.y"
{ 
#line 2061 "gram.y"
int _auto__result ; 
register union _C10 * _auto_yypvt ; 
struct slist * _auto__Xthis__ctor_slist ; 
struct block * _auto__Xthis__ctor_block ; 
struct estmt * _auto__Xthis__ctor_estmt ; 
struct lstmt * _auto__Xthis__ctor_lstmt ; 
struct ifstmt * _auto__Xthis__ctor_ifstmt ; 
struct forstmt * _auto__Xthis__ctor_forstmt ; 
struct qexpr * _auto__Xthis__ctor_qexpr ; 
struct texpr * _auto__Xthis__ctor_texpr ; 
struct ref * _auto__Xthis__ctor_ref ; 
struct ptr * _auto__Xthis__ctor_ptr ; 

#line 2067 "gram.y"
yypv = ( & ( yyv [ -1] ) ) ; 

#line 2068 "gram.y"
yyps = ( & ( yys [ -1] ) ) ; 

#line 2069 "gram.y"
yystate = 0 ; 

#line 2070 "gram.y"
yytmp = 0 ; 

#line 2071 "gram.y"
yynerrs = 0 ; 

#line 2072 "gram.y"
yyerrflag = 0 ; 

#line 2073 "gram.y"
yychar = -1; 

#line 2075 "gram.y"
goto yystack ; 

#line 2076 "gram.y"
{ 
#line 2076 "gram.y"
register union _C10 * _auto_yy_pv ; 
register int * _auto_yy_ps ; 
register int _auto_yy_state ; 
register int _auto_yy_n ; 

#line 2086 "gram.y"
yynewstate : _auto_yy_pv = yypv ; 

#line 2088 "gram.y"
_auto_yy_ps = yyps ; 

#line 2089 "gram.y"
_auto_yy_state = yystate ; 

#line 2090 "gram.y"
goto yy_newstate ; 

#line 2096 "gram.y"
yystack : _auto_yy_pv = yypv ; 

#line 2098 "gram.y"
_auto_yy_ps = yyps ; 

#line 2099 "gram.y"
_auto_yy_state = yystate ; 

#line 2104 "gram.y"
yy_stack : if ( ( ++ _auto_yy_ps ) >= ( & ( yys [ 300 ] ) ) 
#line 2104 "gram.y"
) 
#line 2137 "gram.y"
{ 
#line 2137 "gram.y"
yyerror ( ( char * ) "yacc stack overflow") ; 

#line 2139 "gram.y"
{ 
#line 2139 "gram.y"
{ _auto__result = 1 ; 

#line 2139 "gram.y"
return _auto__result ; 
} } } 
#line 2141 "gram.y"
( * _auto_yy_ps ) = _auto_yy_state ; 

#line 2142 "gram.y"
( * ( ++ _auto_yy_pv ) ) = yyval ; 

#line 2147 "gram.y"
yy_newstate : if ( ( _auto_yy_n = ( yypact [ _auto_yy_state ] ) ) <= -1000) goto yydefault ; 
#line 2147 "gram.y"

#line 2156 "gram.y"
if ( ( yychar < 0 ) && ( ( yychar = lalex ( ) ) < 
#line 2156 "gram.y"
0 ) ) 
#line 2157 "gram.y"
yychar = 0 ; 

#line 2180 "gram.y"
if ( ( ( _auto_yy_n += yychar ) < 0 ) || ( _auto_yy_n >= 1502 ) ) 
#line 2180 "gram.y"

#line 2181 "gram.y"
goto yydefault ; 

#line 2182 "gram.y"
if ( ( yychk [ _auto_yy_n = ( yyact [ _auto_yy_n ] ) ] ) == yychar ) { 
#line 2182 "gram.y"

#line 2183 "gram.y"

#line 2184 "gram.y"
yychar = -1; 

#line 2185 "gram.y"
yyval = yylval ; 

#line 2186 "gram.y"
_auto_yy_state = _auto_yy_n ; 

#line 2187 "gram.y"
if ( yyerrflag > 0 ) yyerrflag -- ; 

#line 2189 "gram.y"
goto yy_stack ; 
} 
#line 2192 "gram.y"
yydefault : if ( ( _auto_yy_n = ( yydef [ _auto_yy_state ] ) ) == -2) { 
#line 2192 "gram.y"

#line 2194 "gram.y"

#line 2198 "gram.y"
if ( ( yychar < 0 ) && ( ( yychar = lalex ( ) ) < 
#line 2198 "gram.y"
0 ) ) 
#line 2199 "gram.y"
yychar = 0 ; 

#line 2229 "gram.y"
{ 
#line 2229 "gram.y"
register int * _auto_yyxi ; 

#line 2230 "gram.y"
_auto_yyxi = ( int * ) yyexca ; 

#line 2232 "gram.y"
while ( ( ( * _auto_yyxi ) != -1) || ( ( _auto_yyxi [ 1 ] ) 
#line 2232 "gram.y"
!= _auto_yy_state ) ) 
#line 2234 "gram.y"
{ 
#line 2234 "gram.y"
_auto_yyxi += 2 ; 
} 
#line 2237 "gram.y"
while ( ( ( * ( _auto_yyxi += 2 ) ) >= 0 ) && 
#line 2237 "gram.y"
( ( * _auto_yyxi ) != yychar ) ) 
#line 2239 "gram.y"
; 

#line 2240 "gram.y"
if ( ( _auto_yy_n = ( _auto_yyxi [ 1 ] ) ) < 0 ) { 
#line 2241 "gram.y"
{ 
#line 2241 "gram.y"

#line 2241 "gram.y"
_auto__result = 0 ; 

#line 2241 "gram.y"
return _auto__result ; 
} } } } 
#line 2248 "gram.y"
if ( _auto_yy_n == 0 ) { 
#line 2249 "gram.y"
switch ( yyerrflag ) { 
#line 2249 "gram.y"

#line 2252 "gram.y"

#line 2253 "gram.y"
case 0 : yyerror ( ( char * ) "syntax error") ; 

#line 2255 "gram.y"
goto skip_init ; 

#line 2256 "gram.y"
yyerrlab : _auto_yy_pv = yypv ; 

#line 2262 "gram.y"
_auto_yy_ps = yyps ; 

#line 2263 "gram.y"
_auto_yy_state = yystate ; 

#line 2264 "gram.y"
yynerrs ++ ; 

#line 2265 "gram.y"
skip_init : case 1 : case 2 : yyerrflag = 3 ; 

#line 2274 "gram.y"
while ( _auto_yy_ps >= yys ) { 
#line 2275 "gram.y"
_auto_yy_n = ( ( yypact [ * _auto_yy_ps ] ) + 256 ) 
#line 2275 "gram.y"
; 

#line 2277 "gram.y"
if ( ( ( _auto_yy_n >= 0 ) && ( _auto_yy_n < 1502 ) ) && ( 
#line 2277 "gram.y"
( yychk [ yyact [ _auto_yy_n ] ] ) == 256 ) ) 
#line 2278 "gram.y"
{ 
#line 2278 "gram.y"
_auto_yy_state = ( yyact [ _auto_yy_n ] 
#line 2278 "gram.y"
) ; 

#line 2283 "gram.y"
goto yy_stack ; 
} 
#line 2296 "gram.y"
_auto_yy_ps -- ; 

#line 2297 "gram.y"
_auto_yy_pv -- ; 
} 
#line 2303 "gram.y"
{ 
#line 2303 "gram.y"
{ _auto__result = 1 ; 

#line 2303 "gram.y"
return _auto__result ; 
} } 
#line 2304 "gram.y"
case 3 : if ( yychar == 0 ) { 
#line 2340 "gram.y"
{ _auto__result = 1 ; 

#line 2340 "gram.y"
return _auto__result ; 
} } 
#line 2341 "gram.y"
yychar = -1; 

#line 2342 "gram.y"
goto yy_newstate ; 
} } 
#line 2359 "gram.y"
yytmp = _auto_yy_n ; 

#line 2360 "gram.y"
_auto_yypvt = _auto_yy_pv ; 

#line 2373 "gram.y"
{ 
#line 2373 "gram.y"
register int _auto_yy_len ; 

#line 2375 "gram.y"
_auto_yy_len = ( yyr2 [ _auto_yy_n ] ) ; 

#line 2377 "gram.y"
if ( ! ( _auto_yy_len & 01 ) ) { 
#line 2378 "gram.y"
_auto_yy_len >>= 1 ; 

#line 2380 "gram.y"
yyval = ( ( _auto_yy_pv -= _auto_yy_len ) [ 1 ] ) ; 

#line 2382 "gram.y"
_auto_yy_state = ( ( ( yypgo [ _auto_yy_n = ( yyr1 [ _auto_yy_n ] ) ] ) + ( 
#line 2382 "gram.y"
* ( _auto_yy_ps -= _auto_yy_len ) ) ) + 1 ) ; 

#line 2383 "gram.y"
if ( ( _auto_yy_state >= 1502 ) || ( ( yychk [ _auto_yy_state = ( yyact [ _auto_yy_state ] ) 
#line 2383 "gram.y"
] ) != ( - _auto_yy_n ) ) ) 
#line 2386 "gram.y"
{ 
#line 2386 "gram.y"
_auto_yy_state = ( yyact [ yypgo [ _auto_yy_n ] 
#line 2386 "gram.y"
] ) ; 
} 
#line 2389 "gram.y"
goto yy_stack ; 
} 
#line 2391 "gram.y"
_auto_yy_len >>= 1 ; 

#line 2392 "gram.y"
yyval = ( ( _auto_yy_pv -= _auto_yy_len ) [ 1 ] ) ; 

#line 2394 "gram.y"
_auto_yy_state = ( ( ( yypgo [ _auto_yy_n = ( yyr1 [ _auto_yy_n ] ) ] ) + ( 
#line 2394 "gram.y"
* ( _auto_yy_ps -= _auto_yy_len ) ) ) + 1 ) ; 

#line 2395 "gram.y"
if ( ( _auto_yy_state >= 1502 ) || ( ( yychk [ _auto_yy_state = ( yyact [ _auto_yy_state ] ) 
#line 2395 "gram.y"
] ) != ( - _auto_yy_n ) ) ) 
#line 2397 "gram.y"
{ 
#line 2397 "gram.y"
_auto_yy_state = ( yyact [ yypgo [ _auto_yy_n ] 
#line 2397 "gram.y"
] ) ; 
} } 
#line 2402 "gram.y"
yystate = _auto_yy_state ; 

#line 2403 "gram.y"
yyps = _auto_yy_ps ; 

#line 2404 "gram.y"
yypv = _auto_yy_pv ; 
} 
#line 2409 "gram.y"
switch ( yytmp ) { 
#line 2410 "gram.y"
case 1 : { 
#line 343 "gram.y"
{ 
#line 343 "gram.y"
{ _auto__result = ( _auto_yypvt [ - 
#line 343 "gram.y"
0 ] ) . __C10_i ; 

#line 343 "gram.y"
return _auto__result ; 
} } } 
#line 343 "gram.y"
break ; 

#line 344 "gram.y"
case 2 : { 
#line 345 "gram.y"
{ 
#line 345 "gram.y"
{ _auto__result = 1 ; 

#line 345 "gram.y"
return _auto__result ; 
} } } 
#line 345 "gram.y"
break ; 

#line 346 "gram.y"
case 3 : { 
#line 347 "gram.y"
{ 
#line 347 "gram.y"
{ _auto__result = 0 ; 

#line 347 "gram.y"
return _auto__result ; 
} } } 
#line 347 "gram.y"
break ; 

#line 348 "gram.y"
case 4 : { 
#line 351 "gram.y"
modified_tn = 0 ; 

#line 351 "gram.y"
if ( ( _auto_yypvt [ - 0 ] ) . __C10_pn == 0 ) yyval . __C10_i = 
#line 351 "gram.y"
1 ; 
} 
#line 351 "gram.y"
break ; 

#line 352 "gram.y"
case 5 : { 
#line 353 "gram.y"
goto mod ; 
} 
#line 353 "gram.y"
break ; 

#line 354 "gram.y"
case 6 : { 
#line 355 "gram.y"
goto mod ; 
} 
#line 355 "gram.y"
break ; 

#line 356 "gram.y"
case 7 : { 
#line 357 "gram.y"
mod : if ( modified_tn ) { 
#line 357 "gram.y"
restore ( ) ; 

#line 359 "gram.y"
modified_tn = 0 ; 
} } 
#line 361 "gram.y"
break ; 

#line 362 "gram.y"
case 8 : { 
#line 363 "gram.y"
Pname _auto_n ; 

#line 363 "gram.y"
_auto_n = ( struct name * ) _name__ctor ( ( struct name * ) 0 , ( char 
#line 363 "gram.y"
* ) make_name ( ( int ) 'A' ) ) ; 

#line 364 "gram.y"
_auto_n -> _expr__O2.__C2_tp = ( struct type * ) _basetype__ctor ( ( struct basetype * ) 0 , 1 , 
#line 364 "gram.y"
( struct name * ) 0 ) ; 

#line 365 "gram.y"
( ( ( struct basetype * ) ( _auto_n -> _expr__O2.__C2_tp ) ) ) -> _basetype_b_name = ( 
#line 365 "gram.y"
( ( struct name * ) ( ( _auto_yypvt [ -2] ) . __C10_s ) ) ) 
#line 365 "gram.y"
; 

#line 366 "gram.y"
yyval . __C10_p = ( struct node * ) _auto_n ; 
} 
#line 367 "gram.y"
break ; 

#line 368 "gram.y"
case 9 : { 
#line 371 "gram.y"
Pname _auto_n ; 

#line 371 "gram.y"
_auto_n = ( _auto_yypvt [ -1] ) . __C10_pn ; 

#line 372 "gram.y"
if ( ( _auto_n == 0 ) || ( _auto_n -> _expr__O2.__C2_tp == 0 ) ) { 
#line 372 "gram.y"

#line 372 "gram.y"

#line 373 "gram.y"
errorFPC__E ( ( char * ) "TX for%n", _auto_n ) ; 

#line 374 "gram.y"
yyval . __C10_p = ( struct node * ) _name_normalize ( ( struct name * ) ( ( ( 
#line 374 "gram.y"
struct name * ) ( ( _auto_yypvt [ -1] ) . __C10_p ) ) ) , ( 
#line 374 "gram.y"
struct basetype * ) ( ( ( struct basetype * ) ( defa_type ) ) ) , 
#line 374 "gram.y"
( struct block * ) 0 , ( int ) 0 ) ; 
} 
#line 376 "gram.y"
switch ( _auto_n -> _expr__O2.__C2_tp -> _node_base ) { 
#line 376 "gram.y"
case 108 : yyval . __C10_p = ( struct node * 
#line 376 "gram.y"
) _name_normalize ( ( struct name * ) ( ( ( struct name * ) ( _auto_n ) 
#line 376 "gram.y"
) ) , ( struct basetype * ) ( ( ( struct basetype * ) ( 
#line 376 "gram.y"
defa_type ) ) ) , ( struct block * ) ( ( ( struct block * ) 
#line 376 "gram.y"
( 0 ) ) ) , ( int ) 0 ) ; 

#line 379 "gram.y"
break ; 

#line 380 "gram.y"
default : errorFPC__E ( ( char * ) "TX for%n", _auto_n ) ; 

#line 382 "gram.y"
yyval . __C10_p = ( struct node * ) _name_normalize ( ( struct name * ) ( ( ( 
#line 382 "gram.y"
struct name * ) ( ( _auto_yypvt [ -1] ) . __C10_p ) ) ) , ( 
#line 382 "gram.y"
struct basetype * ) ( ( ( struct basetype * ) ( defa_type ) ) ) , 
#line 382 "gram.y"
( struct block * ) 0 , ( int ) 0 ) ; 
} } 
#line 384 "gram.y"
break ; 

#line 385 "gram.y"
case 10 : { 
#line 389 "gram.y"
Pname _auto_n ; 

#line 389 "gram.y"
_auto_n = _name_normalize ( ( struct name * ) ( ( ( struct name * ) ( ( 
#line 389 "gram.y"
_auto_yypvt [ -3] ) . __C10_p ) ) ) , ( struct basetype * ) ( ( 
#line 389 "gram.y"
( struct basetype * ) ( ( _auto_yypvt [ -4] ) . __C10_p ) ) ) , 
#line 389 "gram.y"
( struct block * ) ( ( ( struct block * ) ( ( _auto_yypvt [ - 
#line 389 "gram.y"
0 ] ) . __C10_p ) ) ) , ( int ) 0 ) ; 
#line 389 "gram.y"

#line 390 "gram.y"
_