main..c

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

} } 
#line 190 "../../src/main.c"
case 6 : case 13 : break ; 

#line 193 "../../src/main.c"
case 119 : case 121 : if ( _auto_p && ( _auto_p -> _node_permanent == 0 ) ) _name_del ( 
#line 193 "../../src/main.c"
( struct name * ) _auto_p ) ; 

#line 196 "../../src/main.c"
break ; 

#line 197 "../../src/main.c"
default : _name__dtor ( ( struct name * ) _auto_p , 1) ; 
} } 
#line 201 "../../src/main.c"
_auto_cl -> _classdef_privmem = 0 ; 

#line 202 "../../src/main.c"
_auto_cl -> _node_permanent = 3 ; 

#line 203 "../../src/main.c"
break ; 
} } 
#line 206 "../../src/main.c"
if ( _auto_nn && ( _auto_nn -> _node_permanent == 0 ) ) _name_del ( ( struct 
#line 206 "../../src/main.c"
name * ) _auto_nn ) ; 
} } 
#line 209 "../../src/main.c"
lex_clear ( ) ; 
} 
#line 212 "../../src/main.c"
switch ( no_of_undcl ) { 
#line 212 "../../src/main.c"
case 0 : break ; 

#line 215 "../../src/main.c"
case 1 : errorFI_PC__E ( ( int ) 'w' , ( char * ) "undeclaredF%n called", undcl ) ; 
#line 215 "../../src/main.c"

#line 217 "../../src/main.c"
break ; 

#line 218 "../../src/main.c"
default : errorFI_PC__E ( ( int ) 'w' , ( char * ) "%d undeclaredFs called; for example%n", no_of_undcl , undcl ) 
#line 218 "../../src/main.c"
; 
} 
#line 222 "../../src/main.c"
switch ( no_of_badcall ) { 
#line 222 "../../src/main.c"
case 0 : break ; 

#line 225 "../../src/main.c"
case 1 : errorFI_PC__E ( ( int ) 'w' , ( char * ) "%n declared withoutAs called withAs", badcall ) ; 
#line 225 "../../src/main.c"

#line 227 "../../src/main.c"
break ; 

#line 228 "../../src/main.c"
default : errorFI_PC__E ( ( int ) 'w' , ( char * ) "%d Fs declared withoutAs called withAs; for example%n", no_of_badcall , badcall ) 
#line 228 "../../src/main.c"
; 
} 
#line 232 "../../src/main.c"
; 

#line 233 "../../src/main.c"
if ( fct_void == 0 ) for ( _auto_m = _table_get_mem ( ( struct table * ) gtbl , 
#line 233 "../../src/main.c"
_auto_i = 1 ) ;_auto_m ;( _auto_m = _table_get_mem ( ( struct table * ) gtbl , ++ _auto_i ) ) ) 
#line 233 "../../src/main.c"

