Esempio n. 1
0
/* {TYPE}.name */
EIF_REFERENCE F829_8487 (EIF_REFERENCE Current)
{
	GTCX
	EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
	EIF_REFERENCE tr1 = NULL;
	EIF_REFERENCE tr2 = NULL;
	EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
	
	RTLD;
	
	RTLI(5);
	RTLR(0,loc1);
	RTLR(1,Current);
	RTLR(2,tr1);
	RTLR(3,tr2);
	RTLR(4,Result);
	
	RTGC;
	tr1 = *(EIF_REFERENCE *)(Current);
	loc1 = tr1;
	if (EIF_TEST(loc1)) {
		RTLE;
		return (EIF_REFERENCE) loc1;
	} else {
		tr1 = RTLNS(927, 927, _OBJSIZ_1_0_0_4_0_0_0_0_);
		tr2 = (EIF_REFERENCE) eif_builtin_TYPE_runtime_name (Current);
		F921_10332(RTCV(tr1), tr2);
		Result = (EIF_REFERENCE) tr1;
		RTAR(Current, Result);
		*(EIF_REFERENCE *)(Current) = (EIF_REFERENCE) Result;
	}
	RTLE;
	return Result;
}
Esempio n. 2
0
/* {TYPE}.runtime_name */
EIF_REFERENCE F829_8512 (EIF_REFERENCE Current)
{
	GTCX
	EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
	
	RTLD;
	
	RTLI(1);
	RTLR(0,Result);
	
	Result = (EIF_REFERENCE) eif_builtin_TYPE_runtime_name (Current);
	RTLE;
	return Result;
}
Esempio n. 3
0
/* {TYPE}.runtime_name */
EIF_TYPED_VALUE F284_3660 (EIF_REFERENCE Current)
{
    GTCX
    char *l_feature_name = "runtime_name";
    RTEX;
    EIF_REFERENCE Result = ((EIF_REFERENCE) 0);

    RTCDT;
    RTSN;
    RTDA;
    RTLD;

    RTLI(2);
    RTLR(0,Current);
    RTLR(1,Result);
    RTLU (SK_REF, &Result);
    RTLU (SK_REF, &Current);

    RTEAA(l_feature_name, 283, Current, 0, 0, 7249);
    RTSA(dtype);
    RTSC;
    RTME(dtype, 1);
    RTDBGEAA(283, Current, 7249);
    RTIV(Current, RTAL);
    Result = (EIF_REFERENCE) eif_builtin_TYPE_runtime_name (Current);
    if (RTAL & CK_ENSURE) {
        RTHOOK(1);
        RTCT("name_not_void", EX_POST);
        if ((EIF_BOOLEAN)(Result != NULL)) {
            RTCK;
        } else {
            RTCF;
        }
    }
    RTVI(Current, RTAL);
    RTRS;
    RTHOOK(2);
    RTDBGLE;
    RTMD(1);
    RTLE;
    RTLO(2);
    RTEE;
    {
        EIF_TYPED_VALUE r;
        r.type = SK_REF;
        r.it_r = Result;
        return r;
    }
}