/* {APPLICATION}.make */ void F863_6993 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "make"; RTEX; 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_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,ur1); RTLIU(4); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 862, Current, 0, 0, 12674); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(862, Current, 12674); RTIV(Current, RTAL); RTHOOK(1); RTDBGAA(Current, dtype, 4920, 0xF800035D, 0); /* tree */ tr1 = RTLNSMART(RTWCT(4920, dtype, Dftype(Current)).id); ui4_1 = ((EIF_INTEGER_32) 10L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4912, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(1,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(4920, dtype)) = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 15L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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 = ((EIF_INTEGER_32) 15L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 20L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(5); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 17L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(6); RTDBGAA(Current, dtype, 4921, 0x04000000, 1); /* res */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 15L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(7); tr1 = RTMS_EX_H("15 exist: ",10,1449834016); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(8); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(8,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(9); RTDBGAA(Current, dtype, 4921, 0x04000000, 1); /* res */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 5L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(10); tr1 = RTMS_EX_H("5 exist: ",9,307662368); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(11); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, 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); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(12); RTDBGAA(Current, dtype, 4921, 0x04000000, 1); /* res */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(12,1); ui4_1 = ((EIF_INTEGER_32) 20L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(13); tr1 = RTMS_EX_H("20 exist: ",10,1222057760); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(14); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(14,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(172, "put_new_line", tr1))(tr1); RTHOOK(15); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(15,1); ui4_1 = ((EIF_INTEGER_32) 15L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(16); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(16,1); ui4_1 = ((EIF_INTEGER_32) 5L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(17); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(17,1); ui4_1 = ((EIF_INTEGER_32) 20L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(18); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(18,1); ui4_1 = ((EIF_INTEGER_32) 17L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(19); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(19,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(20); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(20,1); ui4_1 = ((EIF_INTEGER_32) 15L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(21); tr1 = RTMS_EX_H("15 exist: ",10,1449834016); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(22); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(22,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(23); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(23,1); ui4_1 = ((EIF_INTEGER_32) 5L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(24); tr1 = RTMS_EX_H("5 exist: ",9,307662368); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(25); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(25,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(26); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(26,1); ui4_1 = ((EIF_INTEGER_32) 20L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(27); tr1 = RTMS_EX_H("20 exist: ",10,1222057760); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(28); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(28,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(29); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(29,1); ui4_1 = ((EIF_INTEGER_32) 10L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(30); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(30,1); ui4_1 = ((EIF_INTEGER_32) 10L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(31); tr1 = RTMS_EX_H("10 exist: ",10,1154922016); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(32); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(32,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(33); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(33,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(172, "put_new_line", tr1))(tr1); RTVI(Current, RTAL); RTRS; RTHOOK(34); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef ur1 #undef ui4_1 }
/* {KL_STDERR_FILE}.make */ void F2347_32355 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "make"; RTEX; 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_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,tr1); RTLR(1,ur1); RTLR(2,Current); RTLR(3,tr2); RTLIU(4); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2346, Current, 0, 0, 37433); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2346, Current, 37433); RTIV(Current, RTAL); RTHOOK(1); tr1 = RTMS_EX_H("stderr",6,1911360114); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(20070, dtype))(Current, ur1x); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("name_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(23699, 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); tr2 = RTMS_EX_H("stderr",6,1911360114); ur1 = tr2; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(11, "is_equal", tr1))(tr1, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(3); RTCT("is_open_write", EX_POST); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(23697, dtype))(Current)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef ur1 }
EIF_TYPED_VALUE F999_9054 (EIF_REFERENCE Current) { GTCX RTOTC (F999_9054,14617,RTMS_EX_H("Contextual Help",15,712875120)); }
/* {RT_DBG_LOCAL_RECORD}.restore */ void F652_5637 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "restore"; 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_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 651, Current, 0, 1, 10706); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(651, Current, 10706); if (arg1) { RTCC(arg1, 651, l_feature_name, 1, 237); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("val_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; if ( WDBG(651,"rt_dbg_replay") ) { RTHOOK(2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(".restore: depth=",16,1353584189); ur1 = tr2; tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(4267, dtype)); tr1 = c_outi(ti4_1); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(" #",2,8227); ur1 = tr2; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(4251, dtype)); tr1 = c_outi(ti4_1); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H("\012",1,10); ur1 = tr2; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(951, dtype))(Current, ur1x); }
EIF_TYPED_VALUE F2347_32356 (EIF_REFERENCE Current) { GTCX RTOTC (F2347_32356,37435,RTMS_EX_H("\012",1,10)); }
/* {RT_DBG_LOCAL_RECORD}.debug_output */ EIF_TYPED_VALUE F652_5634 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "debug_output"; 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_INTEGER_32 ti4_1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,ur1); RTLR(4,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 651, Current, 0, 0, 10703); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(651, Current, 10703); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2492, 237))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(" (depth=",8,749294653); ur1 = tr2; tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(4267, dtype)); tr1 = c_outi(ti4_1); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(")",1,41); ur1 = tr2; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3791, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); Result = (EIF_REFERENCE) RTCCL(tr2); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("result_not_void", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef up2 #undef ur1 }
/* {RT_DBG_LOCAL_RECORD}.to_string */ EIF_TYPED_VALUE F652_5635 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "to_string"; RTEX; EIF_NATURAL_64 loc1 = (EIF_NATURAL_64) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE uu8_1x = {{0}, SK_UINT64}; #define uu8_1 uu8_1x.it_n8 EIF_REFERENCE tr1 = NULL; EIF_NATURAL_64 tu8_1; EIF_INTEGER_32 ti4_1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTLU(SK_UINT64, &loc1); RTEAA(l_feature_name, 651, Current, 1, 0, 10704); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(651, Current, 10704); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0x3C000000, 0, 0); /* loc1 */ loc1 = *(EIF_NATURAL_64 *)(Current + RTWA(4266, dtype)); RTHOOK(2); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(4252, dtype)); switch (ti4_1) { case 1L: RTHOOK(3); if (EIF_TRUE) { RTHOOK(4); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ tr1 = c_outp((EIF_NATURAL_64 *) &(loc1)); Result = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(5); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ Result = RTMS_EX_H("Void",4,1450142052); } break; case 7L: if (RTAL & CK_CHECK) { RTHOOK(6); RTCT("value_attached", EX_CHECK); tu8_1 = *(EIF_NATURAL_64 *)(Current + RTWA(4266, dtype)); if (EIF_TRUE) { RTCK; } else { RTCF; } } RTHOOK(7); if (EIF_TRUE) { RTHOOK(8); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ tr1 = c_outp((EIF_NATURAL_64 *) &(loc1)); Result = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(9); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ tr1 = RTLN(228); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(3713, Dtype(tr1)))(tr1); RTNHOOK(9,1); Result = (EIF_REFERENCE) RTCCL(tr1); } break; default: RTHOOK(10); if (EIF_TRUE) { RTHOOK(11); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ uu8_1 = loc1; Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(4270, dtype))(Current, uu8_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); } else { RTHOOK(12); RTDBGAL(Current, 0, 0xF80000E4, 0,0); /* Result */ tr1 = RTLN(228); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(3713, Dtype(tr1)))(tr1); RTNHOOK(12,1); Result = (EIF_REFERENCE) RTCCL(tr1); } break; } if (RTAL & CK_ENSURE) { RTHOOK(13); RTCT("result_attached", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(14); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef uu8_1 }
/* {RT_DBG_ATTRIBUTE_RECORD}.to_string */ EIF_TYPED_VALUE F1021_21187 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "to_string"; RTEX; EIF_INTEGER_16 loc1 = (EIF_INTEGER_16) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ui2_1x = {{0}, SK_INT16}; #define ui2_1 ui2_1x.it_i2 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_16 ti2_1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTLU(SK_INT16, &loc1); RTEAA(l_feature_name, 1020, Current, 1, 0, 16025); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1020, Current, 16025); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0x14000000, 0, 0); /* loc1 */ loc1 = *(EIF_INTEGER_16 *)(Current + RTWA(18349, dtype)); RTHOOK(2); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(18319, dtype)); switch (ti4_1) { case 1L: RTHOOK(3); if (EIF_TRUE) { RTHOOK(4); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ tr1 = c_outp((EIF_INTEGER_16 *) &(loc1)); Result = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(5); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ Result = RTMS_EX_H("Void",4,1450142052); } break; case 7L: if (RTAL & CK_CHECK) { RTHOOK(6); RTCT("expanded_value_attached", EX_CHECK); ti2_1 = *(EIF_INTEGER_16 *)(Current + RTWA(18349, dtype)); if (EIF_TRUE) { RTCK; } else { RTCF; } } RTHOOK(7); if (EIF_TRUE) { RTHOOK(8); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ tr1 = c_outp((EIF_INTEGER_16 *) &(loc1)); Result = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(9); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ tr1 = RTLN(389); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(15571, Dtype(tr1)))(tr1); RTNHOOK(9,1); Result = (EIF_REFERENCE) RTCCL(tr1); } break; default: RTHOOK(10); if (EIF_TRUE) { RTHOOK(11); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ ui2_1 = loc1; Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(18352, dtype))(Current, ui2_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); } else { if (RTAL & CK_CHECK) { RTHOOK(12); RTCT("should_not_be_void", EX_CHECK); RTCF; } RTHOOK(13); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ tr1 = RTLN(389); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(15571, Dtype(tr1)))(tr1); RTNHOOK(13,1); Result = (EIF_REFERENCE) RTCCL(tr1); } break; } if (RTAL & CK_ENSURE) { RTHOOK(14); RTCT("result_attached", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(15); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef ui2_1 }
/* {RT_DBG_ATTRIBUTE_RECORD}.restore */ void F1021_21189 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "restore"; 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_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_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(8); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLR(5,tr3); RTLR(6,loc1); RTLR(7,ur2); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 1020, Current, 1, 1, 16027); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1020, Current, 16027); if (arg1) { RTCC(arg1, 1020, l_feature_name, 1, 474); } RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("val_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; if ( WDBG(1020,"rt_dbg_replay") ) { RTHOOK(2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(".restore (",10,1145697320); ur1 = tr2; tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(18348, 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); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7, "generator", 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(tr3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(" #",2,8227); ur1 = tr2; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(18318, dtype)); tr1 = c_outi(ti4_1); ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(")\012",2,10506); ur1 = tr2; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(8263, dtype))(Current, ur1x); RTHOOK(3); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(18318, dtype)); ui4_1 = ti4_1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(18348, 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)) RTWF(18176, dtype))(Current, ui4_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); if (EIF_TEST(loc1)) { RTHOOK(4); tr1 = RTMS_EX_H(" -> ",4,539835936); ur1 = RTCCL(loc1); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr1 = RTMS_EX_H("\012",1,10); ur1 = tr1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr2))(tr2, 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(8263, dtype))(Current, ur1x); } else {
ur1 = RTCCL(tr1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(18176, dtype))(Current, ui4_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); if (EIF_TEST(loc1)) { RTHOOK(4); tr1 = RTMS_EX_H(" -> ",4,539835936); ur1 = RTCCL(loc1); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr1 = RTMS_EX_H("\012",1,10); ur1 = tr1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr2))(tr2, 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(8263, dtype))(Current, ur1x); } else { RTHOOK(5); tr1 = RTMS_EX_H(" -> Unknown name\012",17,624405258); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(8263, dtype))(Current, ur1x); } } RTHOOK(6); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(18324, dtype))(Current, ur1x)).it_b); if (tb1) { if ( WDBG(1020,"rt_dbg_replay") ) { RTHOOK(7); tr1 = RTMS_EX_H(" -> unchanged because same value [",34,642096731); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(18325, 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(tr2);
/* {RT_DBG_ATTRIBUTE_RECORD}.debug_output */ EIF_TYPED_VALUE F1021_21186 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "debug_output"; 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 Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,ur1); RTLR(4,tr3); RTLR(5,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1020, Current, 0, 0, 16024); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1020, Current, 16024); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 0, 0xF8000185, 0,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(16809, 474))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(" (object=",9,1677333821); ur1 = tr2; tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(18348, 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); tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8, "generating_type", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(17122, "to_string_8", tr3))(tr3)), (((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)) RTVF(15649, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = RTMS_EX_H(")",1,41); ur1 = tr2; tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15649, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); Result = (EIF_REFERENCE) RTCCL(tr2); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("result_not_void", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef up2 #undef ur1 }
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(3546, "open_write", loc1))(loc1); RTHOOK(6); ur1 = RTCCL(Current); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(3398, "independent_store", loc1))(loc1, ur1x); RTHOOK(7); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(3427, "close", loc1))(loc1); } else { RTHOOK(8); RTDBGAL(Current, 2, 0xF8000070, 0, 0); /* loc2 */ tr1 = RTLN(112); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1); RTNHOOK(8,1); loc2 = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(9); tr1 = RTMS_EX_H("write permission failure",24,329108837); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1443, "set_description", loc2))(loc2, ur1x); RTHOOK(10); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1428, "raise", loc2))(loc2); } RTVI(Current, RTAL); RTRS; RTHOOK(11); RTDBGLE; RTMD(0); RTLE; RTLO(5); RTEE; #undef ur1 #undef arg1
/* {XM_EIFFEL_SCANNER_DTD}.read_token */ void F2392_34130 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "read_token"; 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_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,Current); RTLR(1,tr1); RTLR(2,tr2); RTLR(3,ur1); RTLIU(4); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2391, Current, 0, 0, 39206); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2391, Current, 39206); RTIV(Current, RTAL); if ( WDBG(2391,"xml_parser") ) { RTHOOK(1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24123, 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); tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(23517, "error", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); RTNHOOK(1,2); tr1 = RTMS_EX_H("--dtd-scanner--",15,1305207853); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(24601, "put_string", tr2))(tr2, ur1x); RTHOOK(2); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(26310, dtype))(Current)).it_b); if (tb1) { RTHOOK(3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24123, 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); tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(23517, "error", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); RTNHOOK(3,2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(26311, 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)) RTVF(24601, "put_string", tr2))(tr2, ur1x); } }
/* {ETF_EVT_TOKENS}.token_name */ EIF_TYPED_VALUE F1525_15939 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "token_name"; 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 Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r; RTLI(2); RTLR(0,Result); RTLR(1,Current); RTLU (SK_REF, &Result); RTLU(SK_INT32,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 1524, Current, 0, 1, 21169); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1524, Current, 21169); RTIV(Current, RTAL); RTHOOK(1); switch (arg1) { case 0L: RTHOOK(2); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("EOF token",9,451139182); break; case -1L: RTHOOK(3); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("Error token",11,1176850798); break; case 258L: RTHOOK(4); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("NUMBER",6,1450195794); break; case 259L: RTHOOK(5); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("REAL",4,1380270412); break; case 260L: RTHOOK(6); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("IDENT",5,1145953364); break; case 261L: RTHOOK(7); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("CHAR_LIT",8,1474326612); break; case 262L: RTHOOK(8); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("STR_LIT",7,590287188); break; case 263L: RTHOOK(9); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_SYSTEM",9,661771853); break; case 264L: RTHOOK(10); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_BOOL",7,589667660); break; case 265L: RTHOOK(11); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_BOOLEAN",10,1789796174); break; case 266L: RTHOOK(12); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_CHAR",7,605982546); break; case 267L: RTHOOK(13); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_CHARACTER",12,234055762); break; case 268L: RTHOOK(14); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_INT",6,1764366420); break; case 269L: RTHOOK(15); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_INTEGER",10,898815826); break; case 270L: RTHOOK(16); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_REAL",7,857444172); break; case 271L: RTHOOK(17); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_STR",6,1765023314); break; case 272L: RTHOOK(18); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_VALUE",8,396412741); break; case 273L: RTHOOK(19); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_TUPLE",8,732201541); break; case 274L: RTHOOK(20); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_ARRAY",8,681852249); break; case 275L: RTHOOK(21); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_TRUE",7,891855685); break; case 276L: RTHOOK(22); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_FALSE",8,396289349); break; case 277L: RTHOOK(23); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_TRUE_LOWER",13,1400247122); break; case 278L: RTHOOK(24); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_FALSE_LOWER",14,2066344786); break; case 279L: RTHOOK(25); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_COMMA",8,631211329); break; case 280L: RTHOOK(26); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_COLON",8,631146318); break; case 281L: RTHOOK(27); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_SEMI_COLON",13,429495630); break; case 282L: RTHOOK(28); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_LPAREN",9,345819214); break; case 283L: RTHOOK(29); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_RPAREN",9,357615694); break; case 284L: RTHOOK(30); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_LSBRAC",9,362618435); break; case 285L: RTHOOK(31); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_RSBRAC",9,374414915); break; case 286L: RTHOOK(32); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_LABRAC",9,362480195); break; case 287L: RTHOOK(33); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_RABRAC",9,374276675); break; case 288L: RTHOOK(34); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_LCBRAC",9,362495555); break; case 289L: RTHOOK(35); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_RCBRAC",9,374292035); break; case 290L: RTHOOK(36); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_DQUOTE",9,665449797); break; case 291L: RTHOOK(37); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_MINUS",8,530692435); break; case 292L: RTHOOK(38); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_UPTO",7,908501583); break; case 293L: RTHOOK(39); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_TYPE",7,892313157); break; case 294L: RTHOOK(40); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("TK_EQ",5,1265179985); break; case 295L: RTHOOK(41); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ Result = RTMS_EX_H("EOL",3,4542284); break; default: RTHOOK(42); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ ui4_1 = arg1; Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(11691, dtype))(Current, ui4_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); break; } if (RTAL & CK_ENSURE) { RTHOOK(43); RTCT("token_name_not_void", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(44); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef ui4_1 #undef arg1 }
/* {ETF_TUPLE_PARAM}.eiffel_type */ EIF_TYPED_VALUE F1024_9338 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "eiffel_type"; RTEX; EIF_INTEGER_32 loc1 = (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 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_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,tr1); RTLR(1,Result); RTLR(2,ur1); RTLR(3,Current); RTLR(4,tr2); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTEAA(l_feature_name, 1023, Current, 1, 0, 14839); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1023, Current, 14839); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 0, 0xF80000DB, 0,0); /* Result */ tr1 = RTLN(219); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(4330, Dtype(tr1)))(tr1); RTNHOOK(1,1); Result = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(2); tr1 = RTMS_EX_H("TUPLE[",6,1512979291); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4492, "append", Result))(Result, ur1x); RTHOOK(3); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7153, 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_1 = *(EIF_INTEGER_32 *)(tr1 + RTVA(2611, "lower", tr1)); loc1 = (EIF_INTEGER_32) ti4_1; for (;;) { RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7153, 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 = *(EIF_INTEGER_32 *)(tr1 + RTVA(2612, "upper", tr1)); if ((EIF_BOOLEAN) (loc1 > ti4_1)) break; RTHOOK(5); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7153, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ui4_1 = loc1; tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1735, "item", tr1))(tr1, ui4_1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(6116, "name", tr2))(tr2)), (((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)) RTVF(4492, "append", Result))(Result, ur1x); RTHOOK(6); tr1 = RTMS_EX_H(": ",2,14880); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4492, "append", Result))(Result, ur1x); RTHOOK(7); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7153, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ui4_1 = loc1; tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1735, "item", tr1))(tr1, ui4_1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(6117, "type", tr2))(tr2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(7,1); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7146, "eiffel_type", tr1))(tr1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4492, "append", Result))(Result, ur1x); RTHOOK(8); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7153, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(8,1); ti4_2 = *(EIF_INTEGER_32 *)(tr1 + RTVA(2612, "upper", tr1)); if ((EIF_BOOLEAN) (loc1 < ti4_2)) { RTHOOK(9); tr1 = RTMS_EX_H("; ",2,15136); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4492, "append", Result))(Result, ur1x); } RTHOOK(10); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; }
ti4_2 = *(EIF_INTEGER_32 *)(tr1 + RTVA(2612, "upper", tr1)); if ((EIF_BOOLEAN) (loc1 < ti4_2)) { RTHOOK(9); tr1 = RTMS_EX_H("; ",2,15136); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4492, "append", Result))(Result, ur1x); } RTHOOK(10); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; } RTHOOK(11); tr1 = RTMS_EX_H("]",1,93); ur1 = tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4492, "append", Result))(Result, ur1x); RTVI(Current, RTAL); RTRS; RTHOOK(12); 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