#line 234 "../../src/main.c"
{ 
#line 234 "../../src/main.c"
if ( ( ( _auto_m -> _node_base == 123 ) || ( _auto_m -> _name_n_sto == 14 ) ) 
#line 234 "../../src/main.c"
|| ( _auto_m -> _name_n_stclass == 13 ) ) 
#line 238 "../../src/main.c"
continue ; 

#line 240 "../../src/main.c"
{ 
#line 240 "../../src/main.c"
Ptype _auto_t ; 

#line 240 "../../src/main.c"
_auto_t = _auto_m -> _expr__O2.__C2_tp ; 

#line 241 "../../src/main.c"
if ( _auto_t == 0 ) continue ; 

#line 242 "../../src/main.c"
ll : switch ( _auto_t -> _node_base ) { 
#line 243 "../../src/main.c"
case 97 : _auto_t = ( ( ( struct basetype * 
#line 243 "../../src/main.c"
) ( _auto_t ) ) ) -> _basetype_b_name -> _expr__O2.__C2_tp ; 

#line 244 "../../src/main.c"
goto ll ; 

#line 245 "../../src/main.c"
case 6 : case 13 : case 119 : case 76 : case 110 : continue ; 

#line 250 "../../src/main.c"
case 108 : if ( ( ( ( struct fct * ) ( _auto_t ) ) ) 
#line 250 "../../src/main.c"
-> _fct_f_inline || ( ( ( ( struct fct * ) ( _auto_t ) ) ) -> 
#line 250 "../../src/main.c"
_fct_body == 0 ) ) 
#line 250 "../../src/main.c"
continue ; 
} 
#line 253 "../../src/main.c"
if ( ( ( _auto_m -> _name_n_addr_taken == 0 ) && ( _auto_m -> _name_n_used == 0 
#line 253 "../../src/main.c"
) ) && ( _type_tconst ( ( struct type * ) _auto_m -> _expr__O2.__C2_tp ) == 0 ) 
#line 253 "../../src/main.c"
) 
#line 256 "../../src/main.c"
if ( _auto_m -> _name_n_sto == 31 ) error ( ( int ) 'w' , ( struct loc * 
#line 256 "../../src/main.c"
) ( & _auto_m -> _name_where ) , ( char * ) "%n defined but not used", _auto_m ) ; 
} } 
#line 262 "../../src/main.c"
{ 
#line 262 "../../src/main.c"
char * _auto_ctor_name ; 
char * _auto_dtor_name ; 

#line 262 "../../src/main.c"
_auto_ctor_name = 0 ; 

#line 262 "../../src/main.c"
_auto_dtor_name = 0 ; 

#line 264 "../../src/main.c"
if ( st_ilist ) { 
#line 264 "../../src/main.c"
Pname _auto_n ; 
Pfct _auto_f ; 
struct block * _auto__Xthis__ctor_block ; 

#line 267 "../../src/main.c"
_auto_n = ( struct name * ) _name__ctor ( ( struct name * ) 0 , ( char 
#line 267 "../../src/main.c"
* ) st_name ( ( char * ) "_STI") ) ; 

#line 268 "../../src/main.c"
_auto_f = ( struct fct * ) _fct__ctor ( ( struct fct * ) 0 , ( struct 
#line 268 "../../src/main.c"
type * ) void_type , ( struct name * ) 0 , 1 ) ; 

#line 269 "../../src/main.c"
_auto_n -> _expr__O2.__C2_tp = ( struct type * ) _auto_f ; 

#line 270 "../../src/main.c"
_auto_f -> _fct_body = ( struct block * ) ( ( _auto__Xthis__ctor_block = 0 ) , ( ( 
#line 270 "../../src/main.c"
( _auto__Xthis__ctor_block = 0 ) , ( _auto__Xthis__ctor_block = ( struct block * ) _stmt__ctor ( ( ( 
#line 270 "../../src/main.c"
struct stmt * ) ( _auto__Xthis__ctor_block ) ) , 116 , st_ilist -> _stmt_where , ( ( struct stmt * 
#line 270 "../../src/main.c"
) 0 ) ) ) ) , ( ( _auto__Xthis__ctor_block -> _stmt__O7.__C7_d = ( ( struct 
#line 270 "../../src/main.c"
name * ) 0 ) ) , _auto__Xthis__ctor_block ) ) ) ; 

#line 271 "../../src/main.c"
_auto_f -> _fct_body -> _stmt_s = st_ilist ; 

#line 272 "../../src/main.c"
_auto_f -> _fct_body -> _stmt_memtbl = sti_tbl ; 

#line 273 "../../src/main.c"
_auto_n -> _name_n_sto = 14 ; 

#line 274 "../../src/main.c"
( ( _name_dcl ( ( struct name * ) _auto_n , ( struct table * ) gtbl , 14 ) 
#line 274 "../../src/main.c"
) ) ; 

#line 275 "../../src/main.c"
_name_simpl ( ( struct name * ) _auto_n ) ; 

#line 276 "../../src/main.c"
_name_dcl_print ( ( struct name * ) _auto_n , ( int ) 0 ) ; 

#line 277 "../../src/main.c"
_auto_ctor_name = _auto_n -> _expr__O3.__C3_string ; 
} 
#line 280 "../../src/main.c"
if ( st_dlist ) { 
#line 280 "../../src/main.c"
Pname _auto_n ; 
Pfct _auto_f ; 
struct block * _auto__Xthis__ctor_block ; 

#line 283 "../../src/main.c"
_auto_n = ( struct name * ) _name__ctor ( ( struct name * ) 0 , ( char 
#line 283 "../../src/main.c"
* ) st_name ( ( char * ) "_STD") ) ; 

#line 284 "../../src/main.c"
_auto_f = ( struct fct * ) _fct__ctor ( ( struct fct * ) 0 , ( struct 
#line 284 "../../src/main.c"
type * ) void_type , ( struct name * ) 0 , 1 ) ; 

#line 285 "../../src/main.c"
_auto_n -> _expr__O2.__C2_tp = ( struct type * ) _auto_f ; 

#line 286 "../../src/main.c"
_auto_f -> _fct_body = ( struct block * ) ( ( _auto__Xthis__ctor_block = 0 ) , ( ( 
#line 286 "../../src/main.c"
( _auto__Xthis__ctor_block = 0 ) , ( _auto__Xthis__ctor_block = ( struct block * ) _stmt__ctor ( ( ( 
#line 286 "../../src/main.c"
struct stmt * ) ( _auto__Xthis__ctor_block ) ) , 116 , st_dlist -> _stmt_where , ( ( struct stmt * 
#line 286 "../../src/main.c"
) 0 ) ) ) ) , ( ( _auto__Xthis__ctor_block -> _stmt__O7.__C7_d = ( ( struct 
#line 286 "../../src/main.c"
name * ) 0 ) ) , _auto__Xthis__ctor_block ) ) ) ; 

#line 287 "../../src/main.c"
_auto_f -> _fct_body -> _stmt_s = st_dlist ; 

#line 288 "../../src/main.c"
_auto_f -> _fct_body -> _stmt_memtbl = std_tbl ; 

#line 289 "../../src/main.c"
_auto_n -> _name_n_sto = 14 ; 

#line 290 "../../src/main.c"
( ( _name_dcl ( ( struct name * ) _auto_n , ( struct table * ) gtbl , 14 ) 
#line 290 "../../src/main.c"
) ) ; 

#line 291 "../../src/main.c"
_name_simpl ( ( struct name * ) _auto_n ) ; 

#line 292 "../../src/main.c"
_name_dcl_print ( ( struct name * ) _auto_n , ( int ) 0 ) ; 

#line 293 "../../src/main.c"
_auto_dtor_name = _auto_n -> _expr__O3.__C3_string ; 
} 
#line 309 "../../src/main.c"
if ( debug == 0 ) { 
#line 309 "../../src/main.c"
Plist _auto_l ; 

#line 311 "../../src/main.c"
for ( _auto_l = isf_list ;_auto_l ;( _auto_l = _auto_l -> _name_list_l ) ) { 
#line 311 "../../src/main.c"
Pname _auto_n ; 
Pfct _auto_f ; 

#line 312 "../../src/main.c"
_auto_n = _auto_l -> _name_list_f ; 

#line 313 "../../src/main.c"
_auto_f = ( ( ( struct fct * ) ( _auto_n -> _expr__O2.__C2_tp ) ) ) ; 

#line 315 "../../src/main.c"
switch ( _auto_f -> _node_base ) { 
#line 315 "../../src/main.c"
default : errorFI_PC__E ( ( int ) 'i' , ( char 
#line 315 "../../src/main.c"
* ) "inline list corrupted\n") ; 

#line 318 "../../src/main.c"
case 108 : break ; 

#line 320 "../../src/main.c"
case 76 : _auto_n = ( ( ( struct gen * ) ( _auto_f ) ) ) -> 
#line 320 "../../src/main.c"
_gen_fct_list -> _name_list_f ; 

#line 322 "../../src/main.c"
_auto_f = ( ( ( struct fct * ) ( _auto_n -> _expr__O2.__C2_tp ) ) ) ; 
} 
#line 326 "../../src/main.c"
if ( _auto_n -> _name_n_addr_taken || _auto_f -> _fct_f_virtual ) { 
#line 326 "../../src/main.c"
outlined = ( ( ( ( struct 
#line 326 "../../src/main.c"
fct * ) ( _auto_n -> _expr__O2.__C2_tp ) ) ) -> _fct_s_returns ? ( ( ( struct fct * 
#line 326 "../../src/main.c"
) ( _auto_n -> _expr__O2.__C2_tp ) ) ) -> _fct_s_returns : ( ( ( struct fct * ) 
#line 326 "../../src/main.c"
( _auto_n -> _expr__O2.__C2_tp ) ) ) -> _fct_returns ) ; 

#line 328 "../../src/main.c"
_type_dcl_print ( ( struct type * ) _auto_n -> _expr__O2.__C2_tp , ( struct name * ) _auto_n ) ; 

#line 329 "../../src/main.c"
outlined = 0 ; 
} } } 
#line 334 "../../src/main.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) "\n/* the end */\n") 
#line 334 "../../src/main.c"
; 
} } ; 

