C++ (Cpp) RTOTSの例

コード例 #1

0

ファイルを表示

ファイル: in53.c プロジェクト: jvelilla/Eiffel_Web_Server

	
	RTEAA(l_feature_name, 52, Current, 0, 1, 956);
	RTSA(Dtype(Current));
	RTSC;
	RTME(Dtype(Current), 1);
	RTDBGEAA(52, Current, 956);
	RTIV(Current, RTAL);en_local_host_name(arg1);
	
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(1);
	RTDBGLE;
	RTMD(1);
	RTLE;
	RTLO(3);
	RTEE;
#undef arg1
}

void EIF_Minit53 (void)
{
	GTCX
	RTOTS (889,F53_889)
	RTOTS (890,F53_890)
}


#ifdef __cplusplus
}
#endif

コード例 #2

0

ファイルを表示

ファイル: bu2280.c プロジェクト: schatteburg/EProg

	RTLIU(2);
	RTLU (SK_VOID, NULL);
	RTLU (SK_REF, &Current);
	RTEAINV(l_feature_name, 2279, Current, 0, 34602);
	RTSA(dtype);
	RTME(dtype, 0);
	RTIT("blob_exists", Current);
	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24577, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
	if ((EIF_BOOLEAN)(tr1 != NULL)) {
		RTCK;
	} else {
		RTCF;
	}
	RTLO(2);
	RTMD(0);
	RTLE;
	RTEE;
#undef up1
}

void EIF_Minit2280 (void)
{
	GTCX
	RTOTS (31267,F2280_31267)
}


#ifdef __cplusplus
}
#endif

コード例 #3

0

ファイルを表示

ファイル: op51.c プロジェクト: jvelilla/Eiffel_Web_Server

	RTSC;
	RTME(Dtype(Current), 0);
	RTGC;
	RTDBGEAA(50, Current, 975);
	RTIV(Current, RTAL);
	RTHOOK(1);
	RTDBGAA(Current, Dtype(Current), 840, 0x10000000, 1); /* error_code */
	
	*(EIF_INTEGER_32 *)(Current + RTWA(840, Dtype(Current))) = (EIF_INTEGER_32) arg1;
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(3);
	RTEE;
#undef arg1
}

void EIF_Minit51 (void)
{
	GTCX
	RTOTS (889,F51_889)
}


#ifdef __cplusplus
}
#endif

コード例 #4

0

ファイルを表示

ファイル: kl1500.c プロジェクト: omarabid59/3311Project

#ifdef __cplusplus
}
#endif


#ifdef __cplusplus
extern "C" {
#endif

/* {KL_WINDOWS_OUTPUT_FILE}.eol */
RTOID (F1500_15461)


EIF_TYPED_VALUE F1500_15461 (EIF_REFERENCE Current)
{
	GTCX
	RTOTC (F1500_15461,20739,RTMS_EX_H("\015\012",2,3338));
}

void EIF_Minit1500 (void)
{
	GTCX
	RTOTS (15461,F1500_15461)
}


#ifdef __cplusplus
}
#endif

コード例 #5

0

ファイルを表示

ファイル: ev1056.c プロジェクト: omarabid59/3311Project

	RTDBGAL(Current, 0, 0xF80004BE, 0,0); /* Result */
	
	tr1 = RTLN(1214);
	(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
	
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) RTCCL(tr1);
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef Result
}

void EIF_Minit1056 (void)
{
	GTCX
	RTOTS (9528,F1056_9528)
}


#ifdef __cplusplus
}
#endif

コード例 #6

0

ファイルを表示

ファイル: ex207.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(384);
	tr2 = RTMS_EX_H("Exception in signal handler.",28,160980270);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(15693, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit207 (void)
{
	GTCX
	RTOTS (9731,F207_9731)
}


#ifdef __cplusplus
}
#endif

コード例 #7

0

ファイルを表示

ファイル: eq887.c プロジェクト: jycr753/Eiffel-Playground

	RTLO(3);
	RTEE;
#undef up1
#undef up2
#undef ur1
#undef ur2
#undef ur3
#undef arg1
}

/* {EQA_SYSTEM_EXECUTION}.system_executable_key */
RTOID (F887_7415)


EIF_TYPED_VALUE F887_7415 (EIF_REFERENCE Current)
{
	GTCX
	RTOTC (F887_7415,12935,RTMS_EX_H("EQA_SYSTEM_EXECUTABLE",21,278869829));
}

