expr..c

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

} else 
#line 144 "../../src/expr.c"
{ 
#line 144 "../../src/expr.c"
errorFPC__E ( ( char * ) "QdN%n not in scope", _auto_n ) ; 

#line 146 "../../src/expr.c"
goto def ; 
} } } } } 
#line 151 "../../src/expr.c"
xx : if ( _auto_nn == 0 ) goto def ; 

#line 154 "../../src/expr.c"
{ 
#line 561 "../../src/cfront.h"
( ( struct name * ) _auto_nn ) -> _name_n_used ++ ; 
} 
#line 155 "../../src/expr.c"
if ( _auto_f == 2 ) { 
#line 155 "../../src/expr.c"
if ( _auto_qn && ( _auto_nn -> _name_n_stclass == 0 ) 
#line 155 "../../src/expr.c"
) 
#line 157 "../../src/expr.c"
switch ( _auto_nn -> _name_n_scope ) { 
#line 157 "../../src/expr.c"
case 0 : case 25 : switch ( _auto_qn -> 
#line 157 "../../src/expr.c"
_expr__O2.__C2_tp -> _node_base ) 
#line 160 "../../src/expr.c"
{ 
#line 160 "../../src/expr.c"
case 108 : case 76 : ( * _auto_n ) = ( * _auto_qn ) 
#line 160 "../../src/expr.c"
; 

#line 164 "../../src/expr.c"
_auto_n -> _name__O6.__C6_n_qualifier = _auto_q ; 

#line 165 "../../src/expr.c"
{ 
#line 165 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_n ; 

#line 165 "../../src/expr.c"
return _auto__result ; 
} } } } 
#line 168 "../../src/expr.c"
if ( _auto_nn -> _expr__O5.__C5_n_table == gtbl ) errorFPC__E ( ( char * ) 
#line 168 "../../src/expr.c"
"MF%n not found", _auto_n ) ; 

#line 169 "../../src/expr.c"
if ( _auto_n ) _name__dtor ( ( struct name * ) _auto_n , 1) ; 

#line 170 "../../src/expr.c"
{ 
#line 170 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_nn ; 

#line 170 "../../src/expr.c"
return _auto__result ; 
} } } 
#line 173 "../../src/expr.c"
switch ( _auto_nn -> _name_n_scope ) { 
#line 173 "../../src/expr.c"
case 0 : case 25 : if 
#line 173 "../../src/expr.c"
( _auto_nn -> _name_n_stclass == 0 ) 
#line 177 "../../src/expr.c"
{ 
#line 177 "../../src/expr.c"
if ( _auto_qn ) { 
#line 178 "../../src/expr.c"
switch ( _auto_qn -> _expr__O2.__C2_tp -> 
#line 178 "../../src/expr.c"
_node_base ) 
#line 179 "../../src/expr.c"
{ 
#line 179 "../../src/expr.c"
case 108 : case 76 : ( * _auto_n ) = ( * _auto_qn ) ; 
#line 179 "../../src/expr.c"

#line 183 "../../src/expr.c"
_auto_n -> _name__O6.__C6_n_qualifier = _auto_q ; 

#line 185 "../../src/expr.c"
_auto_nn = _auto_n ; 

#line 186 "../../src/expr.c"
_auto_n = 0 ; 
} } 
#line 190 "../../src/expr.c"
if ( cc -> _dcl_context_c_this == 0 ) { 
#line 190 "../../src/expr.c"
switch ( _auto_nn -> _name_n_oper ) { 
#line 190 "../../src/expr.c"

#line 191 "../../src/expr.c"

#line 192 "../../src/expr.c"
case 161 : case 162 : break ; 

#line 195 "../../src/expr.c"
default : errorFPC__E ( ( char * ) "%n cannot be used here", _auto_nn ) ; 

#line 198 "../../src/expr.c"
{ 
#line 198 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_nn ; 

#line 198 "../../src/expr.c"
return _auto__result ; 
} } } } 
#line 202 "../../src/expr.c"
{ 
#line 202 "../../src/expr.c"
Pref _auto_r ; 
struct ref * _auto__Xthis__ctor_ref ; 

#line 202 "../../src/expr.c"
_auto_r = ( struct ref * ) ( ( _auto__Xthis__ctor_ref = 0 ) , ( ( ( 
#line 202 "../../src/expr.c"
_auto__Xthis__ctor_ref = 0 ) , ( _auto__Xthis__ctor_ref = ( struct ref * ) _expr__ctor ( ( ( struct 
#line 202 "../../src/expr.c"
expr * ) ( _auto__Xthis__ctor_ref ) ) , 44 , ( ( struct expr * ) cc -> _dcl_context_c_this ) 
#line 202 "../../src/expr.c"
, ( struct expr * ) 0 ) ) ) , ( ( _auto__Xthis__ctor_ref -> _expr__O5.__C5_mem = 
#line 202 "../../src/expr.c"
( ( struct name * ) _auto_nn ) ) , _auto__Xthis__ctor_ref ) ) ) ; 

#line 203 "../../src/expr.c"
{ 
#line 561 "../../src/cfront.h"
( ( struct name * ) cc -> _dcl_context_c_this ) -> _name_n_used ++ ; 
} 
#line 204 "../../src/expr.c"
_auto_r -> _expr__O2.__C2_tp = _auto_nn -> _expr__O2.__C2_tp ; 

#line 205 "../../src/expr.c"
if ( _auto_n ) _name__dtor ( ( struct name * ) _auto_n , 1) ; 

#line 206 "../../src/expr.c"
{ 
#line 206 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_r ; 

#line 206 "../../src/expr.c"
return _auto__result ; 
} } } } 
#line 208 "../../src/expr.c"
default : if ( _auto_n ) _name__dtor ( ( struct name * ) 
#line 208 "../../src/expr.c"
_auto_n , 1) ; 