#line 338 "../../src/main.c"
Ptype outlined ; 

#line 339 "../../src/main.c"
bit warn = 1 ; 

#line 340 "../../src/main.c"
bit debug ; 

#line 341 "../../src/main.c"
char * afile = ( char * ) "default"; 

#line 343 "../../src/main.c"
int no_of_undcl = 0 ; 

#line 343 "../../src/main.c"
int no_of_badcall = 0 ; 

#line 344 "../../src/main.c"
Pname undcl ; 

#line 344 "../../src/main.c"
Pname badcall ; 

#line 346 "../../src/main.c"
int main ( _auto_argc , _auto_argv ) int _auto_argc ; 
char * _auto_argv [ ] ; 
{ _main(); 
#line 350 "../../src/main.c"
{ 
#line 350 "../../src/main.c"
int _auto__result ; 

#line 351 "../../src/main.c"
extern char * mktemp ( ) ; 
register char * _auto_cp ; 
short _auto_i ; 

#line 361 "../../src/main.c"
error_init ( ) ; 

#line 363 "../../src/main.c"
for ( _auto_i = 1 ;( _auto_i < _auto_argc ) ;( ++ _auto_i ) ) { 
#line 363 "../../src/main.c"
switch ( * 
#line 363 "../../src/main.c"
( _auto_cp = ( _auto_argv [ _auto_i ] ) ) ) 
#line 364 "../../src/main.c"
{ 
#line 364 "../../src/main.c"
case '+' : while ( * 
#line 364 "../../src/main.c"
( ++ _auto_cp ) ) 
#line 366 "../../src/main.c"
{ 
#line 366 "../../src/main.c"
switch ( * _auto_cp ) { 
#line 367 "../../src/main.c"
case 't' : fprintf ( ( 
#line 367 "../../src/main.c"
struct _iobuf * ) ( & ( _iob [ 2 ] ) ) , ( char * 
#line 367 "../../src/main.c"
) "type check only\n") ; 

#line 370 "../../src/main.c"
Ssimpl = 0 ; 

#line 371 "../../src/main.c"
break ; 

#line 372 "../../src/main.c"
case 's' : fprintf ( ( struct _iobuf * ) ( & ( _iob [ 2 ] ) ) 
#line 372 "../../src/main.c"
, ( char * ) "syntax check only\n") ; 

#line 374 "../../src/main.c"
Styp = ( Ssimpl = 0 ) ; 

#line 375 "../../src/main.c"
break ; 

#line 376 "../../src/main.c"
case 'w' : warn = 0 ; 

#line 378 "../../src/main.c"
break ; 

#line 379 "../../src/main.c"
case 'd' : debug = 1 ; 

#line 381 "../../src/main.c"
break ; 

#line 382 "../../src/main.c"
case 'f' : src_file_name = ( _auto_cp + 1 ) ; 

#line 384 "../../src/main.c"
goto xx ; 

#line 385 "../../src/main.c"
case 'x' : if ( read_align ( afile = ( _auto_cp + 1 ) ) ) { 
#line 386 "../../src/main.c"
fprintf ( ( 
#line 386 "../../src/main.c"
struct _iobuf * ) ( & ( _iob [ 2 ] ) ) , ( char * 
#line 386 "../../src/main.c"
) "bad size-table (option +x)") ; 

#line 388 "../../src/main.c"
exit ( 11 ) ; 
} 
#line 390 "../../src/main.c"
goto xx ; 

#line 391 "../../src/main.c"
case 'C' : errorFI_PC__E ( ( int ) 's' , ( char * ) "cannot preserve comments") ; 

#line 393 "../../src/main.c"
break ; 

#line 394 "../../src/main.c"
case 'V' : fct_void = ( old_fct_accepted = 1 ) ; 

#line 396 "../../src/main.c"
break ; 

#line 397 "../../src/main.c"
case 'S' : Nspy ++ ; 

#line 399 "../../src/main.c"
break ; 

#line 400 "../../src/main.c"
case 'L' : line_format = "\n#line %d \"%s\"\n"; 

#line 402 "../../src/main.c"
break ; 

#line 403 "../../src/main.c"
default : fprintf ( ( struct _iobuf * ) ( & ( _iob [ 2 ] ) ) 
#line 403 "../../src/main.c"
, ( char * ) "%s: unexpected option: +%c ignored\n", prog_name , * _auto_cp ) ; 

#line 406 "../../src/main.c"
break ; 
} } 
#line 409 "../../src/main.c"
xx : break ; 

#line 411 "../../src/main.c"
default : fprintf ( ( struct _iobuf * ) ( & ( _iob [ 2 ] ) ) 
#line 411 "../../src/main.c"
, ( char * ) "%s: bad argument \"%s\"\n", prog_name , _auto_cp ) ; 

#line 413 "../../src/main.c"
exit ( 11 ) ; 
} } 
#line 420 "../../src/main.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) ( line_format + 
#line 420 "../../src/main.c"
1 ) , 1 , src_file_name ) ; 

