/* {DATE_VALUE}.compact_date */
EIF_TYPED_VALUE F1095_10143 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "compact_date";
RTEX;
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_INTEGER_32 ti4_3;
EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(1);
RTLR(0,Current);
RTLU (SK_INT32, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 1094, Current, 0, 0, 15779);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1094, Current, 15779);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7072, dtype))(Current)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7071, dtype))(Current)).it_i4);
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_3 = eif_bit_shift_left(ti4_2,ui4_1);
ui4_1 = ti4_3;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7070, dtype))(Current)).it_i4);
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_3 = eif_bit_shift_left(ti4_1,ui4_1);
ui4_1 = ti4_3;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
Result = (EIF_INTEGER_32) ti4_1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; }
#undef ui4_1
}
/* {EV_CHARACTER_FORMAT_RANGE_INFORMATION}.make_with_flags */
void F1207_17328 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1)
{
GTCX
EIF_INTEGER_32 ti4_1;
RTLD;
RTLI(1);
RTLR(0,Current);
RTGC;
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 1L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_0_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 2L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_1_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 4L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_2_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 8L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_3_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 16L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_4_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 32L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_5_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 64L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_6_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 128L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_7_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
ti4_1 = eif_bit_or(arg1,((EIF_INTEGER_32) 256L));
*(EIF_BOOLEAN *)(Current+ _CHROFF_0_8_) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTLE;
}
/* {MANAGED_POINTER}.read_natural_32_be */
EIF_NATURAL_32 F778_7298 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1)
{
GTCX
EIF_NATURAL_32 loc1 = (EIF_NATURAL_32) 0;
EIF_NATURAL_32 loc2 = (EIF_NATURAL_32) 0;
EIF_NATURAL_32 tu4_1;
EIF_NATURAL_32 tu4_2;
EIF_NATURAL_16 tu2_1;
EIF_NATURAL_32 Result = ((EIF_NATURAL_32) 0);
RTLD;
RTLI(1);
RTLR(0,Current);
RTGC;
if (RTOSCF(5527,F504_5527,(Current))) {
tu2_1 = F778_7297(Current, arg1);
loc1 = (EIF_NATURAL_32) tu2_1;
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 65535L);
tu2_1 = F778_7297(Current, (EIF_INTEGER_32) (arg1 + ((EIF_INTEGER_32) 2L)));
tu4_2 = (EIF_NATURAL_32) tu2_1;
loc2 = eif_bit_and(tu4_1,tu4_2);
tu4_1 = (EIF_NATURAL_32) loc1;
tu4_1 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 16L));
Result = eif_bit_or((tu4_1),loc2);
} else {
RTLE;
return (EIF_NATURAL_32) F778_7246(Current, arg1);
}
RTLE;
return Result;
}
/* {MANAGED_POINTER}.read_natural_16_be */
EIF_NATURAL_16 F778_7297 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1)
{
GTCX
EIF_NATURAL_16 loc1 = (EIF_NATURAL_16) 0;
EIF_NATURAL_16 loc2 = (EIF_NATURAL_16) 0;
EIF_NATURAL_16 tu2_1;
EIF_NATURAL_16 tu2_2;
EIF_NATURAL_8 tu1_1;
EIF_NATURAL_16 Result = ((EIF_NATURAL_16) 0);
RTLD;
RTLI(1);
RTLR(0,Current);
RTGC;
if (RTOSCF(5527,F504_5527,(Current))) {
tu1_1 = F778_7244(Current, arg1);
loc1 = (EIF_NATURAL_16) tu1_1;
tu2_1 = (EIF_NATURAL_16) ((EIF_INTEGER_32) 255L);
tu1_1 = F778_7244(Current, (EIF_INTEGER_32) (arg1 + ((EIF_INTEGER_32) 1L)));
tu2_2 = (EIF_NATURAL_16) tu1_1;
loc2 = eif_bit_and(tu2_1,tu2_2);
tu2_1 = (EIF_NATURAL_16) loc1;
tu2_1 = eif_bit_shift_left(tu2_1,((EIF_INTEGER_32) 8L));
Result = eif_bit_or((tu2_1),loc2);
} else {
RTLE;
return (EIF_NATURAL_16) F778_7245(Current, arg1);
}
RTLE;
return Result;
}
/* {EV_GTK_WIDGET_IMP}.gdk_events_mask */
static EIF_INTEGER_32 F1081_14165_body (EIF_REFERENCE Current)
{
GTCX
RTEX;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
RTEV;
RTGC;
RTOSP (14165);
#define Result RTOSR(14165)
ti4_1 = (EIF_INTEGER_32) GDK_EXPOSURE_MASK;
ti4_2 = (EIF_INTEGER_32) GDK_POINTER_MOTION_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_BUTTON_PRESS_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_BUTTON_RELEASE_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_KEY_PRESS_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_KEY_RELEASE_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_ENTER_NOTIFY_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_LEAVE_NOTIFY_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_FOCUS_CHANGE_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_VISIBILITY_NOTIFY_MASK;
ti4_1 = eif_bit_or(ti4_1,ti4_2);
ti4_2 = (EIF_INTEGER_32) GDK_POINTER_MOTION_HINT_MASK;
Result = eif_bit_or(ti4_1,ti4_2);
RTOSE (14165);
RTEE;
return Result;
#undef Result
}
/* {EV_WINDOW_IMP}.internal_enable_border */
void F1123_15418 (EIF_REFERENCE Current)
{
GTCX
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
EIF_POINTER tp1;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
RTCDT;
RTLD;
RTLI(1);
RTLR(0,Current);
RTGC;
ti4_1 = (FUNCTION_CAST(EIF_INTEGER_32, (EIF_REFERENCE)) R11042[dtype-1081])(Current);
ti4_2 = (EIF_INTEGER_32) GDK_DECOR_BORDER;
loc1 = eif_bit_or(ti4_1,ti4_2);
tp1 = *(EIF_POINTER *)(Current + O10979[dtype-1078]);
tp1 = (EIF_POINTER) (((GtkWidget *)tp1)->window);
gdk_window_set_decorations((GdkWindow*) tp1, (GdkWMDecoration) loc1);
RTLE;
}
ui4_1 = loc4;
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2672, "read_natural_8", loc1))(loc1, ui4_1x)).it_n1);
loc2 = (EIF_NATURAL_8) tu1_1;
RTHOOK(17);
RTDBGAL(Current, 3, 0x38000000, 1, 0); /* loc3 */
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
uu1_1 = tu1_1;
tu1_1 = eif_bit_and(loc2,uu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
uu4_1 = tu4_1;
tu4_1 = eif_bit_or(loc3,uu4_1);
loc3 = (EIF_NATURAL_32) tu4_1;
RTHOOK(18);
tw1 = (EIF_CHARACTER_32) loc3;
uw1 = tw1;
ui4_1 = loc6;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1738, "put", Result))(Result, uw1x, ui4_1x);
} else {
RTHOOK(19);
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 240L);
uu1_1 = tu1_1;
tu1_1 = eif_bit_and(loc2,uu1_1);
/* {EV_GTK_C_STRING}.string */
EIF_REFERENCE F781_7426 (EIF_REFERENCE Current)
{
GTCX
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_NATURAL_8 loc2 = (EIF_NATURAL_8) 0;
EIF_NATURAL_32 loc3 = (EIF_NATURAL_32) 0;
EIF_INTEGER_32 loc4 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc5 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc6 = (EIF_INTEGER_32) 0;
EIF_POINTER tp1;
EIF_POINTER tp2;
EIF_REFERENCE tr1 = NULL;
EIF_NATURAL_32 tu4_1;
EIF_CHARACTER_32 tw1;
EIF_NATURAL_8 tu1_1;
EIF_NATURAL_8 tu1_2;
EIF_CHARACTER_8 tc1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(4);
RTLR(0,Current);
RTLR(1,loc1);
RTLR(2,tr1);
RTLR(3,Result);
RTGC;
loc4 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 0L);
loc6 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 0L);
loc5 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_0_1_0_0_);
loc1 = RTOSCF(7431,F781_7431,(Current));
tp1 = *(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_);
F778_7238(RTCV(loc1), tp1, loc5);
tr1 = RTLNS(925, 925, _OBJSIZ_1_1_0_3_0_0_0_0_);
F925_10552(RTCV(tr1), loc5);
Result = (EIF_REFERENCE) tr1;
F926_10691(RTCV(Result), loc5);
for (;;) {
if ((EIF_BOOLEAN)(loc4 == loc5)) break;
loc2 = F778_7244(RTCV(loc1), loc4);
loc6++;
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 127L);
if ((EIF_BOOLEAN) (loc2 <= tu1_1)) {
tc1 = (EIF_CHARACTER_8) loc2;
tw1 = (EIF_CHARACTER_32) tc1;
F926_10630(RTCV(Result), tw1, loc6);
} else {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 224L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu1_2 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 192L);
if ((EIF_BOOLEAN)(tu1_1 == tu1_2)) {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 31L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
loc3 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 6L));
loc4++;
loc2 = F778_7244(RTCV(loc1), loc4);
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
loc3 = eif_bit_or(loc3,tu4_1);
tw1 = (EIF_CHARACTER_32) loc3;
F926_10630(RTCV(Result), tw1, loc6);
} else {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 240L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu1_2 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 224L);
if ((EIF_BOOLEAN)(tu1_1 == tu1_2)) {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 15L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
loc3 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 12L));
loc2 = F778_7244(RTCV(loc1), (EIF_INTEGER_32) (loc4 + ((EIF_INTEGER_32) 1L)));
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
tu4_1 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 6L));
loc3 = eif_bit_or(loc3,tu4_1);
loc2 = F778_7244(RTCV(loc1), (EIF_INTEGER_32) (loc4 + ((EIF_INTEGER_32) 2L)));
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
loc3 = eif_bit_or(loc3,tu4_1);
tw1 = (EIF_CHARACTER_32) loc3;
F926_10630(RTCV(Result), tw1, loc6);
loc4 += ((EIF_INTEGER_32) 2L);
} else {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 248L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu1_2 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 240L);
if ((EIF_BOOLEAN)(tu1_1 == tu1_2)) {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 7L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
loc3 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 18L));
loc2 = F778_7244(RTCV(loc1), (EIF_INTEGER_32) (loc4 + ((EIF_INTEGER_32) 1L)));
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
tu4_1 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 12L));
loc3 = eif_bit_or(loc3,tu4_1);
loc2 = F778_7244(RTCV(loc1), (EIF_INTEGER_32) (loc4 + ((EIF_INTEGER_32) 2L)));
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
tu4_1 = eif_bit_shift_left(tu4_1,((EIF_INTEGER_32) 6L));
loc3 = eif_bit_or(loc3,tu4_1);
loc2 = F778_7244(RTCV(loc1), (EIF_INTEGER_32) (loc4 + ((EIF_INTEGER_32) 3L)));
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu4_1 = (EIF_NATURAL_32) tu1_1;
loc3 = eif_bit_or(loc3,tu4_1);
tw1 = (EIF_CHARACTER_32) loc3;
F926_10630(RTCV(Result), tw1, loc6);
loc4 += ((EIF_INTEGER_32) 3L);
} else {
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 252L);
tu1_1 = eif_bit_and(loc2,tu1_1);
tu1_2 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 248L);
if ((EIF_BOOLEAN)(tu1_1 == tu1_2)) {
tw1 = (EIF_CHARACTER_32) (EIF_CHARACTER_8) ' ';
F926_10630(RTCV(Result), tw1, loc6);
loc4 += ((EIF_INTEGER_32) 4L);
} else {
tw1 = (EIF_CHARACTER_32) (EIF_CHARACTER_8) ' ';
F926_10630(RTCV(Result), tw1, loc6);
loc4 += ((EIF_INTEGER_32) 5L);
}
}
}
}
}
loc4++;
}
F926_10691(RTCV(Result), loc6);
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
tp2 = tp1;
F778_7238(RTCV(loc1), tp2, ((EIF_INTEGER_32) 0L));
RTLE;
return Result;
}
/* {EV_GTK_C_STRING}.internal_set_with_eiffel_string */
void F781_7432 (EIF_REFERENCE Current, EIF_REFERENCE arg1, EIF_BOOLEAN arg2)
{
GTCX
EIF_POINTER loc1 = (EIF_POINTER) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc3 = (EIF_INTEGER_32) 0;
EIF_NATURAL_32 loc4 = (EIF_NATURAL_32) 0;
EIF_INTEGER_32 loc5 = (EIF_INTEGER_32) 0;
EIF_REFERENCE loc6 = (EIF_REFERENCE) 0;
EIF_POINTER tp1;
EIF_POINTER tp2;
EIF_NATURAL_32 tu4_1;
EIF_NATURAL_32 tu4_2;
EIF_NATURAL_32 tu4_3;
EIF_INTEGER_8 ti1_1;
EIF_NATURAL_8 tu1_1;
EIF_BOOLEAN tb1;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,loc6);
RTGC;
loc5 = (FUNCTION_CAST(EIF_INTEGER_32, (EIF_REFERENCE)) R8045[Dtype(arg1)-920])(RTCV(arg1));
loc3 = (EIF_INTEGER_32) loc5;
for (;;) {
if ((EIF_BOOLEAN)(loc3 == ((EIF_INTEGER_32) 0L))) break;
loc4 = (FUNCTION_CAST(EIF_NATURAL_32, (EIF_REFERENCE, EIF_INTEGER_32)) R8008[Dtype(arg1)-922])(RTCV(arg1), loc3);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 127L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
loc2++;
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 2047L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
loc2 += ((EIF_INTEGER_32) 2L);
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 65535L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
loc2 += ((EIF_INTEGER_32) 3L);
} else {
loc2 += ((EIF_INTEGER_32) 4L);
}
}
}
loc3--;
}
loc3 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L);
tb1 = '\0';
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
if ((EIF_BOOLEAN)(*(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_) != tp1)) {
tb1 = (EIF_BOOLEAN) !*(EIF_BOOLEAN *)(Current+ _CHROFF_0_0_);
}
if (tb1) {
tp1 = *(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_);
loc1 = (EIF_POINTER) g_realloc((gpointer) tp1, (gulong) (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
tp2 = tp1;
*(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_) = (EIF_POINTER) tp2;
} else {
loc1 = (EIF_POINTER) g_malloc((gulong) (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
}
loc6 = RTOSCF(7431,F781_7431,(Current));
F778_7238(RTCV(loc6), loc1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
loc2 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 0L);
for (;;) {
if ((EIF_BOOLEAN) (loc3 > loc5)) break;
loc4 = (FUNCTION_CAST(EIF_NATURAL_32, (EIF_REFERENCE, EIF_INTEGER_32)) R8008[Dtype(arg1)-922])(RTCV(arg1), loc3);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 127L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
tu1_1 = (EIF_NATURAL_8) loc4;
F778_7260(RTCV(loc6), tu1_1, loc2);
loc2++;
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 2047L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 192L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 6L));
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, loc2);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and(loc4,tu4_2);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
loc2 += ((EIF_INTEGER_32) 2L);
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 65535L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 224L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 12L));
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, loc2);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 6L));
tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and((tu4_2),tu4_3);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and(loc4,tu4_2);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 2L)));
loc2 += ((EIF_INTEGER_32) 3L);
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 240L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 18L));
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, loc2);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 12L));
tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and((tu4_2),tu4_3);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 6L));
tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and((tu4_2),tu4_3);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 2L)));
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and(loc4,tu4_2);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 3L)));
loc2 += ((EIF_INTEGER_32) 4L);
}
}
}
loc3++;
}
ti1_1 = (EIF_INTEGER_8) ((EIF_INTEGER_32) 0L);
F778_7264(RTCV(loc6), ti1_1, loc2);
F781_7433(Current, loc1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)), arg2);
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
tp2 = tp1;
F778_7238(RTCV(loc6), tp2, ((EIF_INTEGER_32) 0L));
RTLE;
}
/* {INET4_ADDRESS}.make_from_host_and_address */
void F52_961 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "make_from_host_and_address";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_INTEGER_32 ti4_3;
EIF_NATURAL_8 tu1_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 51, Current, 0, 2, 1013);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(51, Current, 1013);
if (arg1) {
RTCC(arg1, 51, l_feature_name, 1, eif_non_attached_type(218));
}
if (arg2) {
{
static EIF_TYPE_INDEX typarr0[] = {539,187,0xFFFF};
EIF_TYPE_INDEX typres0;
static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE;
typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0)));
RTCC(arg2, 51, l_feature_name, 2, eif_non_attached_type(typres0));
}
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("an_address_count_valid", EX_PRE);
tb1 = '\01';
if ((EIF_BOOLEAN)(arg2 != NULL)) {
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1392, "count", arg2))(arg2)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(914, dtype))(Current)).it_i4);
tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2);
}
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
RTDBGAA(Current, dtype, 896, 0xF80000DA, 0); /* internal_host_name */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(896, dtype)) = (EIF_REFERENCE) RTCCL(arg1);
RTHOOK(3);
RTDBGAA(Current, dtype, 881, 0x10000000, 1); /* family */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(879, dtype))(Current)).it_i4);
*(EIF_INTEGER_32 *)(Current + RTWA(881, dtype)) = (EIF_INTEGER_32) ti4_1;
RTHOOK(4);
tb1 = '\0';
if ((EIF_BOOLEAN)(arg2 != NULL)) {
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1392, "count", arg2))(arg2)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(914, dtype))(Current)).it_i4);
tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2);
}
if (tb1) {
RTHOOK(5);
RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */
ui4_1 = ((EIF_INTEGER_32) 4L);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1);
RTNHOOK(5,1);
ti4_1 = (EIF_INTEGER_32) tu1_1;
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_2 = eif_bit_and(ti4_1,ui4_1);
*(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2;
RTHOOK(6);
RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 3L);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1);
RTNHOOK(6,1);
ti4_2 = (EIF_INTEGER_32) tu1_1;
ui4_1 = ((EIF_INTEGER_32) 8L);
ti4_3 = eif_bit_shift_left(ti4_2,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 65280L);
ti4_2 = eif_bit_and((ti4_3),ui4_1);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
*(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2;
RTHOOK(7);
RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 2L);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1);
RTNHOOK(7,1);
ti4_2 = (EIF_INTEGER_32) tu1_1;
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_3 = eif_bit_shift_left(ti4_2,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 16711680L);
ti4_2 = eif_bit_and((ti4_3),ui4_1);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
*(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2;
RTHOOK(8);
RTDBGAA(Current, dtype, 918, 0x10000000, 1); /* the_address */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 1L);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1412, "item", arg2))(arg2, ui4_1x)).it_n1);
RTNHOOK(8,1);
ti4_2 = (EIF_INTEGER_32) tu1_1;
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_3 = eif_bit_shift_left(ti4_2,ui4_1);
ti4_2 = (EIF_INTEGER_32) ((EIF_INTEGER_64) RTI64C(4278190080));
ui4_1 = ti4_2;
ti4_2 = eif_bit_and((ti4_3),ui4_1);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
*(EIF_INTEGER_32 *)(Current + RTWA(918, dtype)) = (EIF_INTEGER_32) ti4_2;
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(9);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef ui4_1
#undef arg2
#undef arg1
}
/* {EV_DIALOG_IMP}.set_closeable */
void F1409_13852 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_closeable";
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
#define arg1 arg1x.it_b
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_POINTER tp1;
EIF_INTEGER_32 ti4_1;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_b = * (EIF_BOOLEAN *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_BOOL,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_INT32, &loc1);
RTEAA(l_feature_name, 1408, Current, 1, 1, 19397);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1408, Current, 19397);
RTIV(Current, RTAL);
RTHOOK(1);
if (arg1) {
RTHOOK(2);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
loc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5105, 868))(Current)).it_i4);
}
RTHOOK(3);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5106, 868))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(4);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5107, 868))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(5);
tp1 = *(EIF_POINTER *)(Current + RTWA(9838, dtype));
up1 = tp1;
tp1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(5533, 868))(Current, up1x)).it_p);
up1 = tp1;
ui4_1 = loc1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(5248, 868))(Current, up1x, ui4_1x);
RTHOOK(6);
RTDBGAA(Current, dtype, 10518, 0x04000000, 1); /* is_dialog_closeable */
*(EIF_BOOLEAN *)(Current + RTWA(10518, dtype)) = (EIF_BOOLEAN) arg1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(7);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef up1
#undef ui4_1
#undef arg1
}
/* {EV_CHARACTER_FORMAT_RANGE_INFORMATION}.make_with_flags */
void F1483_15136 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "make_with_flags";
RTEX;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
EIF_BOOLEAN tb2;
EIF_BOOLEAN tb3;
EIF_BOOLEAN tb4;
EIF_BOOLEAN tb5;
EIF_BOOLEAN tb6;
EIF_BOOLEAN tb7;
EIF_BOOLEAN tb8;
EIF_BOOLEAN tb9;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 1482, Current, 0, 1, 20463);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1482, Current, 20463);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("valid_flags", EX_PRE);
ui4_1 = arg1;
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(6403, dtype))(Current, ui4_1x)).it_b);
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
RTDBGAA(Current, dtype, 11104, 0x04000000, 1); /* font_family */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6394, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11104, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(3);
RTDBGAA(Current, dtype, 11105, 0x04000000, 1); /* font_weight */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6395, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11105, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(4);
RTDBGAA(Current, dtype, 11106, 0x04000000, 1); /* font_shape */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6396, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11106, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(5);
RTDBGAA(Current, dtype, 11107, 0x04000000, 1); /* font_height */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6397, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11107, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(6);
RTDBGAA(Current, dtype, 11108, 0x04000000, 1); /* color */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6398, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11108, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(7);
RTDBGAA(Current, dtype, 11109, 0x04000000, 1); /* background_color */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6399, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11109, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(8);
RTDBGAA(Current, dtype, 11110, 0x04000000, 1); /* effects_striked_out */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6400, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11110, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(9);
RTDBGAA(Current, dtype, 11111, 0x04000000, 1); /* effects_underlined */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6401, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11111, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
RTHOOK(10);
RTDBGAA(Current, dtype, 11112, 0x04000000, 1); /* effects_vertical_offset */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6402, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
*(EIF_BOOLEAN *)(Current + RTWA(11112, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == arg1);
if (RTAL & CK_ENSURE) {
RTHOOK(11);
RTCT("attributes_set", EX_POST);
tb1 = '\0';
tb2 = '\0';
tb3 = '\0';
tb4 = '\0';
tb5 = '\0';
tb6 = '\0';
tb7 = '\0';
tb8 = '\0';
tb9 = *(EIF_BOOLEAN *)(Current + RTWA(11104, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6394, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
if ((EIF_BOOLEAN)(tb9 == (EIF_BOOLEAN)(ti4_1 == arg1))) {
tb9 = *(EIF_BOOLEAN *)(Current + RTWA(11105, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6395, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb8 = (EIF_BOOLEAN)(tb9 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb8) {
tb8 = *(EIF_BOOLEAN *)(Current + RTWA(11106, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6396, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb7 = (EIF_BOOLEAN)(tb8 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb7) {
tb7 = *(EIF_BOOLEAN *)(Current + RTWA(11107, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6397, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb6 = (EIF_BOOLEAN)(tb7 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb6) {
tb6 = *(EIF_BOOLEAN *)(Current + RTWA(11108, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6398, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb5 = (EIF_BOOLEAN)(tb6 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb5) {
tb5 = *(EIF_BOOLEAN *)(Current + RTWA(11109, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6399, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb4 = (EIF_BOOLEAN)(tb5 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb4) {
tb4 = *(EIF_BOOLEAN *)(Current + RTWA(11110, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6400, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb3 = (EIF_BOOLEAN)(tb4 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb3) {
tb3 = *(EIF_BOOLEAN *)(Current + RTWA(11111, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6401, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb2 = (EIF_BOOLEAN)(tb3 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb2) {
tb2 = *(EIF_BOOLEAN *)(Current + RTWA(11112, dtype));
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6402, 911))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(arg1,ui4_1);
tb1 = (EIF_BOOLEAN)(tb2 == (EIF_BOOLEAN)(ti4_1 == arg1));
}
if (tb1) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(12);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ui4_1
#undef arg1
}
/* {TIME_VALUE}.set_second */
void F946_8062 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_second";
RTEX;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_INTEGER_32 ti4_3;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLIU(1);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 945, Current, 0, 1, 13503);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(945, Current, 13503);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("s_large_enough", EX_PRE);
RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 0L)), label_1);
RTCK;
RTHOOK(2);
RTCT("s_small_enough", EX_PRE);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5797, dtype))(Current)).it_i4);
RTTE((EIF_BOOLEAN) (arg1 < ti4_1), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
RTDBGAA(Current, dtype, 5813, 0x10000000, 1); /* compact_time */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(5813, dtype));
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5819, dtype))(Current)).it_i4);
ti4_3 = eif_bit_not(ti4_2);
ui4_1 = ti4_3;
ti4_2 = eif_bit_and(ti4_1,ui4_1);
*(EIF_INTEGER_32 *)(Current + RTWA(5813, dtype)) = (EIF_INTEGER_32) ti4_2;
RTHOOK(4);
RTDBGAA(Current, dtype, 5813, 0x10000000, 1); /* compact_time */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(5813, dtype));
ui4_1 = arg1;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
*(EIF_INTEGER_32 *)(Current + RTWA(5813, dtype)) = (EIF_INTEGER_32) ti4_2;
if (RTAL & CK_ENSURE) {
RTHOOK(5);
RTCT("second_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5805, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == arg1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(6);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ui4_1
#undef arg1
}
/* {WEL_STARTUP_CONSTANTS}.is_valid_startup_flags */
EIF_TYPED_VALUE F102_7929 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "is_valid_startup_flags";
RTEX;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLU (SK_BOOL, &Result);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 101, Current, 0, 1, 1633);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(101, Current, 1633);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7761, dtype))(Current)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7762, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7763, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7764, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7765, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7766, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7767, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7768, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(arg1,ui4_1);
Result = (EIF_BOOLEAN) (EIF_BOOLEAN)(arg1 == ti4_1);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
#undef arg1
}
/* {DATE_VALUE}.set_date */
void F318_12411 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x)
{
GTCX
char *l_feature_name = "set_date";
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
#define arg1 arg1x.it_i4
#define arg2 arg2x.it_i4
#define arg3 arg3x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg3x.type & SK_HEAD) == SK_REF) arg3x.it_i4 = * (EIF_INTEGER_32 *) arg3x.it_r;
if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU(SK_INT32,&arg2);
RTLU(SK_INT32,&arg3);
RTLU (SK_REF, &Current);
RTLU(SK_INT32, &loc1);
RTEAA(l_feature_name, 317, Current, 1, 3, 5187);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(317, Current, 5187);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("d_large_enough", EX_PRE);
RTTE((EIF_BOOLEAN) (arg3 >= ((EIF_INTEGER_32) 1L)), label_1);
RTCK;
RTHOOK(2);
RTCT("m_large_enough", EX_PRE);
RTTE((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 1L)), label_1);
RTCK;
RTHOOK(3);
RTCT("m_small_enough", EX_PRE);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8008, dtype))(Current)).it_i4);
RTTE((EIF_BOOLEAN) (arg2 <= ti4_1), label_1);
RTCK;
RTHOOK(4);
RTCT("d_small_enough", EX_PRE);
ui4_1 = arg2;
ui4_2 = arg1;
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(8011, dtype))(Current, ui4_1x, ui4_2x)).it_i4);
RTTE((EIF_BOOLEAN) (arg3 <= ti4_1), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(5);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11513, dtype))(Current)).it_i4);
ti4_2 = eif_bit_not(ti4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(6);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ui4_1 = arg3;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(7);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11514, dtype))(Current)).it_i4);
ti4_2 = eif_bit_not(ti4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(8);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11517, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_shift_left(arg2,ui4_1);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(9);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11515, dtype))(Current)).it_i4);
ti4_2 = eif_bit_not(ti4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(10);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11516, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_shift_left(arg1,ui4_1);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(11);
RTDBGAA(Current, dtype, 11510, 0x10000000, 1); /* ordered_compact_date */
*(EIF_INTEGER_32 *)(Current + RTWA(11510, dtype)) = (EIF_INTEGER_32) loc1;
if (RTAL & CK_ENSURE) {
RTHOOK(12);
RTCT("day_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8020, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == arg3)) {
RTCK;
} else {
RTCF;
}
RTHOOK(13);
RTCT("month_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8021, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == arg2)) {
RTCK;
} else {
RTCF;
}
RTHOOK(14);
RTCT("year_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(8022, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == arg1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(15);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(6);
RTEE;
#undef ui4_1
#undef ui4_2
#undef arg3
#undef arg2
#undef arg1
}
/* {DATE_VALUE}.set_month */
void F1095_10147 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_month";
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_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(1);
RTLR(0,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_INT32, &loc1);
RTEAA(l_feature_name, 1094, Current, 1, 1, 15783);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1094, Current, 15783);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("m_large_enough", EX_PRE);
RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 1L)), label_1);
RTCK;
RTHOOK(2);
RTCT("m_small_enough", EX_PRE);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7046, dtype))(Current)).it_i4);
RTTE((EIF_BOOLEAN) (arg1 <= ti4_1), label_1);
RTCK;
RTHOOK(3);
RTCT("d_small_enough", EX_PRE);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7070, dtype))(Current)).it_i4);
ui4_1 = arg1;
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7072, dtype))(Current)).it_i4);
ui4_2 = ti4_2;
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(7049, dtype))(Current, ui4_1x, ui4_2x)).it_i4);
RTTE((EIF_BOOLEAN) (ti4_1 <= ti4_2), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(4);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
loc1 = *(EIF_INTEGER_32 *)(Current + RTWA(7829, dtype));
RTHOOK(5);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7833, dtype))(Current)).it_i4);
ti4_2 = eif_bit_not(ti4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(6);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7836, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_shift_left(arg1,ui4_1);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(7);
RTDBGAA(Current, dtype, 7829, 0x10000000, 1); /* ordered_compact_date */
*(EIF_INTEGER_32 *)(Current + RTWA(7829, dtype)) = (EIF_INTEGER_32) loc1;
if (RTAL & CK_ENSURE) {
RTHOOK(8);
RTCT("month_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7071, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == arg1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(9);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef ui4_1
#undef ui4_2
#undef arg1
}
/* {WEL_PROCESS_CREATION_CONSTANTS}.is_valid_creation_constant */
EIF_TYPED_VALUE F920_7690 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "is_valid_creation_constant";
RTEX;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_INTEGER_32 ti4_3;
EIF_BOOLEAN tb1;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLIU(1);
RTLU (SK_BOOL, &Result);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 919, Current, 0, 1, 13175);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(919, Current, 13175);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5468, dtype))(Current)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5469, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5470, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5472, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5471, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5473, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(arg1,ui4_1);
Result = (EIF_BOOLEAN) (EIF_BOOLEAN)(arg1 == ti4_1);
RTHOOK(2);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
tb1 = '\0';
if (Result) {
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5469, dtype))(Current)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5472, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(arg1,ui4_1);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5469, dtype))(Current)).it_i4);
ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5472, dtype))(Current)).it_i4);
ui4_1 = ti4_3;
ti4_3 = eif_bit_or(ti4_2,ui4_1);
tb1 = ((EIF_BOOLEAN)(ti4_1 != ti4_3));
}
Result = (EIF_BOOLEAN) tb1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
#undef arg1
}
/* {DATE_VALUE}.set_internal_compact_date */
void F905_7444 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_internal_compact_date";
RTEX;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_INTEGER_32 ti4_3;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 904, Current, 0, 1, 13054);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(904, Current, 13054);
RTIV(Current, RTAL);
RTHOOK(1);
ui4_1 = arg1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(5296, dtype))(Current, ui4_1x);
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT("compact_date_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5066, dtype))(Current)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5065, dtype))(Current)).it_i4);
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_3 = eif_bit_shift_left(ti4_2,ui4_1);
ui4_1 = ti4_3;
ti4_2 = eif_bit_or(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5064, dtype))(Current)).it_i4);
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_3 = eif_bit_shift_left(ti4_1,ui4_1);
ui4_1 = ti4_3;
ti4_1 = eif_bit_or(ti4_2,ui4_1);
if ((EIF_BOOLEAN)(ti4_1 == arg1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ui4_1
#undef arg1
}
/* {DATE_VALUE}.set_year */
void F905_7443 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_year";
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_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(1);
RTLR(0,Current);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_INT32, &loc1);
RTEAA(l_feature_name, 904, Current, 1, 1, 13053);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(904, Current, 13053);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("can_not_cut_29th_feb", EX_PRE);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5064, dtype))(Current)).it_i4);
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5065, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ui4_2 = arg1;
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(5043, dtype))(Current, ui4_1x, ui4_2x)).it_i4);
RTTE((EIF_BOOLEAN) (ti4_1 <= ti4_2), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
loc1 = *(EIF_INTEGER_32 *)(Current + RTWA(5286, dtype));
RTHOOK(3);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5291, dtype))(Current)).it_i4);
ti4_2 = eif_bit_not(ti4_1);
ui4_1 = ti4_2;
ti4_1 = eif_bit_and(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(4);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5292, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_shift_left(arg1,ui4_1);
ui4_1 = ti4_1;
ti4_1 = eif_bit_or(loc1,ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(5);
RTDBGAA(Current, dtype, 5286, 0x10000000, 1); /* ordered_compact_date */
*(EIF_INTEGER_32 *)(Current + RTWA(5286, dtype)) = (EIF_INTEGER_32) loc1;
if (RTAL & CK_ENSURE) {
RTHOOK(6);
RTCT("year_set", EX_POST);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5066, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == arg1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(7);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef ui4_1
#undef ui4_2
#undef arg1
}
/* {UUID_GENERATOR}.generate_uuid */
EIF_TYPED_VALUE F34_4011 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "generate_uuid";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_TYPED_VALUE uu1_1x = {{0}, SK_UINT8};
#define uu1_1 uu1_1x.it_n1
EIF_REFERENCE tr1 = NULL;
EIF_NATURAL_8 tu1_1;
EIF_NATURAL_8 tu1_2;
EIF_BOOLEAN tb1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(5);
RTLR(0,loc1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,ur1);
RTLR(4,Result);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTLU(SK_INT32, &loc2);
RTEAA(l_feature_name, 33, Current, 2, 0, 483);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(33, Current, 483);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 1, 0xF8000343, 0, 0); /* loc1 */
{
static EIF_TYPE_INDEX typarr0[] = {835,454,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 = RTLN(typres0);
}
uu1_1 = ((EIF_NATURAL_8) 0U);
ui4_1 = ((EIF_INTEGER_32) 1L);
ui4_2 = ((EIF_INTEGER_32) 16L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(11899, Dtype(tr1)))(tr1, uu1_1x, ui4_1x, ui4_2x);
RTNHOOK(1,1);
loc1 = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(2);
RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */
loc2 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L);
for (;;) {
RTHOOK(3);
if ((EIF_BOOLEAN) (loc2 > ((EIF_INTEGER_32) 16L))) break;
RTHOOK(4);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4007, dtype))(Current)).it_n1);
uu1_1 = tu1_1;
ui4_1 = loc2;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(9655, "put", loc1))(loc1, uu1_1x, ui4_1x);
RTHOOK(5);
RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */
loc2++;
}
RTHOOK(6);
ui4_1 = ((EIF_INTEGER_32) 7L);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9652, "item", loc1))(loc1, ui4_1x)).it_n1);
tu1_2 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 15L);
uu1_1 = tu1_2;
tu1_2 = eif_bit_and(tu1_1,uu1_1);
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 64L);
uu1_1 = tu1_1;
tu1_1 = eif_bit_or(tu1_2,uu1_1);
uu1_1 = tu1_1;
ui4_1 = ((EIF_INTEGER_32) 7L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(9655, "put", loc1))(loc1, uu1_1x, ui4_1x);
RTHOOK(7);
ui4_1 = ((EIF_INTEGER_32) 9L);
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9652, "item", loc1))(loc1, ui4_1x)).it_n1);
tu1_2 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 63L);
uu1_1 = tu1_2;
tu1_2 = eif_bit_and(tu1_1,uu1_1);
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 128L);
uu1_1 = tu1_1;
tu1_1 = eif_bit_or(tu1_2,uu1_1);
uu1_1 = tu1_1;
ui4_1 = ((EIF_INTEGER_32) 9L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(9655, "put", loc1))(loc1, uu1_1x, ui4_1x);
RTHOOK(8);
RTDBGAL(Current, 0, 0xF800016F, 0,0); /* Result */
tr1 = RTLN(367);
ur1 = RTCCL(loc1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(15236, Dtype(tr1)))(tr1, ur1x);
RTNHOOK(8,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
if (RTAL & CK_ENSURE) {
RTHOOK(9);
RTCT("uuid_not_null", EX_POST);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(15242, "is_null", Result))(Result)).it_b);
if ((EIF_BOOLEAN) !tb1) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(10);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef ui4_1
#undef ui4_2
#undef uu1_1
}
/* {WEL_BIT_OPERATIONS}.set_flag */
EIF_TYPED_VALUE F878_7191 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "set_flag";
RTEX;
#define arg1 arg1x.it_i4
#define arg2 arg2x.it_i4
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(1);
RTLR(0,Current);
RTLU (SK_INT32, &Result);
RTLU(SK_INT32,&arg1);
RTLU(SK_INT32,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 877, Current, 0, 2, 12733);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(877, Current, 12733);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */
ui4_1 = arg2;
ti4_1 = eif_bit_or(arg1,ui4_1);
Result = (EIF_INTEGER_32) ti4_1;
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT("flag_set", EX_POST);
ui4_1 = Result;
ui4_2 = arg2;
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(877, 34, dtype))(Current, ui4_1x, ui4_2x)).it_b);
if (tb1) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; }
#undef ui4_1
#undef ui4_2
#undef arg2
#undef arg1
}
