norm2..c

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

#line 82 "../../src/size.h"
extern int F_OPTIMIZED ; 

#line 23 "../../src/norm2.c"
extern char * malloc ( ) ; 

#line 25 "../../src/norm2.c"
struct fct * _fct__ctor ( _auto_this , _auto_t , _auto_arg , _auto_known ) register struct fct * _auto_this ; 
struct type * _auto_t ; 
struct name * _auto_arg ; 
int _auto_known ; 

#line 26 "../../src/norm2.c"
{ 
#line 26 "../../src/norm2.c"
register Pname _auto_n ; 

#line 57 "../../src/norm2.c"
if ( _auto_this == 0 ) _auto_this = ( struct fct * ) _new ( ( long ) 
#line 57 "../../src/norm2.c"
52) ; 

#line 27 "../../src/norm2.c"
Nt ++ ; 

#line 28 "../../src/norm2.c"
_auto_this -> _node_base = 108 ; 

#line 29 "../../src/norm2.c"
_auto_this -> _fct_nargs_known = _auto_known ; 

#line 30 "../../src/norm2.c"
_auto_this -> _fct_returns = _auto_t ; 

#line 31 "../../src/norm2.c"
_auto_this -> _fct_argtype = _auto_arg ; 

#line 34 "../../src/norm2.c"
if ( ( _auto_arg == 0 ) || ( _auto_arg -> _node_base == 140 ) ) { 
#line 34 "../../src/norm2.c"
return 
#line 34 "../../src/norm2.c"
_auto_this ; 
} 
#line 36 "../../src/norm2.c"
; 

#line 37 "../../src/norm2.c"
for ( _auto_n = _auto_arg ;_auto_n ;( _auto_n = _auto_n -> _name_n_list ) ) { 
#line 37 "../../src/norm2.c"
switch ( _auto_n -> _expr__O2.__C2_tp -> _node_base ) 
#line 37 "../../src/norm2.c"

#line 38 "../../src/norm2.c"
{ 
#line 38 "../../src/norm2.c"
case 38 : _auto_this -> _fct_argtype = 0 ; 

#line 41 "../../src/norm2.c"
_auto_this -> _fct_nargs = 0 ; 

#line 42 "../../src/norm2.c"
_auto_this -> _fct_nargs_known = 1 ; 

#line 43 "../../src/norm2.c"
if ( _auto_n -> _expr__O3.__C3_string ) errorFPC__E ( ( char * ) "voidFA%n", _auto_n ) ; 
else 
#line 45 "../../src/norm2.c"
if ( _auto_this -> _fct_nargs || _auto_n -> _name_n_list ) { 
#line 45 "../../src/norm2.c"
errorFPC__E ( ( char * ) "voidFA") 
#line 45 "../../src/norm2.c"
; 

#line 47 "../../src/norm2.c"
_auto_this -> _fct_nargs_known = 0 ; 
} 
#line 49 "../../src/norm2.c"
break ; 

#line 50 "../../src/norm2.c"
case 6 : case 13 : break ; 

#line 53 "../../src/norm2.c"
default : _auto_this -> _fct_nargs ++ ; 
} } 
#line 57 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 59 "../../src/norm2.c"
Pexpr expr_free ; 

#line 62 "../../src/norm2.c"
struct expr * _expr__ctor ( _auto_this , _auto_ba , _auto_a , _auto_b ) register struct expr * _auto_this ; 
int _auto_ba ; 
struct expr * _auto_a ; 
struct expr * _auto_b ; 

#line 63 "../../src/norm2.c"
{ 
#line 63 "../../src/norm2.c"
register Pexpr _auto_p ; 

#line 66 "../../src/norm2.c"
if ( _auto_this ) goto ret ; 

#line 68 "../../src/norm2.c"
if ( ( _auto_p = expr_free ) == 0 ) { 
#line 68 "../../src/norm2.c"
register Pexpr _auto_q ; 

#line 69 "../../src/norm2.c"
_auto_q = ( ( ( struct expr * ) ( malloc ( 6000) ) ) ) ; 
#line 69 "../../src/norm2.c"

#line 70 "../../src/norm2.c"
for ( _auto_p = ( expr_free = ( & ( _auto_q [ 249] ) ) ) ;( 
#line 70 "../../src/norm2.c"
_auto_q < _auto_p ) ;( _auto_p -- ) ) 
#line 70 "../../src/norm2.c"
_auto_p -> _expr__O3.__C3_e1 = ( _auto_p - 1 ) ; 

#line 71 "../../src/norm2.c"
( _auto_p + 1 ) -> _expr__O3.__C3_e1 = 0 ; 
} else 
#line 75 "../../src/norm2.c"
expr_free = _auto_p -> _expr__O3.__C3_e1 ; 

#line 86 "../../src/norm2.c"
{ 
#line 86 "../../src/norm2.c"
register int * _auto_pp ; 

#line 87 "../../src/norm2.c"
_auto_pp = ( ( ( int * ) ( _auto_p + 1 ) ) ) ; 

#line 88 "../../src/norm2.c"
while ( ( ( ( int * ) ( _auto_p ) ) ) < _auto_pp ) 
#line 88 "../../src/norm2.c"

#line 88 "../../src/norm2.c"
( * ( -- _auto_pp ) ) = 0 ; 
} 
#line 91 "../../src/norm2.c"
_auto_this = ( struct expr * ) _auto_p ; 

#line 94 "../../src/norm2.c"
ret : Ne ++ ; 

#line 96 "../../src/norm2.c"
_auto_this -> _node_base = _auto_ba ; 

#line 97 "../../src/norm2.c"
_auto_this -> _expr__O3.__C3_e1 = _auto_a ; 

#line 98 "../../src/norm2.c"
_auto_this -> _expr__O4.__C4_e2 = _auto_b ; 

#line 99 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 101 "../../src/norm2.c"
int _expr__dtor ( _auto_this , _auto__free ) register struct expr * _auto_this ; 
int _auto__free ; 

#line 102 "../../src/norm2.c"
{ 
#line 102 "../../src/norm2.c"
NFe ++ ; 

#line 105 "../../src/norm2.c"
_auto_this -> _expr__O3.__C3_e1 = expr_free ; 

#line 106 "../../src/norm2.c"
expr_free = ( struct expr * ) _auto_this ; 

#line 107 "../../src/norm2.c"
_auto_this = 0 ; 

#line 108 "../../src/norm2.c"
if ( _auto_this ) if ( _auto__free ) _delete ( ( int * ) _auto_this ) ; 
} ; 

#line 110 "../../src/norm2.c"
Pstmt stmt_free ; 

#line 113 "../../src/norm2.c"
struct stmt * _stmt__ctor ( _auto_this , _auto_ba , _auto_ll , _auto_a ) register struct stmt * _auto_this ; 
int _auto_ba ; 
struct loc _auto_ll ; 
struct stmt * _auto_a ; 

#line 114 "../../src/norm2.c"
{ 
#line 114 "../../src/norm2.c"
register Pstmt _auto_p ; 

#line 117 "../../src/norm2.c"
if ( ( _auto_p = stmt_free ) == 0 ) { 
#line 117 "../../src/norm2.c"
register Pstmt _auto_q ; 

#line 118 "../../src/norm2.c"
_auto_q = ( ( ( struct stmt * ) ( malloc ( 9000) ) ) ) ; 
#line 118 "../../src/norm2.c"

#line 119 "../../src/norm2.c"
for ( _auto_p = ( stmt_free = ( & ( _auto_q [ 249] ) ) ) ;( 
#line 119 "../../src/norm2.c"
_auto_q < _auto_p ) ;( _auto_p -- ) ) 
#line 119 "../../src/norm2.c"
_auto_p -> _stmt_s_list = ( _auto_p - 1 ) ; 

#line 120 "../../src/norm2.c"
( _auto_p + 1 ) -> _stmt_s_list = 0 ; 
} else 
#line 123 "../../src/norm2.c"
stmt_free = _auto_p -> _stmt_s_list ; 

#line 134 "../../src/norm2.c"
{ 
#line 134 "../../src/norm2.c"
register int * _auto_pp ; 

#line 135 "../../src/norm2.c"
_auto_pp = ( ( ( int * ) ( _auto_p + 1 ) ) ) ; 

#line 136 "../../src/norm2.c"
while ( ( ( ( int * ) ( _auto_p ) ) ) < _auto_pp ) 
#line 136 "../../src/norm2.c"

#line 136 "../../src/norm2.c"
( * ( -- _auto_pp ) ) = 0 ; 
} 
#line 139 "../../src/norm2.c"
_auto_this = ( struct stmt * ) _auto_p ; 

#line 141 "../../src/norm2.c"
Ns ++ ; 

#line 142 "../../src/norm2.c"
_auto_this -> _node_base = _auto_ba ; 

#line 143 "../../src/norm2.c"
_auto_this -> _stmt_where = _auto_ll ; 

#line 144 "../../src/norm2.c"
_auto_this -> _stmt_s = _auto_a ; 

#line 145 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 147 "../../src/norm2.c"
int _stmt__dtor ( _auto_this , _auto__free ) register struct stmt * _auto_this ; 
int _auto__free ; 

#line 148 "../../src/norm2.c"
{ 
#line 148 "../../src/norm2.c"
NFs ++ ; 

#line 150 "../../src/norm2.c"
_auto_this -> _stmt_s_list = stmt_free ; 

#line 151 "../../src/norm2.c"
stmt_free = ( struct stmt * ) _auto_this ; 

#line 152 "../../src/norm2.c"
_auto_this = 0 ; 

#line 153 "../../src/norm2.c"
if ( _auto_this ) if ( _auto__free ) _delete ( ( int * ) _auto_this ) ; 
} ; 

#line 155 "../../src/norm2.c"
struct classdef * _classdef__ctor ( _auto_this , _auto_b , _auto_n ) register struct classdef * _auto_this ; 
int _auto_b ; 
struct name * _auto_n ; 

#line 156 "../../src/norm2.c"
{ 
#line 156 "../../src/norm2.c"
if ( _auto_this == 0 ) _auto_this = ( struct classdef * ) _new ( ( long 
#line 156 "../../src/norm2.c"
) 76) ; 

#line 157 "../../src/norm2.c"
_auto_this -> _node_base = 6 ; 

#line 158 "../../src/norm2.c"
_auto_this -> _classdef_csu = _auto_b ; 

#line 159 "../../src/norm2.c"
_auto_this -> _classdef_pubmem = _auto_n ; 

#line 160 "../../src/norm2.c"
_auto_this -> _classdef_memtbl = ( struct table * ) _table__ctor ( ( struct table * ) 0 , 12 , 
#line 160 "../../src/norm2.c"
( struct table * ) 0 , ( struct name * ) 0 ) ; 

#line 161 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 163 "../../src/norm2.c"
struct basetype * _basetype__ctor ( _auto_this , _auto_b , _auto_n ) register struct basetype * _auto_this ; 
int _auto_b ; 
struct name * _auto_n ; 

#line 164 "../../src/norm2.c"
{ 
#line 164 "../../src/norm2.c"
if ( _auto_this == 0 ) _auto_this = ( struct basetype * ) _new ( ( long 
#line 164 "../../src/norm2.c"
) 36) ; 

#line 166 "../../src/norm2.c"
Nbt ++ ; 

#line 167 "../../src/norm2.c"
switch ( _auto_b ) { 
#line 167 "../../src/norm2.c"
case 0 : break ; 

#line 169 "../../src/norm2.c"
case 35 : _auto_this -> _basetype_b_typedef = 1 ; 

#line 169 "../../src/norm2.c"
break ; 

#line 170 "../../src/norm2.c"
case 75 : _auto_this -> _basetype_b_inline = 1 ; 

#line 170 "../../src/norm2.c"
break ; 

#line 171 "../../src/norm2.c"
case 77 : _auto_this -> _basetype_b_virtual = 1 ; 

#line 171 "../../src/norm2.c"
break ; 

#line 172 "../../src/norm2.c"
case 26 : _auto_this -> _basetype_b_const = 1 ; 

#line 172 "../../src/norm2.c"
break ; 

#line 173 "../../src/norm2.c"
case 37 : _auto_this -> _basetype_b_unsigned = 1 ; 

#line 173 "../../src/norm2.c"
break ; 

#line 174 "../../src/norm2.c"
case 18 : case 76 : case 14 : case 31 : case 2 : case 27 : _auto_this -> _basetype_b_sto = 
#line 174 "../../src/norm2.c"
_auto_b ; 

#line 179 "../../src/norm2.c"
break ; 

#line 180 "../../src/norm2.c"
case 29 : _auto_this -> _basetype_b_short = 1 ; 

#line 180 "../../src/norm2.c"
break ; 

#line 181 "../../src/norm2.c"
case 22 : _auto_this -> _basetype_b_long = 1 ; 

#line 181 "../../src/norm2.c"
break ; 

#line 182 "../../src/norm2.c"
case 141 : case 138 : case 38 : case 5 : case 21 : case 15 : case 11 : 
#line 182 "../../src/norm2.c"

#line 188 "../../src/norm2.c"
_auto_this -> _node_base = _auto_b ; 

#line 188 "../../src/norm2.c"
break ; 

#line 189 "../../src/norm2.c"
case 97 : case 119 : case 121 : case 114 : case 1 : _auto_this -> _node_base = _auto_b ; 

#line 195 "../../src/norm2.c"
_auto_this -> _basetype_b_name = _auto_n ; 

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

#line 197 "../../src/norm2.c"
default : errorFI_PC__E ( ( int ) 'i' , ( char * ) "badBT:%k", _auto_b ) ; 
#line 197 "../../src/norm2.c"
} 
#line 200 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 203 "../../src/norm2.c"
Pname name_free ; 

#line 205 "../../src/norm2.c"
struct name * _name__ctor ( _auto_this , _auto_s ) register struct name * _auto_this ; 
char * _auto_s ; 

#line 206 "../../src/norm2.c"
{ 
#line 206 "../../src/norm2.c"
register Pname _auto_p ; 

#line 209 "../../src/norm2.c"
if ( ( _auto_p = name_free ) == 0 ) { 
#line 209 "../../src/norm2.c"
register Pname _auto_q ; 

#line 210 "../../src/norm2.c"
_auto_q = ( ( ( struct name * ) ( malloc ( 17000) ) ) ) ; 
#line 210 "../../src/norm2.c"

#line 211 "../../src/norm2.c"
for ( _auto_p = ( name_free = ( & ( _auto_q [ 249] ) ) ) ;( 
#line 211 "../../src/norm2.c"
_auto_q < _auto_p ) ;( _auto_p -- ) ) 
#line 211 "../../src/norm2.c"
_auto_p -> _name_n_tbl_list = ( _auto_p - 1 ) ; 

#line 212 "../../src/norm2.c"
( _auto_p + 1 ) -> _name_n_tbl_list = 0 ; 
} else 
#line 216 "../../src/norm2.c"
name_free = _auto_p -> _name_n_tbl_list ; 

#line 227 "../../src/norm2.c"
{ 
#line 227 "../../src/norm2.c"
register int * _auto_pp ; 

#line 228 "../../src/norm2.c"
_auto_pp = ( ( ( int * ) ( _auto_p + 1 ) ) ) ; 

#line 229 "../../src/norm2.c"
while ( ( ( ( int * ) ( _auto_p ) ) ) < _auto_pp ) 
#line 229 "../../src/norm2.c"

#line 229 "../../src/norm2.c"
( * ( -- _auto_pp ) ) = 0 ; 
} 
#line 232 "../../src/norm2.c"
( ( _auto_this = ( struct name * ) _auto_p ) , ( _auto_this = ( struct 
#line 232 "../../src/norm2.c"
name * ) _expr__ctor ( ( ( struct expr * ) ( _auto_this ) ) , 85 , ( 
#line 232 "../../src/norm2.c"
struct expr * ) 0 , ( struct expr * ) 0 ) ) ) ; 
#line 232 "../../src/norm2.c"

#line 235 "../../src/norm2.c"
Nn ++ ; 

#line 236 "../../src/norm2.c"
_auto_this -> _expr__O3.__C3_string = _auto_s ; 

#line 237 "../../src/norm2.c"
_auto_this -> _name_where = curloc ; 

#line 238 "../../src/norm2.c"
_auto_this -> _name_lex_level = bl_level ; 

#line 239 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 242 "../../src/norm2.c"
int _name__dtor ( _auto_this , _auto__free ) register struct name * _auto_this ; 
int _auto__free ; 

#line 243 "../../src/norm2.c"
{ 
#line 243 "../../src/norm2.c"
NFn ++ ; 

#line 246 "../../src/norm2.c"
_auto_this -> _name_n_tbl_list = name_free ; 

#line 247 "../../src/norm2.c"
name_free = ( struct name * ) _auto_this ; 

#line 248 "../../src/norm2.c"
_auto_this = 0 ; 

#line 249 "../../src/norm2.c"
if ( _auto_this ) _expr__dtor ( ( struct expr * ) _auto_this , _auto__free ) ; 
} ; 

#line 252 "../../src/norm2.c"
struct nlist * _nlist__ctor ( _auto_this , _auto_n ) register struct nlist * _auto_this ; 
struct name * _auto_n ; 

#line 253 "../../src/norm2.c"
{ 
#line 253 "../../src/norm2.c"
Pname _auto_nn ; 

#line 262 "../../src/norm2.c"
if ( _auto_this == 0 ) _auto_this = ( struct nlist * ) _new ( ( long ) 
#line 262 "../../src/norm2.c"
8) ; 

#line 256 "../../src/norm2.c"
if ( _auto_n == 0 ) errorFI_PC__E ( ( int ) 'i' , ( char * ) 
#line 256 "../../src/norm2.c"
"nlist.nlist(0)") ; 

#line 258 "../../src/norm2.c"
_auto_this -> _nlist_head = _auto_n ; 

#line 259 "../../src/norm2.c"
for ( _auto_nn = _auto_n ;_auto_nn -> _name_n_list ;( _auto_nn = _auto_nn -> _name_n_list ) ) ; 

#line 260 "../../src/norm2.c"
_auto_this -> _nlist_tail = _auto_nn ; 

#line 261 "../../src/norm2.c"
Nl ++ ; 

#line 262 "../../src/norm2.c"
return _auto_this ; 
} ; 

#line 264 "../../src/norm2.c"
int _nlist_add_list ( _auto_this , _auto_n ) register struct nlist * _auto_this ; 
struct name * _auto_n ; 

#line 265 "../../src/norm2.c"
{ 
#line 265 "../../src/norm2.c"
Pname _auto_nn ; 

#line 266 "../../src/norm2.c"
if ( _auto_n -> _expr__O2.__C2_tp -> _type_defined & 010 ) { 
#line 266 "../../src/norm2.c"
return ; 
} 
#line 267 "../../src/norm2.c"
; 

#line 269 "../../src/norm2.c"
_auto_this -> _nlist_tail -> _name_n_list = _auto_n ; 

#line 270 "../../src/norm2.c"
for ( _auto_nn = _auto_n ;_auto_nn -> _name_n_list ;( _auto_nn = _auto_nn -> _name_n_list ) ) ; 

#line 271 "../../src/norm2.c"
_auto_this -> _nlist_tail = _auto_nn ; 
} ; 

#line 274 "../../src/norm2.c"
int NFl = 0 ; 

#line 276 "../../src/norm2.c"
extern Pname name_unlist ( _auto_l ) struct nlist * _auto_l ; 

#line 277 "../../src/norm2.c"
{ 
#line 277 "../../src/norm2.c"
Pname _auto__result ; 
Pname _auto_n ; 

#line 279 "../../src/norm2.c"
if ( _auto_l == 0 ) { 
#line 279 "../../src/norm2.c"
{ _auto__result = 0 ; 

#line 279 "../../src/norm2.c"
return _auto__result ; 
} } 
#line 280 "../../src/norm2.c"
_auto_n = _auto_l -> _nlist_head ; 

#line 281 "../../src/norm2.c"
NFl ++ ; 

#line 282 "../../src/norm2.c"
_delete ( ( int * ) _auto_l ) ; 

#line 283 "../../src/norm2.c"
{ 
#line 283 "../../src/norm2.c"
{ _auto__result = _auto_n ; 

#line 283 "../../src/norm2.c"
return _auto__result ; 
} } } ; 

#line 286 "../../src/norm2.c"
extern Pstmt stmt_unlist ( _auto_l ) struct slist * _auto_l ; 

#line 287 "../../src/norm2.c"
{ 
#line 287 "../../src/norm2.c"
Pstmt _auto__result ; 
Pstmt _auto_s ; 

#line 289 "../../src/norm2.c"
if ( _auto_l == 0 ) { 
#line 289 "../../src/norm2.c"
{ _auto__result = 0 ; 

#line 289 "../../src/norm2.c"
return _auto__result ; 
} } 
#line 290 "../../src/norm2.c"
_auto_s = _auto_l -> _slist_head ; 

#line 291 "../../src/norm2.c"
NFl ++ ; 

#line 292 "../../src/norm2.c"
_delete ( ( int * ) _auto_l ) ; 

#line 293 "../../src/norm2.c"
{ 
#line 293 "../../src/norm2.c"
{ _auto__result = _auto_s ; 

#line 293 "../../src/norm2.c"
return _auto__result ; 
} } } ; 

#line 296 "../../src/norm2.c"
extern Pexpr expr_unlist ( _auto_l ) struct elist * _auto_l ; 

#line 297 "../../src/norm2.c"
{ 
#line 297 "../../src/norm2.c"
Pexpr _auto__result ; 
Pexpr _auto_e ; 

#line 299 "../../src/norm2.c"
if ( _auto_l == 0 ) { 
#line 299 "../../src/norm2.c"
{ _auto__result = 0 ; 

#line 299 "../../src/norm2.c"
return _auto__result ; 
} } 
#line 300 "../../src/norm2.c"
_auto_e = _auto_l -> _elist_head ; 

#line 301 "../../src/norm2.c"
NFl ++ ; 

#line 302 "../../src/norm2.c"
_delete ( ( int * ) _auto_l ) ; 

#line 303 "../../src/norm2.c"
{ 
#line 303 "../../src/norm2.c"
{ _auto__result = _auto_e ; 

#line 303 "../../src/norm2.c"
return _auto__result ; 
} } } ; 

/* the end */