#line 421 "../../src/main.c"
fprintf ( ( struct _iobuf * ) out_file , ( char * ) "\n/* %s */\n", prog_name ) ; 

#line 422 "../../src/main.c"
if ( src_file_name ) fprintf ( ( struct _iobuf * ) out_file , ( char * ) "/* < %s */\n", 
#line 422 "../../src/main.c"
src_file_name ) ; 

#line 424 "../../src/main.c"
if ( Nspy ) { 
#line 424 "../../src/main.c"
start_time = time ( ( long * ) 0 ) ; 

#line 426 "../../src/main.c"
print_align ( afile ) ; 
} 
#line 428 "../../src/main.c"
fflush ( ( struct _iobuf * ) ( & ( _iob [ 2 ] ) ) ) 
#line 428 "../../src/main.c"
; 

#line 429 "../../src/main.c"
if ( Ssimpl ) print_mode = 3 ; 

#line 430 "../../src/main.c"
otbl_init ( ) ; 

#line 431 "../../src/main.c"
lex_init ( ) ; 

#line 432 "../../src/main.c"
syn_init ( ) ; 

#line 433 "../../src/main.c"
typ_init ( ) ; 

#line 434 "../../src/main.c"
simpl_init ( ) ; 

#line 435 "../../src/main.c"
scan_started = 1 ; 

