norm..c

CFront1.0的源代码,第一代C++编译器的思想...

{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 148 "../../src/norm.c"
return _auto__result ; 
} } } ; 

#line 151 "../../src/norm.c"
Pbase _basetype_base_adj ( _auto_this , _auto_b ) register struct basetype * _auto_this ; 
struct basetype * _auto_b ; 

#line 152 "../../src/norm.c"
{ 
#line 152 "../../src/norm.c"
Pbase _auto__result ; 
Pname _auto_bn ; 

#line 153 "../../src/norm.c"
_auto_bn = _auto_b -> _basetype_b_name ; 

#line 155 "../../src/norm.c"
switch ( _auto_this -> _node_base ) { 
#line 155 "../../src/norm.c"
case 119 : case 121 : errorFPC__E ( ( char * ) 
#line 155 "../../src/norm.c"
"NX after%k%n", _auto_this -> _node_base , _auto_this -> _basetype_b_name ) ; 

#line 159 "../../src/norm.c"
{ 
#line 159 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 159 "../../src/norm.c"
return _auto__result ; 
} } } 
#line 162 "../../src/norm.c"
if ( _auto_this -> _node_base ) { 
#line 162 "../../src/norm.c"
if ( _auto_this -> _basetype_b_name ) errorFPC__E ( ( 
#line 162 "../../src/norm.c"
char * ) "badBT:%k%n%k%n", _auto_this -> _node_base , _auto_this -> _basetype_b_name , _auto_b -> _node_base , _auto_bn ) ; 
else 
#line 166 "../../src/norm.c"
errorFPC__E ( ( char * ) "badBT:%k%k%n", _auto_this -> _node_base , _auto_b -> _node_base , _auto_bn ) ; 
} else 
#line 168 "../../src/norm.c"
{ 
#line 168 "../../src/norm.c"
_auto_this -> _node_base = _auto_b -> _node_base ; 

#line 170 "../../src/norm.c"
_auto_this -> _basetype_b_name = _auto_bn ; 

#line 171 "../../src/norm.c"
_auto_this -> _basetype_b_table = _auto_b -> _basetype_b_table ; 
} 
#line 173 "../../src/norm.c"
{ 
#line 173 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 173 "../../src/norm.c"
return _auto__result ; 
} } } ; 

#line 176 "../../src/norm.c"
Pbase _basetype_check ( _auto_this , _auto_n ) register struct basetype * _auto_this ; 
struct name * _auto_n ; 