void EIF_Minit887 (void)
{
	GTCX
	RTOTS (7415,F887_7415)
}


#ifdef __cplusplus
}
#endif

コード例 #8

0

ファイルを表示

ファイル: se218.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(384);
	tr2 = RTMS_EX_H("Serialization failed.",21,1853785902);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(15693, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit218 (void)
{
	GTCX
	RTOTS (9749,F218_9749)
}


#ifdef __cplusplus
}
#endif

コード例 #9

0

ファイルを表示

ファイル: fl74.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(213);
	tr2 = RTMS_EX_H("Floating point exception.",25,454066990);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3719, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit74 (void)
{
	GTCX
	RTOTS (1235,F74_1235)
}


#ifdef __cplusplus
}
#endif

コード例 #10

0

ファイルを表示

ファイル: kl2252.c プロジェクト: schatteburg/EProg

		RTCT("std_not_void", EX_POST);
		if ((EIF_BOOLEAN)(Result != NULL)) {
			RTCK;
		} else {
			RTCF;
		}
	}
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(3);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef Result
}

void EIF_Minit2252 (void)
{
	GTCX
	RTOTS (30453,F2252_30453)
}


#ifdef __cplusplus
}
#endif

コード例 #11

0

ファイルを表示

ファイル: ti96.c プロジェクト: headlins/dose2014

	RTHOOK(1);
	RTDBGAL(Current, 0, 0xF800013A, 0,0); /* Result */
	
	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1442, Dtype(Current)))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
	RTNHOOK(1,1);
	tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(704, "default_format_string", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
	Result = (EIF_REFERENCE) RTCCL(tr2);
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef up1
#undef up2
}

void EIF_Minit96 (void)
{
	GTCX
	RTOTS (1544,F96_1544)
}


#ifdef __cplusplus
}
#endif

コード例 #12

0

ファイルを表示

ファイル: sl866.c プロジェクト: cad188/eecs3311

	if (tb2) {
		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4943, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
		tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4943, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
		tb1 = RTCEQ(tr1, tr2);
	}
	if (tb1) {
		RTCK;
	} else {
		RTCF;
	}
	RTLO(2);
	RTMD(0);
	RTLE;
	RTEE;
#undef up1
#undef up2
}

void EIF_Minit866 (void)
{
	GTCX
	RTOTS (7013,F866_7013)
	RTOTS (7014,F866_7014)
	RTOTS (7015,F866_7015)
}


#ifdef __cplusplus
}
#endif

コード例 #13

0

ファイルを表示

ファイル: da904.c プロジェクト: omarabid59/3311Project

	RTOTC (F904_8431,14083,RTMS_EX_H("hh12:[0]mi:[0]ss.ff3 AM",23,629041741));
}

/* {DATE_TIME_TOOLS}.default_format_string */
RTOID (F904_8432)


EIF_TYPED_VALUE F904_8432 (EIF_REFERENCE Current)
{
	GTCX
	RTOTC (F904_8432,14076,RTMS_EX_H("[0]mm/[0]dd/yyyy hh12:[0]mi:[0]ss.ff3 AM",40,2104244301));
}

void EIF_Minit904 (void)
{
	GTCX
	RTOTS (8425,F904_8425)
	RTOTS (8426,F904_8426)
	RTOTS (8427,F904_8427)
	RTOTS (8428,F904_8428)
	RTOTS (8429,F904_8429)
	RTOTS (8430,F904_8430)
	RTOTS (8431,F904_8431)
	RTOTS (8432,F904_8432)
}


#ifdef __cplusplus
}
#endif

コード例 #14

0

ファイルを表示

ファイル: no95.c プロジェクト: jvelilla/Eiffel_Web_Server

	RTRS;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(3);
	RTEE;
#undef arg1
}

/* {NO_MORE_MEMORY}.internal_code */
EIF_TYPED_VALUE F95_1358 (EIF_REFERENCE Current)
{
	EIF_TYPED_VALUE r;
	r.type = SK_INT32;
	r.it_i4 = *(EIF_INTEGER_32 *)(Current + RTWA(1236,Dtype(Current)));
	return r;
}


void EIF_Minit95 (void)
{
	GTCX
	RTOTS (1356,F95_1356)
}


#ifdef __cplusplus
}
#endif

コード例 #15

0

