EIF_TYPED_VALUE F53_890 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "loopback_address"; RTEX; EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ur2x = {{0}, SK_REF}; #define ur2 ur2x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_NATURAL_8 tu1_1; RTSN; RTDA; RTLD; #define Result RTOTRR RTOTDR(F53_890); RTLI(7); RTLR(0,tr1); RTLR(1,tr2); RTLR(2,ur1); RTLR(3,Current); RTLR(4,tr3); RTLR(5,tr4); RTLR(6,ur2); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 52, Current, 0, 0, 955); RTSA(Dtype(Current)); RTSC; RTME(Dtype(Current), 0); RTGC; RTDBGEAA(52, Current, 955); RTIV(Current, RTAL); RTOTP; RTHOOK(1); RTDBGAL(Current, 0, 0xF8000046, 0,0); /* Result */ tr1 = RTLN(72); tr2 = RTMS_EX_H("localhost",9,185724020); ur1 = tr2; ui4_1 = ((EIF_INTEGER_32) 4L); { static EIF_TYPE_INDEX typarr0[] = {603,197,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr4 = RTLNSP2(eif_non_attached_type(typres0),0,ui4_1,sizeof(EIF_NATURAL_8), EIF_TRUE); RT_SPECIAL_COUNT(tr4) = 4L; memset(tr4, 0, RT_SPECIAL_VISIBLE_SIZE(tr4)); } tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 127L); *((EIF_NATURAL_8 *)tr4+0) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+1) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+2) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 1L); *((EIF_NATURAL_8 *)tr4+3) = (EIF_NATURAL_8) tu1_1; tr3 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2597, Dtype(tr4)))(tr4).it_r; ur2 = RTCCL(tr3); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(1148, Dtype(tr1)))(tr1, ur1x, ur2x); RTNHOOK(1,1); Result = (EIF_REFERENCE) RTCCL(tr1); RTVI(Current, RTAL); RTRS; RTOTE; RTHOOK(2); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ur1 #undef ur2 #undef ui4_1 #undef Result }
/* {EQA_SYSTEM_TEST_SET}.run_system */ void F893_7473 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "run_system"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; EIF_REFERENCE loc3 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_REFERENCE tr5 = NULL; EIF_REFERENCE tr6 = NULL; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; RTCFDT; RTCDT; RTSN; RTDA; RTLD; RTLI(12); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,loc2); RTLR(4,tr2); RTLR(5,loc1); RTLR(6,tr3); RTLR(7,tr4); RTLR(8,tr5); RTLR(9,tr6); RTLR(10,ur1); RTLR(11,loc3); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_REF, &loc2); RTLU(SK_REF, &loc3); RTEAA(l_feature_name, 892, Current, 3, 1, 12979); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(892, Current, 12979); { static EIF_TYPE_INDEX typarr0[] = {892,241,0xFF11,218,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, 241, typarr0))); RTCC(arg1, 892, l_feature_name, 1, eif_attached_type(typres0)); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("current_execution_attached", EX_PRE); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTTE((EIF_BOOLEAN)(tr1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("current_execution_not_launched", EX_PRE); tb1 = '\0'; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc2 = RTCCL(tr1); if (EIF_TEST(loc2)) { tb2 = *(EIF_BOOLEAN *)(loc2 + RTVA(886, 45, "is_launched", loc2)); tb1 = (EIF_BOOLEAN) !tb2; } RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr1 = tr2; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); RTDBGAL(Current, 1, 0xF8000376, 0, 0); /* loc1 */ loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if (RTAL & CK_CHECK) { RTHOOK(4); RTCT(NULL, EX_CHECK); if ((EIF_BOOLEAN)(loc1 != NULL)) { RTCK; } else { RTCF; } } RTHOOK(5); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(886, 63, "clear_argument", loc1))(loc1); RTHOOK(6); { static EIF_TYPE_INDEX typarr0[] = {892,0xFFF9,2,172,0xFF11,0,0xFF11,0,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[5] = dftype; typarr0[7] = RTWCT(892, 48, Current); typres0 = eif_compound_id(dftype, 172, typarr0); tr3 = RTLNTS(typres0, 3, 0); } ((EIF_TYPED_VALUE *)tr3+1)->it_r = Current; RTAR(tr3,Current); ((EIF_TYPED_VALUE *)tr3+2)->it_r = loc1; RTAR(tr3,loc1); ui4_1 = ((EIF_INTEGER_32) 1L); { static EIF_TYPE_INDEX typarr0[] = {892,294,204,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, 294, typarr0))); tr5 = RTLNSP2(eif_non_attached_type(typres0),0,ui4_1,sizeof(EIF_INTEGER_32), EIF_TRUE); RT_SPECIAL_COUNT(tr5) = 1L; memset(tr5, 0, RT_SPECIAL_VISIBLE_SIZE(tr5)); } *((EIF_INTEGER_32 *)tr5+0) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 2L); tr4 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWPF(2, 8, Dtype(tr5)))(tr5).it_r; { static EIF_TYPE_INDEX typarr0[] = {892,0xFF11,236,0xFF11,0,0xFF11,0xFFF9,1,172,0xFF11,218,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[4] = dftype; typres0 = eif_compound_id(dftype, 236, typarr0); tr6 = RTLNRW(typres0, 0, (EIF_POINTER) _A893_58_2, (EIF_POINTER)(0),892, 58, tr4, 0, 0, 1, 1, tr3, 1); } ur1 = RTCCL(tr6); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVPF(4, 17, "do_all", arg1))(arg1, ur1x); RTHOOK(7); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(886, 59, "launch", loc1))(loc1); RTHOOK(8); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(886, 61, "process_output_until_exit", loc1))(loc1); RTHOOK(9); RTDBGAA(Current, dtype, 892, 48, 0xF8000376, 0); /* current_execution */ RTAR(Current, loc1); *(EIF_REFERENCE *)(Current + RTWA(892, 48, dtype)) = (EIF_REFERENCE) RTCCL(loc1); if (RTAL & CK_ENSURE) { RTHOOK(10); RTCT("current_execution_unchanged", EX_POST); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTCO(tr2); if (RTCEQ(tr3, tr1)) { RTCK; } else { RTCF; } RTHOOK(11); RTCT("current_execution_exited", EX_POST); tb1 = '\0'; tb2 = '\0'; tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc3 = RTCCL(tr3); if (EIF_TEST(loc3)) { tb3 = *(EIF_BOOLEAN *)(loc3 + RTVA(886, 45, "is_launched", loc3)); tb2 = tb3; } if (tb2) { tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(886, 46, "has_exited", loc3))(loc3)).it_b); tb1 = tb2; } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(12); RTDBGLE; RTMD(0); RTLE; RTLO(6); RTEE; #undef up1 #undef ur1 #undef ui4_1 #undef arg1 }
/* {MEMORY_STRUCTURE}.make */ void F155_2012 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "make"; RTEX; EIF_POINTER loc1 = (EIF_POINTER) 0; EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_POINTER, &loc1); RTEAA(l_feature_name, 154, Current, 1, 0, 1921); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(154, Current, 1921); RTIV(Current, RTAL); RTHOOK(1); RTDBGAA(Current, dtype, 1782, 0x40000000, 1); /* internal_item */ *(EIF_POINTER *)(Current + RTWA(1782, dtype)) = (EIF_POINTER) loc1; RTHOOK(2); RTDBGAA(Current, dtype, 1783, 0xF80000C1, 0); /* managed_pointer */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(1783, dtype, Dftype(Current)))); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1781, dtype))(Current)).it_i4); ui4_1 = ti4_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3020, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(2,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(1783, dtype)) = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(3); RTDBGAA(Current, dtype, 1778, 0x04000000, 1); /* shared */ *(EIF_BOOLEAN *)(Current + RTWA(1778, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) 0; if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("not_shared", EX_POST); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(1778, dtype)); if ((EIF_BOOLEAN) !tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef ui4_1 }
/* {RT_DBG_ATTRIBUTE_RECORD}.is_same_as */ EIF_TYPED_VALUE F390_4511 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "is_same_as"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE up2x = {{0}, SK_POINTER}; #define up2 up2x.it_p EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCFDT; RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,loc1); RTLR(2,Current); RTLR(3,tr1); RTLR(4,tr2); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 389, Current, 1, 1, 9499); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(389, Current, 9499); RTCC(arg1, 389, l_feature_name, 1, eif_attached_type(176)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("other_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tb1 = '\0'; tb2 = '\0'; loc1 = RTCCL(arg1); loc1 = RTRV(eif_non_attached_type(dftype),loc1); if (EIF_TEST(loc1)) { ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3318, dtype)); ti4_2 = *(EIF_INTEGER_32 *)(loc1 + RTVA(3318, "offset", loc1)); tb2 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } if (tb2) { tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3332, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(3332, "value", loc1))(loc1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tb1 = RTCEQ(tr1, tr2); } Result = (EIF_BOOLEAN) tb1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("same_type", EX_POST); tb1 = '\01'; if (Result) { ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3319, dtype)); ti4_2 = *(EIF_INTEGER_32 *)(arg1 + RTVA(3319, "type", arg1)); tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef up2 #undef arg1 }
/* {EQA_SYSTEM_TEST_SET}.prepare_system */ void F893_7472 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "prepare_system"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; EIF_REFERENCE loc3 = (EIF_REFERENCE) 0; EIF_REFERENCE loc4 = (EIF_REFERENCE) 0; EIF_REFERENCE loc5 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_REFERENCE tr5 = NULL; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; RTCDT; RTSN; RTDA; RTLD; RTLI(13); RTLR(0,arg1); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,loc1); RTLR(4,Current); RTLR(5,tr3); RTLR(6,ur1); RTLR(7,loc2); RTLR(8,tr4); RTLR(9,loc3); RTLR(10,loc4); RTLR(11,loc5); RTLR(12,tr5); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_REF, &loc2); RTLU(SK_REF, &loc3); RTLU(SK_REF, &loc4); RTLU(SK_REF, &loc5); RTEAA(l_feature_name, 892, Current, 5, 1, 12978); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(892, Current, 12978); RTCC(arg1, 892, l_feature_name, 1, eif_attached_type(869)); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tr1 = arg1; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); RTDBGAL(Current, 1, 0xF8000376, 0, 0); /* loc1 */ tr3 = RTLNSMART(eif_non_attached_type(RTWCT(892, 48, Current))); ur1 = RTCCL(Current); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(886, 72, Dtype(tr3)))(tr3, ur1x); RTNHOOK(1,1); loc1 = (EIF_REFERENCE) RTCCL(tr3); RTHOOK(2); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(886, 48, "set_output_path", loc1))(loc1, ur1x); RTHOOK(3); RTDBGAA(Current, dtype, 892, 48, 0xF8000376, 0); /* current_execution */ RTAR(Current, loc1); *(EIF_REFERENCE *)(Current + RTWA(892, 48, dtype)) = (EIF_REFERENCE) RTCCL(loc1); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("current_execution_attached", EX_POST); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if ((EIF_BOOLEAN)(tr3 != NULL)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("current_execution_uses_environment", EX_POST); tb1 = '\0'; tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc2 = RTCCL(tr3); if (EIF_TEST(loc2)) { tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(886, 32, "test_set", loc2))(loc2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(5,1); tr4 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(892, 34, "environment", tr3))(tr3)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 34, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tb1 = RTCEQ(tr4, tr3); } if (tb1) { RTCK; } else { RTCF; } RTHOOK(6); RTCT("current_execution_not_launched", EX_POST); tb1 = '\0'; tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc3 = RTCCL(tr3); if (EIF_TEST(loc3)) { tb2 = *(EIF_BOOLEAN *)(loc3 + RTVA(886, 45, "is_launched", loc3)); tb1 = (EIF_BOOLEAN) !tb2; } if (tb1) { RTCK; } else { RTCF; } RTHOOK(7); RTCT("current_execution_uses_valid_output", EX_POST); tb1 = '\0'; tb2 = '\0'; tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc4 = RTCCL(tr3); if (EIF_TEST(loc4)) { tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(886, 35, "output_file_name", loc4))(loc4)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc5 = tr3; tb2 = EIF_TEST(loc5); } if (tb2) { tr3 = RTLN(869); ui4_1 = ((EIF_INTEGER_32) 1L); { static EIF_TYPE_INDEX typarr0[] = {892,255,0xFF11,227,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), 255, typarr0))); tr5 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr5) = 1L; memset(tr5, 0, RT_SPECIAL_VISIBLE_SIZE(tr5)); } *((EIF_REFERENCE *)tr5+0) = (EIF_REFERENCE) loc5; RTAR(tr5,loc5); tr4 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWPF(2, 8, Dtype(tr5)))(tr5).it_r; ur1 = RTCCL(tr4); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(869, 32, Dtype(tr3)))(tr3, ur1x); RTNHOOK(7,1); RTCO(tr2); tb1 = RTEQ(tr3, tr1); } if (tb1) { RTCK; } else { RTCF; } }
/* {EV_DOCKABLE_SOURCE_ACTION_SEQUENCE}.force_extend */ void F1104_10196 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "force_extend"; RTEX; #define arg1 arg1x.it_r EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; RTCFDT; RTSN; RTDA; RTLD; RTLI(7); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,tr3); RTLR(5,tr4); RTLR(6,ur1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1103, Current, 0, 1, 15988); RTSA(Dtype(Current)); RTSC; RTME(Dtype(Current), 0); RTGC; RTDBGEAA(1103, Current, 15988); { static EIF_TYPE_INDEX typarr0[] = {237,0xFF11,0,0xFF11,0xFFF9,0,173,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0))); RTCC(arg1, 1103, l_feature_name, 1, eif_attached_type(typres0)); } RTIV(Current, RTAL); RTHOOK(1); { static EIF_TYPE_INDEX typarr0[] = {0xFFF9,2,173,0xFF11,0,0xFF11,237,0xFF11,0,0xFF11,0xFFF9,0,173,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[4] = dftype; typres0 = eif_compound_id(dftype, typarr0); tr1 = RTLNTS(typres0, 3, 0); } ((EIF_TYPED_VALUE *)tr1+1)->it_r = Current; RTAR(tr1,Current); ((EIF_TYPED_VALUE *)tr1+2)->it_r = arg1; RTAR(tr1,arg1); ui4_1 = ((EIF_INTEGER_32) 1L); { static EIF_TYPE_INDEX typarr0[] = {292,205,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0))); tr3 = RTLNSP2(eif_non_attached_type(typres0),0,ui4_1,sizeof(EIF_INTEGER_32), EIF_TRUE); RT_SPECIAL_COUNT(tr3) = 1L; memset(tr3, 0, RT_SPECIAL_VISIBLE_SIZE(tr3)); } *((EIF_INTEGER_32 *)tr3+0) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 2L); tr2 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2397, Dtype(tr3)))(tr3).it_r; { static EIF_TYPE_INDEX typarr0[] = {0xFF11,237,0xFF11,0,0xFF11,0xFFF9,1,173,0xFF11,1222,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[3] = dftype; typres0 = eif_compound_id(dftype, typarr0); tr4 = RTLNRW(typres0, 0, (EIF_POINTER) _A1104_182_2, (EIF_POINTER)(0),7857, tr2, 0, 1, -1, tr1, 1); } ur1 = RTCCL(tr4); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1705, Dtype(Current)))(Current, ur1x); RTVI(Current, RTAL); RTRS; RTHOOK(2); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef ur1 #undef ui4_1 #undef arg1 }
/* {TO_SPECIAL}.make_empty_area */ void F312_1852 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "make_empty_area"; RTEX; #define arg1 arg1x.it_i4 EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU(SK_INT32,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 311, Current, 0, 1, 2384); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(311, Current, 2384); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("non_negative_argument", EX_PRE); RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 0L)), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAA(Current, dtype, 1556, 0xF8000138, 0); /* area */ ui4_1 = arg1; if (ui4_1< 0) { eraise ("non_negative_argument", EN_RT_CHECK); } tr1 = RTLNSP2(eif_non_attached_type(RTWCT(1556, dtype, Dftype(Current))),0,ui4_1,sizeof(EIF_REAL_64), EIF_TRUE); RT_SPECIAL_COUNT(tr1) = 0; RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(1556, dtype)) = (EIF_REFERENCE) tr1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("area_allocated", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1556, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if ((EIF_BOOLEAN)(tr1 != NULL)) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("capacity_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1556, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1624, "capacity", tr1))(tr1)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == arg1)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("count_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1556, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(5,1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1623, "count", tr1))(tr1)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 0L))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ui4_1 #undef arg1 }
EIF_TYPED_VALUE F904_8426 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "days_text"; RTEX; EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; RTSN; RTDA; RTLD; #define Result RTOTRR RTOTDR(F904_8426); RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,tr3); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 903, Current, 0, 0, 14077); RTSA(Dtype(Current)); RTSC; RTME(Dtype(Current), 0); RTGC; RTDBGEAA(903, Current, 14077); RTIV(Current, RTAL); RTOTP; RTHOOK(1); RTDBGAL(Current, 0, 0xF80000F9, 0,0); /* Result */ ui4_1 = ((EIF_INTEGER_32) 7L); { static EIF_TYPE_INDEX typarr0[] = {242,0xFF11,219,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr2 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr2) = 7L; memset(tr2, 0, RT_SPECIAL_VISIBLE_SIZE(tr2)); } tr3 = RTMS_EX_H("SUN",3,5461326); *((EIF_REFERENCE *)tr2+0) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("MON",3,5066574); *((EIF_REFERENCE *)tr2+1) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("TUE",3,5526853); *((EIF_REFERENCE *)tr2+2) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("WED",3,5719364); *((EIF_REFERENCE *)tr2+3) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("THU",3,5523541); *((EIF_REFERENCE *)tr2+4) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("FRI",3,4608585); *((EIF_REFERENCE *)tr2+5) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("SAT",3,5456212); *((EIF_REFERENCE *)tr2+6) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr1 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2397, Dtype(tr2)))(tr2).it_r; Result = (EIF_REFERENCE) tr1; RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1697, "compare_objects", Result))(Result); RTVI(Current, RTAL); RTRS; RTOTE; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ui4_1 #undef Result }
RTHOOK(3); RTDBGAA(Current, dtype, 612, 0xF8000095, 0); /* socket */ tr1 = RTLN(151); ur1 = RTCCL(arg1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(586, dtype))(Current, ur1x)).it_i4); ui4_1 = ti4_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(2056, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(3,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(612, dtype)) = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(612, "socket", arg1))(arg1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc2 = RTCCL(tr1); loc2 = RTRV(eif_non_attached_type(154),loc2); if (EIF_TEST(loc2)) { RTHOOK(5); RTDBGAA(Current, dtype, 612, 0xF8000095, 0); /* socket */ tr1 = RTLN(154); ur1 = RTCCL(arg1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(586, dtype))(Current, ur1x)).it_i4); ui4_1 = ti4_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(2100, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(5,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(612, dtype)) = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(6); RTDBGAA(Current, dtype, 612, 0xF8000095, 0); /* socket */
EIF_TYPED_VALUE F904_8427 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "months_text"; RTEX; EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; RTSN; RTDA; RTLD; #define Result RTOTRR RTOTDR(F904_8427); RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,tr3); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 903, Current, 0, 0, 14078); RTSA(Dtype(Current)); RTSC; RTME(Dtype(Current), 0); RTGC; RTDBGEAA(903, Current, 14078); RTIV(Current, RTAL); RTOTP; RTHOOK(1); RTDBGAL(Current, 0, 0xF80000F9, 0,0); /* Result */ ui4_1 = ((EIF_INTEGER_32) 12L); { static EIF_TYPE_INDEX typarr0[] = {242,0xFF11,219,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr2 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr2) = 12L; memset(tr2, 0, RT_SPECIAL_VISIBLE_SIZE(tr2)); } tr3 = RTMS_EX_H("JAN",3,4866382); *((EIF_REFERENCE *)tr2+0) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("FEB",3,4605250); *((EIF_REFERENCE *)tr2+1) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("MAR",3,5062994); *((EIF_REFERENCE *)tr2+2) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("APR",3,4280402); *((EIF_REFERENCE *)tr2+3) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("MAY",3,5063001); *((EIF_REFERENCE *)tr2+4) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("JUN",3,4871502); *((EIF_REFERENCE *)tr2+5) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("JUL",3,4871500); *((EIF_REFERENCE *)tr2+6) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("AUG",3,4281671); *((EIF_REFERENCE *)tr2+7) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("SEP",3,5457232); *((EIF_REFERENCE *)tr2+8) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("OCT",3,5194580); *((EIF_REFERENCE *)tr2+9) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("NOV",3,5132118); *((EIF_REFERENCE *)tr2+10) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("DEC",3,4474179); *((EIF_REFERENCE *)tr2+11) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr1 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2397, Dtype(tr2)))(tr2).it_r; Result = (EIF_REFERENCE) tr1; RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1697, "compare_objects", Result))(Result); RTVI(Current, RTAL); RTRS; RTOTE; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ui4_1 #undef Result }
EIF_TYPED_VALUE F904_8429 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "long_months_text"; RTEX; EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; RTSN; RTDA; RTLD; #define Result RTOTRR RTOTDR(F904_8429); RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,tr3); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 903, Current, 0, 0, 14080); RTSA(Dtype(Current)); RTSC; RTME(Dtype(Current), 0); RTGC; RTDBGEAA(903, Current, 14080); RTIV(Current, RTAL); RTOTP; RTHOOK(1); RTDBGAL(Current, 0, 0xF80000F9, 0,0); /* Result */ ui4_1 = ((EIF_INTEGER_32) 12L); { static EIF_TYPE_INDEX typarr0[] = {242,0xFF11,219,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr2 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr2) = 12L; memset(tr2, 0, RT_SPECIAL_VISIBLE_SIZE(tr2)); } tr3 = RTMS_EX_H("JANUARY",7,149521497); *((EIF_REFERENCE *)tr2+0) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("FEBRUARY",8,1946023513); *((EIF_REFERENCE *)tr2+1) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("MARCH",5,1096501576); *((EIF_REFERENCE *)tr2+2) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("APRIL",5,1348069196); *((EIF_REFERENCE *)tr2+3) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("MAY",3,5063001); *((EIF_REFERENCE *)tr2+4) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("JUNE",4,1247104581); *((EIF_REFERENCE *)tr2+5) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("JULY",4,1247104089); *((EIF_REFERENCE *)tr2+6) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("AUGUST",6,1325222228); *((EIF_REFERENCE *)tr2+7) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("SEPTEMBER",9,1541548626); *((EIF_REFERENCE *)tr2+8) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("OCTOBER",7,422001234); *((EIF_REFERENCE *)tr2+9) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("NOVEMBER",8,443658322); *((EIF_REFERENCE *)tr2+10) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr3 = RTMS_EX_H("DECEMBER",8,1813273426); *((EIF_REFERENCE *)tr2+11) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr1 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2397, Dtype(tr2)))(tr2).it_r; Result = (EIF_REFERENCE) tr1; RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1697, "compare_objects", Result))(Result); RTVI(Current, RTAL); RTRS; RTOTE; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ui4_1 #undef Result }
/* {SSL_STREAM_SOCKET}.initialize_server_ssl */ void F153_2383 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "initialize_server_ssl"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r #define arg2 arg2x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_NATURAL_32 tu4_1; EIF_NATURAL_32 tu4_2; RTCDT; RTSN; RTDA; RTLD; RTLI(7); RTLR(0,arg1); RTLR(1,arg2); RTLR(2,Current); RTLR(3,loc1); RTLR(4,tr1); RTLR(5,ur1); RTLR(6,loc2); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_REF,&arg2); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_REF, &loc2); RTEAA(l_feature_name, 152, Current, 2, 2, 2845); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(152, Current, 2845); if (arg1) { RTCC(arg1, 152, l_feature_name, 1, 230); } if (arg2) { RTCC(arg2, 152, l_feature_name, 2, 230); } RTIV(Current, RTAL); RTHOOK(1); tu4_1 = *(EIF_NATURAL_32 *)(Current + RTWA(752, dtype)); tu4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(151, 8))(Current)).it_n4); if ((EIF_BOOLEAN)(tu4_1 == tu4_2)) { RTHOOK(2); RTDBGAL(Current, 1, 0xF8000030, 0, 0); /* loc1 */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(2062, dtype, Dftype(Current)))); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(784, Dtype(tr1)))(tr1); RTNHOOK(2,1); loc1 = (EIF_REFERENCE) RTCCL(tr1); } else {
/* {ETF_GUI_ROOT_INTERFACE}.make */ void F945_8754 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "make"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,loc1); RTLR(3,tr2); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 944, Current, 1, 0, 14383); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(944, Current, 14383); RTIV(Current, RTAL); RTHOOK(1); RTDBGAA(Current, dtype, 6667, 0xF80004C4, 0); /* gui */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(6667, dtype, Dftype(Current)))); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1); RTNHOOK(1,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(6667, dtype)) = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(2); RTCT0(NULL, EX_CHECK); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6667, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = RTCCL(tr1); if (EIF_TEST(loc1)) { RTCK0; } else { RTCF0; } RTHOOK(3); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(6668, dtype)); if (tb1) { RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8623, "main_window", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,1); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8980, "history", tr1))(tr1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(8822, "show", tr2))(tr2); } else {
/* {EV_INFORMATION_DIALOG}.initialize */ void F1262_11732 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "initialize"; RTEX; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE up2x = {{0}, SK_POINTER}; #define up2 up2x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,Current); RTLR(1,tr1); RTLR(2,ur1); RTLR(3,tr2); RTLR(4,tr3); RTLR(5,tr4); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1261, Current, 0, 0, 17631); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1261, Current, 17631); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("not_already_initialized", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8398, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(8392, 1260))(Current); RTHOOK(3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6926, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(8944, dtype))(Current, ur1x); RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8346, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,1); tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(6059, "information_pixmap", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9034, dtype))(Current, ur1x); RTHOOK(5); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8346, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(5,1); tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(6059, "information_pixmap", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(8967, dtype))(Current, ur1x); RTHOOK(6); ui4_1 = ((EIF_INTEGER_32) 1L); { static EIF_TYPE_INDEX typarr0[] = {242,0xFF11,216,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr2 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr2) = 1L; memset(tr2, 0, RT_SPECIAL_VISIBLE_SIZE(tr2)); } tr4 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6914, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr3 = RTCCL(tr4); *((EIF_REFERENCE *)tr2+0) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr1 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2397, Dtype(tr2)))(tr2).it_r; ur1 = RTCCL(tr1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9038, dtype))(Current, ur1x); RTHOOK(7); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6914, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9041, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9018, dtype))(Current, ur1x); RTHOOK(8); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6914, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9041, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9020, dtype))(Current, ur1x); if (RTAL & CK_ENSURE) { RTHOOK(9); RTCT("is_initialized", EX_POST); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8398, dtype))(Current)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(10); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef up2 #undef ur1 #undef ui4_1 }
/* {INET4_ADDRESS}.make_from_host_and_pointer */ void F52_962 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_from_host_and_pointer"; RTEX; #define arg1 arg1x.it_r #define arg2 arg2x.it_p EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_POINTER tp1; EIF_INTEGER_32 ti4_1; RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_p = * (EIF_POINTER *) arg2x.it_r; RTLI(2); RTLR(0,arg1); RTLR(1,Current); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_POINTER,&arg2); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 51, Current, 0, 2, 1014); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(51, Current, 1014); if (arg1) { RTCC(arg1, 51, l_feature_name, 1, eif_non_attached_type(218)); } RTIV(Current, RTAL); RTHOOK(1); RTDBGAA(Current, dtype, 896, 0xF80000DA, 0); /* internal_host_name */ RTAR(Current, arg1); *(EIF_REFERENCE *)(Current + RTWA(896, dtype)) = (EIF_REFERENCE) RTCCL(arg1); RTHOOK(2); RTDBGAA(Current, dtype, 881, 0x10000000, 1); /* family */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(879, dtype))(Current)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(881, dtype)) = (EIF_INTEGER_32) ti4_1; RTHOOK(3); tp1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(36, dtype))(Current)).it_p); if ((EIF_BOOLEAN)(arg2 != tp1)) { RTHOOK(4); RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */ up1 = arg2; ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(921, dtype))(Current, up1x)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_1; } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef arg2 #undef arg1 }
/* {EV_MENU_ITEM_LIST}.is_parent_recursive */ EIF_TYPED_VALUE F1302_12103 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "is_parent_recursive"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_REFERENCE tr1 = NULL; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,Current); RTLR(2,loc1); RTLR(3,tr1); RTLR(4,ur1); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 1301, Current, 1, 1, 18007); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1301, Current, 18007); RTCC(arg1, 1301, l_feature_name, 1, eif_attached_type(RTWCT(1741, dtype, Dftype(Current)))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_list_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("not_destroyed", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8387, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(3); RTDBGAL(Current, 1, 0xF8000515, 0, 0); /* loc1 */ loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8566, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = RTRV(eif_non_attached_type(1301), loc1); RTHOOK(4); if ((EIF_BOOLEAN)(loc1 != NULL)) { RTHOOK(5); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tb1 = '\01'; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8566, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if (!RTEQ(tr1, arg1)) { ur1 = RTCCL(arg1); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(8801, "is_parent_recursive", loc1))(loc1, ur1x)).it_b); tb1 = tb2; } Result = (EIF_BOOLEAN) tb1; } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef ur1 #undef arg1 }
/* {INET4_ADDRESS}.make_from_host_and_address */ void F52_961 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_from_host_and_address"; RTEX; #define arg1 arg1x.it_r #define arg2 arg2x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_NATURAL_8 tu1_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,arg1); RTLR(1,arg2); RTLR(2,Current); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_REF,&arg2); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 51, Current, 0, 2, 1013); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(51, Current, 1013); if (arg1) { RTCC(arg1, 51, l_feature_name, 1, eif_non_attached_type(218)); } if (arg2) { { static EIF_TYPE_INDEX typarr0[] = {539,187,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); RTCC(arg2, 51, l_feature_name, 2, eif_non_attached_type(typres0)); } } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("an_address_count_valid", EX_PRE); tb1 = '\01'; if ((EIF_BOOLEAN)(arg2 != NULL)) { ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1392, "count", arg2))(arg2)).it_i4); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(914, dtype))(Current)).it_i4); tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAA(Current, dtype, 896, 0xF80000DA, 0); /* internal_host_name */ RTAR(Current, arg1); *(EIF_REFERENCE *)(Current + RTWA(896, dtype)) = (EIF_REFERENCE) RTCCL(arg1); RTHOOK(3); RTDBGAA(Current, dtype, 881, 0x10000000, 1); /* family */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(879, dtype))(Current)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(881, dtype)) = (EIF_INTEGER_32) ti4_1; RTHOOK(4); tb1 = '\0'; if ((EIF_BOOLEAN)(arg2 != NULL)) { ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1392, "count", arg2))(arg2)).it_i4); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(914, dtype))(Current)).it_i4); tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } if (tb1) { RTHOOK(5); RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */ ui4_1 = ((EIF_INTEGER_32) 4L); tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1); RTNHOOK(5,1); ti4_1 = (EIF_INTEGER_32) tu1_1; ui4_1 = ((EIF_INTEGER_32) 255L); ti4_2 = eif_bit_and(ti4_1,ui4_1); *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2; RTHOOK(6); RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */ ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)); ui4_1 = ((EIF_INTEGER_32) 3L); tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1); RTNHOOK(6,1); ti4_2 = (EIF_INTEGER_32) tu1_1; ui4_1 = ((EIF_INTEGER_32) 8L); ti4_3 = eif_bit_shift_left(ti4_2,ui4_1); ui4_1 = ((EIF_INTEGER_32) 65280L); ti4_2 = eif_bit_and((ti4_3),ui4_1); ui4_1 = ti4_2; ti4_2 = eif_bit_or(ti4_1,ui4_1); *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2; RTHOOK(7); RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */ ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)); ui4_1 = ((EIF_INTEGER_32) 2L); tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1); RTNHOOK(7,1); ti4_2 = (EIF_INTEGER_32) tu1_1; ui4_1 = ((EIF_INTEGER_32) 16L); ti4_3 = eif_bit_shift_left(ti4_2,ui4_1); ui4_1 = ((EIF_INTEGER_32) 16711680L); ti4_2 = eif_bit_and((ti4_3),ui4_1); ui4_1 = ti4_2; ti4_2 = eif_bit_or(ti4_1,ui4_1); *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2; RTHOOK(8); RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */ ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)); ui4_1 = ((EIF_INTEGER_32) 1L); tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1); RTNHOOK(8,1); ti4_2 = (EIF_INTEGER_32) tu1_1; ui4_1 = ((EIF_INTEGER_32) 24L); ti4_3 = eif_bit_shift_left(ti4_2,ui4_1); ti4_2 = (EIF_INTEGER_32) ((EIF_INTEGER_64) RTI64C(4278190080)); ui4_1 = ti4_2; ti4_2 = eif_bit_and((ti4_3),ui4_1); ui4_1 = ti4_2; ti4_2 = eif_bit_or(ti4_1,ui4_1); *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2; } RTVI(Current, RTAL); RTRS; RTHOOK(9); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef ui4_1 #undef arg2 #undef arg1 }
/* {TCP_STREAM_SOCKET}.make_server_by_address_and_port */ void F145_2296 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_server_by_address_and_port"; RTEX; #define arg1 arg1x.it_r #define arg2 arg2x.it_i4 EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; RTLI(4); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,ur1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_INT32,&arg2); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 144, Current, 0, 2, 2758); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(144, Current, 2758); RTCC(arg1, 144, l_feature_name, 1, eif_attached_type(49)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_port", EX_PRE); RTTE((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 0L)), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(1951, dtype))(Current); RTHOOK(3); RTDBGAA(Current, dtype, 1868, 0xF8000071, 0); /* address */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(1868, dtype, Dftype(Current)))); ur1 = RTCCL(arg1); ui4_1 = arg2; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(1348, Dtype(tr1)))(tr1, ur1x, ui4_1x); RTNHOOK(3,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(1868, dtype)) = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(4); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(1860, dtype))(Current); RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef ur1 #undef ui4_1 #undef arg2 #undef arg1 }
/* {TO_SPECIAL}.make_filled_area */ void F677_3757 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_filled_area"; RTEX; #define arg1 arg1x.it_r4 #define arg2 arg2x.it_i4 EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur4_1x = {{0}, SK_REAL32}; #define ur4_1 ur4_1x.it_r4 EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32}; #define ui4_2 ui4_2x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r4 = * (EIF_REAL_32 *) arg1x.it_r; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU(SK_REAL32,&arg1); RTLU(SK_INT32,&arg2); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 676, Current, 0, 2, 5232); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(676, Current, 5232); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("non_negative_argument", EX_PRE); RTTE((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 0L)), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAA(Current, dtype, 2838, 0xF8000291, 0); /* area */ ur4_1 = arg1; ui4_1 = arg2; if (ui4_1< 0) { eraise ("non_negative_argument", EN_RT_CHECK); } tr1 = RTLNSP2(eif_non_attached_type(RTWCT(2838, dtype, Dftype(Current))),0,ui4_1,sizeof(EIF_REAL_32), EIF_TRUE); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(2608, Dtype(tr1)))(tr1, ur4_1x, ui4_1x); RTNHOOK(2,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(2838, dtype)) = (EIF_REFERENCE) tr1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("area_allocated", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2838, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if ((EIF_BOOLEAN)(tr1 != NULL)) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("capacity_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2838, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2518, "capacity", tr1))(tr1)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == arg2)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("count_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2838, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(5,1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2517, "count", tr1))(tr1)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == arg2)) { RTCK; } else { RTCF; } RTHOOK(6); RTCT("area_filled", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2838, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(6,1); ur4_1 = arg1; ui4_1 = ((EIF_INTEGER_32) 0L); ui4_2 = (EIF_INTEGER_32) (arg2 - ((EIF_INTEGER_32) 1L)); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(2618, "filled_with", tr1))(tr1, ur4_1x, ui4_1x, ui4_2x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(7); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef ur4_1 #undef ui4_1 #undef ui4_2 #undef arg2 #undef arg1 }
/* {KL_SPECIAL_ROUTINES}.make_filled */ EIF_TYPED_VALUE F1586_8206 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_filled"; RTEX; #define arg1 arg1x.it_r4 #define arg2 arg2x.it_i4 EIF_TYPED_VALUE ur4_1x = {{0}, SK_REAL32}; #define ur4_1 ur4_1x.it_r4 EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r4 = * (EIF_REAL_32 *) arg1x.it_r; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,Result); RTLU (SK_REF, &Result); RTLU(SK_REAL32,&arg1); RTLU(SK_INT32,&arg2); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1585, Current, 0, 2, 13882); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1585, Current, 13882); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("non_negative_argument", EX_PRE); RTTE((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 0L)), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0xF800026A, 0,0); /* Result */ ur4_1 = arg1; ui4_1 = arg2; { static EIF_TYPE_INDEX typarr0[] = {618,0,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[1] = RTWCT(6143, dtype, Dftype(Current)); typres0 = eif_compound_id(Dftype(Current), typarr0); if (ui4_1< 0) { eraise ("non_negative_argument", EN_RT_CHECK); } tr1 = RTLNSP2(eif_non_attached_type(typres0),0,ui4_1,sizeof(EIF_REAL_32), EIF_TRUE); } (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(2390, Dtype(tr1)))(tr1, ur4_1x, ui4_1x); RTNHOOK(2,1); Result = (EIF_REFERENCE) tr1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("special_not_void", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("capacity_set", EX_POST); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2275, "capacity", Result))(Result)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == arg2)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("count_set", EX_POST); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2274, "count", Result))(Result)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == arg2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ur4_1 #undef ui4_1 #undef arg2 #undef arg1 }
EIF_TYPED_VALUE F119_8201 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "days_in_months"; RTEX; EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; RTCDD; RTSN; RTDA; RTLD; #define Result RTOTRR RTOTDR(F119_8201); dtype = Dtype(Current); RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 118, Current, 0, 0, 1876); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(118, Current, 1876); RTIV(Current, RTAL); RTOTP; RTHOOK(1); RTDBGAL(Current, 0, 0xF8000246, 0,0); /* Result */ ui4_1 = ((EIF_INTEGER_32) 12L); { static EIF_TYPE_INDEX typarr0[] = {579,430,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr2 = RTLNSP2(eif_non_attached_type(typres0),0,ui4_1,sizeof(EIF_INTEGER_32), EIF_TRUE); RT_SPECIAL_COUNT(tr2) = 12L; memset(tr2, 0, RT_SPECIAL_VISIBLE_SIZE(tr2)); } *((EIF_INTEGER_32 *)tr2+0) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); *((EIF_INTEGER_32 *)tr2+1) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 28L); *((EIF_INTEGER_32 *)tr2+2) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); *((EIF_INTEGER_32 *)tr2+3) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 30L); *((EIF_INTEGER_32 *)tr2+4) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); *((EIF_INTEGER_32 *)tr2+5) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 30L); *((EIF_INTEGER_32 *)tr2+6) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); *((EIF_INTEGER_32 *)tr2+7) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); *((EIF_INTEGER_32 *)tr2+8) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 30L); *((EIF_INTEGER_32 *)tr2+9) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); *((EIF_INTEGER_32 *)tr2+10) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 30L); *((EIF_INTEGER_32 *)tr2+11) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 31L); tr1 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(17158, Dtype(tr2)))(tr2).it_r; Result = (EIF_REFERENCE) tr1; if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("result_exists", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } RTHOOK(3); RTCT("valid_count", EX_POST); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(9633, "count", Result))(Result)).it_i4); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8008, dtype))(Current)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == ti4_2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTOTE; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ui4_1 #undef Result }
/* {EQA_PARTIAL_RESULT}.make */ void F316_12385 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x) { GTCX char *l_feature_name = "make"; RTEX; #define arg1 arg1x.it_r #define arg2 arg2x.it_r #define arg3 arg3x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_REFERENCE tr1 = NULL; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,arg1); RTLR(1,arg2); RTLR(2,arg3); RTLR(3,Current); RTLR(4,tr1); RTLR(5,ur1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_REF,&arg2); RTLU(SK_REF,&arg3); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 315, Current, 0, 3, 5160); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(315, Current, 5160); RTCC(arg1, 315, l_feature_name, 1, RTWCT(11494, dtype, Dftype(Current))); RTCC(arg2, 315, l_feature_name, 2, RTWCT(11497, dtype, Dftype(Current))); if (arg3) { RTCC(arg3, 315, l_feature_name, 3, 385); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_setup_response_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg2 != NULL), label_1); RTCK; RTHOOK(2); RTCT("an_output_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg3 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(3); RTDBGAA(Current, dtype, 11494, 0xF80001E4, 0); /* start_date */ RTAR(Current, arg1); *(EIF_REFERENCE *)(Current + RTWA(11494, dtype)) = (EIF_REFERENCE) RTCCL(arg1); RTHOOK(4); RTDBGAA(Current, dtype, 11497, 0xF800001B, 0); /* setup_response */ RTAR(Current, arg2); *(EIF_REFERENCE *)(Current + RTWA(11497, dtype)) = (EIF_REFERENCE) RTCCL(arg2); RTHOOK(5); RTDBGAA(Current, dtype, 11498, 0xF8000182, 0); /* output */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(11498, dtype, Dftype(Current)))); ur1 = RTCCL(arg3); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(15701, Dtype(tr1)))(tr1, ur1x); RTNHOOK(5,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(11498, dtype)) = (EIF_REFERENCE) tr1; RTHOOK(6); RTDBGAA(Current, dtype, 11495, 0xF80001E4, 0); /* finish_date */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(11495, dtype, Dftype(Current)))); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(18811, Dtype(tr1)))(tr1); RTNHOOK(6,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(11495, dtype)) = (EIF_REFERENCE) RTCCL(tr1); if (RTAL & CK_ENSURE) { RTHOOK(7); RTCT("start_date_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11494, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if (RTCEQ(tr1, arg1)) { RTCK; } else { RTCF; } RTHOOK(8); RTCT("setup_response_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11497, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if (RTCEQ(tr1, arg2)) { RTCK; } else { RTCF; } RTHOOK(9); RTCT("output_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11498, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(9,1); ur1 = RTCCL(arg3); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15716, "same_string", tr1))(tr1, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(10); RTDBGLE; RTMD(0); RTLE; RTLO(5); RTEE; #undef up1 #undef ur1 #undef arg3 #undef arg2 #undef arg1 }
/* {RT_DBG_ATTRIBUTE_RECORD}.get_value */ void F390_4514 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "get_value"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_TYPED_VALUE uu4_1x = {{0}, SK_UINT32}; #define uu4_1 uu4_1x.it_n4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_NATURAL_32 tu4_1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,loc1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,ur1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 389, Current, 1, 0, 9502); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(389, Current, 9502); RTIV(Current, RTAL); RTHOOK(1); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3318, dtype)); ui4_1 = ti4_1; tu4_1 = *(EIF_NATURAL_32 *)(Current + RTWA(3333, dtype)); uu4_1 = tu4_1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3331, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(3177, dtype))(Current, ui4_1x, uu4_1x, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = RTCCL(tr1); loc1 = RTRV(eif_non_attached_type(RTWCT(3332, dtype, Dftype(Current))),loc1); if (EIF_TEST(loc1)) { RTHOOK(2); RTDBGAA(Current, dtype, 3332, 0xF8000000, 0); /* value */ RTAR(Current, loc1); *(EIF_REFERENCE *)(Current + RTWA(3332, dtype)) = (EIF_REFERENCE) RTCCL(loc1); } else { RTHOOK(3); RTDBGAA(Current, dtype, 3332, 0xF8000000, 0); /* value */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3336, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(3332, dtype)) = (EIF_REFERENCE) RTCCL(tr1); } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ur1 #undef ui4_1 #undef uu4_1 }
/* {EV_FONT_IMP}.make */ void F1035_13181 (EIF_REFERENCE Current) { GTCX EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_POINTER tp1; EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_REFERENCE tr5 = NULL; EIF_INTEGER_32 ti4_1; RTCFDT; RTLD; RTLI(7); RTLR(0,loc1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,tr3); RTLR(5,tr4); RTLR(6,tr5); RTGC; loc1 = RTOSCF(13229,F1035_13229,(Current)); tp1 = (EIF_POINTER) pango_font_description_new(); *(EIF_POINTER *)(Current+ _PTROFF_3_2_0_8_0_0_) = (EIF_POINTER) tp1; { static EIF_TYPE_INDEX typarr0[] = {722,925,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0))); tr1 = RTLNSMART(eif_non_attached_type(typres0)); } F723_6703(RTCV(tr1)); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + _REFACS_1_) = (EIF_REFERENCE) tr1; *(EIF_INTEGER_32 *)(Current+ _LNGOFF_3_2_0_7_) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 3L); tr1 = F791_8099(RTCV(loc1)); F1035_13190(Current, tr1); ti4_1 = *(EIF_INTEGER_32 *)(RTCV(loc1)+ _LNGOFF_49_16_0_4_); F1035_13194(Current, ti4_1); ti4_1 = *(EIF_INTEGER_32 *)(RTCV(loc1)+ _LNGOFF_49_16_0_5_); F1035_13192(Current, ti4_1); ti4_1 = *(EIF_INTEGER_32 *)(RTCV(loc1)+ _LNGOFF_49_16_0_6_); F1035_13191(Current, ti4_1); tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_); tr1 = *(EIF_REFERENCE *)(RTCV(tr1) + _REFACS_3_); { static EIF_TYPE_INDEX typarr0[] = {0xFFF9,1,841,0,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[3] = dftype; typres0 = eif_compound_id(dftype, typarr0); tr2 = RTLNTS(typres0, 2, 0); } ((EIF_TYPED_VALUE *)tr2+1)->it_r = Current; RTAR(tr2,Current); { static EIF_TYPE_INDEX typarr0[] = {915,0,0xFFF9,1,841,925,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[1] = dftype; typres0 = eif_compound_id(dftype, typarr0); tr5 = RTLNRF(typres0, (EIF_POINTER) __A669_105_2, (EIF_POINTER) _A669_105_2, (EIF_POINTER)(F1035_13211),tr2, 1, 1); } F719_6679(RTCV(tr1), tr5); tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_); tr1 = *(EIF_REFERENCE *)(RTCV(tr1) + _REFACS_4_); tr2 = *(EIF_REFERENCE *)(Current + _REFACS_1_); tr2 = *(EIF_REFERENCE *)(RTCV(tr2) + _REFACS_3_); tr2 = F701_6586(RTCV(tr2)); F719_6679(RTCV(tr1), tr2); F1029_13080(Current, (EIF_BOOLEAN) 1); RTLE; }
/* {EQA_SYSTEM_TEST_SET}.compare_output */ void F893_7470 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "compare_output"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; EIF_REFERENCE loc3 = (EIF_REFERENCE) 0; EIF_REFERENCE loc4 = (EIF_REFERENCE) 0; EIF_REFERENCE loc5 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ur2x = {{0}, SK_REF}; #define ur2 ur2x.it_r EIF_TYPED_VALUE ur3x = {{0}, SK_REF}; #define ur3 ur3x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_TYPED_VALUE ub1x = {{0}, SK_BOOL}; #define ub1 ub1x.it_b EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; RTCDT; RTSN; RTDA; RTLD; RTLI(13); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,loc2); RTLR(4,loc3); RTLR(5,loc4); RTLR(6,loc5); RTLR(7,loc1); RTLR(8,tr2); RTLR(9,tr3); RTLR(10,ur1); RTLR(11,ur2); RTLR(12,ur3); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_REF, &loc2); RTLU(SK_REF, &loc3); RTLU(SK_REF, &loc4); RTLU(SK_REF, &loc5); RTEAA(l_feature_name, 892, Current, 5, 1, 12987); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(892, Current, 12987); RTCC(arg1, 892, l_feature_name, 1, eif_attached_type(216)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("current_execution_attached", EX_PRE); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTTE((EIF_BOOLEAN)(tr1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("current_execution_exited", EX_PRE); tb1 = '\0'; tb2 = '\0'; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc2 = RTCCL(tr1); if (EIF_TEST(loc2)) { tb3 = *(EIF_BOOLEAN *)(loc2 + RTVA(886, 45, "is_launched", loc2)); tb2 = tb3; } if (tb2) { tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(886, 46, "has_exited", loc2))(loc2)).it_b); tb1 = tb2; } RTTE(tb1, label_1); RTCK; RTHOOK(3); RTCT("current_execution_stored_output", EX_PRE); tb1 = '\0'; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc3 = RTCCL(tr1); if (EIF_TEST(loc3)) { tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(886, 35, "output_file_name", loc3))(loc3)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tb1 = (EIF_BOOLEAN)(tr1 != NULL); } RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(4); RTCT0(NULL, EX_CHECK); tb1 = '\0'; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 48, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc4 = RTCCL(tr1); if (EIF_TEST(loc4)) { tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(886, 35, "output_file_name", loc4))(loc4)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc5 = tr1; tb1 = EIF_TEST(loc5); } if (tb1) { RTCK0; } else { RTCF0; } RTHOOK(5); RTDBGAL(Current, 1, 0xF8000365, 0, 0); /* loc1 */ tr1 = RTLN(869); ui4_1 = ((EIF_INTEGER_32) 1L); { static EIF_TYPE_INDEX typarr0[] = {892,255,0xFF11,227,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), 255, typarr0))); tr3 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr3) = 1L; memset(tr3, 0, RT_SPECIAL_VISIBLE_SIZE(tr3)); } *((EIF_REFERENCE *)tr3+0) = (EIF_REFERENCE) loc5; RTAR(tr3,loc5); tr2 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWPF(2, 8, Dtype(tr3)))(tr3).it_r; ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(869, 32, Dtype(tr1)))(tr1, ur1x); RTNHOOK(5,1); loc1 = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(6); tr1 = RTMS_EX_H("identical_output",16,274343540); ur1 = tr1; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(892, 33, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(6,1); ur2 = RTCCL(loc1); ur3 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(871, 39, "has_same_content_as_string", tr2))(tr2, ur2x, ur3x)).it_b); ub1 = tb1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(892, 40, dtype))(Current, ur1x, ub1x); RTVI(Current, RTAL); RTRS; RTHOOK(7); RTDBGLE; RTMD(0); RTLE; RTLO(8); RTEE; #undef up1 #undef ur1 #undef ur2 #undef ur3 #undef ui4_1 #undef ub1 #undef arg1 }
/* {EV_NOTEBOOK_TAB_IMP}.notebook_imp */ EIF_TYPED_VALUE F1481_15127 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "notebook_imp"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_REFERENCE tr1 = NULL; EIF_BOOLEAN tb1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,loc1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 1480, Current, 1, 0, 20456); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1480, Current, 20456); RTIV(Current, RTAL); RTHOOK(1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11093, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = RTCCL(tr1); if (EIF_TEST(loc1)) { RTHOOK(2); RTDBGAL(Current, 0, 0xF8000569, 0,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8388, "implementation", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); Result = RTCCL(tr1); Result = RTRV(eif_non_attached_type(1385), Result); } if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("not_void_if_notebook_not_void", EX_POST); tb1 = '\01'; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11093, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if ((EIF_BOOLEAN)(tr1 != NULL)) { tb1 = (EIF_BOOLEAN)(Result != NULL); } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 }
/* {RT_DBG_ATTRIBUTE_RECORD}.is_same_as */ EIF_TYPED_VALUE F460_7747 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "is_same_as"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCFDT; RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,arg1); RTLR(1,loc1); RTLR(2,Current); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 459, Current, 1, 1, 12881); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(459, Current, 12881); if (arg1) { RTCC(arg1, 459, l_feature_name, 1, 386); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("other_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tb1 = '\0'; tb2 = '\0'; loc1 = RTCCL(arg1); loc1 = RTRV(eif_non_attached_type(dftype),loc1); if (EIF_TEST(loc1)) { ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(6029, dtype)); ti4_2 = *(EIF_INTEGER_32 *)(loc1 + RTVA(6029, "offset", loc1)); tb2 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } if (tb2) { ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(6053, dtype)); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(6053, "value", loc1))(loc1)).it_i4); tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } Result = (EIF_BOOLEAN) tb1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("same_type", EX_POST); tb1 = '\01'; if (Result) { ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(6030, dtype)); ti4_2 = *(EIF_INTEGER_32 *)(arg1 + RTVA(6030, "type", arg1)); tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2); } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef arg1 }
/* {C_DATE}.update */ void F861_7027 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "update"; RTEX; EIF_POINTER loc1 = (EIF_POINTER) 0; EIF_POINTER loc2 = (EIF_POINTER) 0; EIF_POINTER loc3 = (EIF_POINTER) 0; EIF_INTEGER_32 loc4 = (EIF_INTEGER_32) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE up2x = {{0}, SK_POINTER}; #define up2 up2x.it_p EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_POINTER tp1; EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_POINTER, &loc1); RTLU(SK_POINTER, &loc2); RTLU(SK_POINTER, &loc3); RTLU(SK_INT32, &loc4); RTEAA(l_feature_name, 860, Current, 4, 0, 12616); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(860, Current, 12616); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0x40000000, 1, 0); /* loc1 */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4927, dtype))(Current)).it_i4); ui4_1 = ti4_1; tp1 = malloc((size_t)ui4_1); loc1 = (EIF_POINTER) tp1; RTHOOK(2); RTDBGAL(Current, 3, 0x40000000, 1, 0); /* loc3 */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4928, dtype))(Current)).it_i4); ui4_1 = ti4_1; tp1 = malloc((size_t)ui4_1); loc3 = (EIF_POINTER) tp1; RTHOOK(3); up1 = loc1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(4926, dtype))(Current, up1x); RTHOOK(4); up1 = loc1; up2 = loc3; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(4931, dtype))(Current, up1x, up2x); RTHOOK(5); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4917, dtype)); if (tb1) { RTHOOK(6); RTDBGAL(Current, 2, 0x40000000, 1, 0); /* loc2 */ up1 = loc3; loc2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(4934, dtype))(Current, up1x)).it_p); } else { RTHOOK(7); RTDBGAL(Current, 2, 0x40000000, 1, 0); /* loc2 */ up1 = loc3; loc2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(4933, dtype))(Current, up1x)).it_p); } RTHOOK(8); RTDBGAA(Current, dtype, 4932, 0xF8000097, 0); /* internal_item */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(4932, dtype, Dftype(Current)))); up1 = loc2; ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4929, dtype))(Current)).it_i4); ui4_1 = ti4_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(2697, Dtype(tr1)))(tr1, up1x, ui4_1x); RTNHOOK(8,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(4932, dtype)) = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(9); RTDBGAL(Current, 4, 0x10000000, 1, 0); /* loc4 */ up1 = loc1; loc4 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(4930, dtype))(Current, up1x)).it_i4); RTHOOK(10); if ((EIF_BOOLEAN) ((EIF_BOOLEAN) (loc4 < ((EIF_INTEGER_32) 0L)) || (EIF_BOOLEAN) (loc4 > ((EIF_INTEGER_32) 999L)))) { RTHOOK(11); RTDBGAA(Current, dtype, 4925, 0x10000000, 1); /* millisecond_now */ *(EIF_INTEGER_32 *)(Current + RTWA(4925, dtype)) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 0L); } else { RTHOOK(12); RTDBGAA(Current, dtype, 4925, 0x10000000, 1); /* millisecond_now */ *(EIF_INTEGER_32 *)(Current + RTWA(4925, dtype)) = (EIF_INTEGER_32) loc4; } RTHOOK(13); free(loc1); RTHOOK(14); free(loc3); RTVI(Current, RTAL); RTRS; RTHOOK(15); RTDBGLE; RTMD(0); RTLE; RTLO(6); RTEE; #undef up1 #undef up2 #undef ui4_1 }
/* {TYPE}.adapt */ EIF_TYPED_VALUE F919_4832 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "adapt"; RTEX; #define arg1 arg1x.it_r struct eif_ex_869 sarg1; EIF_REFERENCE earg1 = (EIF_REFERENCE) sarg1.data; EIF_REFERENCE tr1 = NULL; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; memcpy (&sarg1.overhead, HEADER(arg1), 0 + OVERHEAD); sarg1.overhead.ov_flags = EO_EXP | EO_STACK; sarg1.overhead.ov_size = 0; RTLI(4); RTLR(0,earg1); RTLR(1,Result); RTLR(2,tr1); RTLR(3,Current); RTLU (SK_REF, &Result); RTLU(SK_REF,&earg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 918, Current, 0, 1, 13163); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(918, Current, 13163); RTCC(earg1, 918, l_feature_name, 1, eif_non_attached_type(RTWCT(3551, dtype, Dftype(Current)))); RTIV(Current, RTAL); Result= RTLN(RTWCT(3551, dtype, Dftype(Current))); wstdinit(Result,Result); RTLXI(Result); RTHOOK(1); RTDBGAL(Current, 0, 0x80000365, 0,0); /* Result */ tr1 = RTRCL(earg1); RTXA(tr1, Result); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("adapted", EX_POST); if (RTEQ(Result, earg1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef arg1 }
/* {INET_ADDRESS_IMPL_V6}.loopback_address */ EIF_TYPED_VALUE F912_7633 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "loopback_address"; RTEX; EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_TYPED_VALUE ur2x = {{0}, SK_REF}; #define ur2 ur2x.it_r EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_NATURAL_8 tu1_1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTSN; RTDA; RTLD; RTLI(8); RTLR(0,tr1); RTLR(1,tr2); RTLR(2,ur1); RTLR(3,Current); RTLR(4,tr3); RTLR(5,tr4); RTLR(6,ur2); RTLR(7,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 911, Current, 0, 0, 13122); RTSA(Dtype(Current)); RTSC; RTME(Dtype(Current), 0); RTGC; RTDBGEAA(911, Current, 13122); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 0, 0xF8000392, 0,0); /* Result */ tr1 = RTLN(915); tr2 = RTMS_EX_H("::1",3,3815985); ur1 = tr2; ui4_1 = ((EIF_INTEGER_32) 16L); { static EIF_TYPE_INDEX typarr0[] = {911,706,195,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), 706, typarr0))); tr4 = RTLNSP2(eif_non_attached_type(typres0),0,ui4_1,sizeof(EIF_NATURAL_8), EIF_TRUE); RT_SPECIAL_COUNT(tr4) = 16L; memset(tr4, 0, RT_SPECIAL_VISIBLE_SIZE(tr4)); } tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+0) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+1) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+2) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+3) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+4) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+5) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+6) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+7) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+8) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+9) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+10) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+11) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+12) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+13) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 0L); *((EIF_NATURAL_8 *)tr4+14) = (EIF_NATURAL_8) tu1_1; tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 1L); *((EIF_NATURAL_8 *)tr4+15) = (EIF_NATURAL_8) tu1_1; tr3 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWPF(2, 8, Dtype(tr4)))(tr4).it_r; ur2 = RTCCL(tr3); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(915, 43, Dtype(tr1)))(tr1, ur1x, ur2x); RTNHOOK(1,1); Result = (EIF_REFERENCE) RTCCL(tr1); RTVI(Current, RTAL); RTRS; RTHOOK(2); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef ur1 #undef ur2 #undef ui4_1 }