/* {ARRAY}.make */
void F667_6236 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1, EIF_INTEGER_32 arg2)
{
GTCX
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
RTCDT;
RTLD;
RTLI(3);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,tr2);
RTGC;
*(EIF_INTEGER_32 *)(Current + O5213[dtype-666]) = (EIF_INTEGER_32) arg1;
*(EIF_INTEGER_32 *)(Current + O5214[dtype-666]) = (EIF_INTEGER_32) arg2;
if ((EIF_BOOLEAN) (arg1 <= arg2)) {
tr1 = RTLNTY(eif_final_id(Y4159,Y4159_gen_type,Dftype(Current),243));
tr1 = (FUNCTION_CAST(EIF_REFERENCE, (EIF_REFERENCE)) R6927[Dtype(tr1)-795])(RTCV(tr1));
tr2 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_REFERENCE, EIF_INTEGER_32)) R5199[dtype-651])(Current, tr2, (EIF_INTEGER_32) ((EIF_INTEGER_32) (arg2 - arg1) + ((EIF_INTEGER_32) 1L)));
} else {
/* {ARRAY}.make */
void F670_6236 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1, EIF_INTEGER_32 arg2)
{
GTCX
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
RTLD;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTGC;
*(EIF_INTEGER_32 *)(Current+ _LNGOFF_1_1_0_0_) = (EIF_INTEGER_32) arg1;
*(EIF_INTEGER_32 *)(Current+ _LNGOFF_1_1_0_1_) = (EIF_INTEGER_32) arg2;
if ((EIF_BOOLEAN) (arg1 <= arg2)) {
tr1 = RTLNTY(eif_final_id(Y4159,Y4159_gen_type,Dftype(Current),243));
ti4_1 = F803_8501(RTCV(tr1));
F655_6228(Current, ti4_1, (EIF_INTEGER_32) ((EIF_INTEGER_32) (arg2 - arg1) + ((EIF_INTEGER_32) 1L)));
} else {
F655_6227(Current, ((EIF_INTEGER_32) 0L));
}
RTLE;
}
/* {ISE_EXCEPTION_MANAGER}.unignorable_exceptions */
static EIF_REFERENCE F96_3070_body (EIF_REFERENCE Current)
{
GTCX
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
EIF_REFERENCE tr1 = NULL;
RTLD;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTEV;
RTGC;
RTOSP (3070);
#define Result RTOSR(3070)
RTOC_NEW(Result);
{
static EIF_TYPE_INDEX typarr0[] = {694,874,874,0xFFFF};
EIF_TYPE_INDEX typres0;
static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE;
typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0)));
tr1 = RTLNS(typres0, 694, _OBJSIZ_4_3_0_10_0_0_0_0_);
}
F695_6432(RTCV(tr1), ((EIF_INTEGER_32) 1L));
Result = (EIF_REFERENCE) tr1;
tr1 = RTLNTY(141);
loc1 = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (tr1);
F695_6477(RTCV(Result), loc1, loc1);
RTOSE (3070);
RTLE;
RTEE;
return Result;
#undef Result
}
/* {ISE_EXCEPTION_MANAGER}.type_of_code */
EIF_REFERENCE F96_3064 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1)
{
GTCX
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(2);
RTLR(0,tr1);
RTLR(1,Result);
RTGC;
switch (arg1) {
case 1L:
tr1 = RTLNTY(141);
Result = (EIF_REFERENCE) tr1;
break;
case 2L:
tr1 = RTLNTY(135);
Result = (EIF_REFERENCE) tr1;
break;
case 3L:
tr1 = RTLNTY(150);
Result = (EIF_REFERENCE) tr1;
break;
case 4L:
tr1 = RTLNTY(151);
Result = (EIF_REFERENCE) tr1;
break;
case 5L:
tr1 = RTLNTY(120);
Result = (EIF_REFERENCE) tr1;
break;
case 6L:
tr1 = RTLNTY(154);
Result = (EIF_REFERENCE) tr1;
break;
case 7L:
tr1 = RTLNTY(153);
Result = (EIF_REFERENCE) tr1;
break;
case 8L:
tr1 = RTLNTY(143);
Result = (EIF_REFERENCE) tr1;
break;
case 9L:
tr1 = RTLNTY(144);
Result = (EIF_REFERENCE) tr1;
break;
case 10L:
tr1 = RTLNTY(152);
Result = (EIF_REFERENCE) tr1;
break;
case 11L:
tr1 = RTLNTY(149);
Result = (EIF_REFERENCE) tr1;
break;
case 12L:
tr1 = RTLNTY(124);
Result = (EIF_REFERENCE) tr1;
break;
case 13L:
tr1 = RTLNTY(130);
Result = (EIF_REFERENCE) tr1;
break;
case 14L:
tr1 = RTLNTY(127);
Result = (EIF_REFERENCE) tr1;
break;
case 15L:
tr1 = RTLNTY(135);
Result = (EIF_REFERENCE) tr1;
break;
case 16L:
tr1 = RTLNTY(126);
Result = (EIF_REFERENCE) tr1;
break;
case 17L:
tr1 = RTLNTY(146);
Result = (EIF_REFERENCE) tr1;
break;
case 18L:
tr1 = RTLNTY(134);
Result = (EIF_REFERENCE) tr1;
break;
case 19L:
tr1 = RTLNTY(142);
Result = (EIF_REFERENCE) tr1;
break;
case 20L:
tr1 = RTLNTY(128);
Result = (EIF_REFERENCE) tr1;
break;
case 21L:
tr1 = RTLNTY(139);
Result = (EIF_REFERENCE) tr1;
break;
case 22L:
tr1 = RTLNTY(123);
Result = (EIF_REFERENCE) tr1;
break;
case 23L:
tr1 = RTLNTY(138);
Result = (EIF_REFERENCE) tr1;
break;
case 24L:
tr1 = RTLNTY(117);
Result = (EIF_REFERENCE) tr1;
break;
case 25L:
tr1 = RTLNTY(130);
Result = (EIF_REFERENCE) tr1;
break;
case 26L:
tr1 = RTLNTY(147);
Result = (EIF_REFERENCE) tr1;
break;
case 27L:
tr1 = RTLNTY(139);
Result = (EIF_REFERENCE) tr1;
break;
case 28L:
tr1 = RTLNTY(122);
Result = (EIF_REFERENCE) tr1;
break;
case 29L:
tr1 = RTLNTY(153);
Result = (EIF_REFERENCE) tr1;
break;
case 30L:
tr1 = RTLNTY(131);
Result = (EIF_REFERENCE) tr1;
break;
case 31L:
tr1 = RTLNTY(137);
Result = (EIF_REFERENCE) tr1;
break;
default:
Result = (EIF_REFERENCE) NULL;
break;
}
RTLE;
return Result;
}
/* {EV_MULTI_COLUMN_LIST_ROW}.make_filled */
void F1278_11908 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "make_filled";
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_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,tr1);
RTLR(1,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 1277, Current, 0, 1, 17810);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1277, Current, 17810);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("valid_number_of_items", EX_PRE);
RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 0L)), label_1);
RTCK;
RTHOOK(2);
RTCT("has_default", EX_PRE);
tr1 = RTLNTY(eif_attached_type(225));
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(3535, "has_default", tr1))(tr1)).it_b);
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(32, dtype))(Current);
RTHOOK(4);
ui4_1 = arg1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(3410, 398))(Current, ui4_1x);
if (RTAL & CK_ENSURE) {
RTHOOK(5);
RTCT("correct_position", EX_POST);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1841, dtype))(Current)).it_b);
if (tb1) {
RTCK;
} else {
RTCF;
}
RTHOOK(6);
RTCT("filled", EX_POST);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1750, dtype))(Current)).it_b);
if (tb1) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(7);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ui4_1
#undef arg1
}
/* {EV_ACTIVE_LIST}.make_filled */
void F1550_10161 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "make_filled";
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_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,tr1);
RTLR(1,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 1549, Current, 0, 1, 15947);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1549, Current, 15947);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("valid_number_of_items", EX_PRE);
RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 0L)), label_1);
RTCK;
RTHOOK(2);
RTCT("has_default", EX_PRE);
tr1 = RTLNTY(RTWCT(2603, dtype, Dftype(Current)));
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(3535, "has_default", tr1))(tr1)).it_b);
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
RTDBGAA(Current, dtype, 7840, 0xF80005FE, 0); /* internal_add_actions */
tr1 = RTLNSMART(eif_non_attached_type(RTWCT(7840, dtype, Dftype(Current))));
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
RTNHOOK(3,1);
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + RTWA(7840, dtype)) = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(4);
RTDBGAA(Current, dtype, 7841, 0xF80005FE, 0); /* internal_remove_actions */
tr1 = RTLNSMART(eif_non_attached_type(RTWCT(7841, dtype, Dftype(Current))));
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
RTNHOOK(4,1);
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + RTWA(7841, dtype)) = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(5);
ui4_1 = arg1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(3410, 1550))(Current, ui4_1x);
if (RTAL & CK_ENSURE) {
RTHOOK(6);
RTCT("correct_position", EX_POST);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1841, dtype))(Current)).it_b);
if (tb1) {
RTCK;
} else {
RTCF;
}
RTHOOK(7);
RTCT("filled", EX_POST);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1750, dtype))(Current)).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
}