ファイルを表示

ファイル: ev895.c プロジェクト: omarabid59/3311Project

	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit895 (void)
{
	GTCX
	RTOTS (8315,F895_8315)
	RTOTS (8316,F895_8316)
	RTOTS (8317,F895_8317)
	RTOTS (8318,F895_8318)
	RTOTS (8319,F895_8319)
	RTOTS (8320,F895_8320)
	RTOTS (8321,F895_8321)
	RTOTS (8322,F895_8322)
	RTOTS (8323,F895_8323)
	RTOTS (8324,F895_8324)
	RTOTS (8325,F895_8325)
	RTOTS (8326,F895_8326)
	RTOTS (8327,F895_8327)
	RTOTS (8328,F895_8328)
	RTOTS (8329,F895_8329)
}

コード例 #16

0

ファイルを表示

ファイル: fi1514.c プロジェクト: omarabid59/3311Project

		RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
		
		loc1++;
	}
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(6);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(4);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef up1
#undef ur1
#undef ui4_1
#undef ui4_2
#undef arg1
}

void EIF_Minit1514 (void)
{
	GTCX
	RTOTS (15748,F1514_15748)
}


#ifdef __cplusplus
}
#endif

コード例 #17

0

ファイルを表示

ファイル: mi97.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(223);
	tr2 = RTMS_EX_H("Mismatch failed.",16,966757678);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3835, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit97 (void)
{
	GTCX
	RTOTS (1360,F97_1360)
}


#ifdef __cplusplus
}
#endif

コード例 #18

0

ファイルを表示

ファイル: re87.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(223);
	tr2 = RTMS_EX_H("Resumption attempt failed.",26,952477998);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3835, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit87 (void)
{
	GTCX
	RTOTS (1344,F87_1344)
}


#ifdef __cplusplus
}
#endif

コード例 #19

0

ファイルを表示

ファイル: da119.c プロジェクト: jvelilla/Eiffel_Web_Server

		if ((EIF_BOOLEAN)(ti4_1 == ti4_2)) {
			RTCK;
		} else {
			RTCF;
		}
	}
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(4);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ui4_1
#undef Result
}

void EIF_Minit119 (void)
{
	GTCX
	RTOTS (8201,F119_8201)
}


#ifdef __cplusplus
}
#endif

コード例 #20

0

ファイルを表示

ファイル: de144.c プロジェクト: headlins/dose2014

	tr1 = RTLN(309);
	tr2 = RTMS_EX_H("Developer exception.",20,1132150574);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4679, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit144 (void)
{
	GTCX
	RTOTS (2129,F144_2129)
}


#ifdef __cplusplus
}
#endif

コード例 #21

0

ファイルを表示

ファイル: eq893.c プロジェクト: jycr753/Eiffel-Playground

label_1:
		RTCF;
	}
body:;
	RTHOOK(2);
	ur1 = RTCCL(arg1);
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(886, 64, "add_argument", arg2))(arg2, ur1x);
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(3);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(4);
	RTEE;
#undef ur1
#undef arg2
#undef arg1
}

void EIF_Minit893 (void)
{
	GTCX
	RTOTS (7478,F893_7478)
}


#ifdef __cplusplus
}
#endif

コード例 #22

0

ファイルを表示

ファイル: ac867.c プロジェクト: alma89/AOOP_exersice3

	RTOTP;
	RTHOOK(1);
	RTDBGAL(Current, 0, 0x20000000, 1,0); /* Result */
	
	tr8_1 = (EIF_REAL_64) (((EIF_INTEGER_32) 4L));
	
	Result = (EIF_REAL_64) tr8_1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REAL64; r.it_r8 = Result; return r; }
#undef Result
}

void EIF_Minit867 (void)
{
	GTCX
	RTOTS (7060,F867_7060)
}


#ifdef __cplusplus
}
#endif

コード例 #23

0

ファイルを表示

ファイル: va231.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(384);
	tr2 = RTMS_EX_H("Non-decreasing loop variant or negative value reached.",54,1300766254);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(15693, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit231 (void)
{
	GTCX
	RTOTS (9777,F231_9777)
}


#ifdef __cplusplus
}
#endif

コード例 #24

0

ファイルを表示

