dcl..c

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

#line 175 "../../src/dcl.c"
switch ( _auto_this -> _node_base ) { 
#line 175 "../../src/dcl.c"
case 123 : _type_dcl ( ( struct type * ) _auto_this -> _expr__O2.__C2_tp , 
#line 175 "../../src/dcl.c"
_auto_tbl ) ; 

#line 178 "../../src/dcl.c"
_auto_this -> _expr__O2.__C2_tp -> _node_permanent = 1 ; 

#line 179 "../../src/dcl.c"
_auto_nn = ( struct name * ) _name__ctor ( ( struct name * ) 0 , _auto_this -> _expr__O3.__C3_string ) 
#line 179 "../../src/dcl.c"
; 

#line 180 "../../src/dcl.c"
_auto_nn -> _node_base = 123 ; 

#line 181 "../../src/dcl.c"
_auto_nn -> _expr__O2.__C2_tp = _auto_this -> _expr__O2.__C2_tp ; 

#line 182 "../../src/dcl.c"
_table_insert ( ( struct table * ) _auto_tbl , ( struct name * ) _auto_nn , ( int ) 
#line 182 "../../src/dcl.c"
0 ) ; 

#line 183 "../../src/dcl.c"
_name__dtor ( ( struct name * ) _auto_nn , 1) ; 

#line 184 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 185 "../../src/dcl.c"
{ 
#line 185 "../../src/dcl.c"
{ _auto__result = ( struct name * ) _auto_this ; 

#line 185 "../../src/dcl.c"
return _auto__result ; 
} } 
#line 186 "../../src/dcl.c"
case 85 : switch ( _auto_this -> _name_n_oper ) { 
#line 187 "../../src/dcl.c"
case 123 : if ( _auto_this -> 
#line 187 "../../src/dcl.c"
_expr__O2.__C2_tp -> _node_base != 108 ) 
#line 189 "../../src/dcl.c"
_auto_this -> _name_n_oper = 0 ; 

#line 190 "../../src/dcl.c"
break ; 

#line 191 "../../src/dcl.c"
case 47 : if ( _auto_this -> _expr__O2.__C2_tp -> _node_base != 108 ) { 
#line 192 "../../src/dcl.c"
errorFPC__E ( ( char * ) 
#line 192 "../../src/dcl.c"
"~%s notF", _auto_this -> _expr__O3.__C3_string ) ; 

#line 194 "../../src/dcl.c"
_auto_this -> _name_n_oper = 0 ; 
} 
#line 196 "../../src/dcl.c"
break ; 
} 
#line 198 "../../src/dcl.c"
break ; 

#line 199 "../../src/dcl.c"
default : errorFI_PC__E ( ( int ) 'i' , ( char * ) "NX in name.dcl()") ; 
} 
#line 203 "../../src/dcl.c"
if ( _auto_this -> _name__O6.__C6_n_qualifier ) { 
#line 203 "../../src/dcl.c"
if ( _auto_this -> _expr__O2.__C2_tp -> _node_base != 108 ) { 
#line 204 "../../src/dcl.c"
errorFPC__E ( 
#line 204 "../../src/dcl.c"
( char * ) "QdN%n inD of nonF", _auto_this ) ; 

#line 206 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 207 "../../src/dcl.c"
{ 
#line 207 "../../src/dcl.c"
{ _auto__result = 0 ; 

#line 207 "../../src/dcl.c"
return _auto__result ; 
} } } 
#line 210 "../../src/dcl.c"
{ 
#line 210 "../../src/dcl.c"
Pname _auto_cn ; 
Pclass _auto_cl ; 

#line 210 "../../src/dcl.c"
_auto_cn = _auto_this -> _name__O6.__C6_n_qualifier ; 

#line 211 "../../src/dcl.c"
switch ( _auto_cn -> _node_base ) { 
#line 211 "../../src/dcl.c"
case 123 : break ; 

#line 214 "../../src/dcl.c"
case 85 : _auto_cn = _table_look ( ( struct table * ) gtbl , _auto_cn -> _expr__O3.__C3_string , ( int ) 
#line 214 "../../src/dcl.c"
0 ) ; 

#line 216 "../../src/dcl.c"
if ( _auto_cn && ( _auto_cn -> _node_base == 123 ) ) break ; 

#line 217 "../../src/dcl.c"
default : errorFPC__E ( ( char * ) "badQr%n for%n", _auto_this -> _name__O6.__C6_n_qualifier , _auto_this ) ; 

#line 219 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 220 "../../src/dcl.c"
{ 
#line 220 "../../src/dcl.c"
{ _auto__result = 0 ; 

#line 220 "../../src/dcl.c"
return _auto__result ; 
} } } 
#line 222 "../../src/dcl.c"
_auto_cn = ( ( ( struct basetype * ) ( _auto_cn -> _expr__O2.__C2_tp ) ) 
#line 222 "../../src/dcl.c"
) -> _basetype_b_name ; 

#line 223 "../../src/dcl.c"
if ( _auto_this -> _name_n_oper ) _name_check_oper ( _auto_this , ( struct name * ) _auto_cn ) ; 

#line 225 "../../src/dcl.c"
_auto_cl = ( ( ( struct classdef * ) ( _auto_cn -> _expr__O2.__C2_tp ) ) ) ; 

#line 226 "../../src/dcl.c"
if ( _auto_cl == cc -> _dcl_context_cot ) { 
#line 226 "../../src/dcl.c"
_auto_this -> _name__O6.__C6_n_qualifier = 0 ; 

#line 228 "../../src/dcl.c"
goto xdr ; 
} else 
#line 230 "../../src/dcl.c"
if ( ( _auto_cl -> _type_defined & 3) == 0 ) { 
#line 230 "../../src/dcl.c"
errorFPC__E ( ( 
#line 230 "../../src/dcl.c"
char * ) "C%nU", _auto_cn ) ; 

#line 232 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 233 "../../src/dcl.c"
{ 
#line 233 "../../src/dcl.c"
{ _auto__result = 0 ; 

#line 233 "../../src/dcl.c"
return _auto__result ; 
} } } 
#line 236 "../../src/dcl.c"
{ 
#line 236 "../../src/dcl.c"
Ptable _auto_etbl ; 
Pname _auto_x ; 

#line 236 "../../src/dcl.c"
_auto_etbl = _auto_cl -> _classdef_memtbl ; 

#line 237 "../../src/dcl.c"
_auto_x = _table_look ( ( struct table * ) _auto_etbl , _auto_this -> _expr__O3.__C3_string , ( int ) 0 ) 
#line 237 "../../src/dcl.c"
; 

#line 238 "../../src/dcl.c"
if ( ( _auto_x == 0 ) || ( _auto_x -> _expr__O5.__C5_n_table != _auto_etbl ) ) { 
#line 238 "../../src/dcl.c"
errorFPC__E ( 
#line 238 "../../src/dcl.c"
( char * ) "%n is not aM of%n", _auto_this , _auto_cn ) ; 

#line 240 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 241 "../../src/dcl.c"
{ 
#line 241 "../../src/dcl.c"
{ _auto__result = 0 ; 

#line 241 "../../src/dcl.c"
return _auto__result ; 
} } } } } } 
#line 244 "../../src/dcl.c"
xdr : if ( ( _auto_this -> _name_n_oper && ( _auto_this -> 
#line 244 "../../src/dcl.c"
_expr__O2.__C2_tp -> _node_base != 108 ) ) && ( _auto_this -> _name_n_sto != 76 ) ) 
#line 246 "../../src/dcl.c"
errorFPC__E ( ( char * 
#line 246 "../../src/dcl.c"
) "operator%k not aF", _auto_this -> _name_n_oper ) ; 

