/* {V_HASH_TABLE}.key_hash_code */
EIF_TYPED_VALUE F2580_31131 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "key_hash_code";
RTEX;
#define arg1 arg1x.it_r
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0);
RTSN;
RTDA;
RTLD;
RTLI(2);
RTLR(0,arg1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_INT32, &Result);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2579, Current, 0, 1, 36244);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(2579, Current, 36244);
if (arg1) {
{
static EIF_TYPE_INDEX typarr0[] = {0xFFF9,2,841,0,0,0,0,0xFFFF};
EIF_TYPE typres0;
{
EIF_TYPE l_type;
l_type = RTWCT(24471, Dtype(Current), Dftype(Current));
typarr0[3] = l_type.annotations | 0xFF00;
typarr0[4] = l_type.id;
}
{
EIF_TYPE l_type;
l_type = RTWCT(9706, Dtype(Current), Dftype(Current));
typarr0[5] = l_type.annotations | 0xFF00;
typarr0[6] = l_type.id;
}
typres0 = eif_compound_id(Dftype(Current), typarr0);
RTCC(arg1, 2579, l_feature_name, 1, typres0, 0x00);
}
}
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */
ti4_1 = eif_integer_32_item(RTCV(arg1),1);
RTNHOOK(1,1);
ti4_2 = (EIF_INTEGER_32) (0x7FFFFFFF & (EIF_INTEGER_32) ((rt_int_ptr) (ti4_1)));
Result = (EIF_INTEGER_32) ti4_2;
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; }
#undef arg1
}
/* {TUPLE}.item */
EIF_REFERENCE F842_8513 (EIF_REFERENCE Current, EIF_INTEGER_32 arg1)
{
GTCX
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(2);
RTLR(0,Current);
RTLR(1,Result);
RTGC;
switch ((EIF_NATURAL_8) eif_item_type((Current), (arg1))) {
case 1U:
Result = RTLNS(859, 859, _OBJSIZ_0_1_0_0_0_0_0_0_);
*(EIF_BOOLEAN *)Result = (EIF_BOOLEAN) EIF_TEST(eif_boolean_item((Current), (arg1)));
break;
case 2U:
Result = RTLNS(853, 853, _OBJSIZ_0_1_0_0_0_0_0_0_);
*(EIF_CHARACTER_8 *)Result = (EIF_CHARACTER_8) eif_character_8_item((Current), (arg1));
break;
case 14U:
Result = RTLNS(850, 850, _OBJSIZ_0_0_0_1_0_0_0_0_);
*(EIF_CHARACTER_32 *)Result = (EIF_CHARACTER_32) eif_character_32_item((Current), (arg1));
break;
case 3U:
Result = RTLNS(862, 862, _OBJSIZ_0_0_0_0_0_0_0_1_);
*(EIF_REAL_64 *)Result = (EIF_REAL_64) eif_real_64_item((Current), (arg1));
break;
case 4U:
Result = RTLNS(847, 847, _OBJSIZ_0_0_0_0_1_0_0_0_);
*(EIF_REAL_32 *)Result = (EIF_REAL_32) eif_real_32_item((Current), (arg1));
break;
case 5U:
Result = RTLNS(913, 913, _OBJSIZ_0_0_0_0_0_1_0_0_);
*(EIF_POINTER *)Result = (EIF_POINTER) eif_pointer_item((Current), (arg1));
break;
case 10U:
Result = RTLNS(865, 865, _OBJSIZ_0_1_0_0_0_0_0_0_);
*(EIF_NATURAL_8 *)Result = (EIF_NATURAL_8) eif_natural_8_item((Current), (arg1));
break;
case 11U:
Result = RTLNS(871, 871, _OBJSIZ_0_0_1_0_0_0_0_0_);
*(EIF_NATURAL_16 *)Result = (EIF_NATURAL_16) eif_natural_16_item((Current), (arg1));
break;
case 12U:
Result = RTLNS(868, 868, _OBJSIZ_0_0_0_1_0_0_0_0_);
*(EIF_NATURAL_32 *)Result = (EIF_NATURAL_32) eif_natural_32_item((Current), (arg1));
break;
case 13U:
Result = RTLNS(880, 880, _OBJSIZ_0_0_0_0_0_0_1_0_);
*(EIF_NATURAL_64 *)Result = (EIF_NATURAL_64) eif_natural_64_item((Current), (arg1));
break;
case 6U:
Result = RTLNS(844, 844, _OBJSIZ_0_1_0_0_0_0_0_0_);
*(EIF_INTEGER_8 *)Result = (EIF_INTEGER_8) eif_integer_8_item((Current), (arg1));
break;
case 7U:
Result = RTLNS(877, 877, _OBJSIZ_0_0_1_0_0_0_0_0_);
*(EIF_INTEGER_16 *)Result = (EIF_INTEGER_16) eif_integer_16_item((Current), (arg1));
break;
case 8U:
Result = RTLNS(874, 874, _OBJSIZ_0_0_0_1_0_0_0_0_);
*(EIF_INTEGER_32 *)Result = (EIF_INTEGER_32) eif_integer_32_item((Current), (arg1));
break;
case 9U:
Result = RTLNS(856, 856, _OBJSIZ_0_0_0_0_0_0_1_0_);
*(EIF_INTEGER_64 *)Result = (EIF_INTEGER_64) eif_integer_64_item((Current), (arg1));
break;
case 0U:
Result = (EIF_REFERENCE) eif_reference_item((Current), (arg1));
break;
default:
RTEC(EN_WHEN);
}
RTLE;
return Result;
}
/* {V_HASH_TABLE}.keys_object_equal */
EIF_TYPED_VALUE F2580_31130 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "keys_object_equal";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,Current);
RTLIU(3);
RTLU (SK_BOOL, &Result);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2579, Current, 0, 2, 36243);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(2579, Current, 36243);
if (arg1) {
{
static EIF_TYPE_INDEX typarr0[] = {0xFFF9,2,841,0,0,0,0,0xFFFF};
EIF_TYPE typres0;
{
EIF_TYPE l_type;
l_type = RTWCT(24471, Dtype(Current), Dftype(Current));
typarr0[3] = l_type.annotations | 0xFF00;
typarr0[4] = l_type.id;
}
{
EIF_TYPE l_type;
l_type = RTWCT(9706, Dtype(Current), Dftype(Current));
typarr0[5] = l_type.annotations | 0xFF00;
typarr0[6] = l_type.id;
}
typres0 = eif_compound_id(Dftype(Current), typarr0);
RTCC(arg1, 2579, l_feature_name, 1, typres0, 0x00);
}
}
if (arg2) {
{
static EIF_TYPE_INDEX typarr0[] = {0xFFF9,2,841,0,0,0,0,0xFFFF};
EIF_TYPE typres0;
{
EIF_TYPE l_type;
l_type = RTWCT(24471, Dtype(Current), Dftype(Current));
typarr0[3] = l_type.annotations | 0xFF00;
typarr0[4] = l_type.id;
}
{
EIF_TYPE l_type;
l_type = RTWCT(9706, Dtype(Current), Dftype(Current));
typarr0[5] = l_type.annotations | 0xFF00;
typarr0[6] = l_type.id;
}
typres0 = eif_compound_id(Dftype(Current), typarr0);
RTCC(arg2, 2579, l_feature_name, 2, typres0, 0x00);
}
}
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
ti4_1 = eif_integer_32_item(RTCV(arg1),1);
ti4_2 = eif_integer_32_item(RTCV(arg2),1);
Result = (EIF_BOOLEAN) (ti4_1 == ti4_2);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef arg2
#undef arg1
}
