/* {LINKED_LIST_ITERATION_CURSOR}.forth */ void F545_3078 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "forth"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCFDT; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,loc2); RTLR(3,tr2); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTLU(SK_REF, &loc2); RTEAA(l_feature_name, 544, Current, 2, 0, 3874); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(544, Current, 3874); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_position", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1634, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2566, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(1635, 240))(Current); RTHOOK(3); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(2576, dtype)); if ((EIF_BOOLEAN) !tb1) { RTHOOK(4); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L); for (;;) { RTHOOK(5); tb1 = '\01'; ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2570, dtype)); if (!(EIF_BOOLEAN) (loc1 > ti4_2)) { tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2585, 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(tr2); tb1 = (EIF_BOOLEAN) !EIF_TEST(loc2); } if (tb1) break; RTHOOK(6); RTDBGAA(Current, dtype, 2585, 0xF800021F, 0); /* active */ tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(715, "right", loc2))(loc2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTAR(Current, tr2); *(EIF_REFERENCE *)(Current + RTWA(2585, dtype)) = (EIF_REFERENCE) RTCCL(tr2); RTHOOK(7); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; } } if (RTAL & CK_ENSURE) { RTHOOK(8); RTCT("cursor_index_advanced", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2566, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(9); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 }
/* {EV_GAUGE}.leap_backward */ void F1264_11744 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "leap_backward"; RTEX; 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_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_INTEGER_32 ti4_4; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1263, Current, 0, 0, 17647); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1263, Current, 17647); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); 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: ; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9059, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8388, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(2,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(10570, "leap_backward", tr2))(tr2); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("decremented", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9059, dtype))(Current)).it_i4); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9062, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(3,1); ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2439, "lower", tr2))(tr2)).it_i4); RTNHOOK(3,2); RTCO(tr1); ti4_4 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9061, dtype))(Current)).it_i4); ui4_1 = (EIF_INTEGER_32) (ti4_1 - ti4_4); ti4_4 = eif_max_int32 (ti4_3,ui4_1); if ((EIF_BOOLEAN)(ti4_2 == ti4_4)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef ui4_1 }
/* {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; } }
/* {RESIZABLE}.automatic_grow */ void F592_1565 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "automatic_grow"; 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; EIF_INTEGER_32 ti4_3; EIF_INTEGER_32 ti4_4; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 591, Current, 0, 0, 1970); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(591, Current, 1970); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("resizable", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1394, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1393, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE RTE_OT ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1397, dtype))(Current)).it_i4); ti4_2 = ti4_3; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1393, dtype))(Current)).it_i4); ti4_4 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1397, dtype))(Current)).it_i4); ui4_1 = (EIF_INTEGER_32) (ti4_3 + ti4_4); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1399, dtype))(Current, ui4_1x); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("increased_capacity", EX_POST); ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1393, dtype))(Current)).it_i4); RTCO(tr1); RTCO(tr2); if ((EIF_BOOLEAN) (ti4_3 >= (EIF_INTEGER_32) (ti4_1 + ti4_2))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef ui4_1 }
/* {EV_TREE_NODE_LIST}.find_item_recursively_by_data */ EIF_TYPED_VALUE F1295_12051 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "find_item_recursively_by_data"; RTEX; #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_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(7); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,arg1); RTLR(4,ur1); RTLR(5,tr3); RTLR(6,Result); RTLU (SK_REF, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1294, Current, 0, 1, 17954); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1294, Current, 17954); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1784, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); RTDBGAL(Current, 0, 0xF8000510, 0,0); /* Result */ tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8388, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(1,1); ur1 = RTCCL(arg1); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9949, "find_item_recursively_by_data", tr2))(tr2, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); Result = (EIF_REFERENCE) RTCCL(tr3); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("not_found_in_empty", EX_POST); tb1 = '\01'; if ((EIF_BOOLEAN)(Result != NULL)) { tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1693, dtype))(Current)).it_b); tb1 = (EIF_BOOLEAN) !tb2; } if (tb1) { RTCK; } else { RTCF; } RTHOOK(3); RTCT("index_not_changed", EX_POST); RTCO(tr1); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1784, dtype))(Current)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == ti4_2)) { 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 #undef up2 #undef ur1 #undef arg1 }
/* {ETF_ABSTRACT_UI_INTERFACE}.put */ void F939_8706 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "put"; RTEX; #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_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_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLR(5,tr3); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 938, Current, 0, 1, 14337); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(938, Current, 14337); RTCC(arg1, 938, l_feature_name, 1, eif_attached_type(1125)); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6621, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", tr1))(tr1)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6621, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(1,1); ur1 = RTCCL(arg1); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6621, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); RTNHOOK(1,2); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", tr3))(tr3)).it_i4); ui4_1 = (EIF_INTEGER_32) (ti4_2 + ((EIF_INTEGER_32) 1L)); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(2618, "force", tr2))(tr2, ur1x, ui4_1x); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT(NULL, EX_POST); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6621, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(2,1); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", tr2))(tr2)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } RTHOOK(3); RTCT(NULL, EX_POST); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6621, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6621, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); RTNHOOK(3,1); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", tr3))(tr3)).it_i4); ui4_1 = ti4_2; tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1735, "item", tr2))(tr2, ui4_1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); if (RTCEQ(tr3, arg1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef up2 #undef ur1 #undef ui4_1 #undef arg1 }
/* {V_IO_ITERATOR}.output */ void F906_7192 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "output"; RTEX; #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_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_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(7); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLR(5,tr3); RTLR(6,tr4); RTLIU(7); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 905, Current, 0, 1, 13069); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(905, Current, 13069); RTCC(arg1, 905, l_feature_name, 1, RTWCT(4916, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("not_off", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4921, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !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(5084, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(1,1); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5069, dtype))(Current)).it_i4); ui4_1 = ti4_1; ur1 = RTCCL(arg1); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(5034, "replaced_at", tr2))(tr2, ui4_1x, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tr1 = tr3; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5069, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr3 = NULL; RTE_O tr3 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(5090, dtype))(Current, ur1x); RTHOOK(3); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(4912, dtype))(Current); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("sequence_effect", EX_POST); tr4 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5084, 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); ur1 = RTCCL(tr1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4935, "is_model_equal", tr4))(tr4, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("index_effect", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5069, dtype))(Current)).it_i4); RTCO(tr3); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef up2 #undef ur1 #undef ui4_1 #undef arg1 }
/* {STRING_ITERATION_CURSOR}.forth */ void F169_2995 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "forth"; RTEX; EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 168, Current, 0, 0, 3514); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(168, Current, 3514); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_position", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1634, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2510, dtype)); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); RTDBGAA(Current, dtype, 2510, 0x10000000, 1); /* target_index */ (*(EIF_INTEGER_32 *)(Current + RTWA(2510, dtype)))++; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("target_index_advanced", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2510, dtype)); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; }
/* {EV_MENU}.one_selected_radio_item_per_separator */ EIF_TYPED_VALUE F1303_12109 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "one_selected_radio_item_per_separator"; RTEX; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.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 Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLU (SK_BOOL, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1302, Current, 0, 0, 18014); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1302, Current, 18014); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1784, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8388, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(1,1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(10880, "one_radio_item_selected_per_separator", tr2))(tr2)).it_b); Result = (EIF_BOOLEAN) tb1; if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("index_not_changed", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1784, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == ti4_1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 }
/* {LINKED_STACK}.force */ void F896_3567 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "force"; RTEX; #define arg1 arg1x.it_i4 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_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; 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, 895, Current, 0, 1, 5110); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(895, Current, 5110); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1944, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCK; RTHOOK(2); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1944, dtype))(Current)).it_b); RTTE(tb1, label_2); RTCK; RTJB; label_2: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2773, dtype)); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); ui4_1 = arg1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(2707, dtype))(Current, ui4_1x); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("item_inserted", EX_POST); ui4_1 = arg1; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1946, dtype))(Current, ui4_1x)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("item_pushed", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1984, dtype))(Current)).it_i4); if ((EIF_BOOLEAN)(ti4_2 == arg1)) { RTCK; } else { RTCF; } RTHOOK(6); RTCT("new_count", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2773, dtype)); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } RTHOOK(7); RTCT("item_inserted", EX_POST); ui4_1 = arg1; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1935, dtype))(Current, ui4_1x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(8); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef ui4_1 #undef arg1 }
/* {V_INDEX_ITERATOR}.back */ void F875_7186 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "back"; RTEX; EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLIU(2); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 874, Current, 0, 0, 13049); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(874, Current, 13049); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("not_off", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4911, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(5089, dtype)); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); RTDBGAA(Current, dtype, 5089, 0x10000000, 1); /* index */ (*(EIF_INTEGER_32 *)(Current + RTWA(5089, dtype)))--; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("index_effect", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(5089, dtype)); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 - ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; }
/* {ETF_EVENT}.attach */ void F1533_8244 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "attach"; RTEX; #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_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,ur1); RTLR(2,Current); RTLR(3,tr1); RTLR(4,tr2); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1532, Current, 0, 1, 13921); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1532, Current, 13921); { static EIF_TYPE_INDEX typarr0[] = {237,0xFF11,0,0,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[3] = RTWCT(6174, dtype, Dftype(Current)); typres0 = eif_compound_id(Dftype(Current), typarr0); RTCC(arg1, 1532, l_feature_name, 1, eif_attached_type(typres0)); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("an_action_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("an_action_not_already_attached", EX_PRE); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(6170, dtype))(Current, ur1x)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6169, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(2,1); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", tr1))(tr1)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6169, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(3,1); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1705, "extend", tr2))(tr2, ur1x); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("an_action_attached", EX_POST); tb1 = '\0'; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6169, 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_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", tr2))(tr2)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6169, 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,2); ur1 = RTCCL(arg1); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1692, "has", tr2))(tr2, ur1x)).it_b); tb1 = tb2; } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ur1 #undef arg1 }
/* {INDEXABLE_ITERATION_CURSOR}.reverse */ void F633_12771 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "reverse"; RTEX; EIF_REFERENCE tr1 = NULL; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 632, Current, 0, 0, 5629); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(632, Current, 5629); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tb2 = *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)); tb1 = tb2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); RTDBGAA(Current, dtype, 11845, 0x04000000, 1); /* is_reversed */ tb2 = *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)); *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) !tb2; if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("is_reversed", EX_POST); tb2 = *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)); RTCO(tr1); if ((EIF_BOOLEAN)(tb2 == (EIF_BOOLEAN) !tb1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; }
/* {SEQUENCE}.put */ void F326_1196 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "put"; RTEX; #define arg1 arg1x.it_r8 EIF_TYPED_VALUE ur8_1x = {{0}, SK_REAL64}; #define ur8_1 ur8_1x.it_r8 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r8 = * (EIF_REAL_64 *) arg1x.it_r; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU(SK_REAL64,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 325, Current, 0, 1, 1724); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(325, Current, 1724); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1008, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body: ; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(999, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); ur8_1 = arg1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1012, dtype))(Current, ur8_1x); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("item_inserted", EX_POST); ur8_1 = arg1; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1010, dtype))(Current, ur8_1x)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("new_count", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(999, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef ur8_1 #undef arg1 }
/* {SEQUENCE}.force */ void F850_10391 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "force"; RTEX; #define arg1 arg1x.it_n1 EIF_TYPED_VALUE uu1_1x = {{0}, SK_UINT8}; #define uu1_1 uu1_1x.it_n1 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_n1 = * (EIF_NATURAL_8 *) arg1x.it_r; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU(SK_UINT8,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 849, Current, 0, 1, 3825); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(849, Current, 3825); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9642, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9633, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); uu1_1 = arg1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9646, dtype))(Current, uu1_1x); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("new_count", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9633, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("item_inserted", EX_POST); uu1_1 = arg1; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9622, dtype))(Current, uu1_1x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef uu1_1 #undef arg1 }
/* {LINKED_QUEUE}.force */ void F438_3583 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "force"; RTEX; #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_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLR(5,tr3); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 437, Current, 0, 1, 5120); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(437, Current, 5120); RTCC(arg1, 437, l_feature_name, 1, RTWCT(1943, dtype, Dftype(Current))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1944, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCK; RTHOOK(2); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1944, dtype))(Current)).it_b); RTTE(tb1, label_2); RTCK; RTJB; label_2: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1936, dtype))(Current)).it_b); tb1 = tb2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE RTE_OT ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2773, dtype)); ti4_1 = ti4_2; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(2707, dtype))(Current, ur1x); RTHOOK(4); RTDBGAA(Current, dtype, 2771, 0x04000000, 1); /* before */ *(EIF_BOOLEAN *)(Current + RTWA(2771, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) 0; RTHOOK(5); RTDBGAA(Current, dtype, 2772, 0x04000000, 1); /* after */ *(EIF_BOOLEAN *)(Current + RTWA(2772, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) 1; if (RTAL & CK_ENSURE) { RTHOOK(6); RTCT("item_inserted", EX_POST); ur1 = RTCCL(arg1); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1946, dtype))(Current, ur1x)).it_b); if (tb2) { RTCK; } else { RTCF; } RTHOOK(7); RTCT("new_count", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2773, dtype)); RTCO(tr2); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } RTHOOK(8); RTCT("item_inserted", EX_POST); ur1 = RTCCL(arg1); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1935, dtype))(Current, ur1x)).it_b); if (tb2) { RTCK; } else { RTCF; } RTHOOK(9); RTCT("single_item_constraint", EX_POST); tb2 = '\01'; RTCO(tr1); if (tb1) { tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1984, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tb2 = RTCEQ(tr3, arg1); } if (tb2) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(10); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ur1 #undef arg1 }
/* {EV_TIMEOUT_I}.on_timeout */ void F1307_12155 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "on_timeout"; 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_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_INTEGER_32 ti4_4; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; EIF_BOOLEAN tb4; RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,tr3); RTLR(4,tr4); RTLR(5,ur1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1306, Current, 0, 0, 18057); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1306, Current, 18057); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9339, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE RTE_OT ti4_3 = *(EIF_INTEGER_32 *)(Current + RTWA(9340, dtype)); ti4_2 = ti4_3; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); tb1 = '\0'; tb2 = '\0'; tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9317, dtype))(Current)).it_b); if ((EIF_BOOLEAN) !tb3) { tb3 = *(EIF_BOOLEAN *)(Current + RTWA(9344, dtype)); tb2 = (EIF_BOOLEAN) !tb3; } if (tb2) { ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9339, dtype))(Current)).it_i4); tb1 = (EIF_BOOLEAN) (ti4_3 > ((EIF_INTEGER_32) 0L)); } if (tb1) { RTHOOK(2); RTDBGAA(Current, dtype, 9344, 0x04000000, 1); /* is_timeout_executing */ *(EIF_BOOLEAN *)(Current + RTWA(9344, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) 1; RTHOOK(3); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9318, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(3,1); tr4 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8401, "actions", tr3))(tr3)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); RTNHOOK(3,2); ur1 = NULL; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3440, "call", tr4))(tr4, ur1x); RTHOOK(4); RTDBGAA(Current, dtype, 9340, 0x10000000, 1); /* count */ (*(EIF_INTEGER_32 *)(Current + RTWA(9340, dtype)))++; RTHOOK(5); RTDBGAA(Current, dtype, 9344, 0x04000000, 1); /* is_timeout_executing */ *(EIF_BOOLEAN *)(Current + RTWA(9344, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) 0; } if (RTAL & CK_ENSURE) { RTHOOK(6); RTCT("count_incremented_or_reset", EX_POST); tb1 = '\01'; tb2 = '\0'; tb3 = '\0'; tb4 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9317, dtype))(Current)).it_b); if ((EIF_BOOLEAN) !tb4) { tb4 = *(EIF_BOOLEAN *)(Current + RTWA(9344, dtype)); tb3 = (EIF_BOOLEAN) !tb4; } if (tb3) { RTCO(tr1); tb2 = (EIF_BOOLEAN) (ti4_1 > ((EIF_INTEGER_32) 0L)); } if (tb2) { ti4_3 = *(EIF_INTEGER_32 *)(Current + RTWA(9340, dtype)); RTCO(tr2); ti4_4 = *(EIF_INTEGER_32 *)(Current + RTWA(9340, dtype)); tb1 = (EIF_BOOLEAN) ((EIF_BOOLEAN)(ti4_3 == (EIF_INTEGER_32) (ti4_2 + ((EIF_INTEGER_32) 1L))) || (EIF_BOOLEAN)(ti4_4 == ((EIF_INTEGER_32) 1L))); } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(7); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef up2 #undef ur1 }
/* {EV_TREE_NODE_LIST}.has_recursively */ EIF_TYPED_VALUE F1295_12054 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "has_recursively"; RTEX; #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_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); RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1294, Current, 0, 1, 17957); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1294, Current, 17957); RTCC(arg1, 1294, l_feature_name, 1, eif_attached_type(1296)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("item_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1784, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8388, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(2,1); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9952, "has_recursively", tr2))(tr2, ur1x)).it_b); Result = (EIF_BOOLEAN) tb1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("not_found_in_empty", EX_POST); tb1 = '\01'; if (Result) { tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1693, dtype))(Current)).it_b); tb1 = (EIF_BOOLEAN) !tb2; } if (tb1) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("index_not_changed", EX_POST); RTCO(tr1); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1784, dtype))(Current)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == ti4_2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef ur1 #undef arg1 }
/* {EV_TIMEOUT}.set_interval */ void F1206_10861 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "set_interval"; 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_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLU (SK_VOID, NULL); RTLU(SK_INT32,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1205, Current, 0, 1, 16750); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1205, Current, 16750); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); 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; RTHOOK(2); RTCT("an_interval_not_negative", EX_PRE); RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 0L)), label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8402, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8388, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(3,1); ui4_1 = arg1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9341, "set_interval", tr2))(tr2, ui4_1x); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("interval_assigned", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8400, dtype))(Current)).it_i4); if ((EIF_BOOLEAN)(ti4_2 == arg1)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("count_not_changed", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8402, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == ti4_1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ui4_1 #undef arg1 }
/* {TIME_VALUE}.set_fractionals */ void F946_8064 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "set_fractionals"; RTEX; #define arg1 arg1x.it_r8 EIF_REFERENCE tr1 = NULL; EIF_REAL_64 tr8_1; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r8 = * (EIF_REAL_64 *) arg1x.it_r; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLIU(2); RTLU (SK_VOID, NULL); RTLU(SK_REAL64,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 945, Current, 0, 1, 13505); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(945, Current, 13505); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("f_large_enough", EX_PRE); tr8_1 = (EIF_REAL_64) (((EIF_INTEGER_32) 0L)); RTTE((EIF_BOOLEAN) (arg1 >= tr8_1), label_1); RTCK; RTHOOK(2); RTCT("f_small_enough", EX_PRE); tr8_1 = (EIF_REAL_64) (((EIF_INTEGER_32) 1L)); RTTE((EIF_BOOLEAN) (arg1 < tr8_1), label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5805, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); RTDBGAA(Current, dtype, 5812, 0x20000000, 1); /* fractional_second */ *(EIF_REAL_64 *)(Current + RTWA(5812, dtype)) = (EIF_REAL_64) arg1; if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("second_same", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5805, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == ti4_1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef arg1 }
/* {VERSIONABLE}.increment_version */ void F3_44 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "increment_version"; RTEX; EIF_REFERENCE tr1 = NULL; EIF_NATURAL_32 tu4_1; EIF_NATURAL_32 tu4_2; EIF_NATURAL_32 tu4_3; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2, Current, 0, 0, 41); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2, Current, 41); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tu4_2 = *(EIF_NATURAL_32 *)(Current + RTWA(45, dtype)); tu4_1 = tu4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); RTDBGAA(Current, dtype, 45, 0x38000000, 1); /* version */ tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 1L); (*(EIF_NATURAL_32 *)(Current + RTWA(45, dtype))) += tu4_3; if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("version_incremented", EX_POST); tu4_2 = *(EIF_NATURAL_32 *)(Current + RTWA(45, dtype)); RTCO(tr1); tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 1L); if ((EIF_BOOLEAN)(tu4_2 == (EIF_NATURAL_32) (tu4_1 + tu4_3))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; }
/* {KL_ARRAY}.new_rebase */ void F1568_10020 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "new_rebase"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0; #define arg1 arg1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; 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); RTLU(SK_INT32, &loc1); RTEAA(l_feature_name, 1567, Current, 1, 1, 15667); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1567, Current, 15667); RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1752, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = *(EIF_INTEGER_32 *)(Current + RTWA(2611, dtype)); RTHOOK(2); RTDBGAA(Current, dtype, 2611, 0x10000000, 1); /* lower */ *(EIF_INTEGER_32 *)(Current + RTWA(2611, dtype)) = (EIF_INTEGER_32) arg1; RTHOOK(3); RTDBGAA(Current, dtype, 2612, 0x10000000, 1); /* upper */ ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2612, dtype)); *(EIF_INTEGER_32 *)(Current + RTWA(2612, dtype)) = (EIF_INTEGER_32) (EIF_INTEGER_32) (arg1 + (EIF_INTEGER_32) (ti4_2 - loc1)); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("lower_set", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2611, dtype)); if ((EIF_BOOLEAN)(ti4_2 == arg1)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("upper_set", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2612, dtype)); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) ((EIF_INTEGER_32) (arg1 + ti4_1) - ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef arg1 }
/* {SEQUENCE}.put */ void F307_2468 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "put"; RTEX; #define arg1 arg1x.it_r EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,ur1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 306, Current, 0, 1, 2740); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(306, Current, 2740); RTCC(arg1, 306, l_feature_name, 1, RTWCT(1984, dtype, Dftype(Current))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1944, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1995, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1948, dtype))(Current, ur1x); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("item_inserted", EX_POST); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1946, dtype))(Current, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("new_count", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1995, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef ur1 #undef arg1 }
/* {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 }
/* {JSON_READER}.previous */ void F82_6922 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "previous"; RTEX; EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 81, Current, 0, 0, 1297); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(81, Current, 1297); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("not_is_first", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6810, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(6813, dtype)); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); RTDBGAA(Current, dtype, 6813, 0x10000000, 1); /* index */ (*(EIF_INTEGER_32 *)(Current + RTWA(6813, dtype)))--; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("incremented", EX_POST); RTCO(tr1); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(6813, dtype)); if ((EIF_BOOLEAN)((EIF_INTEGER_32) (ti4_1 - ((EIF_INTEGER_32) 1L)) == ti4_2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; }
/* {DS_TABLE}.swap */ void F2540_32392 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "swap"; RTEX; EIF_BOOLEAN loc1 = (EIF_BOOLEAN) 0; #define arg1 arg1x.it_r #define arg2 arg2x.it_r EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r 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_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; RTCDT; RTSN; RTDA; RTLD; RTLI(7); RTLR(0,arg1); RTLR(1,arg2); RTLR(2,ur1); RTLR(3,Current); RTLR(4,tr1); RTLR(5,tr2); RTLR(6,tr3); RTLIU(7); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_REF,&arg2); RTLU (SK_REF, &Current); RTLU(SK_BOOL, &loc1); RTEAA(l_feature_name, 2539, Current, 1, 2, 37455); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2539, Current, 37455); RTCC(arg1, 2539, l_feature_name, 1, RTWCT(23646, dtype, Dftype(Current)), 0x00); RTCC(arg2, 2539, l_feature_name, 2, RTWCT(23646, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_k", EX_PRE); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25440, dtype))(Current, ur1x)).it_b); RTTE(tb1, label_1); RTCK; RTHOOK(2); RTCT("valid_l", EX_PRE); ur1 = RTCCL(arg2); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25440, dtype))(Current, ur1x)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25426, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE RTE_OT ur1 = RTCCL(arg2); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25437, dtype))(Current, ur1x)).it_b); tb1 = tb2; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE RTE_OT ur1 = RTCCL(arg1); tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25437, dtype))(Current, ur1x)).it_b); tb2 = tb3; tr3 = NULL; RTE_O tr3 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); RTDBGAL(Current, 1, 0x04000000, 0, 0); /* loc1 */ ur1 = RTCCL(arg1); loc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25437, dtype))(Current, ur1x)).it_b); RTHOOK(4); ur1 = RTCCL(arg2); tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25437, dtype))(Current, ur1x)).it_b); ub1 = tb3; ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(25442, dtype))(Current, ub1x, ur1x); RTHOOK(5); ub1 = loc1; ur1 = RTCCL(arg2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(25442, dtype))(Current, ub1x, ur1x); if (RTAL & CK_ENSURE) { RTHOOK(6); RTCT("same_count", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25426, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == ti4_1)) { RTCK; } else { RTCF; } RTHOOK(7); RTCT("new_k", EX_POST); ur1 = RTCCL(arg1); tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25437, dtype))(Current, ur1x)).it_b); RTCO(tr2); if ((EIF_BOOLEAN)(tb3 == tb1)) { RTCK; } else { RTCF; } RTHOOK(8); RTCT("new_l", EX_POST); ur1 = RTCCL(arg2); tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25437, dtype))(Current, ur1x)).it_b); RTCO(tr3); if ((EIF_BOOLEAN)(tb3 == tb2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(9); RTDBGLE; RTMD(0); RTLE; RTLO(5); RTEE; #undef ur1 #undef ub1 #undef arg2 #undef arg1 }
/* {SEQUENCE}.append */ void F326_1195 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "append"; 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 ur8_1x = {{0}, SK_REAL64}; #define ur8_1 ur8_1x.it_r8 EIF_REFERENCE tr1 = NULL; EIF_REAL_64 tr8_1; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,loc1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 325, Current, 1, 1, 1723); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(325, Current, 1723); { EIF_TYPE_INDEX typarr0[] = {325,0,0xFFFF}; EIF_TYPE_INDEX typres0; typarr0[1] = RTWCT(977, dtype, Dftype(Current)); typres0 = eif_compound_id(Dftype(Current), typarr0); RTCC(arg1, 325, l_feature_name, 1, eif_attached_type(typres0)); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("argument_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body: ; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(999, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); RTDBGAL(Current, 1, 0xF8000145, 0, 0); /* loc1 */ loc1 = (EIF_REFERENCE) RTCCL(arg1); RTHOOK(3); if (RTCEQ(arg1, Current)) { RTHOOK(4); RTDBGAL(Current, 1, 0xF8000145, 0, 0); /* loc1 */ loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(17, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); } RTHOOK(5); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(980, "start", loc1))(loc1); for (;;) { RTHOOK(6); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(990, "exhausted", loc1))(loc1)).it_b); if (tb1) break; RTHOOK(7); tr8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1025, "item", loc1))(loc1)).it_r8); ur8_1 = tr8_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1012, dtype))(Current, ur8_1x); RTHOOK(8); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(993, "forth", loc1))(loc1); } if (RTAL & CK_ENSURE) { RTHOOK(9); RTCT("new_count", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(999, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN) (ti4_2 >= ti4_1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(10); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef ur8_1 #undef arg1 }
/* {HASH_TABLE_ITERATION_CURSOR}.forth */ void F278_2944 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "forth"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0; EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0; EIF_INTEGER_32 loc3 = (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_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,tr3); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTLU(SK_INT32, &loc2); RTLU(SK_INT32, &loc3); RTEAA(l_feature_name, 277, Current, 3, 0, 3747); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(277, Current, 3747); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_position", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1563, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2450, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); RTDBGAL(Current, 3, 0x10000000, 1, 0); /* loc3 */ loc3 = *(EIF_INTEGER_32 *)(Current + RTWA(2451, dtype)); RTHOOK(3); RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */ loc2 = *(EIF_INTEGER_32 *)(Current + RTWA(2454, dtype)); RTHOOK(4); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(2460, dtype)); if (tb1) { RTHOOK(5); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L); for (;;) { RTHOOK(6); if ((EIF_BOOLEAN) ((EIF_BOOLEAN) (loc1 > loc2) || (EIF_BOOLEAN) (loc3 < ((EIF_INTEGER_32) 0L)))) break; RTHOOK(7); RTDBGAL(Current, 3, 0x10000000, 1, 0); /* loc3 */ tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2467, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(7,1); ui4_1 = loc3; ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2666, "previous_iteration_position", tr2))(tr2, ui4_1x)).it_i4); loc3 = (EIF_INTEGER_32) ti4_2; RTHOOK(8); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; } } else { RTHOOK(9); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L); for (;;) { RTHOOK(10); tb1 = '\01'; if (!(EIF_BOOLEAN) (loc1 > loc2)) { tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2467, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(10,1); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2676, "keys", tr2))(tr2)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); RTNHOOK(10,2); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2377, "count", tr3))(tr3)).it_i4); tb1 = (EIF_BOOLEAN) (loc3 >= ti4_2); } if (tb1) break; RTHOOK(11); RTDBGAL(Current, 3, 0x10000000, 1, 0); /* loc3 */ tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2467, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(11,1); ui4_1 = loc3; ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2665, "next_iteration_position", tr2))(tr2, ui4_1x)).it_i4); loc3 = (EIF_INTEGER_32) ti4_2; RTHOOK(12); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; } } RTHOOK(13); RTDBGAA(Current, dtype, 2451, 0x10000000, 1); /* iteration_position */ *(EIF_INTEGER_32 *)(Current + RTWA(2451, dtype)) = (EIF_INTEGER_32) loc3; if (RTAL & CK_ENSURE) { RTHOOK(14); RTCT("cursor_index_advanced", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2450, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(15); RTDBGLE; RTMD(0); RTLE; RTLO(5); RTEE; #undef up1 #undef up2 #undef ui4_1 }
/* {LINKED_STACK}.force */ void F1561_3321 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "force"; RTEX; #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_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,ur1); RTLR(4,tr2); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1560, Current, 0, 1, 15637); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1560, Current, 15637); RTCC(arg1, 1560, l_feature_name, 1, RTWCT(1741, dtype, Dftype(Current))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1701, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCK; RTHOOK(2); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1701, dtype))(Current)).it_b); RTTE(tb1, label_2); RTCK; RTJB; label_2: RTCF; } body: ; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2555, dtype)); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(3); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(2489, dtype))(Current, ur1x); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("item_inserted", EX_POST); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1703, dtype))(Current, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("item_pushed", EX_POST); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1741, 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(tr2, arg1)) { RTCK; } else { RTCF; } RTHOOK(6); RTCT("new_count", EX_POST); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(2555, dtype)); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } RTHOOK(7); RTCT("item_inserted", EX_POST); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1692, dtype))(Current, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(8); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ur1 #undef arg1 }