lalex..c

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

#line 224 "../../src/lalex.c"
latok -> _toknode_tok = 123 ; 

#line 225 "../../src/lalex.c"
latok -> _toknode_retval . __C10_pn = _auto_n ; 
} } 
#line 228 "../../src/lalex.c"
( ( ( ( ( latok == rear ) ? tlex ( ) : 0 
#line 228 "../../src/lalex.c"
) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) ) ; 
#line 228 "../../src/lalex.c"

#line 229 "../../src/lalex.c"
break ; 

#line 230 "../../src/lalex.c"
case 73 : _static_in_enum = _auto_en ; 

#line 232 "../../src/lalex.c"
default : _static_fr = 0 ; 

#line 234 "../../src/lalex.c"
goto ret ; 
} 
#line 235 "../../src/lalex.c"
; 

#line 238 "../../src/lalex.c"
switch ( _auto_x ) { 
#line 238 "../../src/lalex.c"
case 73 : _static_in_enum = _auto_en ; 

#line 241 "../../src/lalex.c"
case 69 : _static_fr = 0 ; 

#line 243 "../../src/lalex.c"
goto ret ; 

#line 244 "../../src/lalex.c"
case 72 : if ( ( tk != 23 ) && ( _static_fr == 0 ) ) { 
#line 244 "../../src/lalex.c"

#line 245 "../../src/lalex.c"

#line 246 "../../src/lalex.c"
deltok ( ) ; 

#line 247 "../../src/lalex.c"
deltok ( ) ; 

#line 248 "../../src/lalex.c"
deltok ( ) ; 

#line 249 "../../src/lalex.c"
{ 
#line 249 "../../src/lalex.c"
{ _auto__result = lalex ( ) ; 

#line 249 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 252 "../../src/lalex.c"
default : deltok ( ) ; 

#line 254 "../../src/lalex.c"
_static_fr = 0 ; 

#line 255 "../../src/lalex.c"
goto ret ; 
} } 
#line 259 "../../src/lalex.c"
case 40 : _static_fr = 0 ; 

#line 262 "../../src/lalex.c"
if ( _static_nocast ) { 
#line 262 "../../src/lalex.c"
_static_nocast = 0 ; 

#line 264 "../../src/lalex.c"
goto ret ; 
} else 
#line 268 "../../src/lalex.c"
if ( _static_incast ) goto ret ; 

#line 271 "../../src/lalex.c"
bad_cast = 0 ; 

#line 272 "../../src/lalex.c"
if ( scan_type ( ) ) { 
#line 272 "../../src/lalex.c"
if ( scan_mod ( ) ) { 
#line 273 "../../src/lalex.c"
if ( 
#line 273 "../../src/lalex.c"
( ( ( latok == rear ) ? tlex ( ) : 0 ) , ( ( 
#line 273 "../../src/lalex.c"
latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) != 41 ) 
#line 274 "../../src/lalex.c"
goto ret ; 

#line 275 "../../src/lalex.c"
switch ( ( ( ( latok == rear ) ? tlex ( ) : 0 ) , 
#line 275 "../../src/lalex.c"
( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 275 "../../src/lalex.c"
{ 
#line 275 "../../src/lalex.c"
case 71 : case 
#line 275 "../../src/lalex.c"
41 : 
#line 276 "../../src/lalex.c"
case 72 : case 73 : case 70 : if ( tk != 30 ) goto ret ; 

#line 279 "../../src/lalex.c"
break ; 

#line 281 "../../src/lalex.c"
case 54 : case 55 : case 50 : case 52 : case 23 : case 9 : case 30 : 
#line 281 "../../src/lalex.c"

#line 282 "../../src/lalex.c"
case 160 : case 46 : case 47 : case 95 : case 40 : case 113 : case 80 : 
#line 282 "../../src/lalex.c"

#line 285 "../../src/lalex.c"
case 97 : case 123 : case 34 : case 24 : case 86 : case 82 : case 83 : 
#line 285 "../../src/lalex.c"

#line 287 "../../src/lalex.c"
case 84 : case 81 : break ; 

#line 290 "../../src/lalex.c"
default : if ( bad_cast ) goto ret ; 
else 
#line 295 "../../src/lalex.c"
break ; 
} 
#line 297 "../../src/lalex.c"
{ 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , ( 
#line 109 "../../src/lalex.c"
char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 298 "../../src/lalex.c"
front -> _toknode_tok = 113 ; 

#line 299 "../../src/lalex.c"
latok -> _toknode_tok = 122 ; 

#line 300 "../../src/lalex.c"
if ( bad_cast ) { 
#line 300 "../../src/lalex.c"
errorFPC__E ( ( char * ) "can't cast to function") ; 

#line 302 "../../src/lalex.c"
rep_cast ( ) ; 
} 
#line 304 "../../src/lalex.c"
_static_incast = 1 ; 
} } 
#line 307 "../../src/lalex.c"
goto ret ; 

#line 308 "../../src/lalex.c"
case 113 : _static_incast ++ ; 

#line 310 "../../src/lalex.c"
goto ret ; 

#line 311 "../../src/lalex.c"
case 122 : if ( ( -- _static_incast ) == 0 ) _static_nocast = 0 ; 

#line 313 "../../src/lalex.c"
goto ret ; 

#line 314 "../../src/lalex.c"
case 80 : { 
#line 315 "../../src/lalex.c"
char * _auto_s ; 

#line 315 "../../src/lalex.c"
_auto_s = front -> _toknode_retval . __C10_s ; 

#line 317 "../../src/lalex.c"
_static_fr = 0 ; 

#line 318 "../../src/lalex.c"
_static_nocast = 1 ; 

#line 319 "../../src/lalex.c"
switch ( ( ( ( latok == rear ) ? tlex ( ) : 0 ) , 
#line 319 "../../src/lalex.c"
( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 319 "../../src/lalex.c"
{ 
#line 319 "../../src/lalex.c"
case 80 : { 
#line 319 "../../src/lalex.c"

#line 321 "../../src/lalex.c"
char * _auto_s2 ; 

#line 323 "../../src/lalex.c"
_auto_s2 = latok -> _toknode_retval . __C10_s ; 

#line 324 "../../src/lalex.c"
{ 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , ( char 
#line 109 "../../src/lalex.c"
* ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 325 "../../src/lalex.c"
{ 
#line 325 "../../src/lalex.c"
Pname _auto_n ; 

#line 325 "../../src/lalex.c"
_auto_n = _table_look ( ( struct table * ) ktbl , _auto_s , 159 ) ; 

#line 326 "../../src/lalex.c"
if ( _auto_n == 0 ) { 
#line 326 "../../src/lalex.c"
errorFPC__E ( ( char * ) "%s %s:TX (%s is not a TN)", _auto_s , _auto_s2 , 
#line 326 "../../src/lalex.c"
_auto_s ) ; 

#line 328 "../../src/lalex.c"
_auto_n = ( struct name * ) _name__ctor ( ( struct name * ) 0 , _auto_s ) ; 
#line 328 "../../src/lalex.c"

#line 329 "../../src/lalex.c"
_auto_n -> _name_lex_level = 0 ; 

#line 330 "../../src/lalex.c"
_auto_n = _name_tname ( ( struct name * ) _auto_n , ( int ) 0 ) ; 

#line 331 "../../src/lalex.c"
modified_tn = modified_tn -> _name_list_l ; 

#line 332 "../../src/lalex.c"
_auto_n -> _expr__O2.__C2_tp = ( struct type * ) any_type ; 
} else 
#line 334 "../../src/lalex.c"
{ 
#line 334 "../../src/lalex.c"
errorFPC__E ( ( char * ) "%s %s: %s is hidden", _auto_s , _auto_s2 , _auto_s ) ; 
} 
#line 337 "../../src/lalex.c"
latok -> _toknode_tok = 123 ; 

#line 338 "../../src/lalex.c"
latok -> _toknode_retval . __C10_pn = _auto_n ; 

#line 339 "../../src/lalex.c"
break ; 
} } 
#line 341 "../../src/lalex.c"
case 73 : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int 
#line 109 "../../src/lalex.c"
) 'i' , ( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 343 "../../src/lalex.c"
front -> _toknode_retval . __C10_pn = ( struct name * ) _name__ctor ( ( struct name * ) 0 
#line 343 "../../src/lalex.c"
, _auto_s ) ; 

#line 344 "../../src/lalex.c"
front -> _toknode_retval . __C10_pn -> _name_lex_level -- ; 

#line 345 "../../src/lalex.c"
break ; 

#line 346 "../../src/lalex.c"
default : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , 
#line 109 "../../src/lalex.c"
( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 348 "../../src/lalex.c"
front -> _toknode_retval . __C10_pn = ( struct name * ) _name__ctor ( ( struct name * ) 0 
#line 348 "../../src/lalex.c"
, _auto_s ) ; 
} 
#line 350 "../../src/lalex.c"
goto ret ; 
} 
#line 352 "../../src/lalex.c"
case 4 : case 8 : case 25 : case 12 : _static_fr = 0 ; 

#line 357 "../../src/lalex.c"
switch ( tk ) { 
#line 357 "../../src/lalex.c"
case 69 : case 72 : case 74 : case 73 : goto ret ; 
#line 357 "../../src/lalex.c"

#line 363 "../../src/lalex.c"
default : errorFPCloc__PC__E ( ( struct loc * ) ( & curloc ) , ( char * 
#line 363 "../../src/lalex.c"
) "';' missing afterS orD before\"%k\"", latok -> _toknode_tok ) ; 

#line 365 "../../src/lalex.c"
{ 
#line 365 "../../src/lalex.c"
{ _auto__result = ( tk = 72 ) ; 

#line 365 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 367 "../../src/lalex.c"
case 10 : case 19 : case 7 : case 3 : case 28 : _static_fr = 
#line 367 "../../src/lalex.c"
0 ; 

#line 373 "../../src/lalex.c"
switch ( tk ) { 
#line 373 "../../src/lalex.c"
case 12 : case 10 : case 69 : case 41 : case 72 : 
#line 373 "../../src/lalex.c"

#line 379 "../../src/lalex.c"
case 74 : case 73 : goto ret ; 

#line 382 "../../src/lalex.c"
default : errorFPCloc__PC__E ( ( struct loc * ) ( & curloc ) , ( char * 
#line 382 "../../src/lalex.c"
) "';' missing afterS orD before\"%k\"", latok -> _toknode_tok ) ; 

#line 384 "../../src/lalex.c"
{ 
#line 384 "../../src/lalex.c"
{ _auto__result = ( tk = 72 ) ; 

#line 384 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 386 "../../src/lalex.c"
case 20 : case 39 : case 16 : case 33 : _static_fr = 0 ; 
#line 386 "../../src/lalex.c"

#line 391 "../../src/lalex.c"
switch ( tk ) { 
#line 391 "../../src/lalex.c"
case 12 : case 10 : case 69 : case 41 : case 72 : 
#line 391 "../../src/lalex.c"

#line 397 "../../src/lalex.c"
case 74 : case 73 : _static_nocast = 1 ; 

#line 400 "../../src/lalex.c"
goto ret ; 

#line 401 "../../src/lalex.c"
default : errorFPCloc__PC__E ( ( struct loc * ) ( & curloc ) , ( char * 
#line 401 "../../src/lalex.c"
) "';' missing afterS orD before\"%k\"", latok -> _toknode_tok ) ; 

#line 403 "../../src/lalex.c"
{ 
#line 403 "../../src/lalex.c"
{ _auto__result = ( tk = 72 ) ; 

#line 403 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 405 "../../src/lalex.c"
case 97 : _static_fr = 0 ; 

#line 408 "../../src/lalex.c"
switch ( tk ) { 
#line 408 "../../src/lalex.c"
case 80 : case 43 : errorFPCloc__PC__E ( ( struct loc * ) ( 
#line 408 "../../src/lalex.c"
& curloc ) , ( char * ) "';' missing afterS orD before\"%k\"", latok -> _toknode_tok ) ; 

#line 413 "../../src/lalex.c"
{ 
#line 413 "../../src/lalex.c"
{ _auto__result = ( tk = 72 ) ; 

#line 413 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 415 "../../src/lalex.c"
if ( latok -> _toknode_retval . __C10_t == 18 ) _static_fr = 1 ; 

#line 416 "../../src/lalex.c"
_static_nocast = 1 ; 

#line 417 "../../src/lalex.c"
goto ret ; 

#line 418 "../../src/lalex.c"
case 123 : { 
#line 419 "../../src/lalex.c"
Pname _auto_n ; 

#line 419 "../../src/lalex.c"
_auto_n = latok -> _toknode_retval . __C10_pn ; 

#line 420 "../../src/lalex.c"
if ( _static_fr ) { 
#line 420 "../../src/lalex.c"
_static_nocast = 1 ; 

#line 422 "../../src/lalex.c"
_static_fr = 0 ; 

#line 423 "../../src/lalex.c"
goto ret ; 
} 
#line 425 "../../src/lalex.c"
_static_fr = 0 ; 

#line 427 "../../src/lalex.c"
switch ( tk ) { 
#line 427 "../../src/lalex.c"
case 97 : switch ( ( ( ( latok == rear ) ? 
#line 427 "../../src/lalex.c"
tlex ( ) : 0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) 
#line 427 "../../src/lalex.c"
) ) 
#line 430 "../../src/lalex.c"
{ 
#line 430 "../../src/lalex.c"
case 72 : case 43 : case 69 : case 70 : goto hid ; 

#line 437 "../../src/lalex.c"
default : _static_nocast = 1 ; 

#line 439 "../../src/lalex.c"
goto ret ; 
} 
#line 441 "../../src/lalex.c"
case 123 : switch ( ( ( ( latok == rear ) ? tlex ( ) : 
#line 441 "../../src/lalex.c"
0 ) , ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 442 "../../src/lalex.c"
{ 
#line 442 "../../src/lalex.c"

#line 442 "../../src/lalex.c"

#line 443 "../../src/lalex.c"
case 160 : case 45 : _static_nocast = 1 ; 

#line 446 "../../src/lalex.c"
goto ret ; 
} 
#line 448 "../../src/lalex.c"
hid : { 
#line 109 "../../src/lalex.c"
if ( latok -> _toknode_last == 0 ) errorFI_PC__E ( ( int ) 'i' , 
#line 109 "../../src/lalex.c"
( char * ) "token q backup") ; 

#line 111 "../../src/lalex.c"
latok = latok -> _toknode_last ; 
} 
#line 450 "../../src/lalex.c"
_name_hide ( ( struct name * ) _auto_n ) ; 

#line 451 "../../src/lalex.c"
_auto_n = ( struct name * ) _name__ctor ( ( struct name * ) 0 , _auto_n -> _expr__O3.__C3_string ) 
#line 451 "../../src/lalex.c"
; 

#line 452 "../../src/lalex.c"
_auto_n -> _name_n_oper = 123 ; 

#line 453 "../../src/lalex.c"
latok -> _toknode_tok = 80 ; 

#line 454 "../../src/lalex.c"
latok -> _toknode_retval . __C10_pn = _auto_n ; 
} } 
#line 457 "../../src/lalex.c"
case 23 : _static_fr = 0 ; 

#line 459 "../../src/lalex.c"
_static_nocast = 1 ; 

#line 460 "../../src/lalex.c"
goto ret ; 

#line 480 "../../src/lalex.c"
case 74 : _static_fr = 0 ; 

#line 483 "../../src/lalex.c"
switch ( tk ) { 
#line 483 "../../src/lalex.c"
case 74 : case 73 : case 72 : break ; 

#line 488 "../../src/lalex.c"
default : { 
#line 489 "../../src/lalex.c"
TOK _auto_t ; 
struct loc _auto_x ; 

#line 490 "../../src/lalex.c"
_auto_x = curloc ; 

#line 491 "../../src/lalex.c"
switch ( _auto_t = ( ( ( latok == rear ) ? tlex ( ) : 0 ) 
#line 491 "../../src/lalex.c"
, ( ( latok = latok -> _toknode_next ) , latok -> _toknode_tok ) ) ) 
#line 491 "../../src/lalex.c"
{ 
#line 491 "../../src/lalex.c"
case 12 : 
#line 491 "../../src/lalex.c"

#line 493 "../../src/lalex.c"
case 74 : case 71 : case 72 : case 41 : break ; 

#line 498 "../../src/lalex.c"
default : if ( _static_in_enum == 0 ) { 
#line 502 "../../src/lalex.c"
errorFPCloc__PC__E ( ( struct loc * ) ( 
#line 502 "../../src/lalex.c"
& _auto_x ) , ( char * ) "';'X at end ofS orD before '}'") ; 

#line 504 "../../src/lalex.c"
{ 
#line 504 "../../src/lalex.c"
{ _auto__result = ( tk = 72 ) ; 

#line 504 "../../src/lalex.c"
return _auto__result ; 
} } } 
#line 506 "../../src/lalex.c"
_static_in_enum = 0 ; 
} } } 
#line 510 "../../src/lalex.c"
_static_in_enum = 0 ; 

#line 511 "../../src/lalex.c"
default : _static_fr = 0 ; 

#line 513 "../../src/lalex.c"
_static_nocast = 0 ; 

#line 514 "../../src/lalex.c"
goto ret ; 
} 
#line 516 "../../src/lalex.c"
ret : { 
#line 520 "../../src/lalex.c"
struct toknode * _auto_T ; 
struct toknode * _auto__Xthis__dtor_toknode ; 

#line 520 "../../src/lalex.c"
_auto_T = front ; 

#line 521 "../../src/lalex.c"
tk = _auto_T -> _toknode_tok ; 

#line 522 "../../src/lalex.c"
yylval = _auto_T -> _toknode_retval ; 

#line 523 "../../src/lalex.c"
if ( front = front -> _toknode_next ) front -> _toknode_last = 0 ; 

#line 524 "../../src/lalex.c"
{ 
#line 529 "../../src/lalex.c"
_auto__Xthis__dtor_toknode = ( struct toknode * ) _auto_T ; 

#line 52 "../../src/lalex.c"
{ 
#line 52 "../../src/lalex.c"