/* ANSI C code generated by SmallEiffel The GNU Eiffel Compiler Release -0.76 (Saturday 11th november 2000) Copyright (C), 1994-2000 - LORIA - UHP - CRIN - INRIA - FRANCE Dominique COLNET and Suzanne COLLIN - colnet@loria.fr http://SmallEiffel.loria.fr */ #ifdef __cplusplus } #endif #include "compile_to_c.h" #ifdef __cplusplus extern "C" { #endif T6 r241use_current(T241* C){ T6 R=0; /*[IF*/ /*AF*//*AE*/ /*FI]*/ /*[IF*/ if(R){ } else if(X126is_current((/*RF2*/(C)->_target/*4*/))){ R=X96use_current((/*RF2*/(C)->_run_feature/*8*/)); } else{ R=X126use_current((/*RF2*/(C)->_target/*4*/)); } /*FI]*/ return R; } T2 r241static_value(T241* C){ T2 R=0; /*[IF*/ if(X62is_integer(X126result_type((/*RF2*/(C)->_target/*4*/)))){ /*[IF*/ if(X126is_static((/*RF2*/(C)->_target/*4*/))){ R=X126static_value((/*RF2*/(C)->_target/*4*/)); } /*FI]*/ } /*FI]*/ return R; } void r241c_declare_for_old(T241* C){ X126c_declare_for_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ /*AF*//*AE*/ /*FI]*/ } void r241compile_to_c_old(T241* C){ X126compile_to_c_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ /*AF*//*AE*/ /*FI]*/ } void r241mapping_c_target(T241* C,T0* a1){ T0* _actual_type=NULL; T6 _flag=0; _flag=r83call_invariant_start(a1); _actual_type=X62run_type(r241result_type(C)); /*[IF*/ if(X62is_reference(_actual_type)){ /*[IF*/ if(X62is_reference(a1)){ X62mapping_cast(a1); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T241* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T241* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } else{ /*[IF*/ if(X62is_reference(a1)){ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T241* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } else{ /*[IF*/ if(X62need_c_struct(a1)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\46'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T241* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T241* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ /*[IF*/ if(_flag){ /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T58* C1=(T58*)(oBC83out_c); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } T0* r241run_feature_for(T241* C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; T0* _rt=NULL; T0* _rc=NULL; _rt=X126result_type(a1); /*[IF*/ if((_rt)!=((void*)(NULL))){ _rc=X62run_class(_rt); /*[IF*/ if((_rc)!=((void*)(NULL))){ _bc=(/*RF2*/(((T60*)_rc))->_base_class/*8*/); R=r61run_feature_for(((T61*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*12*/),a2); } /*FI]*/ } /*FI]*/ /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((/*RF2*/((T239*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } /*[IRF3.6append*/{T0* b1=((T0*)ms168_608361995); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } /*FI]*/ return R; } T2 r241to_integer_or_error(T241* C){ T2 R=0; T0* _rf1=NULL; _rf1=(/*RF2*/(C)->_run_feature/*8*/); if(NULL!=(_rf1)){ switch(((T0*)_rf1)->id){ case 437: break; default: _rf1=NULL; } }/*[IF*/ if((_rf1)==((void*)(NULL))){ r241to_integer_error(C); } else{ R=X126to_integer_or_error((/*RF2*/(((T437*)_rf1))->_value/*32*/)); } /*FI]*/ return R; } T0* r241add_comment(T241* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((/*RF2*/(((T164*)a1))->_list/*8*/))))/*)*/)==(0))){ R=((T0*)(C)); } else{ {T323*n=((T323*)se_malloc(sizeof(*n))/*12*/); *n=M323; r323make(n,(T0*)C,a1); R=((T0*)n); } } /*FI]*/ return R; } T0* r241to_runnable(T241* C,T0* a1){ T0* R=NULL; T0* _rf=NULL; T0* _t=NULL; _t=r241runnable_expression((/*RF2*/(C)->_target/*4*/),a1); _rf=r241run_feature_for(C,_t,a1); /*[IF*/ if(((/*RF2*/(C)->_run_feature/*8*/))==((void*)(NULL))){ (/*SFN*/C->_target)=_t; (/*SFN*/C->_run_feature)=_rf; r241run_feature_match(C); R=((T0*)(C)); } else if((_t)==((void*)((/*RF2*/(C)->_target/*4*/)))){ R=((T0*)(C)); } else{ {T241*n=((T241*)se_malloc(sizeof(*n))/*16*/); *n=M241; r241with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_rf); R=((T0*)n); } } /*FI]*/ return R; } void r241collect_c_tmp(T241* C){ /*[IF*/ if(((/*RF2*/(C)->_run_feature/*8*/))!=((void*)(NULL))){ X96collect_c_tmp((/*RF2*/(C)->_run_feature/*8*/)); } /*FI]*/ X126collect_c_tmp((/*RF2*/(C)->_target/*4*/)); /*[IF*/ /*AF*//*AE*/ /*FI]*/ } void r241finalize(T241* C){ T0* _rf=NULL; T0* _rc=NULL; _rf=(/*RF2*/(C)->_run_feature/*8*/); _rc=/*SSWARF2*//*X96run_class*/(/*RF2*/(((T154*)_rf))->_run_class/*12*/); (/*SFN*/C->_run_feature)=r60dynamic((T60*)(/*(IRF4.6first*/((/*RF2*/((T63*)((/*RF2*/(((T60*)_rc))->_running/*21*/)))->_storage/*4*/))[0]/*)*/),_rf); } T0* r241static_result_base_class(T241* C){ T0* R=NULL; T0* _cn=NULL; T0* _rt=NULL; T0* _e_feature=NULL; T0* _bc=NULL; _bc=X126static_result_base_class((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((_bc)!=((void*)(NULL))){ _e_feature=r61e_feature(((T61*)_bc),(/*RF2*/(C)->_feature_name/*12*/)); /*[IF*/ if((_e_feature)!=((void*)(NULL))){ _rt=X99result_type(_e_feature); /*[IF*/ if((_rt)!=((void*)(NULL))){ _cn=X62static_base_class_name(_rt); /*[IF*/ if((_cn)!=((void*)(NULL))){ R=r77base_class(((T77*)_cn)); } /*FI]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ return R; } void r264make(T264* C,T104 a1,T0* a2){ (/*SFN*/C->_start_position)=a1; (/*SFN*/C->_to_string)=a2; } void r264to_integer_error(T264* C){ /*[IRF3.6append*/{T0* b1=((T0*)ms20_752996481); r7append((T7*)(oBC82explanation),b1); }/*]*/ {T104 se_tmp0; r82add_position((/*RF2*/(C)->_start_position/*4*/)); } r82print_as_error((T82*)(oBC19eh)); } T2 r264isa_dca_inline_argument(void){ T2 R=0; /*[IF*/ /*AF*//*AE*/ /*FI]*/ return R; } T0*oBC264result_type=NULL; int fBC264result_type=0; T0* r264result_type(void){ if(fBC264result_type==0){fBC264result_type=1;{ T104 _unknown_position={NULL,0}; {T367*n=((T367*)se_malloc(sizeof(*n))/*16*/); *n=M367; oBC264result_type=((T0*)n); r367make(n,_unknown_position); } }} return oBC264result_type; } T2 r264to_integer_or_error(T264* C){ T2 R=0; r264to_integer_error(C); return R; } T0* r264add_comment(T264* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((/*RF2*/(((T164*)a1))->_list/*8*/))))/*)*/)==(0))){ R=((T0*)(C)); } else{ {T323*n=((T323*)se_malloc(sizeof(*n))/*12*/); *n=M323; r323make(n,(T0*)C,a1); R=((T0*)n); } } /*FI]*/ return R; } T0* r264to_runnable(T264* C,T0* a1){ T0* R=NULL; T0* _t=NULL; R=((T0*)(C)); _t=r367to_runnable((T367*)(r264result_type()),a1); return R; } T0* r264static_result_base_class(void){ T0* R=NULL; R=r59get_class(((T0*)ms21_12376)); return R; } void r388c_mapping_procedure(T0* a1,T0* a2,T0* a3){ /*[IF*/ if(r57boost((T57*)(oBC19run_control))){ r388c_mapping_external((/*RF2*/(((T115*)a1))->_base_feature/*28*/),r115arg_count(((T115*)a1))); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_305)); /*]*/ } else{ r115default_mapping_procedure(((T115*)a1)); } /*FI]*/ } void r388standard_c_define_function(T0* a1,T0* a2,T0* a3){ /*[IF*/ {/*AT*//*[IRF3.6c_prototype*/{T95* C1=((T95*)a1); r95external_prototype(C1,(/*RF2*/(C1)->_base_feature/*28*/)); }/*]*/ } /*FI]*/ /*[IF*/ if(r57no_check((T57*)(oBC19run_control))){ /*[IRF3.3clear*/((((T7*)((T7*)(oBC91body))))->_count)=(0); /*]*/ r7extend((T7*)(oBC91body),((T3)'R')); r7extend((T7*)(oBC91body),((T3)'\75')); r388wrapped_external_call((/*RF2*/(((T95*)a1))->_base_feature/*28*/),r95arg_count(((T95*)a1))); r95c_define_with_body(((T95*)a1),oBC91body); } /*FI]*/ } void r388standard_c_define_procedure(T0* a1,T0* a2,T0* a3){ /*[IF*/ {/*AT*//*[IRF3.6c_prototype*/{T115* C1=((T115*)a1); r115external_prototype(C1,(/*RF2*/(C1)->_base_feature/*28*/)); }/*]*/ } /*FI]*/ /*[IF*/ if(r57no_check((T57*)(oBC19run_control))){ /*[IRF3.3clear*/((((T7*)((T7*)(oBC91body))))->_count)=(0); /*]*/ r388wrapped_external_call((/*RF2*/(((T115*)a1))->_base_feature/*28*/),r115arg_count(((T115*)a1))); r115c_define_with_body(((T115*)a1),oBC91body); } /*FI]*/ } void r388c_mapping_external(T0* a1,T2 a2){ T6 _tcbd=0; T6 _eruc=0; _eruc=/*(IRF4.1use_current*/0/*)*/; /*[IF*/ if(!(_eruc)){ _tcbd=r83target_cannot_be_dropped((T83*)(oBC19cpp)); /*[IF*/ if(_tcbd){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\54'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } /*FI]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),/*SSFRF4*//*X97external_name*/r116external_name(((T116*)a1))); /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if(_eruc){ r83put_target_as_value((T83*)(oBC19cpp)); } /*FI]*/ /*[IF*/ if((a2)>(0)){ /*[IF*/ if(_eruc){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\54'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ r83put_arguments((T83*)(oBC19cpp)); } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if((!(_eruc))&&(_tcbd)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } void r388wrapped_external_call(T0* a1,T2 a2){ T2 _i=0; r7append((T7*)(oBC91body),/*SSFRF4*//*X97external_name*/r116external_name(((T116*)a1))); r7extend((T7*)(oBC91body),((T3)'\50')); /*[IF*/ /*AF*//*AE*/ /*FI]*/ _i=1; while (!((_i)>(a2))) { r7extend((T7*)(oBC91body),((T3)'a')); r2append_in(_i,oBC91body); _i=(_i)+(1); /*[IF*/ if((_i)<=(a2)){ r7extend((T7*)(oBC91body),((T3)'\54')); } /*FI]*/ } r7append((T7*)(oBC91body),((T0*)ms20_1330)); } void r388c_mapping_function(T0* a1,T0* a2,T0* a3){ /*[IF*/ if(r57boost((T57*)(oBC19run_control))){ r388c_mapping_external((/*RF2*/(((T95*)a1))->_base_feature/*28*/),r95arg_count(((T95*)a1))); } else{ r95default_mapping_function(((T95*)a1)); } /*FI]*/ } void r280cmp_bit(T280* C,T6 a1,T0* a2){ T0* _tb=NULL; _tb=a2; if(NULL!=(_tb)){ switch(((T0*)_tb)->id){ case 372:case 373: break; default: _tb=NULL; } }/*[IF*/ if(X136is_c_unsigned_ptr(_tb)){ /*[IF*/ if(a1){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\41'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms279_10512915)); /*]*/ X126mapping_c_target((/*RF2*/(C)->_target/*4*/),a2); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_1285)); /*]*/ X126mapping_c_target(r280arg1(C),a2); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms279_108351709)); /*]*/ /*[IRF3.5put_integer*/r58put_integer(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),X136id(_tb)); /*]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms279_246)); /*]*/ } else{ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c((/*RF2*/(C)->_target/*4*/)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if(a1){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_366)); /*]*/ } else{ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_226)); /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c(r280arg1(C)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } T0* r280runnable_expression(T0* a1,T0* a2){ T0* R=NULL; R=X126to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X126start_position(a1),&se_tmp0))); } r280fatal_error(((T0*)ms168_1263631766)); } /*FI]*/ return R; } T6 r280is_static_neq_void(T0* a1){ T6 R=0; T0* _rt=NULL; /*[IF*/ if(((X126is_current(a1))||(X126is_manifest_string(a1)))||(X126is_manifest_array(a1))){ R=1; } else{ _rt=X62run_type(X126result_type(a1)); /*[IF*/ if(X62is_expanded(_rt)){ R=1; } else if(X126is_static(a1)){ R=1; } /*FI]*/ } /*FI]*/ return R; } T6 r280call_proc_call_stupid_switch(T280* C,T0* a1){ T6 R=0; /*[IF*/ if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){ R=1; } else{ R=/*SSFRF4*//*X245stupid_switch*/r245stupid_switch((T245*)((/*RF2*/(C)->_arguments/*8*/)),a1); } /*FI]*/ /*[IF*/ if(R){ /*[IF*/ if(X126is_current((/*RF2*/(C)->_target/*4*/))){ /*[IF*/ if(r59same_base_feature(/*(IRF4.1run_feature*/NULL/*)*/,a1)){ R=(X96stupid_switch(/*(IRF4.1run_feature*/NULL/*)*/,a1))!=((void*)(NULL)); } else{ R=0; } /*FI]*/ } else{ R=X126stupid_switch((/*RF2*/(C)->_target/*4*/),a1); } /*FI]*/ } /*FI]*/ return R; } T6 r280is_static(T280* C){ T6 R=0; /*[IF*/ if(X126is_void((/*RF2*/(C)->_target/*4*/))){ R=r280is_static_neq_void(r280arg1(C)); } else if(X126is_void(r280arg1(C))){ R=r280is_static_neq_void((/*RF2*/(C)->_target/*4*/)); } else if((X126is_static((/*RF2*/(C)->_target/*4*/)))&&(X126is_static(r280arg1(C)))){ R=1; } /*FI]*/ return R; } T0* r280operator(void){ T0* R=NULL; R=((T0*)ms21_296); return R; } void r280with(T280* C,T0* a1,T0* a2,T0* a3){ (/*SFN*/C->_target)=a1; (/*SFN*/C->_feature_name)=a2; (/*SFN*/C->_arguments)=a3; } void r280compile_to_c(T280* C){ T0* _at=NULL; T0* _tt=NULL; _tt=X62run_type(X126result_type((/*RF2*/(C)->_target/*4*/))); _at=X62run_type(X126result_type(r280arg1(C))); /*[IF*/ if(X62is_expanded(_tt)){ /*[IF*/ if(X62is_expanded(_at)){ /*[IF*/ if(X62is_user_expanded(_tt)){ r280cmp_user_expanded(C,0,_tt); } else if(X62is_basic_eiffel_expanded(_tt)){ r280cmp_basic_eiffel_expanded(C,0,_at,_tt); } else if(X62is_bit(_tt)){ r280cmp_bit(C,0,_tt); } else{ r280cmp_basic_ref(C,0); } /*FI]*/ } else{ r280c2c_exp_ref((/*RF2*/(C)->_target/*4*/),_tt,r280arg1(C),_at); } /*FI]*/ } else if(X62is_expanded(_at)){ r280c2c_exp_ref(r280arg1(C),_at,(/*RF2*/(C)->_target/*4*/),_tt); } else{ r280cmp_basic_ref(C,0); } /*FI]*/ } void r280check_comparison(T280* C,T0* a1){ T0* _at=NULL; T0* _tt=NULL; /*[IF*/ if((/*(IRF4.9nb_errors*/(/*RF2*/((T82*)(oBC19eh))->_error_counter/*0*/)/*)*/)==(0)){ _tt=X62run_type(X126result_type((/*RF2*/(C)->_target/*4*/))); _at=X62run_type(X126result_type(r280arg1(C))); /*[IF*/ if(X62is_none(_tt)){ } else if(X62is_none(_at)){ } else if(X62is_reference(_tt)){ /*[IF*/ if(X62is_reference(_at)){ } else if(!(X62is_a(_at,_tt))){ r280error_comparison(C,((T0*)ms279_1373128003),a1); } /*FI]*/ } else{ /*[IF*/ if(X62is_expanded(_at)){ /*[IF*/ if(X62is_basic_eiffel_expanded(_at)){ /*[IF*/ if(X62is_a(_tt,_at)){ } else{ /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC82explanation))))->_count)=(0); /*]*/ /*[IRF3.3clear*/((((T105*)((T105*)(oBC82positions))))->_upper)=(-(1)); /*]*/ /*]*/ /*[IF*/ if(X62is_a(_at,_tt)){ } else{ r280error_comparison(C,((T0*)ms279_1826154197),a1); } /*FI]*/ } /*FI]*/ } else if(X62is_bit(_tt)){ r280bit_limitation(C,_tt,_at); } else if(!(X62is_a(_at,_tt))){ r280error_comparison(C,((T0*)ms279_1826154197a),a1); } /*FI]*/ } else if(!(X62is_a(_tt,_at))){ r280error_comparison(C,((T0*)ms279_544289339),a1); } /*FI]*/ } /*FI]*/ } /*FI]*/ } T6 r280stupid_switch(T280* C,T0* a1){ T6 R=0; R=r280call_proc_call_stupid_switch(C,a1); /*[IF*/ if(R){ R=!(X62is_native_array(/*(IRF4.8result_type*/r280type_boolean()/*)*/)); } /*FI]*/ return R; } T2 r280static_neq_void(T0* a1){ T2 R=0; T0* _rt=NULL; /*[IF*/ if(((X126is_current(a1))||(X126is_manifest_string(a1)))||(X126is_manifest_array(a1))){ R=1; } else{ _rt=X62run_type(X126result_type(a1)); /*[IF*/ if(X62is_expanded(_rt)){ R=1; } else if(X126is_static(a1)){ /*[IF*/ if((X126static_value(a1))!=(0)){ R=1; } /*FI]*/ } /*FI]*/ } /*FI]*/ return R; } void r280make(T280* C,T0* a1,T104 a2,T0* a3){ (/*SFN*/C->_target)=a1; {T235*n=((T235*)se_malloc(sizeof(*n))/*20*/); *n=M235; r235make(n,r280operator(),a2); (/*SFN*/C->_feature_name)=((T0*)n); } {T245*n=((T245*)se_malloc(sizeof(*n))/*16*/); *n=M245; /*[IRF3.3make_1*/((((T245*)(n)))->_first_one)=(a3); /*]*/ (/*SFN*/C->_arguments)=((T0*)n); } } void r280error_comparison(T280* C,T0* a1,T0* a2){ {T104 se_tmp0; r82add_position((/*RF2*/((T235*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } /*[IRF3.6append*/{T0* b1=((T0*)ms279_1808090188); r7append((T7*)(oBC82explanation),b1); }/*]*/ /*[IRF3.6append*/{T0* b1=a1; r7append((T7*)(oBC82explanation),b1); }/*]*/ /*[IRF3.6append*/{T0* b1=((T0*)ms279_1379665550); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82add_type(a2,((T0*)ms20_46)); r82print_as_fatal_error((T82*)(oBC19eh)); } void r280fatal_error(T0* a1){ /*[IRF3.6append*/{T0* b1=a1; r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } void r280dca_inline(T280* C,T0* a1){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ r83put_target_as_value((T83*)(oBC19cpp)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if((/*(IRF4.6first*/((/*RF2*/((T7*)(r280operator()))->_storage/*0*/))[0]/*)*/)==(((T3)'\75'))){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_366)); /*]*/ } else{ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_226)); /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126dca_inline_argument(r280arg1(C),a1); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } void r280to_integer_error(T280* C){ /*[IRF3.6append*/{T0* b1=((T0*)ms20_752996481); r7append((T7*)(oBC82explanation),b1); }/*]*/ {T104 se_tmp0; r82add_position(/*(IRF4.6start_position*/(/*RF2*/(((T235*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/); } r82print_as_error((T82*)(oBC19eh)); } T0* r280arg1(T280* C){ T0* R=NULL; R=/*SSFRF4*//*X245first*//*(IRF4.3first*/(/*RF2*/((T245*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/; return R; } void r280assertion_check(T280* C,T3 a1){ X126assertion_check((/*RF2*/(C)->_target/*4*/),a1); X126assertion_check(r280arg1(C),a1); } void r280afd_check(T280* C){ T0* _running=NULL; T0* _rc=NULL; /*[IF*/ /*AF*//*AE*/ /*FI]*/ X126afd_check((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245afd_check*/r245afd_check((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T6 r280use_current(T280* C){ T6 R=0; R=(X126use_current((/*RF2*/(C)->_target/*4*/)))||(X126use_current(r280arg1(C))); return R; } T0* r280type_boolean(void){ if(fBC19type_boolean==0){fBC19type_boolean=1;{ T104 _unknown_position={NULL,0}; {T360*n=((T360*)se_malloc(sizeof(*n))/*16*/); *n=M360; oBC19type_boolean=((T0*)n); r360make(n,_unknown_position); } }} return oBC19type_boolean; } T2 r280static_value(T280* C){ T2 R=0; /*[IF*/ if(X126is_void((/*RF2*/(C)->_target/*4*/))){ R=r280static_neq_void(r280arg1(C)); } else if(X126is_void(r280arg1(C))){ R=r280static_neq_void((/*RF2*/(C)->_target/*4*/)); } else if((X126is_static((/*RF2*/(C)->_target/*4*/)))&&(X126is_static(r280arg1(C)))){ /*[IF*/ if((X126static_value((/*RF2*/(C)->_target/*4*/)))!=(X126static_value(r280arg1(C)))){ R=1; } /*FI]*/ } /*FI]*/ return R; } void r280cmp_basic_ref(T280* C,T6 a1){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c((/*RF2*/(C)->_target/*4*/)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if(a1){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_366)); /*]*/ } else{ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_226)); /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_1079001)); /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c(r280arg1(C)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } void r280c_declare_for_old(T280* C){ X126c_declare_for_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245c_declare_for_old*/r245c_declare_for_old((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } void r280cmp_user_expanded(T280* C,T6 a1,T0* a2){ T2 _mem_id=0; /*[IF*/ if(X62is_dummy_expanded(a2)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c((/*RF2*/(C)->_target/*4*/)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\54'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c(r280arg1(C)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\54'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if(a1){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'1'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'0'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ _mem_id=X62id(a2); /*[IF*/ if(a1){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\41'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_2187619)); /*]*/ /*[IRF3.5put_integer*/r58put_integer(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),_mem_id); /*]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_240a)); /*]*/ X126compile_to_c((/*RF2*/(C)->_target/*4*/)); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_1285)); /*]*/ X126compile_to_c(r280arg1(C)); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_246)); /*]*/ } /*FI]*/ } void r280compile_to_c_old(T280* C){ X126compile_to_c_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245compile_to_c_old*/r245compile_to_c_old((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T0* r280runnable_args(T0* a1,T0* a2){ T0* R=NULL; R=X245to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X245start_position(a1),&se_tmp0))); } r280fatal_error(((T0*)ms20_462691396)); } /*FI]*/ return R; } void r280mapping_c_target(T280* C,T0* a1){ T0* _actual_type=NULL; T6 _flag=0; _flag=r83call_invariant_start(a1); _actual_type=X62run_type(/*(IRF4.8result_type*/r280type_boolean()/*)*/); /*[IF*/ if(X62is_reference(_actual_type)){ /*[IF*/ if(X62is_reference(a1)){ X62mapping_cast(a1); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ r280compile_to_c(C); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ r280compile_to_c(C); } /*FI]*/ } else{ /*[IF*/ if(X62is_reference(a1)){ r280compile_to_c(C); } else{ /*[IF*/ if(X62need_c_struct(a1)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\46'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ r280compile_to_c(C); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ r280compile_to_c(C); } /*FI]*/ } /*FI]*/ } /*FI]*/ /*[IF*/ if(_flag){ /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T58* C1=(T58*)(oBC83out_c); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } void r280c2c_exp_ref(T0* a1,T0* a2,T0* a3,T0* a4){ /*[IF*/ if(X126is_void(a3)){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_240a)); /*]*/ X126compile_to_c(a3); } else{ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_240a)); /*]*/ X126compile_to_c(a1); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_1285)); /*]*/ X126compile_to_c(a3); } /*FI]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms280_6511)); /*]*/ } T2 r280to_integer_or_error(T280* C){ T2 R=0; r280to_integer_error(C); return R; } void r280bit_limitation(T280* C,T0* a1,T0* a2){ T0* _b2=NULL; T0* _b1=NULL; _b1=a1; if(NULL!=(_b1)){ switch(((T0*)_b1)->id){ case 372:case 373: break; default: _b1=NULL; } }_b2=a2; if(NULL!=(_b2)){ switch(((T0*)_b2)->id){ case 372:case 373: break; default: _b2=NULL; } }/*[IF*/ if((X136nb(_b1))!=(X136nb(_b2))){ {T104 se_tmp0; r82add_position((/*RF2*/((T235*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } /*[IRF3.6append*/{T0* b1=((T0*)ms279_1673400454); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82add_type(_b1,((T0*)ms279_35407)); r82add_type(_b2,((T0*)ms279_1973901270)); r82print_as_fatal_error((T82*)(oBC19eh)); } /*FI]*/ } T0* r280add_comment(T280* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((/*RF2*/(((T164*)a1))->_list/*8*/))))/*)*/)==(0))){ R=((T0*)(C)); } else{ {T323*n=((T323*)se_malloc(sizeof(*n))/*12*/); *n=M323; r323make(n,(T0*)C,a1); R=((T0*)n); } } /*FI]*/ return R; } T0* r280to_runnable(T280* C,T0* a1){ T0* R=NULL; T0* _a=NULL; T0* _t=NULL; _t=r280runnable_expression((/*RF2*/(C)->_target/*4*/),a1); _a=r280runnable_args((/*RF2*/(C)->_arguments/*8*/),a1); /*[IF*/ if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){ R=((T0*)(C)); } else{ {T280*n=((T280*)se_malloc(sizeof(*n))/*16*/); *n=M280; r280with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a); R=((T0*)n); } } /*FI]*/ r280check_comparison(((T280*)R),a1); return R; } void r280collect_c_tmp(T280* C){ /*[IF*/ /*AF*//*AE*/ /*FI]*/ X126collect_c_tmp((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){ /*SSPRF3*//*X245collect_c_tmp*/r245collect_c_tmp((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T0* r280static_result_base_class(void){ T0* R=NULL; R=r59get_class(((T0*)ms21_1339128)); return R; } void r280cmp_basic_eiffel_expanded(T280* C,T6 a1,T0* a2,T0* a3){ T0* _cast=NULL; /*[IF*/ if((X62is_double(a2))||(X62is_double(a3))){ _cast=((T0*)ms279_162070); } else if((X62is_real(a2))||(X62is_real(a2))){ _cast=((T0*)ms279_162045); } /*FI]*/ /*[IF*/ if((_cast)!=((void*)(NULL))){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),_cast); /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ X126compile_to_c((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((_cast)!=((void*)(NULL))){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_246)); /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if(a1){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_366)); /*]*/ } else{ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_226)); /*]*/ } /*FI]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if((_cast)!=((void*)(NULL))){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),_cast); /*]*/ } /*FI]*/ X126compile_to_c(r280arg1(C)); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IF*/ if((_cast)!=((void*)(NULL))){ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),((T0*)ms20_246)); /*]*/ } /*FI]*/ } T0*oBC27buffer=NULL; T0* r27item(T0* a1){ T0* R=NULL; /*[IF*/ if(r30has((T30*)(oBC27memory),a1)){ R=r30at((T30*)(oBC27memory),a1); } else{ R=r7twin(((T7*)a1)); r30add((T30*)(oBC27memory),R,R); } /*FI]*/ return R; } void r27special_add(T0* a1){ /*[IF*/ if((/*RF2*/((T37*)(oBC19eiffel_parser))->_case_insensitive/*0*/)){ r7to_lower(((T7*)a1)); } /*FI]*/ /*[IRF3.6regular_add*/{T0* b1=a1; r30add((T30*)(oBC27memory),b1,b1); }/*]*/ } T0* r27for_prefix(T0* a1){ T0* R=NULL; R=r27key_for_prefix_infix(((T0*)ms27_15195),a1); return R; } T0*oBC27memory=NULL; T0* r27for_infix(T0* a1){ T0* R=NULL; R=r27key_for_prefix_infix(((T0*)ms27_15370),a1); return R; } T0* r27key_for_prefix_infix(T0* a1,T0* a2){ T0* R=NULL; T3 _c=0; T2 _i=0; r7copy((T7*)(oBC27buffer),a1); _i=1; while (!((_i)>((/*RF2*/(((T7*)a2))->_count/*4*/)))) { _c=/*(IRF4.6item*/((/*RF2*/(((T7*)a2))->_storage/*0*/))[(_i)-(1)]/*)*/; /*[IF*/ if(r3is_letter(_c)){ r7extend((T7*)(oBC27buffer),_c); } else{ r2append_in(T3code(_c),oBC27buffer); } /*FI]*/ _i=(_i)+(1); } R=r27item(oBC27buffer); return R; } void r248run_feature_match(T248* C,T0* a1){ r248run_feature_has_result(C); X245match_with((/*RF2*/(C)->_arguments/*12*/),(/*RF2*/(C)->_run_feature/*16*/),a1); } T0* r248runnable_expression(T0* a1,T0* a2){ T0* R=NULL; R=X126to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X126start_position(a1),&se_tmp0))); } r248fatal_error(((T0*)ms168_1263631766)); } /*FI]*/ return R; } T6 r248call_proc_call_stupid_switch(T248* C,T0* a1){ T6 R=0; /*[IF*/ if(((/*RF2*/(C)->_arguments/*12*/))==((void*)(NULL))){ R=1; } else{ R=/*SSFRF4*//*X245stupid_switch*/r245stupid_switch((T245*)((/*RF2*/(C)->_arguments/*12*/)),a1); } /*FI]*/ /*[IF*/ if(R){ /*[IF*/ if(X126is_current((/*RF2*/(C)->_target/*4*/))){ /*[IF*/ if(r59same_base_feature((/*RF2*/(C)->_run_feature/*16*/),a1)){ R=(X96stupid_switch((/*RF2*/(C)->_run_feature/*16*/),a1))!=((void*)(NULL)); } else{ R=0; } /*FI]*/ } else{ R=X126stupid_switch((/*RF2*/(C)->_target/*4*/),a1); } /*FI]*/ } /*FI]*/ return R; } T6 r248is_static(T248* C){ T6 R=0; T0* _rf=NULL; T0* _running=NULL; _running=(/*RF2*/((T60*)(/*SSWARF2*//*X96run_class*/(/*RF2*/((T154*)((/*RF2*/(C)->_run_feature/*16*/)))->_run_class/*12*/)))->_running/*21*/); /*[IF*/ if(((_running)!=((void*)(NULL)))&&((r63count(((T63*)_running)))==(1))){ _rf=r60dynamic((T60*)(/*(IRF4.6first*/((/*RF2*/(((T63*)_running))->_storage/*4*/))[0]/*)*/),(/*RF2*/(C)->_run_feature/*16*/)); /*[IF*/ if(X96is_static(_rf)){ R=1; } /*FI]*/ } /*FI]*/ return R; } void r248with(T248* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){ (/*SFN*/C->_target)=a1; (/*SFN*/C->_feature_name)=a2; (/*SFN*/C->_arguments)=a3; (/*SFN*/C->_run_feature)=a4; r248run_feature_match(C,a5); } void r248run_feature_has_result(T248* C){ /*[IF*/ if((X96result_type((/*RF2*/(C)->_run_feature/*16*/)))==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X96start_position((/*RF2*/(C)->_run_feature/*16*/)),&se_tmp0))); } {T104 se_tmp0; r82add_position((*(se_tmp0=X117start_position((/*RF2*/(C)->_feature_name/*8*/)),&se_tmp0))); } r248fatal_error(((T0*)ms222_793028699)); } /*FI]*/ } T6 r248stupid_switch(T248* C,T0* a1){ T6 R=0; R=r248call_proc_call_stupid_switch(C,a1); /*[IF*/ if(R){ R=!(X62is_native_array(r248result_type(C))); } /*FI]*/ return R; } void r248make(T248* C,T0* a1,T0* a2,T0* a3){ (/*SFN*/C->_target)=a1; (/*SFN*/C->_feature_name)=a2; (/*SFN*/C->_arguments)=a3; } void r248fatal_error(T0* a1){ /*[IRF3.6append*/{T0* b1=a1; r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } void r248to_integer_error(T248* C){ /*[IRF3.6append*/{T0* b1=((T0*)ms20_752996481); r7append((T7*)(oBC82explanation),b1); }/*]*/ {T104 se_tmp0; r82add_position((*(se_tmp0=r248start_position(C),&se_tmp0))); } r82print_as_error((T82*)(oBC19eh)); } void r248assertion_check(T248* C,T3 a1){ /*[IF*/ if((a1)==(((T3)'R'))){ {T104 se_tmp0; X96vape_check_from((/*RF2*/(C)->_run_feature/*16*/),(*(se_tmp0=r248start_position(C),&se_tmp0))); } } /*FI]*/ X126assertion_check((/*RF2*/(C)->_target/*4*/),a1); /*SSPRF3*//*X245assertion_check*/r245assertion_check((T245*)((/*RF2*/(C)->_arguments/*12*/)),a1); } T0* r248result_type(T248* C){ T0* R=NULL; T0* _e=NULL; T0* _tla=NULL; R=X96result_type((/*RF2*/(C)->_run_feature/*16*/)); /*[IF*/ if(X62is_like_current(R)){ R=/*SSWARF2*//*X96current_type*/(/*RF2*/((T154*)((/*RF2*/(C)->_run_feature/*16*/)))->_current_type/*8*/); } else{ _tla=R; if(NULL!=(_tla)){ switch(((T0*)_tla)->id){ case 355: break; default: _tla=NULL; } }/*[IF*/ if((_tla)!=((void*)(NULL))){ _e=/*SSFRF4*//*X245expression*/r245expression((T245*)((/*RF2*/(C)->_arguments/*12*/)),/*(IRF4.6rank*/(/*RF2*/(((T275*)((/*RF2*/(((T355*)_tla))->_like_what/*20*/))))->_rank/*12*/)/*)*/); R=X62run_type(X126result_type(_e)); } /*FI]*/ } /*FI]*/ return R; } void r248afd_check(T248* C){ T0* _running=NULL; T0* _rc=NULL; /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){ _rc=X62run_class(X126result_type((/*RF2*/(C)->_target/*4*/))); _running=(/*RF2*/(((T60*)_rc))->_running/*21*/); /*[IF*/ if((_running)==((void*)(NULL))){ } else if((r63count(((T63*)_running)))>(1)){ r432update((/*RF2*/(C)->_target/*4*/),(/*RF2*/(C)->_run_feature/*16*/)); } /*FI]*/ } /*FI]*/ X126afd_check((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((r248arg_count(C))>(0)){ /*SSPRF3*//*X245afd_check*/r245afd_check((T245*)((/*RF2*/(C)->_arguments/*12*/))); } /*FI]*/ } T6 r248use_current(T248* C){ T6 R=0; /*[IF*/ if((r248arg_count(C))>(0)){ R=/*SSFRF4*//*X245use_current*/r245use_current((T245*)((/*RF2*/(C)->_arguments/*12*/))); } /*FI]*/ /*[IF*/ if(R){ } else if(X126is_current((/*RF2*/(C)->_target/*4*/))){ R=X96use_current((/*RF2*/(C)->_run_feature/*16*/)); } else{ R=X126use_current((/*RF2*/(C)->_target/*4*/)); } /*FI]*/ return R; } T2 r248static_value(T248* C){ T2 R=0; T0* _rf=NULL; T0* _running=NULL; _running=(/*RF2*/((T60*)(/*SSWARF2*//*X96run_class*/(/*RF2*/((T154*)((/*RF2*/(C)->_run_feature/*16*/)))->_run_class/*12*/)))->_running/*21*/); /*[IF*/ if(((_running)!=((void*)(NULL)))&&((r63count(((T63*)_running)))==(1))){ _rf=r60dynamic((T60*)(/*(IRF4.6first*/((/*RF2*/(((T63*)_running))->_storage/*4*/))[0]/*)*/),(/*RF2*/(C)->_run_feature/*16*/)); /*[IF*/ if(X96is_static(_rf)){ R=X96static_value_mem(_rf); } /*FI]*/ } /*FI]*/ return R; } void r248c_declare_for_old(T248* C){ X126c_declare_for_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((r248arg_count(C))>(0)){ /*SSPRF3*//*X245c_declare_for_old*/r245c_declare_for_old((T245*)((/*RF2*/(C)->_arguments/*12*/))); } /*FI]*/ } void r248compile_to_c_old(T248* C){ X126compile_to_c_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((r248arg_count(C))>(0)){ /*SSPRF3*//*X245compile_to_c_old*/r245compile_to_c_old((T245*)((/*RF2*/(C)->_arguments/*12*/))); } /*FI]*/ } T0* r248runnable_args(T0* a1,T0* a2){ T0* R=NULL; R=X245to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X245start_position(a1),&se_tmp0))); } r248fatal_error(((T0*)ms20_462691396)); } /*FI]*/ return R; } void r248mapping_c_target(T248* C,T0* a1){ T0* _actual_type=NULL; T6 _flag=0; _flag=r83call_invariant_start(a1); _actual_type=X62run_type(r248result_type(C)); /*[IF*/ if(X62is_reference(_actual_type)){ /*[IF*/ if(X62is_reference(a1)){ X62mapping_cast(a1); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T248* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T248* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } else{ /*[IF*/ if(X62is_reference(a1)){ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T248* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } else{ /*[IF*/ if(X62need_c_struct(a1)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\46'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T248* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T248* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ /*[IF*/ if(_flag){ /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T58* C1=(T58*)(oBC83out_c); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } T0* r248run_feature_for(T248* C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; T0* _rt=NULL; T0* _rc=NULL; _rt=X126result_type(a1); /*[IF*/ if((_rt)!=((void*)(NULL))){ _rc=X62run_class(_rt); /*[IF*/ if((_rc)!=((void*)(NULL))){ _bc=(/*RF2*/(((T60*)_rc))->_base_class/*8*/); R=r61run_feature_for(((T61*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*8*/),a2); } /*FI]*/ } /*FI]*/ /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X117start_position((/*RF2*/(C)->_feature_name/*8*/)),&se_tmp0))); } /*[IRF3.6append*/{T0* b1=((T0*)ms168_608361995); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } /*FI]*/ return R; } T2 r248to_integer_or_error(T248* C){ T2 R=0; r248to_integer_error(C); return R; } T0* r248add_comment(T248* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((/*RF2*/(((T164*)a1))->_list/*8*/))))/*)*/)==(0))){ R=((T0*)(C)); } else{ {T323*n=((T323*)se_malloc(sizeof(*n))/*12*/); *n=M323; r323make(n,(T0*)C,a1); R=((T0*)n); } } /*FI]*/ return R; } T2 r248arg_count(T248* C){ T2 R=0; R=/*SSFRF4*//*X245count*/r245count((T245*)((/*RF2*/(C)->_arguments/*12*/))); return R; } T0* r248to_runnable(T248* C,T0* a1){ T0* R=NULL; T0* _rf=NULL; T0* _a=NULL; T0* _t=NULL; _t=r248runnable_expression((/*RF2*/(C)->_target/*4*/),a1); _a=r248runnable_args((/*RF2*/(C)->_arguments/*12*/),a1); _rf=r248run_feature_for(C,_t,a1); /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))==((void*)(NULL))){ (/*SFN*/C->_target)=_t; (/*SFN*/C->_arguments)=_a; (/*SFN*/C->_run_feature)=_rf; r248run_feature_match(C,a1); R=((T0*)(C)); } else if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*12*/))))){ R=((T0*)(C)); } else{ {T248*n=((T248*)se_malloc(sizeof(*n))/*20*/); *n=M248; r248with(n,_t,(/*RF2*/(C)->_feature_name/*8*/),_a,_rf,a1); R=((T0*)n); } } /*FI]*/ return R; } void r248collect_c_tmp(T248* C){ /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){ X96collect_c_tmp((/*RF2*/(C)->_run_feature/*16*/)); } /*FI]*/ X126collect_c_tmp((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if(((/*RF2*/(C)->_arguments/*12*/))!=((void*)(NULL))){ /*SSPRF3*//*X245collect_c_tmp*/r245collect_c_tmp((T245*)((/*RF2*/(C)->_arguments/*12*/))); } /*FI]*/ } void r248finalize(T248* C){ T0* _rf=NULL; T0* _rc=NULL; _rf=(/*RF2*/(C)->_run_feature/*16*/); _rc=/*SSWARF2*//*X96run_class*/(/*RF2*/(((T154*)_rf))->_run_class/*12*/); (/*SFN*/C->_run_feature)=r60dynamic((T60*)(/*(IRF4.6first*/((/*RF2*/((T63*)((/*RF2*/(((T60*)_rc))->_running/*21*/)))->_storage/*4*/))[0]/*)*/),_rf); } T0* r248static_result_base_class(T248* C){ T0* R=NULL; T0* _cn=NULL; T0* _rt=NULL; T0* _e_feature=NULL; T0* _bc=NULL; _bc=X126static_result_base_class((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((_bc)!=((void*)(NULL))){ _e_feature=r61e_feature(((T61*)_bc),(/*RF2*/(C)->_feature_name/*8*/)); /*[IF*/ if((_e_feature)!=((void*)(NULL))){ _rt=X99result_type(_e_feature); /*[IF*/ if((_rt)!=((void*)(NULL))){ _cn=X62static_base_class_name(_rt); /*[IF*/ if((_cn)!=((void*)(NULL))){ R=r77base_class(((T77*)_cn)); } /*FI]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ return R; } T104 r248start_position(T248* C){ T104 R={NULL,0}; {T104 se_tmp0; R=(*(se_tmp0=X117start_position((/*RF2*/(C)->_feature_name/*8*/)),&se_tmp0)); } return R; } void r277run_feature_match(T277* C,T0* a1){ r277run_feature_has_result(C); X245match_with((/*RF2*/(C)->_arguments/*8*/),(/*RF2*/(C)->_run_feature/*16*/),a1); } T0* r277runnable_expression(T0* a1,T0* a2){ T0* R=NULL; R=X126to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X126start_position(a1),&se_tmp0))); } r277fatal_error(((T0*)ms168_1263631766)); } /*FI]*/ return R; } T6 r277call_proc_call_stupid_switch(T277* C,T0* a1){ T6 R=0; /*[IF*/ if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){ R=1; } else{ R=/*SSFRF4*//*X245stupid_switch*/r245stupid_switch((T245*)((/*RF2*/(C)->_arguments/*8*/)),a1); } /*FI]*/ /*[IF*/ if(R){ /*[IF*/ if(X126is_current((/*RF2*/(C)->_target/*4*/))){ /*[IF*/ if(r59same_base_feature((/*RF2*/(C)->_run_feature/*16*/),a1)){ R=(X96stupid_switch((/*RF2*/(C)->_run_feature/*16*/),a1))!=((void*)(NULL)); } else{ R=0; } /*FI]*/ } else{ R=X126stupid_switch((/*RF2*/(C)->_target/*4*/),a1); } /*FI]*/ } /*FI]*/ return R; } T6 r277is_static(T277* C){ T6 R=0; /*[IF*/ if(X62is_integer(r277result_type(C))){ /*[IF*/ if((X126is_static((/*RF2*/(C)->_target/*4*/)))&&(X126is_static(r277arg1(C)))){ R=1; (/*SFN*/C->_static_value_mem)=r2_px_94(X126static_value((/*RF2*/(C)->_target/*4*/)),X126static_value(r277arg1(C))); } /*FI]*/ } /*FI]*/ return R; } T0* r277operator(void){ T0* R=NULL; R=((T0*)ms21_94); return R; } void r277with(T277* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){ (/*SFN*/C->_target)=a1; (/*SFN*/C->_feature_name)=a2; (/*SFN*/C->_arguments)=a3; (/*SFN*/C->_run_feature)=a4; r277run_feature_match(C,a5); } void r277run_feature_has_result(T277* C){ /*[IF*/ if((X96result_type((/*RF2*/(C)->_run_feature/*16*/)))==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X96start_position((/*RF2*/(C)->_run_feature/*16*/)),&se_tmp0))); } {T104 se_tmp0; r82add_position((/*RF2*/((T235*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } r277fatal_error(((T0*)ms222_793028699)); } /*FI]*/ } T6 r277stupid_switch(T277* C,T0* a1){ T6 R=0; R=r277call_proc_call_stupid_switch(C,a1); /*[IF*/ if(R){ R=!(X62is_native_array(r277result_type(C))); } /*FI]*/ return R; } void r277make(T277* C,T0* a1,T104 a2,T0* a3){ (/*SFN*/C->_target)=a1; {T235*n=((T235*)se_malloc(sizeof(*n))/*20*/); *n=M235; r235make(n,r277operator(),a2); (/*SFN*/C->_feature_name)=((T0*)n); } {T245*n=((T245*)se_malloc(sizeof(*n))/*16*/); *n=M245; /*[IRF3.3make_1*/((((T245*)(n)))->_first_one)=(a3); /*]*/ (/*SFN*/C->_arguments)=((T0*)n); } } void r277fatal_error(T0* a1){ /*[IRF3.6append*/{T0* b1=a1; r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } void r277to_integer_error(T277* C){ /*[IRF3.6append*/{T0* b1=((T0*)ms20_752996481); r7append((T7*)(oBC82explanation),b1); }/*]*/ {T104 se_tmp0; r82add_position(/*(IRF4.6start_position*/(/*RF2*/(((T235*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/); } r82print_as_error((T82*)(oBC19eh)); } T0* r277arg1(T277* C){ T0* R=NULL; R=/*SSFRF4*//*X245first*//*(IRF4.3first*/(/*RF2*/((T245*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/; return R; } void r277assertion_check(T277* C,T3 a1){ /*[IF*/ if((a1)==(((T3)'R'))){ {T104 se_tmp0; X96vape_check_from((/*RF2*/(C)->_run_feature/*16*/),/*(IRF4.6start_position*/(/*RF2*/(((T235*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/); } } /*FI]*/ X126assertion_check((/*RF2*/(C)->_target/*4*/),a1); X126assertion_check(r277arg1(C),a1); } T0* r277result_type(T277* C){ T0* R=NULL; T0* _tla=NULL; R=X96result_type((/*RF2*/(C)->_run_feature/*16*/)); /*[IF*/ if(X62is_like_current(R)){ R=/*SSWARF2*//*X96current_type*/(/*RF2*/((T154*)((/*RF2*/(C)->_run_feature/*16*/)))->_current_type/*8*/); } else{ _tla=R; if(NULL!=(_tla)){ switch(((T0*)_tla)->id){ case 355: break; default: _tla=NULL; } }/*[IF*/ if((_tla)!=((void*)(NULL))){ R=X62run_type(X126result_type(r277arg1(C))); } /*FI]*/ } /*FI]*/ return R; } void r277afd_check(T277* C){ T0* _running=NULL; T0* _rc=NULL; /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){ _rc=X62run_class(X126result_type((/*RF2*/(C)->_target/*4*/))); _running=(/*RF2*/(((T60*)_rc))->_running/*21*/); /*[IF*/ if((_running)==((void*)(NULL))){ } else if((r63count(((T63*)_running)))>(1)){ r432update((/*RF2*/(C)->_target/*4*/),(/*RF2*/(C)->_run_feature/*16*/)); } /*FI]*/ } /*FI]*/ X126afd_check((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245afd_check*/r245afd_check((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T6 r277use_current(T277* C){ T6 R=0; /*[IF*/ {/*AT*/R=/*SSFRF4*//*X245use_current*/r245use_current((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ /*[IF*/ if(R){ } else if(X126is_current((/*RF2*/(C)->_target/*4*/))){ R=X96use_current((/*RF2*/(C)->_run_feature/*16*/)); } else{ R=X126use_current((/*RF2*/(C)->_target/*4*/)); } /*FI]*/ return R; } void r277c_declare_for_old(T277* C){ X126c_declare_for_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245c_declare_for_old*/r245c_declare_for_old((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } void r277compile_to_c_old(T277* C){ X126compile_to_c_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245compile_to_c_old*/r245compile_to_c_old((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T0* r277runnable_args(T0* a1,T0* a2){ T0* R=NULL; R=X245to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X245start_position(a1),&se_tmp0))); } r277fatal_error(((T0*)ms20_462691396)); } /*FI]*/ return R; } void r277mapping_c_target(T277* C,T0* a1){ T0* _actual_type=NULL; T6 _flag=0; _flag=r83call_invariant_start(a1); _actual_type=X62run_type(r277result_type(C)); /*[IF*/ if(X62is_reference(_actual_type)){ /*[IF*/ if(X62is_reference(a1)){ X62mapping_cast(a1); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T277* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T277* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } else{ /*[IF*/ if(X62is_reference(a1)){ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T277* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } else{ /*[IF*/ if(X62need_c_struct(a1)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\46'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T277* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T277* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ /*[IF*/ if(_flag){ /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T58* C1=(T58*)(oBC83out_c); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } T0* r277run_feature_for(T277* C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; T0* _rt=NULL; T0* _rc=NULL; _rt=X126result_type(a1); /*[IF*/ if((_rt)!=((void*)(NULL))){ _rc=X62run_class(_rt); /*[IF*/ if((_rc)!=((void*)(NULL))){ _bc=(/*RF2*/(((T60*)_rc))->_base_class/*8*/); R=r61run_feature_for(((T61*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*12*/),a2); } /*FI]*/ } /*FI]*/ /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((/*RF2*/((T235*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } /*[IRF3.6append*/{T0* b1=((T0*)ms168_608361995); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } /*FI]*/ return R; } T2 r277to_integer_or_error(T277* C){ T2 R=0; r277to_integer_error(C); return R; } T0* r277add_comment(T277* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((/*RF2*/(((T164*)a1))->_list/*8*/))))/*)*/)==(0))){ R=((T0*)(C)); } else{ {T323*n=((T323*)se_malloc(sizeof(*n))/*12*/); *n=M323; r323make(n,(T0*)C,a1); R=((T0*)n); } } /*FI]*/ return R; } T0* r277to_runnable(T277* C,T0* a1){ T0* R=NULL; T0* _target_type=NULL; T0* _argument_type=NULL; T0* _rf=NULL; T0* _a=NULL; T0* _t=NULL; _t=r277runnable_expression((/*RF2*/(C)->_target/*4*/),a1); _a=r277runnable_args((/*RF2*/(C)->_arguments/*8*/),a1); _target_type=X126result_type(_t); _argument_type=X126result_type(r277arg1(C)); /*[IF*/ if(X62is_real(_argument_type)){ /*[IF*/ if(X62is_integer(_target_type)){ _t=r440implicit_cast((T440*)(oBC19conversion_handler),_t,_argument_type); } /*FI]*/ } else if(X62is_double(_argument_type)){ /*[IF*/ if((X62is_integer(_target_type))||(X62is_real(_target_type))){ _t=r440implicit_cast((T440*)(oBC19conversion_handler),_t,_argument_type); } /*FI]*/ } /*FI]*/ _rf=r277run_feature_for(C,_t,a1); /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))==((void*)(NULL))){ (/*SFN*/C->_target)=_t; (/*SFN*/C->_arguments)=_a; (/*SFN*/C->_run_feature)=_rf; r277run_feature_match(C,a1); R=((T0*)(C)); } else if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){ R=((T0*)(C)); } else{ {T277*n=((T277*)se_malloc(sizeof(*n))/*24*/); *n=M277; r277with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a,_rf,a1); R=((T0*)n); } } /*FI]*/ return R; } void r277collect_c_tmp(T277* C){ /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){ X96collect_c_tmp((/*RF2*/(C)->_run_feature/*16*/)); } /*FI]*/ X126collect_c_tmp((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){ /*SSPRF3*//*X245collect_c_tmp*/r245collect_c_tmp((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } void r277finalize(T277* C){ T0* _rf=NULL; T0* _rc=NULL; _rf=(/*RF2*/(C)->_run_feature/*16*/); _rc=/*SSWARF2*//*X96run_class*/(/*RF2*/(((T154*)_rf))->_run_class/*12*/); (/*SFN*/C->_run_feature)=r60dynamic((T60*)(/*(IRF4.6first*/((/*RF2*/((T63*)((/*RF2*/(((T60*)_rc))->_running/*21*/)))->_storage/*4*/))[0]/*)*/),_rf); } T0* r277static_result_base_class(T277* C){ T0* R=NULL; T0* _cn=NULL; T0* _rt=NULL; T0* _e_feature=NULL; T0* _bc=NULL; _bc=X126static_result_base_class((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((_bc)!=((void*)(NULL))){ _e_feature=r61e_feature(((T61*)_bc),(/*RF2*/(C)->_feature_name/*12*/)); /*[IF*/ if((_e_feature)!=((void*)(NULL))){ _rt=X99result_type(_e_feature); /*[IF*/ if((_rt)!=((void*)(NULL))){ _cn=X62static_base_class_name(_rt); /*[IF*/ if((_cn)!=((void*)(NULL))){ R=r77base_class(((T77*)_cn)); } /*FI]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ return R; } void r522gc_store_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_89821)); r2append_in(r522id(C),a1); } void r522c_type_for_external_in(T0* a1){ /*[IF*/ {/*AT*/r7append(((T7*)a1),((T0*)ms20_18150)); r7extend(((T7*)a1),((T3)'\52')); } /*FI]*/ } T0* r522generic_list(T522* C){ T0* R=NULL; r522fatal_error_generic_list(C); return R; } T0* r522type_any(void){ if(fBC19type_any==0){fBC19type_any=1;{ T104 _unknown_position={NULL,0}; {T356*n=((T356*)se_malloc(sizeof(*n))/*16*/); *n=M356; oBC19type_any=((T0*)n); r356make(n,_unknown_position); } }} return oBC19type_any; } void r522gc_store_chunk_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_1403828457)); r2append_in(r522id(C),a1); } void r522standard_gc_define2(T522* C){ T6 _gc_check_id=0; T2 _rcid=0; T0* _rc=NULL; _rc=r522run_class(C); _rcid=(/*RF2*/(((T60*)_rc))->_id/*16*/); r7copy((T7*)(oBC62header),((T0*)ms20_18150)); r7extend((T7*)(oBC62header),((T3)'\40')); r7append((T7*)(oBC62header),((T0*)ms20_9980517)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_5161461)); r7copy((T7*)(oBC62body),((T0*)ms62_614)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_976559263)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1815688614)); r522gc_store_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_84678371)); r444memory_dispose(oBC62body,((T0*)ms62_604),r522run_class(C)); r7append((T7*)(oBC62body),((T0*)ms62_503314970)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms20_305)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_2045816469)); r444memory_dispose(oBC62body,((T0*)ms62_605),r522run_class(C)); r7append((T7*)(oBC62body),((T0*)ms62_720252832)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms20_305)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_2124916149)); r83put_c_function((T83*)(oBC19cpp),oBC62header,oBC62body); r7copy((T7*)(oBC62header),((T0*)ms20_18150)); r7extend((T7*)(oBC62header),((T3)'\40')); r522gc_mark_in(C,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_284)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_1646)); /*[IRF3.3clear*/((((T7*)((T7*)(oBC62body))))->_count)=(0); /*]*/ _gc_check_id=(r60is_tagged(((T60*)_rc)))&&(r57no_check((T57*)(oBC19run_control))); /*[IF*/ if(_gc_check_id){ r7append((T7*)(oBC62body),((T0*)ms62_1985327250)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_6773)); } /*FI]*/ r60gc_mark_fixed_size(((T60*)_rc),0,oBC62body); /*[IF*/ if(_gc_check_id){ r7append((T7*)(oBC62body),((T0*)ms62_175)); } /*FI]*/ r83put_c_function((T83*)(oBC19cpp),oBC62header,oBC62body); r7copy((T7*)(oBC62header),((T0*)ms20_18150)); r7extend((T7*)(oBC62header),((T3)'\40')); r522gc_align_mark_in(C,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_129037214)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_1651)); /*[IRF3.3clear*/((((T7*)((T7*)(oBC62body))))->_count)=(0); /*]*/ r60gc_align_mark_fixed_size(((T60*)_rc),oBC62body); r83put_c_function((T83*)(oBC19cpp),oBC62header,oBC62body); r7copy((T7*)(oBC62header),((T0*)ms62_407207)); r2append_in(_rcid,oBC62header); r7copy((T7*)(oBC62body),((T0*)ms62_2051940780)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1665297219)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1831440704)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_160930)); r83put_extern5((T83*)(oBC19cpp),oBC62header,oBC62body); /*[IRF3.3clear*/((((T7*)((T7*)(oBC62header))))->_count)=(0); /*]*/ r7extend((T7*)(oBC62header),((T3)'T')); r2append_in(_rcid,oBC62header); r7extend((T7*)(oBC62header),((T3)'\52')); r7append((T7*)(oBC62header),((T0*)ms20_3374)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms20_215791)); r7copy((T7*)(oBC62body),((T0*)ms20_614)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_8305)); /*[IF*/ if((/*RF2*/((T444*)(oBC19gc_handler))->_info_flag/*1*/)){ r522gc_info_nb_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_6755)); } /*FI]*/ r7append((T7*)(oBC62body),((T0*)ms62_3175)); r522gc_store_left_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_46525)); r522gc_store_left_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_176986)); r522gc_store_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_411775958)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_479982486)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms20_305)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1748680500)); r522gc_store_left_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_236525)); r522gc_store_left_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_9130)); r522gc_store_chunk_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1648235130)); r522gc_store_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1800342110)); r7append((T7*)(oBC62body),((T0*)ms62_938298091)); r522gc_store_chunk_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_842464717)); r522gc_initialize_chunk(C,_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1704089558)); r522gc_store_chunk_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_672427151)); r522gc_store_chunk_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1562678200)); r522gc_store_chunk_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_8260)); r522gc_initialize_chunk(C,_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_1519036636)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_41861)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms20_305)); r522gc_free_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_69947558)); r522gc_store_chunk_in(C,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_54875475)); r522gc_initialize_chunk(C,_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_433411101)); /*[IF*/ {/*AT*/r7append((T7*)(oBC62body),((T0*)ms62_1196941282)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms20_305)); } /*FI]*/ r7append((T7*)(oBC62body),((T0*)ms62_54686284)); r2append_in(_rcid,oBC62body); r7append((T7*)(oBC62body),((T0*)ms62_171955)); r83put_c_function((T83*)(oBC19cpp),oBC62header,oBC62body); } void r522standard_gc_define1(T522* C){ T2 _rcid=0; T0* _rc=NULL; _rc=r522run_class(C); _rcid=(/*RF2*/(((T60*)_rc))->_id/*16*/); r7copy((T7*)(oBC62header),((T0*)ms20_11381817)); r7append((T7*)(oBC62header),((T0*)ms20_2248337)); r7extend((T7*)(oBC62header),((T3)'B')); r2append_in(_rcid,oBC62header); r7extend((T7*)(oBC62header),((T3)'\40')); r7append((T7*)(oBC62header),((T0*)ms20_614)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms20_305)); r7append((T7*)(oBC62header),((T0*)ms20_2248337)); r7extend((T7*)(oBC62header),((T3)'B')); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_699)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_1527651872)); r2append_in(_rcid,oBC62header); r7append((T7*)(oBC62header),((T0*)ms62_1126647264)); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),oBC62header); /*]*/ r7copy((T7*)(oBC62header),((T0*)ms20_614)); r2append_in(_rcid,oBC62header); r7extend((T7*)(oBC62header),((T3)'\52')); r522gc_store_in(C,oBC62header); r83put_extern5((T83*)(oBC19cpp),oBC62header,((T0*)ms20_12331)); r7copy((T7*)(oBC62header),((T0*)ms20_3291)); r7extend((T7*)(oBC62header),((T3)'\40')); r522gc_store_left_in(C,oBC62header); r83put_extern2((T83*)(oBC19cpp),oBC62header,((T3)'0')); r7copy((T7*)(oBC62header),((T0*)ms62_81437)); r522gc_store_chunk_in(C,oBC62header); r83put_extern5((T83*)(oBC19cpp),oBC62header,((T0*)ms20_12331)); r7copy((T7*)(oBC62header),((T0*)ms20_614)); r2append_in(_rcid,oBC62header); r7extend((T7*)(oBC62header),((T3)'\52')); r522gc_free_in(C,oBC62header); r83put_extern5((T83*)(oBC19cpp),oBC62header,((T0*)ms20_12331)); /*[IF*/ if((/*RF2*/((T444*)(oBC19gc_handler))->_info_flag/*1*/)){ r7copy((T7*)(oBC62header),((T0*)ms20_3291)); r7extend((T7*)(oBC62header),((T3)'\40')); r522gc_info_nb_in(C,oBC62header); r83put_extern2((T83*)(oBC19cpp),oBC62header,((T3)'0')); } /*FI]*/ } T6 r522is_native_array(T522* C){ T6 R=0; T0* _tna=NULL; _tna=NULL; R=(_tna)!=((void*)(NULL)); return R; } void r522gc_mark_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms20_1994852)); r2append_in(r522id(C),a1); } T2 r522id(T522* C){ T2 R=0; R=(/*RF2*/((T60*)(r522run_class(C)))->_id/*16*/); return R; } void r522from_type_bit(T522* C,T104 a1,T0* a2){ (/*SFN*/C->_start_position)=a1; (/*SFN*/C->_type_bit)=a2; (/*SFN*/C->_run_time_mark)=((T0*)ms522_166323715); r7copy((T7*)((/*RF2*/(C)->_run_time_mark/*24*/)),X136run_time_mark((/*RF2*/(C)->_type_bit/*20*/))); r7append((T7*)((/*RF2*/(C)->_run_time_mark/*24*/)),((T0*)ms522_14340)); (/*SFN*/C->_run_time_mark)=((/*UT*/(void)((T27*)(r522string_aliaser()))),r27item((/*RF2*/(C)->_run_time_mark/*24*/))); } T2 r522c_sizeof_pointer(void){ T2 R=0; T8 _p=NULL; R=sizeof(T8); return R; } void r522mapping_cast(T522* C){ /*[IRF3.3clear*/((((T7*)((T7*)(oBC62mapping_cast_buffer))))->_count)=(0); /*]*/ r7extend((T7*)(oBC62mapping_cast_buffer),((T3)'\50')); r522c_type_for_target_in(C,oBC62mapping_cast_buffer); r7extend((T7*)(oBC62mapping_cast_buffer),((T3)'\51')); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),oBC62mapping_cast_buffer); /*]*/ } void r522standard_gc_info_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_1419822228a)); r7append(((T7*)a1),(/*RF2*/(C)->_run_time_mark/*24*/)); r7append(((T7*)a1),((T0*)ms20_17723839)); r522gc_info_nb_in(C,a1); r7append(((T7*)a1),((T0*)ms20_1330)); r7append(((T7*)a1),((T0*)ms62_1419822228)); r522gc_store_left_in(C,a1); r7append(((T7*)a1),((T0*)ms20_17723839)); r522gc_store_left_in(C,a1); r7append(((T7*)a1),((T0*)ms20_1330)); } void r522standard_c_typedef(T522* C){ T2 _mem_id=0; _mem_id=r522id(C); /*[IRF3.3clear*/((((T7*)((T7*)(oBC62tmp_string))))->_count)=(0); /*]*/ /*[IF*/ {/*AT*/r7append((T7*)(oBC62tmp_string),((T0*)ms20_11381817)); r7append((T7*)(oBC62tmp_string),((T0*)ms20_2248337)); r7extend((T7*)(oBC62tmp_string),((T3)'S')); r2append_in(_mem_id,oBC62tmp_string); r7extend((T7*)(oBC62tmp_string),((T3)'\40')); r7extend((T7*)(oBC62tmp_string),((T3)'T')); r2append_in(_mem_id,oBC62tmp_string); r7append((T7*)(oBC62tmp_string),((T0*)ms20_305)); } /*FI]*/ /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),oBC62tmp_string); /*]*/ } void r522fatal_error_generic_list(T522* C){ r82add_type((T0*)C,((T0*)ms62_1313445026)); r82print_as_fatal_error((T82*)(oBC19eh)); } void r522c_frame_descriptor(T522* C){ r7extend((T7*)(oBC19c_frame_descriptor_format),((T3)'\45')); /*[IF*/ {/*AT*/r7extend((T7*)(oBC19c_frame_descriptor_format),((T3)'R')); } /*FI]*/ r2append_in(r522id(C),oBC19c_frame_descriptor_format); r7extend((T7*)(oBC19c_frame_descriptor_format),((T3)'\45')); } T0*oBC522base_class_name=NULL; int fBC522base_class_name=0; T0* r522base_class_name(void){ if(fBC522base_class_name==0){fBC522base_class_name=1;{ {T77*n=((T77*)se_malloc(sizeof(*n))/*12*/); *n=M77; oBC522base_class_name=((T0*)n); /*[IRF3.3unknown_position*/((((T77*)(n)))->_to_string)=(((T0*)ms21_33156840)); /*]*/ } }} return oBC522base_class_name; } T0* r522string_aliaser(void){ if(fBC19string_aliaser==0){fBC19string_aliaser=1;{ {T27*n=((T27*)se_malloc(1)); oBC19string_aliaser=((T0*)n); /*[IRF3.2make*//*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2104); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_53339); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2099); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_53028); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_33156840); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1339128); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_836969340); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_33120277); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_774649014); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_168164374); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_274599); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_171638715); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_175767198); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_867350214); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1384826); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_35866627); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_35868574); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_7173699); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_286922); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_179371455); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1447702); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_904828090); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_295849); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_349117293); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_12184); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_7704337); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1554777); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_971749965); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_12376); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_7749340); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_324411); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_520438282); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1692780980); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_65574); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_3075); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_9647090); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_64); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_552); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_61); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_371); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_62); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2067995); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_361); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_60); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_45); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_42); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_296); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_3421); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_669); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2126626); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_43); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_94); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1960); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1972); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_47); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_282); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_35); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_3669); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_9529116); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_77832); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ r27special_add(((T0*)ms21_280482649)); /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_386854); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_9676326); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ r27special_add(((T0*)ms21_1597390874)); /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_49076823); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_79341); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_15751); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_247239028); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_94407393); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_840111968); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1236707441); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_15831); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_240810599); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_240810604); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1680885744); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_244781926); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_244783893); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1223936132); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_48958735); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1622700141); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1979951); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_936296820); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1949019648); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_705019679); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1286698901); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_10018876); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_50778415); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_397576); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_15932); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_80109); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_80416); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_80694); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2023685073); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_406284); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2067759348); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2090604340); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_880412606); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_50246319); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_636); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ r27special_add(((T0*)ms21_619776399)); /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1744612358); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1937220099); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_378799862); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_10377643); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1297876698); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_16639); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_16616); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_84969); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_16686); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ r27special_add(((T0*)ms21_1856946950)); r27special_add(((T0*)ms21_1740332382)); r27special_add(((T0*)ms21_111802057)); r27special_add(((T0*)ms21_756809447)); r27special_add(((T0*)ms21_1419919903)); r27special_add(((T0*)ms21_275488632)); r27special_add(((T0*)ms21_1377517899)); r27special_add(((T0*)ms21_698215697)); /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1326673961); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_954385774); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1778079380); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_87541); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_10945665); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_849712179); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_3501); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_88048); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_88049); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_573080478); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_54325331); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_41849945); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2174354); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_438300); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2187464); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2187483); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_54733341); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_54733071); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_733277224); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_54749764); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_11011040); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_112335826); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_11026665); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1507243919); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1053896806); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_591414963); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_267647687); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_591417242); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_447584); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_89510); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_447851); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_55924644); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_55926626); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_279656751); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2246041); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_88795); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_446841); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1607595572); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_55868341); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_279416444); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_279523519); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2236118); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1574640467); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1742738754); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_18110); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_90544); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1202672333); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_287359706); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1501191); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_1498845794); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_2038667775); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_42134669); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_337331); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*[IRF3.6regular_add*/{T0* b1=((T0*)ms21_14150); r30add((T30*)(oBC27memory),b1,b1); }/*]*/ /*]*/ } }} return oBC19string_aliaser; } T0* r522base_class(T522* C){ T0* R=NULL; T0* _bcn=NULL; /*[IF*/ if(((/*RF2*/(C)->_base_class_memory/*4*/))!=((void*)(NULL))){ R=(/*RF2*/(C)->_base_class_memory/*4*/); } else{ _bcn=r522base_class_name(); /*[IF*/ if((_bcn)!=((void*)(NULL))){ (/*SFN*/C->_base_class_memory)=r77base_class(((T77*)_bcn)); R=(/*RF2*/(C)->_base_class_memory/*4*/); } else{ /*[IRF3.6append*/{T0* b1=((T0*)ms62_432936020); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82add_type((T0*)C,((T0*)ms20_46)); r82print_as_fatal_error((T82*)(oBC19eh)); } /*FI]*/ } /*FI]*/ return R; } void r522standard_c_print_function(T522* C){ /*[IF*/ if(r57no_check((T57*)(oBC19run_control))){ r60c_print_function((T60*)(r522run_class(C))); } /*FI]*/ } void r522c_type_for_target_in(T522* C,T0* a1){ r7extend(((T7*)a1),((T3)'T')); r2append_in(r522id(C),a1); r7extend(((T7*)a1),((T3)'\52')); } void r522gc_free_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_1994331)); r2append_in(r522id(C),a1); } T6 r522is_a_in(T522* C,T0* a1,T0* a2){ T6 R=0; T0* _ct=NULL; T0* _t2=NULL; T0* _t1=NULL; /*[IF*/ if((/*(IRF4.3written_mark*/(/*RF2*/(C)->_run_time_mark/*24*/)/*)*/)==((void*)(X62written_mark(a1)))){ R=1; } else{ _ct=(/*RF2*/(((T60*)a2))->_current_type/*0*/); _t1=/*(IRF4.4to_runnable*/((T0*)(C))/*)*/; _t2=X62to_runnable(a1,_ct); /*[IF*/ if((X62run_time_mark(_t1))==((void*)(X62run_time_mark(_t2)))){ R=1; } else{ R=X62is_a(_t1,_t2); } /*FI]*/ } /*FI]*/ return R; } void r522demangling_in(T522* C,T0* a1){ /*[IF*/ {/*AT*/r7extend(((T7*)a1),((T3)'R')); } /*FI]*/ r7extend(((T7*)a1),((T3)'\40')); r7append(((T7*)a1),(/*RF2*/(C)->_run_time_mark/*24*/)); } void r522gc_align_mark_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_1085305030)); r2append_in(r522id(C),a1); } void r522gc_initialize_chunk(T522* C,T2 a1,T0* a2){ r7extend(((T7*)a2),((T3)'\52')); r522gc_store_chunk_in(C,a2); r7append(((T7*)a2),((T0*)ms20_377)); r2append_in(a1,a2); r7append(((T7*)a2),((T0*)ms20_305)); r522gc_store_in(C,a2); r7append(((T7*)a2),((T0*)ms62_44739)); r2append_in(a1,a2); r7append(((T7*)a2),((T0*)ms62_32605)); r522gc_store_chunk_in(C,a2); r7append(((T7*)a2),((T0*)ms62_212314278)); r522gc_store_left_in(C,a2); r7append(((T7*)a2),((T0*)ms20_377)); r2append_in(a1,a2); r7append(((T7*)a2),((T0*)ms62_365929075)); r522gc_store_in(C,a2); r7append(((T7*)a2),((T0*)ms62_169510)); } void r522id_extra_information(T0* a1){ r58put_string(((T58*)a1),((T0*)ms62_1360462097)); /*[IF*/ {/*AT*/r58put_string(((T58*)a1),((T0*)ms62_18257)); } /*FI]*/ } T6 r522is_a(T522* C,T0* a1){ T6 R=0; /*[IF*/ if(((/*RF2*/(C)->_run_time_mark/*24*/))==((void*)(X62run_time_mark(a1)))){ R=1; } else{ R=r61is_subclass_of((T61*)(r522base_class(C)),X62base_class(a1)); /*[IF*/ if(!(R)){ r82add_type((T0*)C,((T0*)ms20_1308256781)); r82add_type(a1,((T0*)ms20_46)); } /*FI]*/ } /*FI]*/ return R; } void r522gc_store_left_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_280766651)); r2append_in(r522id(C),a1); } T0* r522run_class(T522* C){ T0* R=NULL; /*[IF*/ if(((/*RF2*/(C)->_run_class_memory/*8*/))!=((void*)(NULL))){ R=(/*RF2*/(C)->_run_class_memory/*8*/); } else {/*AT*/(/*SFN*/C->_run_class_memory)=r59run_class(/*(IRF4.4run_type*/((T0*)(C))/*)*/); R=(/*RF2*/(C)->_run_class_memory/*8*/); } /*FI]*/ return R; } void r522c_header_pass2(T522* C){ r7copy((T7*)(oBC62tmp_string),((T0*)ms20_2248337)); r7extend((T7*)(oBC62tmp_string),((T3)'S')); r2append_in(r522id(C),oBC62tmp_string); r7append((T7*)(oBC62tmp_string),((T0*)ms522_58367254)); r2append_in(X136id((/*RF2*/(C)->_type_bit/*20*/)),oBC62tmp_string); r7append((T7*)(oBC62tmp_string),((T0*)ms522_110019555)); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),oBC62tmp_string); /*]*/ } void r522c_header_pass4(T522* C){ T0* _rc=NULL; T2 _mem_id=0; _rc=r522run_class(C); _mem_id=(/*RF2*/(((T60*)_rc))->_id/*16*/); r7copy((T7*)(oBC62tmp_string),((T0*)ms20_2041682)); r7extend((T7*)(oBC62tmp_string),((T3)'T')); r2append_in(_mem_id,oBC62tmp_string); r7extend((T7*)(oBC62tmp_string),((T3)'\40')); r7extend((T7*)(oBC62tmp_string),((T3)'M')); r2append_in(_mem_id,oBC62tmp_string); r7append((T7*)(oBC62tmp_string),((T0*)ms20_305)); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),oBC62tmp_string); /*]*/ /*[IRF3.3swap_on_c*/((((T83*)((T83*)(oBC19cpp))))->_current_out)=(oBC83out_c); /*]*/ /*[IRF3.3clear*/((((T7*)((T7*)(oBC62tmp_string))))->_count)=(0); /*]*/ r7extend((T7*)(oBC62tmp_string),((T3)'T')); r2append_in(_mem_id,oBC62tmp_string); r7extend((T7*)(oBC62tmp_string),((T3)'\40')); r7extend((T7*)(oBC62tmp_string),((T3)'M')); r2append_in(_mem_id,oBC62tmp_string); r7extend((T7*)(oBC62tmp_string),((T3)'\75')); r7extend((T7*)(oBC62tmp_string),((T3)'\173')); /*[IF*/ if(r60is_tagged(((T60*)_rc))){ r2append_in(_mem_id,oBC62tmp_string); r7extend((T7*)(oBC62tmp_string),((T3)'\54')); } /*FI]*/ X136c_initialize_in((/*RF2*/(C)->_type_bit/*20*/),oBC62tmp_string); r7extend((T7*)(oBC62tmp_string),((T3)'\175')); r7append((T7*)(oBC62tmp_string),((T0*)ms20_305)); /*[IRF3.5put_string*/r58put_string(((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))),oBC62tmp_string); /*]*/ r83swap_on_h((T83*)(oBC19cpp)); r522standard_c_print_function(C); } void r522standard_just_before_gc_mark_in(T522* C,T0* a1){ r522gc_free_in(C,a1); r7extend(((T7*)a1),((T3)'\75')); r7append(((T7*)a1),((T0*)ms20_12331)); r7append(((T7*)a1),((T0*)ms20_305)); } void r522gc_info_nb_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms62_249330648)); r2append_in(r522id(C),a1); } T0* r522smallest_ancestor(T522* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((/*RF2*/(C)->_run_time_mark/*24*/))==((void*)(X62run_time_mark(a1)))){ R=((T0*)(C)); } else{ R=r522type_any(); } /*FI]*/ return R; } void r522gc_call_new_in(T522* C,T0* a1){ r7append(((T7*)a1),((T0*)ms20_3374)); r2append_in(r522id(C),a1); r7extend(((T7*)a1),((T3)'\50')); r7extend(((T7*)a1),((T3)'\51')); } void r225run_feature_match(T225* C,T0* a1){ r225run_feature_has_result(C); X245match_with((/*RF2*/(C)->_arguments/*8*/),(/*RF2*/(C)->_run_feature/*16*/),a1); } T0* r225runnable_expression(T0* a1,T0* a2){ T0* R=NULL; R=X126to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X126start_position(a1),&se_tmp0))); } r225fatal_error(((T0*)ms168_1263631766)); } /*FI]*/ return R; } T6 r225call_proc_call_stupid_switch(T225* C,T0* a1){ T6 R=0; /*[IF*/ if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){ R=1; } else{ R=/*SSFRF4*//*X245stupid_switch*/r245stupid_switch((T245*)((/*RF2*/(C)->_arguments/*8*/)),a1); } /*FI]*/ /*[IF*/ if(R){ /*[IF*/ if(X126is_current((/*RF2*/(C)->_target/*4*/))){ /*[IF*/ if(r59same_base_feature((/*RF2*/(C)->_run_feature/*16*/),a1)){ R=(X96stupid_switch((/*RF2*/(C)->_run_feature/*16*/),a1))!=((void*)(NULL)); } else{ R=0; } /*FI]*/ } else{ R=X126stupid_switch((/*RF2*/(C)->_target/*4*/),a1); } /*FI]*/ } /*FI]*/ return R; } T6 r225is_static(T225* C){ T6 R=0; /*[IF*/ if(X62is_boolean(X126result_type((/*RF2*/(C)->_target/*4*/)))){ /*[IF*/ if(X126is_static((/*RF2*/(C)->_target/*4*/))){ /*[IF*/ if((X126static_value((/*RF2*/(C)->_target/*4*/)))==(1)){ R=1; (/*SFN*/C->_static_value_mem)=1; } else{ R=X126is_static(r225arg1(C)); /*[IF*/ if(R){ (/*SFN*/C->_static_value_mem)=X126static_value(r225arg1(C)); } /*FI]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ return R; } T0* r225operator(void){ T0* R=NULL; R=((T0*)ms21_2126626); return R; } void r225with(T225* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){ (/*SFN*/C->_target)=a1; (/*SFN*/C->_feature_name)=a2; (/*SFN*/C->_arguments)=a3; (/*SFN*/C->_run_feature)=a4; r225run_feature_match(C,a5); } void r225run_feature_has_result(T225* C){ /*[IF*/ if((X96result_type((/*RF2*/(C)->_run_feature/*16*/)))==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X96start_position((/*RF2*/(C)->_run_feature/*16*/)),&se_tmp0))); } {T104 se_tmp0; r82add_position((/*RF2*/((T235*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } r225fatal_error(((T0*)ms222_793028699)); } /*FI]*/ } T6 r225stupid_switch(T225* C,T0* a1){ T6 R=0; R=r225call_proc_call_stupid_switch(C,a1); /*[IF*/ if(R){ R=!(X62is_native_array(r225result_type(C))); } /*FI]*/ return R; } void r225make(T225* C,T0* a1,T104 a2,T0* a3){ (/*SFN*/C->_target)=a1; {T235*n=((T235*)se_malloc(sizeof(*n))/*20*/); *n=M235; r235make(n,r225operator(),a2); (/*SFN*/C->_feature_name)=((T0*)n); } {T245*n=((T245*)se_malloc(sizeof(*n))/*16*/); *n=M245; /*[IRF3.3make_1*/((((T245*)(n)))->_first_one)=(a3); /*]*/ (/*SFN*/C->_arguments)=((T0*)n); } } void r225fatal_error(T0* a1){ /*[IRF3.6append*/{T0* b1=a1; r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } void r225to_integer_error(T225* C){ /*[IRF3.6append*/{T0* b1=((T0*)ms20_752996481); r7append((T7*)(oBC82explanation),b1); }/*]*/ {T104 se_tmp0; r82add_position(/*(IRF4.6start_position*/(/*RF2*/(((T235*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/); } r82print_as_error((T82*)(oBC19eh)); } T0* r225arg1(T225* C){ T0* R=NULL; R=/*SSFRF4*//*X245first*//*(IRF4.3first*/(/*RF2*/((T245*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/; return R; } void r225assertion_check(T225* C,T3 a1){ /*[IF*/ if((a1)==(((T3)'R'))){ {T104 se_tmp0; X96vape_check_from((/*RF2*/(C)->_run_feature/*16*/),/*(IRF4.6start_position*/(/*RF2*/(((T235*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/); } } /*FI]*/ X126assertion_check((/*RF2*/(C)->_target/*4*/),a1); X126assertion_check(r225arg1(C),a1); } T0* r225result_type(T225* C){ T0* R=NULL; T0* _tla=NULL; R=X96result_type((/*RF2*/(C)->_run_feature/*16*/)); /*[IF*/ if(X62is_like_current(R)){ R=/*SSWARF2*//*X96current_type*/(/*RF2*/((T154*)((/*RF2*/(C)->_run_feature/*16*/)))->_current_type/*8*/); } else{ _tla=R; if(NULL!=(_tla)){ switch(((T0*)_tla)->id){ case 355: break; default: _tla=NULL; } }/*[IF*/ if((_tla)!=((void*)(NULL))){ R=X62run_type(X126result_type(r225arg1(C))); } /*FI]*/ } /*FI]*/ return R; } void r225afd_check(T225* C){ T0* _running=NULL; T0* _rc=NULL; /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){ _rc=X62run_class(X126result_type((/*RF2*/(C)->_target/*4*/))); _running=(/*RF2*/(((T60*)_rc))->_running/*21*/); /*[IF*/ if((_running)==((void*)(NULL))){ } else if((r63count(((T63*)_running)))>(1)){ r432update((/*RF2*/(C)->_target/*4*/),(/*RF2*/(C)->_run_feature/*16*/)); } /*FI]*/ } /*FI]*/ X126afd_check((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245afd_check*/r245afd_check((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T6 r225use_current(T225* C){ T6 R=0; /*[IF*/ {/*AT*/R=/*SSFRF4*//*X245use_current*/r245use_current((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ /*[IF*/ if(R){ } else if(X126is_current((/*RF2*/(C)->_target/*4*/))){ R=X96use_current((/*RF2*/(C)->_run_feature/*16*/)); } else{ R=X126use_current((/*RF2*/(C)->_target/*4*/)); } /*FI]*/ return R; } void r225c_declare_for_old(T225* C){ X126c_declare_for_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245c_declare_for_old*/r245c_declare_for_old((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } void r225compile_to_c_old(T225* C){ X126compile_to_c_old((/*RF2*/(C)->_target/*4*/)); /*[IF*/ {/*AT*//*SSPRF3*//*X245compile_to_c_old*/r245compile_to_c_old((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } T0* r225runnable_args(T0* a1,T0* a2){ T0* R=NULL; R=X245to_runnable(a1,a2); /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((*(se_tmp0=X245start_position(a1),&se_tmp0))); } r225fatal_error(((T0*)ms20_462691396)); } /*FI]*/ return R; } void r225mapping_c_target(T225* C,T0* a1){ T0* _actual_type=NULL; T6 _flag=0; _flag=r83call_invariant_start(a1); _actual_type=X62run_type(r225result_type(C)); /*[IF*/ if(X62is_reference(_actual_type)){ /*[IF*/ if(X62is_reference(a1)){ X62mapping_cast(a1); /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T225* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T225* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } else{ /*[IF*/ if(X62is_reference(a1)){ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T225* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } else{ /*[IF*/ if(X62need_c_struct(a1)){ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\46'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\50'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T225* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ /*[IRF3.5put_character*//*[IRF3.6put_character*/{T58* C1=((T58*)((/*RF2*/((T83*)(oBC19cpp))->_current_out/*63*/))); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } else{ /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T225* C1=C; r83put_cpc((T83*)(oBC19cpp),(T0*)C1); }/*]*/ /*]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ /*[IF*/ if(_flag){ /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T58* C1=(T58*)(oBC83out_c); T3 b1=((T3)'\51'); putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/)))); }/*]*/ /*]*/ } /*FI]*/ } T0* r225run_feature_for(T225* C,T0* a1,T0* a2){ T0* R=NULL; T0* _bc=NULL; T0* _rt=NULL; T0* _rc=NULL; _rt=X126result_type(a1); /*[IF*/ if((_rt)!=((void*)(NULL))){ _rc=X62run_class(_rt); /*[IF*/ if((_rc)!=((void*)(NULL))){ _bc=(/*RF2*/(((T60*)_rc))->_base_class/*8*/); R=r61run_feature_for(((T61*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*12*/),a2); } /*FI]*/ } /*FI]*/ /*[IF*/ if((R)==((void*)(NULL))){ {T104 se_tmp0; r82add_position((/*RF2*/((T235*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/)); } /*[IRF3.6append*/{T0* b1=((T0*)ms168_608361995); r7append((T7*)(oBC82explanation),b1); }/*]*/ r82print_as_fatal_error((T82*)(oBC19eh)); } /*FI]*/ return R; } T2 r225to_integer_or_error(T225* C){ T2 R=0; r225to_integer_error(C); return R; } T0* r225add_comment(T225* C,T0* a1){ T0* R=NULL; /*[IF*/ if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((/*RF2*/(((T164*)a1))->_list/*8*/))))/*)*/)==(0))){ R=((T0*)(C)); } else{ {T323*n=((T323*)se_malloc(sizeof(*n))/*12*/); *n=M323; r323make(n,(T0*)C,a1); R=((T0*)n); } } /*FI]*/ return R; } T0* r225to_runnable(T225* C,T0* a1){ T0* R=NULL; T0* _target_type=NULL; T0* _argument_type=NULL; T0* _rf=NULL; T0* _a=NULL; T0* _t=NULL; _t=r225runnable_expression((/*RF2*/(C)->_target/*4*/),a1); _a=r225runnable_args((/*RF2*/(C)->_arguments/*8*/),a1); _target_type=X126result_type(_t); _argument_type=X126result_type(r225arg1(C)); /*[IF*/ if(X62is_real(_argument_type)){ /*[IF*/ if(X62is_integer(_target_type)){ _t=r440implicit_cast((T440*)(oBC19conversion_handler),_t,_argument_type); } /*FI]*/ } else if(X62is_double(_argument_type)){ /*[IF*/ if((X62is_integer(_target_type))||(X62is_real(_target_type))){ _t=r440implicit_cast((T440*)(oBC19conversion_handler),_t,_argument_type); } /*FI]*/ } /*FI]*/ _rf=r225run_feature_for(C,_t,a1); /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))==((void*)(NULL))){ (/*SFN*/C->_target)=_t; (/*SFN*/C->_arguments)=_a; (/*SFN*/C->_run_feature)=_rf; r225run_feature_match(C,a1); R=((T0*)(C)); } else if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){ R=((T0*)(C)); } else{ {T225*n=((T225*)se_malloc(sizeof(*n))/*24*/); *n=M225; r225with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a,_rf,a1); R=((T0*)n); } } /*FI]*/ return R; } void r225collect_c_tmp(T225* C){ /*[IF*/ if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){ X96collect_c_tmp((/*RF2*/(C)->_run_feature/*16*/)); } /*FI]*/ X126collect_c_tmp((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){ /*SSPRF3*//*X245collect_c_tmp*/r245collect_c_tmp((T245*)((/*RF2*/(C)->_arguments/*8*/))); } /*FI]*/ } void r225finalize(T225* C){ T0* _rf=NULL; T0* _rc=NULL; _rf=(/*RF2*/(C)->_run_feature/*16*/); _rc=/*SSWARF2*//*X96run_class*/(/*RF2*/(((T154*)_rf))->_run_class/*12*/); (/*SFN*/C->_run_feature)=r60dynamic((T60*)(/*(IRF4.6first*/((/*RF2*/((T63*)((/*RF2*/(((T60*)_rc))->_running/*21*/)))->_storage/*4*/))[0]/*)*/),_rf); } T0* r225static_result_base_class(T225* C){ T0* R=NULL; T0* _cn=NULL; T0* _rt=NULL; T0* _e_feature=NULL; T0* _bc=NULL; _bc=X126static_result_base_class((/*RF2*/(C)->_target/*4*/)); /*[IF*/ if((_bc)!=((void*)(NULL))){ _e_feature=r61e_feature(((T61*)_bc),(/*RF2*/(C)->_feature_name/*12*/)); /*[IF*/ if((_e_feature)!=((void*)(NULL))){ _rt=X99result_type(_e_feature); /*[IF*/ if((_rt)!=((void*)(NULL))){ _cn=X62static_base_class_name(_rt); /*[IF*/ if((_cn)!=((void*)(NULL))){ R=r77base_class(((T77*)_cn)); } /*FI]*/ } /*FI]*/ } /*FI]*/ } /*FI]*/ return R; } void r194make(T194* C,T0* a1){ {T196*n=((T196*)se_malloc(sizeof(*n))/*12*/); *n=M196; r196with_capacity(n,12); (/*SFN*/C->_list)=((T0*)n); } r196add_last((T196*)((/*RF2*/(C)->_list/*0*/)),a1); } void r194get_started(T194* C,T0* a1){ T2 _i=0; _i=(/*RF2*/((T196*)((/*RF2*/(C)->_list/*0*/)))->_upper/*8*/); while (!((_i)<(0))) { r195add_into((T195*)(/*(IRF4.6item*/((/*RF2*/((T196*)((/*RF2*/(C)->_list/*0*/)))->_storage/*0*/))[_i]/*)*/),a1); _i=(_i)-(1); } }