C++ (Cpp) eif_builtin_TYPE_type_id Examples

Example #1

File: ty1422.c Project: yehongbing/Eiffel-Projects

/* {TYPE}.type_id */
EIF_INTEGER_32 F829_8489 (EIF_REFERENCE Current)
{
	GTCX
	EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0);
	
	
	
	Result = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (Current);
	return Result;
}

Example #2

File: ty1422.c Project: yehongbing/Eiffel-Projects

/* {TYPE}.is_equal */
EIF_BOOLEAN F829_8495 (EIF_REFERENCE Current, EIF_REFERENCE arg1)
{
	GTCX
	EIF_INTEGER_32 ti4_1;
	EIF_INTEGER_32 ti4_2;
	EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
	
	RTLD;
	
	RTLI(2);
	RTLR(0,Current);
	RTLR(1,arg1);
	
	RTGC;
	ti4_1 = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (Current);
	ti4_2 = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (arg1);
	Result = (EIF_BOOLEAN) (EIF_BOOLEAN)(ti4_1 == ti4_2);
	RTLE;
	return Result;
}

Example #3

File: ty284.c Project: jvelilla/Eiffel_Web_Server

/* {TYPE}.type_id */
EIF_TYPED_VALUE F284_3637 (EIF_REFERENCE Current)
{
    GTCX
    char *l_feature_name = "type_id";
    RTEX;
    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, 283, Current, 0, 0, 7226);
    RTSA(dtype);
    RTSC;
    RTME(dtype, 1);
    RTDBGEAA(283, Current, 7226);
    RTIV(Current, RTAL);
    Result = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (Current);
    if (RTAL & CK_ENSURE) {
        RTHOOK(1);
        RTCT("type_id_not_negative", EX_POST);
        if ((EIF_BOOLEAN) (Result >= ((EIF_INTEGER_32) 0L))) {
            RTCK;
        } else {
            RTCF;
        }
    }
    RTVI(Current, RTAL);
    RTRS;
    RTHOOK(2);
    RTDBGLE;
    RTMD(1);
    RTLE;
    RTLO(2);
    RTEE;
    {
        EIF_TYPED_VALUE r;
        r.type = SK_INT32;
        r.it_i4 = Result;
        return r;
    }
}

Example #4

File: is138.c Project: yehongbing/Eiffel-Projects

/* {ISE_EXCEPTION_MANAGER}.is_ignored */
EIF_BOOLEAN F96_3062 (EIF_REFERENCE Current, EIF_REFERENCE arg1)
{
	GTCX
	EIF_REFERENCE tr1 = NULL;
	EIF_INTEGER_32 ti4_1;
	EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
	
	RTLD;
	
	RTLI(3);
	RTLR(0,Current);
	RTLR(1,tr1);
	RTLR(2,arg1);
	
	RTGC;
	tr1 = RTOSCF(3069,F96_3069,(Current));
	ti4_1 = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (arg1);
	Result = F695_6438(RTCV(tr1), ti4_1);
	RTLE;
	return Result;
}

Example #5

File: is138.c Project: yehongbing/Eiffel-Projects

/* {ISE_EXCEPTION_MANAGER}.unignorable_exceptions */
static EIF_REFERENCE F96_3070_body (EIF_REFERENCE Current)
{
	GTCX
	RTEX;
	EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
	EIF_REFERENCE tr1 = NULL;
	RTLD;
	

	RTLI(2);
	RTLR(0,Current);
	RTLR(1,tr1);
	
	RTEV;
	RTGC;
	RTOSP (3070);
#define Result RTOSR(3070)
	RTOC_NEW(Result);
	{
		static EIF_TYPE_INDEX typarr0[] = {694,874,874,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 = RTLNS(typres0, 694, _OBJSIZ_4_3_0_10_0_0_0_0_);
	}
	F695_6432(RTCV(tr1), ((EIF_INTEGER_32) 1L));
	Result = (EIF_REFERENCE) tr1;
	tr1 = RTLNTY(141);
	loc1 = (EIF_INTEGER_32) eif_builtin_TYPE_type_id (tr1);
	F695_6477(RTCV(Result), loc1, loc1);
	RTOSE (3070);
	RTLE;
	RTEE;
	return Result;
#undef Result
}