/* {JSON_NUMBER}.make_real */
void F424_19616 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "make_real";
RTEX;
#define arg1 arg1x.it_r8
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r8 = * (EIF_REAL_64 *) arg1x.it_r;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTLU (SK_VOID, NULL);
RTLU(SK_REAL64,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 423, Current, 0, 1, 13819);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(423, Current, 13819);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAA(Current, dtype, 17292, 0xF8000185, 0); /* item */
tr1 = c_outr64(arg1);
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + RTWA(17292, dtype)) = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(2);
RTDBGAA(Current, dtype, 17296, 0x10000000, 1); /* numeric_type */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(17294, dtype))(Current)).it_i4);
*(EIF_INTEGER_32 *)(Current + RTWA(17296, dtype)) = (EIF_INTEGER_32) ti4_1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef up1
#undef arg1
}
/* {REAL_64_REF}.out */
EIF_REFERENCE F861_9081 (EIF_REFERENCE Current)
{
GTCX
EIF_REAL_64 tr8_1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(2);
RTLR(0,Current);
RTLR(1,Result);
RTGC;
tr8_1 = *(EIF_REAL_64 *)(Current+ _R64OFF_0_0_0_0_0_0_0_0_);
Result = c_outr64(tr8_1);
RTLE;
return Result;
}
