/* {INET4_ADDRESS}.is_multicast_address */
EIF_TYPED_VALUE F52_964 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "is_multicast_address";
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_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTSN;
RTDA;
RTLD;
RTLI(1);
RTLR(0,Current);
RTLU (SK_BOOL, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 51, Current, 0, 0, 1016);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(51, Current, 1016);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, Dtype(Current)));
ti4_2 = (EIF_INTEGER_32) ((EIF_INTEGER_64) RTI64C(4026531840));
ui4_1 = ti4_2;
ti4_2 = eif_bit_and(ti4_1,ui4_1);
ti4_1 = (EIF_INTEGER_32) ((EIF_INTEGER_64) RTI64C(3758096384));
Result = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_2 == ti4_1);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
}
/* {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
}
/* {INTEGER_OVERFLOW_CHECKER}.make */
void F101_3135 (EIF_REFERENCE Current)
{
GTCX
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_64 ti8_1;
EIF_NATURAL_64 tu8_1;
EIF_NATURAL_32 tu4_1;
EIF_INTEGER_16 ti2_1;
EIF_NATURAL_16 tu2_1;
EIF_INTEGER_8 ti1_1;
EIF_NATURAL_8 tu1_1;
RTCFDT;
RTLD;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTGC;
{
static EIF_TYPE_INDEX typarr0[] = {762,880,0xFFFF};
EIF_TYPE_INDEX typres0;
static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE;
typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
tr1 = RTLNSP2(eif_non_attached_type(typres0),0,(EIF_INTEGER_32) ((EIF_INTEGER_32) (((EIF_INTEGER_32) 4L) * ((EIF_INTEGER_32) 2L)) + ((EIF_INTEGER_32) 1L)),sizeof(EIF_NATURAL_64), EIF_TRUE);
RT_SPECIAL_COUNT(tr1) = 0;
}
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current) = (EIF_REFERENCE) tr1;
tr1 = *(EIF_REFERENCE *)(Current);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) 0L);
F763_6965(RTCV(tr1), tu8_1);
{
static EIF_TYPE_INDEX typarr0[] = {762,880,0xFFFF};
EIF_TYPE_INDEX typres0;
static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE;
typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
tr1 = RTLNSP2(eif_non_attached_type(typres0),0,(EIF_INTEGER_32) ((EIF_INTEGER_32) (((EIF_INTEGER_32) 4L) * ((EIF_INTEGER_32) 2L)) + ((EIF_INTEGER_32) 1L)),sizeof(EIF_NATURAL_64), EIF_TRUE);
RT_SPECIAL_COUNT(tr1) = 0;
}
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + _REFACS_1_) = (EIF_REFERENCE) tr1;
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) 0L);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
ti1_1 = (EIF_INTEGER_8) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_8) (((EIF_INTEGER_8) 127L) / ti1_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
ti1_1 = (EIF_INTEGER_8) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_8) (((EIF_INTEGER_8) 127L) % ti1_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
ti2_1 = (EIF_INTEGER_16) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_16) (((EIF_INTEGER_16) 32767L) / ti2_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
ti2_1 = (EIF_INTEGER_16) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_16) (((EIF_INTEGER_16) 32767L) % ti2_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_32) (((EIF_INTEGER_32) 2147483647L) / ((EIF_INTEGER_32) 10L));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_32) (((EIF_INTEGER_32) 2147483647L) % ((EIF_INTEGER_32) 10L));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
ti8_1 = (EIF_INTEGER_64) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_64) (((EIF_INTEGER_64) RTI64C(9223372036854775807)) / ti8_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
ti8_1 = (EIF_INTEGER_64) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_INTEGER_64) (((EIF_INTEGER_64) RTI64C(9223372036854775807)) % ti8_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
ti1_1 = (EIF_INTEGER_8) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_8) -(EIF_INTEGER_8) (((EIF_INTEGER_8) -128L) / ti1_1));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
ti1_1 = (EIF_INTEGER_8) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_8) -(EIF_INTEGER_8) (((EIF_INTEGER_8) -128L) % ti1_1));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
ti2_1 = (EIF_INTEGER_16) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_16) -(EIF_INTEGER_16) (((EIF_INTEGER_16) -32768L) / ti2_1));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
ti2_1 = (EIF_INTEGER_16) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_16) -(EIF_INTEGER_16) (((EIF_INTEGER_16) -32768L) % ti2_1));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) -(EIF_INTEGER_32) (((EIF_INTEGER_32) 0x80000000L) / ((EIF_INTEGER_32) 10L)));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) -(EIF_INTEGER_32) (((EIF_INTEGER_32) 0x80000000L) % ((EIF_INTEGER_32) 10L)));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current);
ti8_1 = (EIF_INTEGER_64) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_64) -(EIF_INTEGER_64) (((EIF_INTEGER_64) RTI64C(0x8000000000000000)) / ti8_1));
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
ti8_1 = (EIF_INTEGER_64) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_64) -(EIF_INTEGER_64) (((EIF_INTEGER_64) RTI64C(0x8000000000000000)) % ti8_1));
F763_6965(RTCV(tr1), tu8_1);
{
static EIF_TYPE_INDEX typarr0[] = {762,880,0xFFFF};
EIF_TYPE_INDEX typres0;
static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE;
typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
tr1 = RTLNSP2(eif_non_attached_type(typres0),0,(EIF_INTEGER_32) (((EIF_INTEGER_32) 4L) + ((EIF_INTEGER_32) 1L)),sizeof(EIF_NATURAL_64), EIF_TRUE);
RT_SPECIAL_COUNT(tr1) = 0;
}
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + _REFACS_2_) = (EIF_REFERENCE) tr1;
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_2_);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) 0L);
F763_6965(RTCV(tr1), tu8_1);
{
static EIF_TYPE_INDEX typarr0[] = {762,880,0xFFFF};
EIF_TYPE_INDEX typres0;
static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE;
typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
tr1 = RTLNSP2(eif_non_attached_type(typres0),0,(EIF_INTEGER_32) (((EIF_INTEGER_32) 4L) + ((EIF_INTEGER_32) 1L)),sizeof(EIF_NATURAL_64), EIF_TRUE);
RT_SPECIAL_COUNT(tr1) = 0;
}
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + _REFACS_3_) = (EIF_REFERENCE) tr1;
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_3_);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) 0L);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_2_);
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_8) (((EIF_NATURAL_8) 255U) / tu1_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_3_);
tu1_1 = (EIF_NATURAL_8) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_8) (((EIF_NATURAL_8) 255U) % tu1_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_2_);
tu2_1 = (EIF_NATURAL_16) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_16) (((EIF_NATURAL_16) 65535U) / tu2_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_3_);
tu2_1 = (EIF_NATURAL_16) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_16) (((EIF_NATURAL_16) 65535U) % tu2_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_2_);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_32) (((EIF_NATURAL_32) 4294967295U) / tu4_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_3_);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_32) (((EIF_NATURAL_32) 4294967295U) % tu4_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_2_);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_64) (((EIF_NATURAL_64) RTU64C(18446744073709551615)) / tu8_1);
F763_6965(RTCV(tr1), tu8_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_3_);
tu8_1 = (EIF_NATURAL_64) ((EIF_INTEGER_32) 10L);
tu8_1 = (EIF_NATURAL_64) (EIF_NATURAL_64) (((EIF_NATURAL_64) RTU64C(18446744073709551615)) % tu8_1);
F763_6965(RTCV(tr1), tu8_1);
RTLE;
}