#line 256 "../../src/dcl.c"
_auto_this -> _name_n_stclass = _auto_this -> _name_n_sto ; 

#line 257 "../../src/dcl.c"
_auto_this -> _name_n_scope = _auto_scope ; 

#line 259 "../../src/dcl.c"
switch ( _auto_this -> _name_n_sto ) { 
#line 259 "../../src/dcl.c"
default : errorFI_PC__E ( ( int ) 'i' , ( char 
#line 259 "../../src/dcl.c"
* ) "unX %k", _auto_this -> _name_n_sto ) ; 

#line 262 "../../src/dcl.c"
case 18 : { 
#line 263 "../../src/dcl.c"
Pclass _auto_cl ; 
struct name_list * _auto__Xthis__ctor_name_list ; 

#line 264 "../../src/dcl.c"
_auto_cl = cc -> _dcl_context_cot ; 

#line 266 "../../src/dcl.c"
switch ( _auto_scope ) { 
#line 266 "../../src/dcl.c"
case 0 : case 25 : break ; 

#line 270 "../../src/dcl.c"
default : errorFPC__E ( ( char * ) "friend%n not in classD(%k)", _auto_this , _auto_scope ) ; 

#line 272 "../../src/dcl.c"
_auto_this -> _node_base = 0 ; 

#line 273 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 274 "../../src/dcl.c"
{ 
#line 274 "../../src/dcl.c"
{ _auto__result = 0 ; 

#line 274 "../../src/dcl.c"
return _auto__result ; 
} } } 
#line 277 "../../src/dcl.c"
switch ( _auto_this -> _name_n_oper ) { 
#line 277 "../../src/dcl.c"
case 0 : case 23 : case 
#line 277 "../../src/dcl.c"
9 : 
#line 281 "../../src/dcl.c"
case 161 : case 162 : case 97 : _auto_this -> _name_n_sto = 0 ; 

#line 285 "../../src/dcl.c"
break ; 

#line 286 "../../src/dcl.c"
default : _auto_this -> _name_n_sto = 76 ; 
} 
#line 290 "../../src/dcl.c"
switch ( _auto_this -> _expr__O2.__C2_tp -> _node_base ) { 
#line 290 "../../src/dcl.c"
case 119 : _auto_nn = ( ( ( struct 
#line 290 "../../src/dcl.c"
basetype * ) ( _auto_this -> _expr__O2.__C2_tp ) ) ) -> _basetype_b_name ; 

#line 298 "../../src/dcl.c"
break ; 

#line 299 "../../src/dcl.c"
case 6 : _auto_nn = ( struct name * ) _auto_this ; 

#line 301 "../../src/dcl.c"
break ; 

#line 302 "../../src/dcl.c"
case 108 : { 
#line 705 "../../src/cfront.h"
cc ++ ; 

#line 705 "../../src/cfront.h"
( * cc ) = ( * ( cc - 1 ) ) ; 
} 
#line 304 "../../src/dcl.c"
cc -> _dcl_context_not = 0 ; 

#line 305 "../../src/dcl.c"
cc -> _dcl_context_tot = 0 ; 

#line 306 "../../src/dcl.c"
cc -> _dcl_context_cot = 0 ; 

#line 307 "../../src/dcl.c"
friend_in_class ++ ; 

#line 308 "../../src/dcl.c"
_auto_this -> _name_n_sto = 14 ; 

#line 309 "../../src/dcl.c"
_auto_nn = _name_dcl ( _auto_this , ( struct table * ) gtbl , 14 ) ; 

#line 310 "../../src/dcl.c"
friend_in_class -- ; 

#line 312 "../../src/dcl.c"
{ 
#line 706 "../../src/cfront.h"
cc -- ; 
} 
#line 313 "../../src/dcl.c"
if ( _auto_nn -> _expr__O2.__C2_tp -> _node_base == 76 ) { 
#line 313 "../../src/dcl.c"
Pgen _auto_g ; 

#line 314 "../../src/dcl.c"
_auto_g = ( ( ( struct gen * ) ( _auto_nn -> _expr__O2.__C2_tp ) ) ) ; 

#line 315 "../../src/dcl.c"
_auto_nn = _gen_find ( ( struct gen * ) _auto_g , ( struct fct * ) ( ( ( 
#line 315 "../../src/dcl.c"
struct fct * ) ( _auto_this -> _expr__O2.__C2_tp ) ) ) ) ; 
} 
#line 317 "../../src/dcl.c"
break ; 

#line 318 "../../src/dcl.c"
default : errorFPC__E ( ( char * ) "badT%t of friend%n", _auto_this -> _expr__O2.__C2_tp , _auto_this ) ; 
} 
#line 321 "../../src/dcl.c"
_auto_nn -> _node_permanent = 1 ; 

#line 322 "../../src/dcl.c"
_auto_cl -> _classdef_friend_list = ( struct name_list * ) ( ( _auto__Xthis__ctor_name_list = 0 ) , ( ( 
#line 322 "../../src/dcl.c"
_auto__Xthis__ctor_name_list = ( struct name_list * ) _new ( ( long ) 8) ) , ( ( 
#line 322 "../../src/dcl.c"
_auto__Xthis__ctor_name_list -> _name_list_f = ( ( struct name * ) _auto_nn ) ) , ( ( _auto__Xthis__ctor_name_list -> _name_list_l = 
#line 322 "../../src/dcl.c"
( ( struct name_list * ) _auto_cl -> _classdef_friend_list ) ) , _auto__Xthis__ctor_name_list ) ) ) ) ; 
#line 322 "../../src/dcl.c"

#line 323 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 324 "../../src/dcl.c"
{ 
#line 324 "../../src/dcl.c"
{ _auto__result = _auto_nn ; 

#line 324 "../../src/dcl.c"
return _auto__result ; 
} } } 
#line 326 "../../src/dcl.c"
case 76 : _auto_this -> _name_n_sto = 0 ; 

#line 328 "../../src/dcl.c"
switch ( _auto_scope ) { 
#line 328 "../../src/dcl.c"
case 0 : case 25 : errorFI_PC__E ( ( int ) 'w' , 
#line 328 "../../src/dcl.c"
( char * ) "overload inCD (ignored)") ; 

#line 332 "../../src/dcl.c"
switch ( _auto_this -> _expr__O2.__C2_tp -> _node_base ) { 
#line 332 "../../src/dcl.c"
case 21 : _auto_this -> _node_base = 0 ; 

#line 335 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 336 "../../src/dcl.c"
{ 
#line 336 "../../src/dcl.c"
{ _auto__result = ( struct name * ) _auto_this ; 

#line 336 "../../src/dcl.c"
return _auto__result ; 
} } 
#line 337 "../../src/dcl.c"
case 108 : { 
#line 338 "../../src/dcl.c"
{ _auto__result = _name_dcl ( _auto_this , _auto_tbl , _auto_scope ) ; 

#line 338 "../../src/dcl.c"
return _auto__result ; 
} } } } 
#line 341 "../../src/dcl.c"
if ( _auto_this -> _name_n_oper && ( _auto_this -> _expr__O2.__C2_tp -> _node_base == 108 ) ) 
#line 341 "../../src/dcl.c"

#line 341 "../../src/dcl.c"
break ; 

#line 342 "../../src/dcl.c"
_auto_nn = _table_insert ( ( struct table * ) _auto_tbl , ( struct name * ) _auto_this , ( int 
#line 342 "../../src/dcl.c"
) 0 ) ; 

#line 344 "../../src/dcl.c"
if ( Nold ) { 
#line 344 "../../src/dcl.c"
if ( _auto_nn -> _expr__O2.__C2_tp -> _node_base != 76 ) { 
#line 345 "../../src/dcl.c"
errorFPC__E ( ( char 
#line 345 "../../src/dcl.c"
* ) "%n redefined as overloaded", _auto_this ) ; 

#line 347 "../../src/dcl.c"
_auto_nn -> _expr__O2.__C2_tp = ( struct type * ) _gen__ctor ( ( struct gen * ) 0 , _auto_this -> 
#line 347 "../../src/dcl.c"
_expr__O3.__C3_string ) ; 
} } else 
#line 350 "../../src/dcl.c"
{ 
#line 350 "../../src/dcl.c"
_auto_nn -> _expr__O2.__C2_tp = ( struct type * ) _gen__ctor ( ( struct gen * 
#line 350 "../../src/dcl.c"
) 0 , _auto_this -> _expr__O3.__C3_string ) ; 
} 
#line 354 "../../src/dcl.c"
switch ( _auto_this -> _expr__O2.__C2_tp -> _node_base ) { 
#line 354 "../../src/dcl.c"
case 21 : _auto_this -> _node_base = 0 ; 

#line 357 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 358 "../../src/dcl.c"
{ 
#line 358 "../../src/dcl.c"
{ _auto__result = _auto_nn ; 

#line 358 "../../src/dcl.c"
return _auto__result ; 
} } 
#line 359 "../../src/dcl.c"
case 108 : break ; 

#line 361 "../../src/dcl.c"
default : errorFPC__E ( ( char * ) "N%n ofT%k cannot be overloaded", _auto_this , _auto_this -> _expr__O2.__C2_tp -> _node_base ) ; 

#line 363 "../../src/dcl.c"
Cdcl = _auto_odcl ; 

#line 364 "../../src/dcl.c"
{ 
#line 364 "../../src/dcl.c"
{ _auto__result = _auto_nn ; 

#line 364 "../../src/dcl.c"
return _auto__result ; 
} } } 
#line 366 "../../src/dcl.c"
break ; 

#line 367 "../../src/dcl.c"
case 27 : if ( _auto_this -> _expr__O2.__C2_tp -> _node_base == 108 ) { 
#line 368 "../../src/dcl.c"
errorFI_PC__E ( ( int ) 'w' , 
#line 368 "../../src/dcl.c"
( char * ) "%n: register (ignored)", _auto_this ) ; 

#line 370 "../../src/dcl.c"
goto ddd ; 
} 
#line 372 "../../src/dcl.c"
case 2 : switch ( _auto_scope ) { 
#line 373 "../../src/dcl.c"
case 0 : case 25 : case 14 : 
#line 373 "../../src/dcl.c"

#line 377 "../../src/dcl.c"
errorFPC__E ( ( char * ) "%k not inF", _auto_this -> _name_n_sto ) ; 

#line 378 "../../src/dcl.c"
goto ddd ; 
} 
#line 380 "../../src/dcl.c"
break ; 

#line 381 "../../src/dcl.c"
case 14 : switch ( _auto_scope ) { 
#line 382 "../../src/dcl.c"
case 136 : errorFPC__E ( ( char * ) "externA") 
#line 382 "../../src/dcl.c"
; 

#line 385 "../../src/dcl.c"
goto ddd ; 

#line 386 "../../src/dcl.c"
case 0 : case 25 : if ( _auto_this -> _expr__O2.__C2_tp -> _node_base != 108 ) errorFPC__E ( ( char 
#line 386 "../../src/dcl.c"
* ) "externM%n", _auto_this ) ; 

#line 390 "../../src/dcl.c"
goto ddd ; 
} 
#line 392 "../../src/dcl.c"
_auto_this -> _name_n_stclass = 31 ; 

#line 393 "../../src/dcl.c"
_auto_this -> _name_n_scope = 14 ; 

#line 394 "../../src/dcl.c"
break ; 

#line 395 "../../src/dcl.c"
case 31 : switch ( _auto_scope ) { 
#line 396 "../../src/dcl.c"
case 136 : errorFPC__E ( ( char * ) "static used forA%n", 
#line 396 "../../src/dcl.c"
_auto_this ) ; 

#line 399 "../../src/dcl.c"
goto ddd ; 

#line 400 "../../src/dcl.c"
case 0 : case 25 : _auto_this -> _name_n_stclass = 31 ; 

#line 403 "../../src/dcl.c"
_auto_this -> _name_n_scope = _auto_scope ; 

#line 404 "../../src/dcl.c"
break ; 

#line 405 "../../src/dcl.c"
default : _auto_this -> _name_n_scope = 31 ; 
} 
#line 408 "../../src/dcl.c"
break ; 

#line 409 "../../src/dcl.c"
case 0 : ddd : switch ( _auto_scope ) { 
#line 411 "../../src/dcl.c"
case 14 : _auto_this -> _name_n_scope = 14 ; 

#line 414 "../../src/dcl.c"
_auto_this -> _name_n_stclass = 31 ; 

#line 415 "../../src/dcl.c"
break ; 

#line 416 "../../src/dcl.c"
case 108 : if ( _auto_this -> _expr__O2.__C2_tp -> _node_base == 108 ) { 
#line 417 "../../src/dcl.c"
_auto_this -> _name_n_stclass = 31 ;