#line 210 "../../src/expr.c"
{ 
#line 210 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_nn ; 

#line 210 "../../src/expr.c"
return _auto__result ; 
} } } } 
#line 213 "../../src/expr.c"
qq : if ( _auto_qn ) { 
#line 215 "../../src/expr.c"
if ( ( _auto_qn -> _name_n_scope == 
#line 215 "../../src/expr.c"
0 ) && ( ! _classdef_has_friend ( ( struct classdef * ) _auto_cl , ( struct name * 
#line 215 "../../src/expr.c"
) cc -> _dcl_context_nof ) ) ) 
#line 222 "../../src/expr.c"
{ 
#line 222 "../../src/expr.c"
errorFPC__E ( ( char * ) "%n is private", _auto_qn ) ; 
#line 222 "../../src/expr.c"

#line 224 "../../src/expr.c"
if ( _auto_n ) _name__dtor ( ( struct name * ) _auto_n , 1) ; 

#line 225 "../../src/expr.c"
{ 
#line 225 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_qn ; 

#line 225 "../../src/expr.c"
return _auto__result ; 
} } } 
#line 228 "../../src/expr.c"
switch ( _auto_qn -> _name_n_stclass ) { 
#line 228 "../../src/expr.c"
case 31 : break ; 

#line 231 "../../src/expr.c"
default : switch ( _auto_qn -> _expr__O2.__C2_tp -> _node_base ) { 
#line 232 "../../src/expr.c"
case 108 : case 76 : if ( 
#line 232 "../../src/expr.c"
_auto_f == 1 ) 
#line 235 "../../src/expr.c"
errorFPC__E ( ( char * ) "O missing for%n", _auto_qn ) ; 

#line 236 "../../src/expr.c"
( * _auto_n ) = ( * _auto_qn ) ; 

#line 237 "../../src/expr.c"
_auto_n -> _name__O6.__C6_n_qualifier = _auto_q ; 

#line 238 "../../src/expr.c"
{ 
#line 238 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_n ; 

#line 238 "../../src/expr.c"
return _auto__result ; 
} } 
#line 239 "../../src/expr.c"
default : if ( _auto_f != 2 ) errorFPC__E ( ( char * ) "O missing for%n", 
#line 239 "../../src/expr.c"
_auto_qn ) ; 
} } 
#line 244 "../../src/expr.c"
if ( _auto_n ) _name__dtor ( ( struct name * ) _auto_n , 1) ; 