#line 182 "../../src/norm.c"
{ 
#line 182 "../../src/norm.c"
Pbase _auto__result ; 

#line 183 "../../src/norm.c"
_auto_this -> _basetype_b_inline = 0 ; 

#line 184 "../../src/norm.c"
_auto_this -> _basetype_b_virtual = 0 ; 

#line 186 "../../src/norm.c"
if ( _auto_this -> _basetype__O1.__C1_b_xname && ( _auto_n -> _expr__O2.__C2_tp || _auto_n -> _expr__O3.__C3_string ) ) { 
#line 186 "../../src/norm.c"
if ( _auto_this -> 
#line 186 "../../src/norm.c"
_node_base ) 
#line 188 "../../src/norm.c"
errorFPC__E ( ( char * ) "badBT:%k%n", _auto_this -> _node_base , _auto_this -> _basetype__O1.__C1_b_xname ) ; 
else 
#line 189 "../../src/norm.c"
{ 
#line 189 "../../src/norm.c"
_auto_this -> _node_base = 97 ; 

#line 191 "../../src/norm.c"
_auto_this -> _basetype_b_name = _auto_this -> _basetype__O1.__C1_b_xname ; 
} 
#line 193 "../../src/norm.c"
_auto_this -> _basetype__O1.__C1_b_xname = 0 ; 
} 
#line 196 "../../src/norm.c"
if ( _auto_this -> _basetype__O1.__C1_b_xname ) { 
#line 196 "../../src/norm.c"
if ( _auto_n -> _expr__O3.__C3_string ) errorFPC__E ( ( char * 
#line 196 "../../src/norm.c"
) "twoNs inD:%n%n", _auto_this -> _basetype__O1.__C1_b_xname , _auto_n ) ; 
else 
#line 199 "../../src/norm.c"
{ 
#line 199 "../../src/norm.c"
_auto_n -> _expr__O3.__C3_string = _auto_this -> _basetype__O1.__C1_b_xname -> _expr__O3.__C3_string ; 

#line 201 "../../src/norm.c"
_name_hide ( ( struct name * ) _auto_this -> _basetype__O1.__C1_b_xname ) ; 
} 
#line 203 "../../src/norm.c"
_auto_this -> _basetype__O1.__C1_b_xname = 0 ; 
} 
#line 206 "../../src/norm.c"
if ( ( ( ( ( ccl == 0 ) && _auto_n ) && ( 
#line 206 "../../src/norm.c"
_auto_n -> _name_n_oper == 123 ) ) && ( _auto_n -> _name__O6.__C6_n_qualifier == 0 ) ) && _auto_n -> _expr__O3.__C3_string ) 
#line 206 "../../src/norm.c"

#line 210 "../../src/norm.c"
{ 
#line 210 "../../src/norm.c"
Pname _auto_nx ; 

#line 211 "../../src/norm.c"
_auto_nx = _table_look ( ( struct table * ) ktbl , _auto_n -> _expr__O3.__C3_string , ( int ) 0 ) 
#line 211 "../../src/norm.c"
; 

#line 212 "../../src/norm.c"
if ( _auto_nx ) _name_hide ( ( struct name * ) _auto_nx ) ; 
} 
#line 215 "../../src/norm.c"
switch ( _auto_this -> _node_base ) { 
#line 215 "../../src/norm.c"
case 0 : _auto_this -> _node_base = 21 ; 

#line 218 "../../src/norm.c"
break ; 

#line 219 "../../src/norm.c"
case 121 : case 119 : if ( _auto_this -> _basetype_b_name -> _node_base == 123 ) errorFI_PC__E ( ( int ) 
#line 219 "../../src/norm.c"
'i' , ( char * ) "TN%n inCO %d", _auto_this -> _basetype_b_name , _auto_this ) ; 
} 
#line 225 "../../src/norm.c"
if ( _auto_this -> _basetype_b_long || _auto_this -> _basetype_b_short ) { 
#line 225 "../../src/norm.c"
TOK _auto_sl ; 

#line 226 "../../src/norm.c"
_auto_sl = ( _auto_this -> _basetype_b_short ? 29 : 22 ) ; 

#line 227 "../../src/norm.c"
if ( _auto_this -> _basetype_b_long && _auto_this -> _basetype_b_short ) errorFPC__E ( ( char * ) "badBT:long short%k%n", _auto_this -> _node_base , 
#line 227 "../../src/norm.c"
_auto_n ) ; 

#line 228 "../../src/norm.c"
if ( _auto_this -> _node_base != 21 ) errorFPC__E ( ( char * ) "badBT:%k%k%n", _auto_sl , _auto_this -> _node_base , 
#line 228 "../../src/norm.c"
_auto_n ) ; 
else 
#line 231 "../../src/norm.c"
_auto_this -> _node_base = _auto_sl ; 

#line 232 "../../src/norm.c"
_auto_this -> _basetype_b_short = ( _auto_this -> _basetype_b_long = 0 ) ; 
} 
#line 235 "../../src/norm.c"
if ( _auto_this -> _basetype_b_typedef && _auto_this -> _basetype_b_sto ) errorFPC__E ( ( char * ) "badBT:typedef%k%n", _auto_this -> 
#line 235 "../../src/norm.c"
_basetype_b_sto , _auto_n ) ; 

#line 236 "../../src/norm.c"
_auto_this -> _basetype_b_typedef = ( _auto_this -> _basetype_b_sto = 0 ) ; 

#line 238 "../../src/norm.c"
if ( Pfctvec_type == 0 ) { 
#line 238 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 238 "../../src/norm.c"
return _auto__result ; 
} } 
#line 240 "../../src/norm.c"
if ( _auto_this -> _basetype_b_const ) { 
#line 240 "../../src/norm.c"
if ( _auto_this -> _basetype_b_unsigned ) { 
#line 241 "../../src/norm.c"
switch ( 
#line 241 "../../src/norm.c"
_auto_this -> _node_base ) 
#line 242 "../../src/norm.c"
{ 
#line 242 "../../src/norm.c"
default : errorFPC__E ( ( char * ) "badBT: unsigned const %k%n", _auto_this -> _node_base , _auto_n ) 
#line 242 "../../src/norm.c"
; 

#line 245 "../../src/norm.c"
_auto_this -> _basetype_b_unsigned = 0 ; 

#line 246 "../../src/norm.c"
case 22 : case 29 : case 21 : case 5 : { 
#line 250 "../../src/norm.c"
{ _auto__result = ( struct basetype * 
#line 250 "../../src/norm.c"
) _auto_this ; 

#line 250 "../../src/norm.c"
return _auto__result ; 
} } } } 
#line 253 "../../src/norm.c"
{ 
#line 253 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 253 "../../src/norm.c"
return _auto__result ; 
} } } else 
#line 255 "../../src/norm.c"
if ( _auto_this -> _basetype_b_unsigned ) { 
#line 255 "../../src/norm.c"
switch ( _auto_this -> _node_base ) { 
#line 255 "../../src/norm.c"

#line 256 "../../src/norm.c"

#line 257 "../../src/norm.c"
case 22 : _delete ( ( int * ) _auto_this ) ; 

#line 259 "../../src/norm.c"
{ 
#line 259 "../../src/norm.c"
{ _auto__result = ulong_type ; 

#line 259 "../../src/norm.c"
return _auto__result ; 
} } 
#line 260 "../../src/norm.c"
case 29 : _delete ( ( int * ) _auto_this ) ; 

#line 262 "../../src/norm.c"
{ 
#line 262 "../../src/norm.c"
{ _auto__result = ushort_type ; 

#line 262 "../../src/norm.c"
return _auto__result ; 
} } 
#line 263 "../../src/norm.c"
case 21 : _delete ( ( int * ) _auto_this ) ; 

#line 265 "../../src/norm.c"
{ 
#line 265 "../../src/norm.c"
{ _auto__result = uint_type ; 

#line 265 "../../src/norm.c"
return _auto__result ; 
} } 
#line 266 "../../src/norm.c"
case 5 : _delete ( ( int * ) _auto_this ) ; 

#line 268 "../../src/norm.c"
{ 
#line 268 "../../src/norm.c"
{ _auto__result = uchar_type ; 

#line 268 "../../src/norm.c"
return _auto__result ; 
} } 
#line 269 "../../src/norm.c"
default : errorFPC__E ( ( char * ) "badBT: unsigned%k%n", _auto_this -> _node_base , _auto_n ) ; 
#line 269 "../../src/norm.c"

#line 271 "../../src/norm.c"
_auto_this -> _basetype_b_unsigned = 0 ; 

#line 272 "../../src/norm.c"
{ 
#line 272 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 272 "../../src/norm.c"
return _auto__result ; 
} } } } else 
#line 275 "../../src/norm.c"
{ 
#line 275 "../../src/norm.c"
switch ( _auto_this -> _node_base ) { 
#line 276 "../../src/norm.c"
case 22 : _delete ( 
#line 276 "../../src/norm.c"
( int * ) _auto_this ) ; 

#line 279 "../../src/norm.c"
{ 
#line 279 "../../src/norm.c"
{ _auto__result = long_type ; 

#line 279 "../../src/norm.c"
return _auto__result ; 
} } 
#line 280 "../../src/norm.c"
case 29 : _delete ( ( int * ) _auto_this ) ; 

#line 282 "../../src/norm.c"
{ 
#line 282 "../../src/norm.c"
{ _auto__result = short_type ; 

#line 282 "../../src/norm.c"
return _auto__result ; 
} } 
#line 283 "../../src/norm.c"
case 21 : if ( _auto_this != ( struct basetype * ) int_type ) _delete ( ( 
#line 283 "../../src/norm.c"
int * ) _auto_this ) ; 

#line 285 "../../src/norm.c"
{ 
#line 285 "../../src/norm.c"
{ _auto__result = int_type ; 

#line 285 "../../src/norm.c"
return _auto__result ; 
} } 
#line 286 "../../src/norm.c"
case 5 : _delete ( ( int * ) _auto_this ) ; 

#line 288 "../../src/norm.c"
{ 
#line 288 "../../src/norm.c"
{ _auto__result = char_type ; 

#line 288 "../../src/norm.c"
return _auto__result ; 
} } 
#line 289 "../../src/norm.c"
case 38 : _delete ( ( int * ) _auto_this ) ; 

#line 291 "../../src/norm.c"
{ 
#line 291 "../../src/norm.c"
{ _auto__result = void_type ; 

#line 291 "../../src/norm.c"
return _auto__result ; 
} } 
#line 292 "../../src/norm.c"
case 97 : if ( _auto_this -> _basetype_b_name -> _name__O6.__C6_n_qualifier ) { 
#line 295 "../../src/norm.c"
_delete ( ( int * 
#line 295 "../../src/norm.c"
) _auto_this ) ; 

#line 297 "../../src/norm.c"
{ 
#line 297 "../../src/norm.c"
{ _auto__result = ( ( ( struct basetype * ) ( _auto_this -> _basetype_b_name -> _name__O6.__C6_n_qualifier ) ) 
#line 297 "../../src/norm.c"
) ; 

#line 297 "../../src/norm.c"
return _auto__result ; 
} } } else 
#line 299 "../../src/norm.c"
{ 
#line 299 "../../src/norm.c"
_auto_this -> _node_permanent = 1 ; 

#line 301 "../../src/norm.c"
_auto_this -> _basetype_b_name -> _name__O6.__C6_n_qualifier = ( ( ( struct name * ) ( _auto_this ) ) ) ; 
#line 301 "../../src/norm.c"

#line 302 "../../src/norm.c"
{ 
#line 302 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 302 "../../src/norm.c"
return _auto__result ; 
} } } 
#line 304 "../../src/norm.c"
default : { 
#line 305 "../../src/norm.c"
{ _auto__result = ( struct basetype * ) _auto_this ; 

#line 305 "../../src/norm.c"
return _auto__result ; 
} } } } } ; 