ファイル: op152.c プロジェクト: headlins/dose2014

	RTSC;
	RTME(Dtype(Current), 0);
	RTGC;
	RTDBGEAA(151, Current, 2102);
	RTIV(Current, RTAL);
	RTHOOK(1);
	RTDBGAA(Current, Dtype(Current), 1972, 0x10000000, 1); /* error_code */
	
	*(EIF_INTEGER_32 *)(Current + RTWA(1972, Dtype(Current))) = (EIF_INTEGER_32) arg1;
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(3);
	RTEE;
#undef arg1
}

void EIF_Minit152 (void)
{
	GTCX
	RTOTS (2161,F152_2161)
}


#ifdef __cplusplus
}
#endif

コード例 #25

0

ファイルを表示

ファイル: vo95.c プロジェクト: jvelilla/Eiffel_Web_Server

	tr1 = RTLN(213);
	tr2 = RTMS_EX_H("Void assigned to expanded.",26,184388398);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3719, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit95 (void)
{
	GTCX
	RTOTS (1292,F95_1292)
}


#ifdef __cplusplus
}
#endif

コード例 #26

0

ファイルを表示

ファイル: sh211.c プロジェクト: headlins/dose2014

	RTHOOK(1);
	RTDBGAL(Current, 0, 0xF80000EF, 0,0); /* Result */
	
	tr1 = RTLN(239);
	(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) RTCCL(tr1);
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef Result
}

void EIF_Minit211 (void)
{
	GTCX
	RTOTS (2674,F211_2674)
}


#ifdef __cplusplus
}
#endif

コード例 #27

0

ファイルを表示

ファイル: ex108.c プロジェクト: mafilipp/RPL_Ass1

	tr1 = RTLN(266);
	tr2 = RTMS_EX_H("External event.",15,214571566);
	ur1 = tr2;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(5073, Dtype(tr1)))(tr1, ur1x);
	RTNHOOK(1,1);
	Result = (EIF_REFERENCE) tr1;
	RTVI(Current, RTAL);
	RTRS;
	RTOTE;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur1
#undef Result
}

void EIF_Minit108 (void)
{
	GTCX
	RTOTS (1630,F108_1630)
}


#ifdef __cplusplus
}
#endif

コード例 #28

0

ファイルを表示

ファイル: ht38.c プロジェクト: jvelilla/Eiffel_Web_Server

	RTSC;
	RTME(dtype, 0);
	RTGC;
	RTDBGEAA(37, Current, 728);
	RTIV(Current, RTAL);
	RTHOOK(1);
	tu4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(156, 8))(Current)).it_n4);
	uu4_1 = tu4_1;
	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(644, dtype))(Current, uu4_1x);
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(2);
	RTEE;
#undef uu4_1
}

void EIF_Minit38 (void)
{
	GTCX
	RTOTS (668,F38_668)
}


#ifdef __cplusplus
}
#endif

コード例 #29

0

ファイルを表示

ファイル: ei104.c プロジェクト: mafilipp/RPL_Ass1

	RTRS;
	RTHOOK(2);
	RTDBGLE;
	RTMD(0);
	RTLE;
	RTLO(3);
	RTEE;
#undef arg1
}

/* {EIFFEL_RUNTIME_PANIC}.internal_code */
EIF_TYPED_VALUE F104_1626 (EIF_REFERENCE Current)
{
	EIF_TYPED_VALUE r;
	r.type = SK_INT32;
	r.it_i4 = *(EIF_INTEGER_32 *)(Current + RTWA(1480,Dtype(Current)));
	return r;
}


void EIF_Minit104 (void)
{
	GTCX
	RTOTS (1624,F104_1624)
}


#ifdef __cplusplus
}
#endif

コード例 #30

0

ファイルを表示

ファイル: in912.c プロジェクト: jycr753/Eiffel-Playground

	RTLU (SK_REF, &Current);
	
	RTEAA(l_feature_name, 911, Current, 0, 1, 13123);
	RTSA(Dtype(Current));
	RTSC;
	RTME(Dtype(Current), 1);
	RTDBGEAA(911, Current, 13123);
	RTIV(Current, RTAL);en_local_host_name(arg1);
	
	RTVI(Current, RTAL);
	RTRS;
	RTHOOK(1);
	RTDBGLE;
	RTMD(1);
	RTLE;
	RTLO(3);
	RTEE;
#undef arg1
}

void EIF_Minit912 (void)
{
	GTCX
	RTOTS (7632,F912_7632)
}


#ifdef __cplusplus
}
#endif