#line 245 "../../src/expr.c"
{ 
#line 245 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_qn ; 

#line 245 "../../src/expr.c"
return _auto__result ; 
} } } 
#line 248 "../../src/expr.c"
if ( _auto_nn = _table_lookc ( _auto_this , _auto_n -> _expr__O3.__C3_string , ( int ) 0 
#line 248 "../../src/expr.c"
) ) 
#line 248 "../../src/expr.c"
{ 
#line 248 "../../src/expr.c"
switch ( _auto_nn -> _name_n_scope ) { 
#line 249 "../../src/expr.c"
case 0 : case 25 : if 
#line 249 "../../src/expr.c"
( _auto_nn -> _name_n_stclass == 13 ) 
#line 252 "../../src/expr.c"
break ; 

#line 254 "../../src/expr.c"
if ( _auto_nn -> _expr__O2.__C2_tp -> _node_base == 76 ) break ; 

#line 255 "../../src/expr.c"
if ( Ebase && ( ! _classdef_has_friend ( ( struct classdef * ) Ebase , ( struct name * 
#line 255 "../../src/expr.c"
) cc -> _dcl_context_nof ) ) ) 
#line 256 "../../src/expr.c"
errorFPC__E ( ( char * ) "%n is from privateBC", _auto_n ) ; 

#line 258 "../../src/expr.c"
if ( Epriv && ( ! _classdef_has_friend ( ( struct classdef * ) Epriv , ( struct name * 
#line 258 "../../src/expr.c"
) cc -> _dcl_context_nof ) ) ) 
#line 259 "../../src/expr.c"
errorFPC__E ( ( char * ) "%n is private", _auto_n ) ; 
} } 
#line 263 "../../src/expr.c"
if ( _auto_nn ) { 
#line 263 "../../src/expr.c"
if ( ( _auto_f == 2 ) && ( _auto_nn -> 
#line 263 "../../src/expr.c"
_expr__O5.__C5_n_table == gtbl ) ) 
#line 265 "../../src/expr.c"
errorFPC__E ( ( char * ) "MF%n not found", _auto_n ) ; 

#line 266 "../../src/expr.c"
{ 
#line 561 "../../src/cfront.h"
( ( struct name * ) _auto_nn ) -> _name_n_used ++ ; 
} 
#line 267 "../../src/expr.c"
if ( _auto_n ) _name__dtor ( ( struct name * ) _auto_n , 1) ; 

#line 268 "../../src/expr.c"
{ 
#line 268 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_nn ; 

#line 268 "../../src/expr.c"
return _auto__result ; 
} } } 
#line 271 "../../src/expr.c"
def : _auto_n -> _name__O6.__C6_n_qualifier = 0 ; 

#line 274 "../../src/expr.c"
if ( _auto_f == 1 ) { 
#line 274 "../../src/expr.c"
if ( _auto_n -> _expr__O2.__C2_tp ) errorFI_PC__E ( ( int ) 'i' , 
#line 274 "../../src/expr.c"
( char * ) "find_name(fct_type?)") ; 

#line 276 "../../src/expr.c"
_auto_n -> _expr__O2.__C2_tp = ( struct type * ) _fct__ctor ( ( struct fct * ) 0 , ( 
#line 276 "../../src/expr.c"
struct type * ) defa_type , ( struct name * ) 0 , ( int ) 0 
#line 276 "../../src/expr.c"
) ; 

#line 277 "../../src/expr.c"
_auto_n -> _name_n_sto = 14 ; 
} else 
#line 313 "../../src/expr.c"
{ 
#line 313 "../../src/expr.c"
_auto_n -> _expr__O2.__C2_tp = ( struct type * ) any_type ; 

#line 315 "../../src/expr.c"
if ( _auto_this != ( struct table * ) any_tbl ) if ( cc -> _dcl_context_not && ( ( 
#line 315 "../../src/expr.c"
cc -> _dcl_context_cot -> _type_defined & 3) == 0 ) ) 
#line 318 "../../src/expr.c"
errorFPC__E ( ( char * ) "C%n isU", 
#line 318 "../../src/expr.c"
cc -> _dcl_context_not ) ; 
else 
#line 320 "../../src/expr.c"
errorFPC__E ( ( char * ) "%n isU", _auto_n ) ; 
} 
#line 323 "../../src/expr.c"
_auto_nn = _name_dcl ( ( struct name * ) _auto_n , ( struct table * ) gtbl , 14 ) 
#line 323 "../../src/expr.c"
; 