#line 436 "../../src/main.c"
_loc_putline ( ( struct loc * ) ( & curloc ) ) ; 

#line 437 "../../src/main.c"
run ( ) ; 

#line 438 "../../src/main.c"
if ( Nspy ) { 
#line 438 "../../src/main.c"
stop_time = time ( ( long * ) 0 ) ; 

#line 440 "../../src/main.c"
spy ( src_file_name ) ; 
} 
#line 443 "../../src/main.c"
exit ( ( ( 0 <= error_count ) && ( error_count < 127 ) ) ? error_count : 
#line 443 "../../src/main.c"
127 ) ; 
} } ; 

#line 447 "../../src/main.c"
extern char * st_name ( _auto_pref ) char * _auto_pref ; 

#line 452 "../../src/main.c"
{ 
#line 452 "../../src/main.c"
char * _auto__result ; 
int _auto_prefl ; 
int _auto_strl ; 
char * _auto_name ; 
char * _auto_p ; 

#line 453 "../../src/main.c"
_auto_prefl = strlen ( _auto_pref ) ; 

#line 454 "../../src/main.c"
_auto_strl = ( _auto_prefl + 2 ) ; 

#line 455 "../../src/main.c"
if ( src_file_name ) _auto_strl += strlen ( src_file_name ) ; 

#line 456 "../../src/main.c"
_auto_name = ( ( ( char * ) ( _new ( ( long ) _auto_strl ) ) 
#line 456 "../../src/main.c"
) ) ; 

#line 457 "../../src/main.c"
strcpy ( _auto_name , _auto_pref ) ; 

#line 458 "../../src/main.c"
if ( src_file_name ) strcpy ( _auto_name + _auto_prefl , src_file_name ) ; 

#line 459 "../../src/main.c"
( _auto_name [ _auto_strl - 2 ] ) = '_' ; 

#line 460 "../../src/main.c"
( _auto_name [ _auto_strl - 1 ] ) = 0 ; 

#line 461 "../../src/main.c"
_auto_p = _auto_name ; 

#line 462 "../../src/main.c"
while ( * ( ++ _auto_p ) ) if ( ( ! ( ( ( 
#line 462 "../../src/main.c"
_ctype + 1 ) [ * _auto_p ] ) & 3) ) && ( ! ( ( 
#line 462 "../../src/main.c"
( _ctype + 1 ) [ * _auto_p ] ) & 04 ) ) ) 
#line 462 "../../src/main.c"
( * _auto_p ) 
#line 462 "../../src/main.c"
= '_' ; 

#line 463 "../../src/main.c"
{ 
#line 463 "../../src/main.c"
{ _auto__result = _auto_name ; 

#line 463 "../../src/main.c"
return _auto__result ; 
} } } ; 

/* the end */