#line 310 "../../src/norm.c"
Pname _basetype_aggr ( _auto_this ) register struct basetype * _auto_this ; 

#line 325 "../../src/norm.c"
{ 
#line 325 "../../src/norm.c"
Pname _auto__result ; 
Pname _auto_n ; 

#line 328 "../../src/norm.c"
if ( _auto_this -> _basetype__O1.__C1_b_xname ) { 
#line 328 "../../src/norm.c"
if ( _auto_this -> _node_base ) { 
#line 329 "../../src/norm.c"
Pname _auto_n ; 

#line 330 "../../src/norm.c"
_auto_n = ( struct name * ) _name__ctor ( ( struct name * ) 0 , _auto_this -> _basetype__O1.__C1_b_xname -> 
#line 330 "../../src/norm.c"
_expr__O3.__C3_string ) ; 

#line 331 "../../src/norm.c"
_name_hide ( ( struct name * ) _auto_this -> _basetype__O1.__C1_b_xname ) ; 

#line 332 "../../src/norm.c"
_auto_this -> _basetype__O1.__C1_b_xname = 0 ; 

#line 333 "../../src/norm.c"
{ 
#line 333 "../../src/norm.c"
{ _auto__result = _name_normalize ( ( struct name * ) _auto_n , ( struct basetype * ) _auto_this , 
#line 333 "../../src/norm.c"
( struct block * ) 0 , ( int ) 0 ) ; 

#line 333 "../../src/norm.c"
return _auto__result ; 
} } } else 
#line 335 "../../src/norm.c"
{ 
#line 335 "../../src/norm.c"
_auto_this -> _node_base = 97 ; 

#line 337 "../../src/norm.c"
_auto_this -> _basetype_b_name = _auto_this -> _basetype__O1.__C1_b_xname ; 

#line 338 "../../src/norm.c"
_auto_this -> _basetype__O1.__C1_b_xname = 0 ; 
} } 
#line 343 "../../src/norm.c"
switch ( _auto_this -> _node_base ) { 
#line 343 "../../src/norm.c"
case 119 : { 
#line 345 "../../src/norm.c"
Pclass _auto_cl ; 
char * _auto_s ; 

#line 345 "../../src/norm.c"
_auto_cl = ( ( ( struct classdef * ) ( _auto_this -> _basetype_b_name -> _expr__O2.__C2_tp ) ) ) ; 
#line 345 "../../src/norm.c"

#line 346 "../../src/norm.c"
_auto_s = _auto_cl -> _classdef_string ; 

#line 348 "../../src/norm.c"
if ( _auto_this -> _basetype_b_name -> _node_base == 123 ) errorFI_PC__E ( ( int ) 'i' , ( char * 
#line 348 "../../src/norm.c"
) "TN%n inCO", _auto_this -> _basetype_b_name ) ; 

#line 349 "../../src/norm.c"
if ( _auto_this -> _basetype_b_const ) errorFPC__E ( ( char * ) "const%k%n", _auto_cl -> _classdef_csu , _auto_this -> _basetype_b_name ) 
#line 349 "../../src/norm.c"
; 

#line 351 "../../src/norm.c"
if ( _auto_cl -> _classdef_c_body == 2 ) { 
#line 351 "../../src/norm.c"
if ( ( ( _auto_s [ 0 ] ) 
#line 351 "../../src/norm.c"
== '_' ) && ( ( _auto_s [ 1 ] ) == 'C' ) ) 
#line 352 "../../src/norm.c"
{ 
#line 352 "../../src/norm.c"
char * 
#line 352 "../../src/norm.c"
_auto_ss ; 
Pname _auto_obj ; 

#line 353 "../../src/norm.c"
_auto_ss = ( ( ( char * ) ( _new ( ( long ) 5 ) ) 
#line 353 "../../src/norm.c"
) ) ; 

#line 354 "../../src/norm.c"
_auto_obj = ( struct name * ) _name__ctor ( ( struct name * ) 0 , _auto_ss ) ; 
#line 354 "../../src/norm.c"

#line 355 "../../src/norm.c"
if ( _auto_cl -> _classdef_csu == 36 ) { 
#line 355 "../../src/norm.c"
strcpy ( _auto_ss , _auto_s ) ; 

#line 357 "../../src/norm.c"
( _auto_ss [ 1 ] ) = 'O' ; 

#line 358 "../../src/norm.c"
_auto_cl -> _classdef_csu = 167 ; 

#line 359 "../../src/norm.c"
{ 
#line 359 "../../src/norm.c"
{ _auto__result = _name_normalize ( ( struct name * ) _auto_obj , ( struct basetype * ) _auto_this , 
#line 359 "../../src/norm.c"
( struct block * ) 0 , ( int ) 0 ) ; 

#line 359 "../../src/norm.c"
return _auto__result ; 
} } } 
#line 361 "../../src/norm.c"
errorFI_PC__E ( ( int ) 'w' , ( char * ) "un-usable%k ignored", _auto_cl -> 
#line 361 "../../src/norm.c"
_classdef_csu ) ; 
} 
#line 363 "../../src/norm.c"
_auto_cl -> _classdef_c_body = 1 ; 

#line 364 "../../src/norm.c"
{ 
#line 364 "../../src/norm.c"
{ _auto__result = _auto_this -> _basetype_b_name ; 

#line 364 "../../src/norm.c"
return _auto__result ; 
} } } else 
#line 366 "../../src/norm.c"
{ 
#line 366 "../../src/norm.c"
if ( _auto_this -> _basetype_b_sto == 18 ) goto frr ; 

#line 368 "../../src/norm.c"
{ 
#line 368 "../../src/norm.c"
{ _auto__result = 0 ; 

#line 368 "../../src/norm.c"
return _auto__result ; 
} } } } 
#line 372 "../../src/norm.c"
case 121 : { 
#line 373 "../../src/norm.c"
Penum _auto_en ; 

#line 373 "../../src/norm.c"
_auto_en = ( ( ( struct enumdef * ) ( _auto_this -> _basetype_b_name -> _expr__O2.__C2_tp ) ) ) ;