#line 324 "../../src/expr.c"
_auto_nn -> _name_n_list = 0 ; 

#line 325 "../../src/expr.c"
{ 
#line 561 "../../src/cfront.h"
( ( struct name * ) _auto_nn ) -> _name_n_used ++ ; 
} 
#line 326 "../../src/expr.c"
{ 
#line 561 "../../src/cfront.h"
( ( struct name * ) _auto_nn ) -> _name_n_used ++ ; 
} 
#line 327 "../../src/expr.c"
if ( _auto_n ) _name__dtor ( ( struct name * ) _auto_n , 1) ; 

#line 329 "../../src/expr.c"
if ( _auto_f == 1 ) if ( fct_void ) { 
#line 330 "../../src/expr.c"
if ( ( no_of_undcl ++ ) == 
#line 330 "../../src/expr.c"
0 ) 
#line 331 "../../src/expr.c"
undcl = _auto_nn ; 
} else 
#line 334 "../../src/expr.c"
errorFI_PC__E ( ( int ) 'w' , ( char * ) "undeclaredF%n called", _auto_nn ) ; 
#line 334 "../../src/expr.c"

#line 336 "../../src/expr.c"
{ 
#line 336 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_nn ; 

#line 336 "../../src/expr.c"
return _auto__result ; 
} } } ; 

#line 339 "../../src/expr.c"
Pexpr _expr_typ ( _auto_this , _auto_tbl ) register struct expr * _auto_this ; 
struct table * _auto_tbl ; 

#line 345 "../../src/expr.c"
{ 
#line 345 "../../src/expr.c"
Pexpr _auto__result ; 
Pname _auto_n ; 
Ptype _auto_t ; 
Ptype _auto_t1 ; 
Ptype _auto_t2 ; 
TOK _auto_b ; 
TOK _auto_r1 ; 
TOK _auto_r2 ; 
TOK _auto_bb ; 
Pname _auto_n1 ; 
Pname _auto_n2 ; 
struct ptr * _auto__Xthis__ctor_ptr ; 

#line 346 "../../src/expr.c"
if ( _auto_this == 0 ) errorFI_PC__E ( ( int ) 'i' , ( char * ) 
#line 346 "../../src/expr.c"
"0->expr.typ") ; 

#line 347 "../../src/expr.c"
; 

#line 347 "../../src/expr.c"
_auto_t = 0 ; 

#line 347 "../../src/expr.c"
; 

#line 347 "../../src/expr.c"
; 

#line 347 "../../src/expr.c"
_auto_b = _auto_this -> _node_base ; 

#line 347 "../../src/expr.c"
; 

#line 347 "../../src/expr.c"
; 

#line 355 "../../src/expr.c"
if ( _auto_tbl -> _node_base != 142 ) errorFI_PC__E ( ( int ) 'i' , ( char * ) 
#line 355 "../../src/expr.c"
"expr.typ(%d)", _auto_tbl -> _node_base ) ; 

#line 357 "../../src/expr.c"
if ( _auto_this -> _expr__O2.__C2_tp ) { 
#line 357 "../../src/expr.c"
if ( _auto_b == 85 ) { 
#line 561 "../../src/cfront.h"
( ( struct name * 
#line 561 "../../src/cfront.h"
) ( ( ( struct name * ) ( _auto_this ) ) ) ) -> _name_n_used ++ 
#line 561 "../../src/cfront.h"
; 
} 
#line 360 "../../src/expr.c"
{ 
#line 360 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_this ; 

#line 360 "../../src/expr.c"
return _auto__result ; 
} } } 
#line 363 "../../src/expr.c"
switch ( _auto_b ) { 
#line 363 "../../src/expr.c"
case 144 : errorFPC__E ( ( char * ) 
#line 363 "../../src/expr.c"
"emptyE") ; 

#line 366 "../../src/expr.c"
_auto_this -> _expr__O2.__C2_tp = ( struct type * ) any_type ; 

#line 367 "../../src/expr.c"
{ 
#line 367 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_this ; 

#line 367 "../../src/expr.c"
return _auto__result ; 
} } 
#line 368 "../../src/expr.c"
case 86 : _auto_this -> _expr__O2.__C2_tp = ( struct type * ) zero_type ; 

#line 370 "../../src/expr.c"
{ 
#line 370 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_this ; 

#line 370 "../../src/expr.c"
return _auto__result ; 
} } 
#line 371 "../../src/expr.c"
case 150 : _auto_this -> _expr__O2.__C2_tp = ( struct type * ) int_type ; 

#line 373 "../../src/expr.c"
{ 
#line 373 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_this ; 

#line 373 "../../src/expr.c"
return _auto__result ; 
} } 
#line 374 "../../src/expr.c"
case 151 : _auto_this -> _expr__O2.__C2_tp = ( struct type * ) float_type ; 

#line 376 "../../src/expr.c"
{ 
#line 376 "../../src/expr.c"
{ _auto__result = ( struct expr * ) _auto_this ; 

#line 376 "../../src/expr.c"
return _auto__result ; 
} } 
#line 377 "../../src/expr.c"
case 82 : { 
#line 383 "../../src/expr.c"
int _auto_ll ; 

#line 383 "../../src/expr.c"
_auto_ll = strlen ( _auto_this -> _expr__O3.__C3_string ) ; 

#line 384 "../../src/expr.c"
switch ( _auto_this -> _expr__O3.__C3_string [ _auto_ll - 1 ] ) { 
#line 384 "../../src/expr.c"
case 'l' : case 'L' : lng : _auto_this -> 
#line 384 "../../src/expr.c"
_expr__O2.__C2_tp = ( struct type * ) long_type ; 

#line 389 "../../src/expr.c"
goto save ; 
} 
#line 392 "../../src/expr.c"
if ( ( _auto_this -> _expr__O3.__C3_string [ 0 ] ) == '0' ) { 
#line 392 "../../src/expr.c"
switch ( 
#line 392 "../../src/expr.c"
_auto_this -> _expr__O3.__C3_string [ 1 ] ) 
#line 393 "../../src/expr.c"
{ 
#line 393 "../../src/expr.c"
case 'x' : case 'X' : if ( ( SZ_INT + SZ_INT ) 
#line 393 "../../src/expr.c"
< ( _auto_ll - 2 ) ) 
#line 396 "../../src/expr.c"
goto lng ; 

#line 397 "../../src/expr.c"
goto nrm ; 

#line 398 "../../src/expr.c"
default : if ( ( BI_IN_BYTE * SZ_INT ) < ( ( _auto_ll - 1 ) * 3 ) 
#line 398 "../../src/expr.c"
) 
#line 399 "../../src/expr.c"
goto lng ; 

#line 400 "../../src/expr.c"
goto nrm ; 
} } else 
#line 403 "../../src/expr.c"
{ 
#line 403 "../../src/expr.c"
if ( _auto_ll < 10 ) { 
#line 404 "../../src/expr.c"
nrm : _auto_this -> _expr__O2.__C2_tp = ( struct 
#line 404 "../../src/expr.c"
type * ) int_type ; 

#line 407 "../../src/expr.c"
goto save ; 
} 
#line 409 "../../src/expr.c"
if ( _auto_ll > 10 ) goto lng ; 

#line 410 "../../src/expr.c"
{ 
#line 410 "../../src/expr.c"