text: /*
   * Code for class RT_DBG_FIELD_RECORD [INTEGER_8]
   */
  
  #include "eif_eiffel.h"
  #include "../E1/estructure.h"
  
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  
  extern void F597_2340(EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE);
  extern EIF_TYPED_VALUE F597_2341(EIF_REFERENCE);
  extern EIF_TYPED_VALUE F597_2342(EIF_REFERENCE);
  extern EIF_TYPED_VALUE F597_2343(EIF_REFERENCE);
  extern EIF_TYPED_VALUE F597_2344(EIF_REFERENCE);
  extern EIF_TYPED_VALUE F597_2345(EIF_REFERENCE);
  extern EIF_TYPED_VALUE F597_2346(EIF_REFERENCE, EIF_TYPED_VALUE);
  extern EIF_TYPED_VALUE F597_2347(EIF_REFERENCE);
  extern void F597_2348(EIF_REFERENCE);
  extern void F597_2349(EIF_REFERENCE, EIF_TYPED_VALUE);
  extern void F597_2350(EIF_REFERENCE, EIF_TYPED_VALUE);
  extern void F597_2351(EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE);
  extern EIF_TYPED_VALUE F597_2352(EIF_REFERENCE, EIF_TYPED_VALUE);
  extern EIF_TYPED_VALUE F597_2353(EIF_REFERENCE);
  extern void F597_7139(EIF_REFERENCE, int);
  extern void EIF_Minit597(void);
  
  #ifdef __cplusplus
  }
  #endif
  
  #include "eif_out.h"
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  
  
  #ifdef __cplusplus
  }
  #endif
  
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  
  /* {RT_DBG_FIELD_RECORD}.make */
  void F597_2340 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x, EIF_TYPED_VALUE arg4x)
  {
  	GTCX
  	char *l_feature_name = "make";
  	RTEX;
  #define arg1 arg1x.it_r
  #define arg2 arg2x.it_i4
  #define arg3 arg3x.it_i4
  #define arg4 arg4x.it_i1
  	EIF_REFERENCE tr1 = NULL;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	if ((arg4x.type & SK_HEAD) == SK_REF) arg4x.it_i1 = * (EIF_INTEGER_8 *) arg4x.it_r;
  	if ((arg3x.type & SK_HEAD) == SK_REF) arg3x.it_i4 = * (EIF_INTEGER_32 *) arg3x.it_r;
  	if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r;
  	
  	RTLI(3);
  	RTLR(0,arg1);
  	RTLR(1,Current);
  	RTLR(2,tr1);
  	RTLIU(3);
  	RTLU (SK_VOID, NULL);
  	RTLU(SK_REF,&arg1);
  	RTLU(SK_INT32,&arg2);
  	RTLU(SK_INT32,&arg3);
  	RTLU(SK_INT8,&arg4);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 4, 2546);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2546);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("obj_attached", EX_PRE);
  		RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	RTHOOK(2);
  	RTDBGAA(Current, dtype, 2105, 0xF8000000, 0); /* object */
  	tr1 = RTCCL(arg1);
  	RTAR(Current, tr1);
  	*(EIF_REFERENCE *)(Current + RTWA(2105, dtype)) = (EIF_REFERENCE) tr1;
  	RTHOOK(3);
  	RTDBGAA(Current, dtype, 2082, 0x10000000, 1); /* index */
  	*(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype)) = (EIF_INTEGER_32) arg2;
  	RTHOOK(4);
  	RTDBGAA(Current, dtype, 2083, 0x10000000, 1); /* type */
  	*(EIF_INTEGER_32 *)(Current + RTWA(2083, dtype)) = (EIF_INTEGER_32) arg3;
  	RTHOOK(5);
  	RTDBGAA(Current, dtype, 2106, 0x0C000000, 0); /* value */
  	*(EIF_INTEGER_8 *)(Current + RTWA(2106, dtype)) = (EIF_INTEGER_8) arg4;
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(6);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(6);
  	RTEE;
  #undef arg4
  #undef arg3
  #undef arg2
  #undef arg1
  }
  
  /* {RT_DBG_FIELD_RECORD}.object */
  EIF_TYPED_VALUE F597_2341 (EIF_REFERENCE Current)
  {
  	EIF_TYPED_VALUE r;
  	r.type = SK_REF;
  	r.it_r = *(EIF_REFERENCE *)(Current + RTWA(2105,Dtype(Current)));
  	return r;
  }
  
  
  /* {RT_DBG_FIELD_RECORD}.value */
  EIF_TYPED_VALUE F597_2342 (EIF_REFERENCE Current)
  {
  	EIF_TYPED_VALUE r;
  	r.type = SK_INT8;
  	r.it_i1 = *(EIF_INTEGER_8 *)(Current + RTWA(2106,Dtype(Current)));
  	return r;
  }
  
  
  /* {RT_DBG_FIELD_RECORD}.current_value_record */
  EIF_TYPED_VALUE F597_2343 (EIF_REFERENCE Current)
  {
  	GTCX
  	char *l_feature_name = "current_value_record";
  	RTEX;
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
  #define ur1 ur1x.it_r
  	EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
  #define ui4_1 ui4_1x.it_i4
  	EIF_REFERENCE tr1 = NULL;
  	EIF_INTEGER_32 ti4_1;
  	EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
  	
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	RTLI(4);
  	RTLR(0,Current);
  	RTLR(1,tr1);
  	RTLR(2,ur1);
  	RTLR(3,Result);
  	RTLIU(4);
  	RTLU (SK_REF, &Result);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 0, 2549);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2549);
  	RTIV(Current, RTAL);
  	RTHOOK(1);
  	RTDBGAL(0, 0xF800008C, 0,0); /* Result */
  	ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  	ui4_1 = ti4_1;
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	ur1 = RTCCL(tr1);
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(1927, dtype))(Current, ui4_1x, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	Result = (EIF_REFERENCE) RTCCL(tr1);
  	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 ur1
  #undef ui4_1
  }
  
  /* {RT_DBG_FIELD_RECORD}.associated_object */
  EIF_TYPED_VALUE F597_2344 (EIF_REFERENCE Current)
  {
  	GTCX
  	char *l_feature_name = "associated_object";
  	RTEX;
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_REFERENCE tr1 = NULL;
  	EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
  	
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	RTLI(3);
  	RTLR(0,Current);
  	RTLR(1,tr1);
  	RTLR(2,Result);
  	RTLIU(3);
  	RTLU (SK_REF, &Result);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 0, 2550);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2550);
  	RTIV(Current, RTAL);
  	RTHOOK(1);
  	RTDBGAL(0, 0xF8000000, 0,0); /* Result */
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	Result = (EIF_REFERENCE) RTCCL(tr1);
  	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
  }
  
  /* {RT_DBG_FIELD_RECORD}.is_local_record */
  EIF_TYPED_VALUE F597_2345 (EIF_REFERENCE Current)
  {
  	EIF_TYPED_VALUE r;
  	r.type = SK_BOOL;
  	r.it_b = (EIF_BOOLEAN) EIF_FALSE;
  	return r;
  }
  
  /* {RT_DBG_FIELD_RECORD}.is_same_as */
  EIF_TYPED_VALUE F597_2346 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
  {
  	GTCX
  	char *l_feature_name = "is_same_as";
  	RTEX;
  	EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
  #define arg1 arg1x.it_r
  	EIF_INTEGER_32 ti4_1;
  	EIF_INTEGER_32 ti4_2;
  	EIF_INTEGER_8 ti1_1;
  	EIF_INTEGER_8 ti1_2;
  	EIF_BOOLEAN tb1;
  	EIF_BOOLEAN tb2;
  	EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
  	
  	RTCFDT;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	
  	RTLI(3);
  	RTLR(0,arg1);
  	RTLR(1,loc1);
  	RTLR(2,Current);
  	RTLIU(3);
  	RTLU (SK_BOOL, &Result);
  	RTLU(SK_REF,&arg1);
  	RTLU (SK_REF, &Current);
  	RTLU(SK_REF, &loc1);
  	
  	RTEAA(l_feature_name, 596, Current, 1, 1, 2552);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2552);
  	RTCC(arg1, 596, l_feature_name, 1, eif_new_type(140, 0x01), 0x01);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("other_attached", EX_PRE);
  		RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	RTHOOK(2);
  	RTDBGAL(0, 0x04000000, 1,0); /* Result */
  	tb1 = '\0';
  	tb2 = '\0';
  	loc1 = RTCCL(arg1);
  	loc1 = RTRV(eif_new_type(dftype, 1),loc1);
  	if (EIF_TEST(loc1)) {
  		ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  		ti4_2 = *(EIF_INTEGER_32 *)(loc1 + RTVA(2082, "index", loc1));
  		tb2 = (EIF_BOOLEAN)(ti4_1 == ti4_2);
  	}
  	if (tb2) {
  		ti1_1 = *(EIF_INTEGER_8 *)(Current + RTWA(2106, dtype));
  		ti1_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc1))(loc1)).it_i1);
  		tb1 = (EIF_BOOLEAN)(ti1_1 == ti1_2);
  	}
  	Result = (EIF_BOOLEAN) tb1;
  	if (RTAL & CK_ENSURE) {
  		RTHOOK(3);
  		RTCT("same_type", EX_POST);
  		tb1 = '\01';
  		if (Result) {
  			ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2083, dtype));
  			ti4_2 = *(EIF_INTEGER_32 *)(arg1 + RTVA(2083, "type", arg1));
  			tb1 = (EIF_BOOLEAN)(ti4_1 == ti4_2);
  		}
  		if (tb1) {
  			RTCK;
  		} else {
  			RTCF;
  		}
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(4);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(4);
  	RTEE;
  	{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
  #undef arg1
  }
  
  /* {RT_DBG_FIELD_RECORD}.to_string */
  EIF_TYPED_VALUE F597_2347 (EIF_REFERENCE Current)
  {
  	GTCX
  	char *l_feature_name = "to_string";
  	RTEX;
  	EIF_INTEGER_8 loc1 = (EIF_INTEGER_8) 0;
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_TYPED_VALUE ui1_1x = {{0}, SK_INT8};
  #define ui1_1 ui1_1x.it_i1
  	EIF_REFERENCE tr1 = NULL;
  	EIF_INTEGER_32 ti4_1;
  	EIF_INTEGER_8 ti1_1;
  	EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
  	
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	RTLI(3);
  	RTLR(0,Current);
  	RTLR(1,tr1);
  	RTLR(2,Result);
  	RTLIU(3);
  	RTLU (SK_REF, &Result);
  	RTLU (SK_REF, &Current);
  	RTLU(SK_INT8, &loc1);
  	
  	RTEAA(l_feature_name, 596, Current, 1, 0, 2553);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2553);
  	RTIV(Current, RTAL);
  	RTHOOK(1);
  	RTDBGAL(1, 0x0C000000, 0, 0); /* loc1 */
  	ti1_1 = *(EIF_INTEGER_8 *)(Current + RTWA(2106, dtype));
  	loc1 = (EIF_INTEGER_8) ti1_1;
  	RTHOOK(2);
  	ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2083, dtype));
  	switch (ti4_1) {
  		case 1L:
  			RTHOOK(3);
  			if (EIF_TRUE) {
  				RTHOOK(4);
  				RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  				tr1 = c_outp((EIF_INTEGER_8 *) &(loc1));
  				Result = (EIF_REFERENCE) RTCCL(tr1);
  			} else {
  				RTHOOK(5);
  				RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  				tr1 = RTMS_EX_H("Void",4,1450142052);
  				Result = (EIF_REFERENCE) tr1;
  			}
  			break;
  		case 7L:
  			if (RTAL & CK_CHECK) {
  				RTHOOK(6);
  				RTCT("value_attached", EX_CHECK);
  				ti1_1 = *(EIF_INTEGER_8 *)(Current + RTWA(2106, dtype));
  				if (EIF_TRUE) {
  					RTCK;
  				} else {
  					RTCF;
  				}
  			}
  			RTHOOK(7);
  			if (EIF_TRUE) {
  				RTHOOK(8);
  				RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  				tr1 = c_outp((EIF_INTEGER_8 *) &(loc1));
  				Result = (EIF_REFERENCE) RTCCL(tr1);
  			} else {
  				RTHOOK(9);
  				RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  				tr1 = RTLN(eif_new_type(232, 0x01).id);
  				(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(4643, Dtype(tr1)))(tr1);
  				RTNHOOK(9,1);
  				Result = (EIF_REFERENCE) RTCCL(tr1);
  			}
  			break;
  		default:
  			RTHOOK(10);
  			if (EIF_TRUE) {
  				RTHOOK(11);
  				RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  				ui1_1 = loc1;
  				tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(2108, dtype))(Current, ui1_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  				Result = (EIF_REFERENCE) RTCCL(tr1);
  			} else {
  				if (RTAL & CK_CHECK) {
  					RTHOOK(12);
  					RTCT("False", EX_CHECK);
  						RTCF;
  				}
  				RTHOOK(13);
  				RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  				tr1 = RTLN(eif_new_type(232, 0x01).id);
  				(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(4643, Dtype(tr1)))(tr1);
  				RTNHOOK(13,1);
  				Result = (EIF_REFERENCE) RTCCL(tr1);
  			}
  			break;
  	}
  	if (RTAL & CK_ENSURE) {
  		RTHOOK(14);
  		RTCT("result_attached", EX_POST);
  		if ((EIF_BOOLEAN)(Result != NULL)) {
  			RTCK;
  		} else {
  			RTCF;
  		}
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(15);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(3);
  	RTEE;
  	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
  #undef up1
  #undef ui1_1
  }
  
  /* {RT_DBG_FIELD_RECORD}.get_value */
  void F597_2348 (EIF_REFERENCE Current)
  {
  	GTCX
  	char *l_feature_name = "get_value";
  	RTEX;
  	EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
  	EIF_INTEGER_8 loc2 = (EIF_INTEGER_8) 0;
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
  #define ur1 ur1x.it_r
  	EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
  #define ui4_1 ui4_1x.it_i4
  	EIF_REFERENCE tr1 = NULL;
  	EIF_REFERENCE tr2 = NULL;
  	EIF_INTEGER_32 ti4_1;
  	EIF_INTEGER_8 ti1_1;
  	EIF_BOOLEAN tb1;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	RTLI(5);
  	RTLR(0,loc1);
  	RTLR(1,Current);
  	RTLR(2,tr1);
  	RTLR(3,ur1);
  	RTLR(4,tr2);
  	RTLIU(5);
  	RTLU (SK_VOID, NULL);
  	RTLU (SK_REF, &Current);
  	RTLU(SK_REF, &loc1);
  	RTLU(SK_INT8, &loc2);
  	
  	RTEAA(l_feature_name, 596, Current, 2, 0, 2554);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2554);
  	RTIV(Current, RTAL);
  	RTHOOK(1);
  	RTDBGAL(1, 0xF8000088, 0, 0); /* loc1 */
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1959, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	loc1 = (EIF_REFERENCE) RTCCL(tr1);
  	RTHOOK(2);
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	ur1 = RTCCL(tr1);
  	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2022, "set_object", loc1))(loc1, ur1x);
  	RTHOOK(3);
  	ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  	ui4_1 = ti4_1;
  	tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1857, "field", loc1))(loc1, ui4_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	tr1 = RTCCL(tr2);
  	RTOB(*(EIF_INTEGER_8 *), RTWCT(2106, dtype, Dftype(Current)), tr1, loc2, tb1);
  	if (tb1) {
  		RTHOOK(4);
  		RTDBGAA(Current, dtype, 2106, 0x0C000000, 0); /* value */
  		*(EIF_INTEGER_8 *)(Current + RTWA(2106, dtype)) = (EIF_INTEGER_8) loc2;
  	} else {
  		RTHOOK(5);
  		RTDBGAA(Current, dtype, 2106, 0x0C000000, 0); /* value */
  		ti1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2109, dtype))(Current)).it_i1);
  		*(EIF_INTEGER_8 *)(Current + RTWA(2106, dtype)) = (EIF_INTEGER_8) ti1_1;
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(6);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(4);
  	RTEE;
  #undef up1
  #undef ur1
  #undef ui4_1
  }
  
  /* {RT_DBG_FIELD_RECORD}.restore */
  void F597_2349 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
  {
  	GTCX
  	char *l_feature_name = "restore";
  	RTEX;
  #define arg1 arg1x.it_r
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
  #define up2 up2x.it_p
  	EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
  #define ur1 ur1x.it_r
  	EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
  #define ur2 ur2x.it_r
  	EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
  #define ui4_1 ui4_1x.it_i4
  	EIF_REFERENCE tr1 = NULL;
  	EIF_REFERENCE tr2 = NULL;
  	EIF_REFERENCE tr3 = NULL;
  	EIF_INTEGER_32 ti4_1;
  	EIF_BOOLEAN tb1;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	
  	RTLI(7);
  	RTLR(0,arg1);
  	RTLR(1,Current);
  	RTLR(2,tr1);
  	RTLR(3,tr2);
  	RTLR(4,ur1);
  	RTLR(5,tr3);
  	RTLR(6,ur2);
  	RTLIU(7);
  	RTLU (SK_VOID, NULL);
  	RTLU(SK_REF,&arg1);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 1, 2555);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2555);
  	RTCC(arg1, 596, l_feature_name, 1, eif_new_type(140, 0x01), 0x01);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("val_attached", EX_PRE);
  		RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	if (
  		WDBG(596,"rt_dbg_replay")
  	) {
  		RTHOOK(2);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1959, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		RTNHOOK(2,1);
  		tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
  		ur1 = RTCCL(tr2);
  		(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2022, "set_object", tr1))(tr1, ur1x);
  		RTHOOK(3);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = RTMS_EX_H(".restore (",10,1145697320);
  		ur1 = tr2;
  		tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		RTNHOOK(3,1);
  		tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7, "generator", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
  		ur1 = RTCCL(tr3);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = RTMS_EX_H(" #",2,8227);
  		ur1 = tr2;
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  		tr1 = c_outi(ti4_1);
  		ur1 = RTCCL(tr1);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = RTMS_EX_H(")\012",2,10506);
  		ur1 = tr2;
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr2);
  		(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1059, dtype))(Current, ur1x);
  		RTHOOK(4);
  		tr1 = RTMS_EX_H(" -> ",4,539835936);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1959, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		RTNHOOK(4,1);
  		ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  		ui4_1 = ti4_1;
  		tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1871, "field_name", tr2))(tr2, ui4_1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
  		ur1 = RTCCL(tr3);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr1 = RTMS_EX_H(": offset ",9,1304398880);
  		ur1 = tr1;
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1959, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		RTNHOOK(4,2);
  		ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  		ui4_1 = ti4_1;
  		ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1872, "field_offset", tr2))(tr2, ui4_1x)).it_i4);
  		RTNHOOK(4,3);
  		tr2 = c_outi(ti4_1);
  		ur1 = RTCCL(tr2);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr1 = RTMS_EX_H("\012",1,10);
  		ur1 = tr1;
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr1);
  		(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1059, dtype))(Current, ur1x);
  	}
  	RTHOOK(5);
  	ur1 = RTCCL(arg1);
  	tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(2088, dtype))(Current, ur1x)).it_b);
  	if (tb1) {
  		if (
  			WDBG(596,"rt_dbg_replay")
  		) {
  			RTHOOK(6);
  			tr1 = RTMS_EX_H(" -> unchanged because same value [",34,642096731);
  			tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2089, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			ur1 = RTCCL(tr2);
  			tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			tr1 = RTMS_EX_H("].\012",3,6106634);
  			ur1 = tr1;
  			tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			ur1 = RTCCL(tr1);
  			(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1059, dtype))(Current, ur1x);
  		}
  	} else {
  		RTHOOK(7);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr1);
  		ur2 = RTCCL(Current);
  		(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(2107, dtype))(Current, ur1x, ur2x);
  		if (
  			WDBG(596,"rt_dbg_replay")
  		) {
  			RTHOOK(8);
  			tr1 = RTMS_EX_H(" -> restored: from [",20,1710693467);
  			tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2089, "to_string", arg1))(arg1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			ur1 = RTCCL(tr2);
  			tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			tr1 = RTMS_EX_H("] to [",6,2136531035);
  			ur1 = tr1;
  			tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2089, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			ur1 = RTCCL(tr2);
  			tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			tr1 = RTMS_EX_H("] \012",3,6103050);
  			ur1 = tr1;
  			tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  			ur1 = RTCCL(tr1);
  			(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1059, dtype))(Current, ur1x);
  		}
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(9);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(3);
  	RTEE;
  #undef up1
  #undef up2
  #undef ur1
  #undef ur2
  #undef ui4_1
  #undef arg1
  }
  
  /* {RT_DBG_FIELD_RECORD}.revert */
  void F597_2350 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
  {
  	GTCX
  	char *l_feature_name = "revert";
  	RTEX;
  #define arg1 arg1x.it_r
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
  #define up2 up2x.it_p
  	EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
  #define ur1 ur1x.it_r
  	EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
  #define ur2 ur2x.it_r
  	EIF_REFERENCE tr1 = NULL;
  	EIF_REFERENCE tr2 = NULL;
  	EIF_REFERENCE tr3 = NULL;
  	EIF_INTEGER_32 ti4_1;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	
  	RTLI(7);
  	RTLR(0,arg1);
  	RTLR(1,Current);
  	RTLR(2,tr1);
  	RTLR(3,tr2);
  	RTLR(4,ur1);
  	RTLR(5,tr3);
  	RTLR(6,ur2);
  	RTLIU(7);
  	RTLU (SK_VOID, NULL);
  	RTLU(SK_REF,&arg1);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 1, 2556);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2556);
  	RTCC(arg1, 596, l_feature_name, 1, eif_new_type(140, 0x01), 0x01);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("bak_attached", EX_PRE);
  		RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	if (
  		WDBG(596,"rt_dbg_replay")
  	) {
  		RTHOOK(2);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = RTMS_EX_H(".revert (",9,2040411432);
  		ur1 = tr2;
  		tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		RTNHOOK(2,1);
  		tr3 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(7, "generator", tr1))(tr1)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
  		ur1 = RTCCL(tr3);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = RTMS_EX_H(" #",2,8227);
  		ur1 = tr2;
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  		tr1 = c_outi(ti4_1);
  		ur1 = RTCCL(tr1);
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = RTMS_EX_H(")\012",2,10506);
  		ur1 = tr2;
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr2);
  		(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1059, dtype))(Current, ur1x);
  	}
  	RTHOOK(3);
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	ur1 = RTCCL(tr1);
  	ur2 = RTCCL(arg1);
  	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(2107, dtype))(Current, ur1x, ur2x);
  	if (
  		WDBG(596,"rt_dbg_replay")
  	) {
  		RTHOOK(4);
  		tr1 = RTMS_EX_H(" -> reverted: from [",20,1066206555);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2089, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr2);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr1 = RTMS_EX_H("] to [",6,2136531035);
  		ur1 = tr1;
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2089, "to_string", arg1))(arg1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr2);
  		tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		tr1 = RTMS_EX_H("] \012",3,6103050);
  		ur1 = tr1;
  		tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4721, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  		ur1 = RTCCL(tr1);
  		(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(1059, dtype))(Current, ur1x);
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(5);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(3);
  	RTEE;
  #undef up1
  #undef up2
  #undef ur1
  #undef ur2
  #undef arg1
  }
  
  /* {RT_DBG_FIELD_RECORD}.set_object_field */
  void F597_2351 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
  {
  	GTCX
  	char *l_feature_name = "set_object_field";
  	RTEX;
  	EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
  	EIF_REFERENCE loc2 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc3 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc4 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc5 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc6 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc7 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc8 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc9 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc10 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc11 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc12 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc13 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc14 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc15 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc16 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc17 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc18 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc19 = (EIF_REFERENCE) 0;
  	EIF_REFERENCE loc20 = (EIF_REFERENCE) 0;
  #define arg1 arg1x.it_r
  #define arg2 arg2x.it_r
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
  #define ur1 ur1x.it_r
  	EIF_TYPED_VALUE ur8_1x = {{0}, SK_REAL64};
  #define ur8_1 ur8_1x.it_r8
  	EIF_TYPED_VALUE ui8_1x = {{0}, SK_INT64};
  #define ui8_1 ui8_1x.it_i8
  	EIF_TYPED_VALUE uu8_1x = {{0}, SK_UINT64};
  #define uu8_1 uu8_1x.it_n8
  	EIF_TYPED_VALUE ur4_1x = {{0}, SK_REAL32};
  #define ur4_1 ur4_1x.it_r4
  	EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
  #define ui4_1 ui4_1x.it_i4
  	EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
  #define ui4_2 ui4_2x.it_i4
  	EIF_TYPED_VALUE uu4_1x = {{0}, SK_UINT32};
  #define uu4_1 uu4_1x.it_n4
  	EIF_TYPED_VALUE uw1x = {{0}, SK_CHAR32};
  #define uw1 uw1x.it_c4
  	EIF_TYPED_VALUE ui2_1x = {{0}, SK_INT16};
  #define ui2_1 ui2_1x.it_i2
  	EIF_TYPED_VALUE uu2_1x = {{0}, SK_UINT16};
  #define uu2_1 uu2_1x.it_n2
  	EIF_TYPED_VALUE ui1_1x = {{0}, SK_INT8};
  #define ui1_1 ui1_1x.it_i1
  	EIF_TYPED_VALUE uu1_1x = {{0}, SK_UINT8};
  #define uu1_1 uu1_1x.it_n1
  	EIF_TYPED_VALUE ub1x = {{0}, SK_BOOL};
  #define ub1 ub1x.it_b
  	EIF_TYPED_VALUE uc1x = {{0}, SK_CHAR8};
  #define uc1 uc1x.it_c1
  	EIF_POINTER tp1;
  	EIF_REFERENCE tr1 = NULL;
  	EIF_REAL_64 tr8_1;
  	EIF_INTEGER_64 ti8_1;
  	EIF_NATURAL_64 tu8_1;
  	EIF_REAL_32 tr4_1;
  	EIF_INTEGER_32 ti4_1;
  	EIF_NATURAL_32 tu4_1;
  	EIF_CHARACTER_32 tw1;
  	EIF_INTEGER_16 ti2_1;
  	EIF_NATURAL_16 tu2_1;
  	EIF_INTEGER_8 ti1_1;
  	EIF_NATURAL_8 tu1_1;
  	EIF_BOOLEAN tb1;
  	EIF_CHARACTER_8 tc1;
  	RTCFDT;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	
  	RTLI(24);
  	RTLR(0,arg2);
  	RTLR(1,arg1);
  	RTLR(2,Current);
  	RTLR(3,loc2);
  	RTLR(4,tr1);
  	RTLR(5,ur1);
  	RTLR(6,loc3);
  	RTLR(7,loc4);
  	RTLR(8,loc5);
  	RTLR(9,loc6);
  	RTLR(10,loc7);
  	RTLR(11,loc8);
  	RTLR(12,loc9);
  	RTLR(13,loc10);
  	RTLR(14,loc11);
  	RTLR(15,loc12);
  	RTLR(16,loc13);
  	RTLR(17,loc14);
  	RTLR(18,loc15);
  	RTLR(19,loc16);
  	RTLR(20,loc17);
  	RTLR(21,loc18);
  	RTLR(22,loc19);
  	RTLR(23,loc20);
  	RTLIU(24);
  	RTLU (SK_VOID, NULL);
  	RTLU(SK_REF,&arg1);
  	RTLU(SK_REF,&arg2);
  	RTLU (SK_REF, &Current);
  	RTLU(SK_INT32, &loc1);
  	RTLU(SK_REF, &loc2);
  	RTLU(SK_REF, &loc3);
  	RTLU(SK_REF, &loc4);
  	RTLU(SK_REF, &loc5);
  	RTLU(SK_REF, &loc6);
  	RTLU(SK_REF, &loc7);
  	RTLU(SK_REF, &loc8);
  	RTLU(SK_REF, &loc9);
  	RTLU(SK_REF, &loc10);
  	RTLU(SK_REF, &loc11);
  	RTLU(SK_REF, &loc12);
  	RTLU(SK_REF, &loc13);
  	RTLU(SK_REF, &loc14);
  	RTLU(SK_REF, &loc15);
  	RTLU(SK_REF, &loc16);
  	RTLU(SK_REF, &loc17);
  	RTLU(SK_REF, &loc18);
  	RTLU(SK_REF, &loc19);
  	RTLU(SK_REF, &loc20);
  	
  	RTEAA(l_feature_name, 596, Current, 20, 2, 2557);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2557);
  	RTCC(arg2, 596, l_feature_name, 2, eif_new_type(140, 0x01), 0x01);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("obj_attached", EX_PRE);
  		RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
  		RTCK;
  		RTHOOK(2);
  		RTCT("r_attached", EX_PRE);
  		RTTE((EIF_BOOLEAN)(arg2 != NULL), label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	RTHOOK(3);
  	RTDBGAL(1, 0x10000000, 1, 0); /* loc1 */
  	ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(2082, dtype));
  	loc1 = (EIF_INTEGER_32) ti4_1;
  	RTHOOK(4);
  	RTDBGAL(2, 0xF8000088, 0, 0); /* loc2 */
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1959, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  	loc2 = (EIF_REFERENCE) RTCCL(tr1);
  	RTHOOK(5);
  	ur1 = RTCCL(arg1);
  	(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2022, "set_object", loc2))(loc2, ur1x);
  	RTHOOK(6);
  	ti4_1 = *(EIF_INTEGER_32 *)(arg2 + RTVA(2083, "type", arg2));
  	switch (ti4_1) {
  		case 9L:
  			RTHOOK(7);
  			loc3 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,596,188,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc3 = RTRV(typres0,loc3);
  			}
  			if (EIF_TEST(loc3)) {
  				RTHOOK(8);
  				ui4_1 = loc1;
  				ti1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc3))(loc3)).it_i1);
  				ui1_1 = ti1_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1903, "set_integer_8_field", loc2))(loc2, ui4_1x, ui1_1x);
  			}
  			break;
  		case 10L:
  			RTHOOK(9);
  			loc4 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,905,221,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc4 = RTRV(typres0,loc4);
  			}
  			if (EIF_TEST(loc4)) {
  				RTHOOK(10);
  				ui4_1 = loc1;
  				ti2_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc4))(loc4)).it_i2);
  				ui2_1 = ti2_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1904, "set_integer_16_field", loc2))(loc2, ui4_1x, ui2_1x);
  			}
  			break;
  		case 4L:
  			RTHOOK(11);
  			loc5 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,954,218,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc5 = RTRV(typres0,loc5);
  			}
  			if (EIF_TEST(loc5)) {
  				RTHOOK(12);
  				ui4_1 = loc1;
  				ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc5))(loc5)).it_i4);
  				ui4_2 = ti4_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1906, "set_integer_32_field", loc2))(loc2, ui4_1x, ui4_2x);
  			}
  			break;
  		case 11L:
  			RTHOOK(13);
  			loc6 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,900,200,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc6 = RTRV(typres0,loc6);
  			}
  			if (EIF_TEST(loc6)) {
  				RTHOOK(14);
  				ui4_1 = loc1;
  				ti8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc6))(loc6)).it_i8);
  				ui8_1 = ti8_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1907, "set_integer_64_field", loc2))(loc2, ui4_1x, ui8_1x);
  			}
  			break;
  		case 13L:
  			RTHOOK(15);
  			loc7 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,944,209,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc7 = RTRV(typres0,loc7);
  			}
  			if (EIF_TEST(loc7)) {
  				RTHOOK(16);
  				ui4_1 = loc1;
  				tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc7))(loc7)).it_n1);
  				uu1_1 = tu1_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1899, "set_natural_8_field", loc2))(loc2, ui4_1x, uu1_1x);
  			}
  			break;
  		case 14L:
  			RTHOOK(17);
  			loc8 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,947,215,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc8 = RTRV(typres0,loc8);
  			}
  			if (EIF_TEST(loc8)) {
  				RTHOOK(18);
  				ui4_1 = loc1;
  				tu2_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc8))(loc8)).it_n2);
  				uu2_1 = tu2_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1900, "set_natural_16_field", loc2))(loc2, ui4_1x, uu2_1x);
  			}
  			break;
  		case 15L:
  			RTHOOK(19);
  			loc9 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,946,212,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc9 = RTRV(typres0,loc9);
  			}
  			if (EIF_TEST(loc9)) {
  				RTHOOK(20);
  				ui4_1 = loc1;
  				tu4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc9))(loc9)).it_n4);
  				uu4_1 = tu4_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1901, "set_natural_32_field", loc2))(loc2, ui4_1x, uu4_1x);
  			}
  			break;
  		case 16L:
  			RTHOOK(21);
  			loc10 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,953,224,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc10 = RTRV(typres0,loc10);
  			}
  			if (EIF_TEST(loc10)) {
  				RTHOOK(22);
  				ui4_1 = loc1;
  				tu8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc10))(loc10)).it_n8);
  				uu8_1 = tu8_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1902, "set_natural_64_field", loc2))(loc2, ui4_1x, uu8_1x);
  			}
  			break;
  		case 0L:
  			RTHOOK(23);
  			loc11 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,950,227,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc11 = RTRV(typres0,loc11);
  			}
  			if (EIF_TEST(loc11)) {
  				RTHOOK(24);
  				ui4_1 = loc1;
  				tp1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc11))(loc11)).it_p);
  				up1 = tp1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1910, "set_pointer_field", loc2))(loc2, ui4_1x, up1x);
  			}
  			break;
  		case 1L:
  			RTHOOK(25);
  			tb1 = '\0';
  			loc12 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,305,0xFF01,0,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc12 = RTRV(typres0,loc12);
  			}
  			if (EIF_TEST(loc12)) {
  				tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc12))(loc12)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  				loc13 = RTCCL(tr1);
  				tb1 = EIF_TEST(loc13);
  			}
  			if (tb1) {
  				RTHOOK(26);
  				ui4_1 = loc1;
  				ur1 = RTCCL(loc13);
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1892, "set_reference_field", loc2))(loc2, ui4_1x, ur1x);
  			}
  			break;
  		case 7L:
  			RTHOOK(27);
  			tb1 = '\0';
  			loc14 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,305,0xFF01,0,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc14 = RTRV(typres0,loc14);
  			}
  			if (EIF_TEST(loc14)) {
  				tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc14))(loc14)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
  				loc15 = RTCCL(tr1);
  				tb1 = EIF_TEST(loc15);
  			}
  			if (tb1) {
  				RTHOOK(28);
  				ui4_1 = loc1;
  				ur1 = RTCCL(loc15);
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1892, "set_reference_field", loc2))(loc2, ui4_1x, ur1x);
  			}
  			break;
  		case 3L:
  			RTHOOK(29);
  			loc16 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,592,203,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc16 = RTRV(typres0,loc16);
  			}
  			if (EIF_TEST(loc16)) {
  				RTHOOK(30);
  				ui4_1 = loc1;
  				tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc16))(loc16)).it_b);
  				ub1 = tb1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1898, "set_boolean_field", loc2))(loc2, ui4_1x, ub1x);
  			}
  			break;
  		case 5L:
  			RTHOOK(31);
  			loc17 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,945,191,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc17 = RTRV(typres0,loc17);
  			}
  			if (EIF_TEST(loc17)) {
  				RTHOOK(32);
  				ui4_1 = loc1;
  				tr4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc17))(loc17)).it_r4);
  				ur4_1 = tr4_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1908, "set_real_32_field", loc2))(loc2, ui4_1x, ur4_1x);
  			}
  			break;
  		case 6L:
  			RTHOOK(33);
  			loc18 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,948,206,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc18 = RTRV(typres0,loc18);
  			}
  			if (EIF_TEST(loc18)) {
  				RTHOOK(34);
  				ui4_1 = loc1;
  				tr8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc18))(loc18)).it_r8);
  				ur8_1 = tr8_1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1893, "set_real_64_field", loc2))(loc2, ui4_1x, ur8_1x);
  			}
  			break;
  		case 2L:
  			RTHOOK(35);
  			loc19 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,942,197,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc19 = RTRV(typres0,loc19);
  			}
  			if (EIF_TEST(loc19)) {
  				RTHOOK(36);
  				ui4_1 = loc1;
  				tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc19))(loc19)).it_c1);
  				uc1 = tc1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1895, "set_character_8_field", loc2))(loc2, ui4_1x, uc1x);
  			}
  			break;
  		case 12L:
  			RTHOOK(37);
  			loc20 = RTCCL(arg2);
  			{
  				static EIF_TYPE_INDEX typarr0[] = {0xFF01,943,194,0xFFFF};
  				EIF_TYPE typres0;
  				static EIF_TYPE typcache0 = {INVALID_DTYPE, 0};
  				
  				typres0 = (typcache0.id != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(dftype, typarr0)));
  				loc20 = RTRV(typres0,loc20);
  			}
  			if (EIF_TEST(loc20)) {
  				RTHOOK(38);
  				ui4_1 = loc1;
  				tw1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2106, "value", loc20))(loc20)).it_c4);
  				uw1 = tw1;
  				(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1897, "set_character_32_field", loc2))(loc2, ui4_1x, uw1x);
  			}
  			break;
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(39);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(24);
  	RTEE;
  #undef up1
  #undef ur1
  #undef ur8_1
  #undef ui8_1
  #undef uu8_1
  #undef ur4_1
  #undef ui4_1
  #undef ui4_2
  #undef uu4_1
  #undef uw1
  #undef ui2_1
  #undef uu2_1
  #undef ui1_1
  #undef uu1_1
  #undef ub1
  #undef uc1
  #undef arg2
  #undef arg1
  }
  
  /* {RT_DBG_FIELD_RECORD}.out_value */
  EIF_TYPED_VALUE F597_2352 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
  {
  	GTCX
  	char *l_feature_name = "out_value";
  	RTEX;
  #define arg1 arg1x.it_i1
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_REFERENCE tr1 = NULL;
  	EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
  	
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i1 = * (EIF_INTEGER_8 *) arg1x.it_r;
  	
  	RTLI(3);
  	RTLR(0,tr1);
  	RTLR(1,Result);
  	RTLR(2,Current);
  	RTLIU(3);
  	RTLU (SK_REF, &Result);
  	RTLU(SK_INT8,&arg1);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 1, 2558);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2558);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("v_attached", EX_PRE);
  		RTTE(EIF_TRUE, label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	RTHOOK(2);
  	RTDBGAL(0, 0xF80000E8, 0,0); /* Result */
  	tr1 = c_outi(arg1);
  	Result = (EIF_REFERENCE) RTCCL(tr1);
  	if (RTAL & CK_ENSURE) {
  		RTHOOK(3);
  		RTCT("result_attached", EX_POST);
  		if ((EIF_BOOLEAN)(Result != NULL)) {
  			RTCK;
  		} else {
  			RTCF;
  		}
  	}
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(4);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(3);
  	RTEE;
  	{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
  #undef up1
  #undef arg1
  }
  
  /* {RT_DBG_FIELD_RECORD}.default_value */
  EIF_TYPED_VALUE F597_2353 (EIF_REFERENCE Current)
  {
  	GTCX
  	char *l_feature_name = "default_value";
  	RTEX;
  	EIF_INTEGER_8 Result = ((EIF_INTEGER_8) 0);
  	
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	RTLI(1);
  	RTLR(0,Current);
  	RTLIU(1);
  	RTLU (SK_INT8, &Result);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 596, Current, 0, 0, 2559);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(596, Current, 2559);
  	RTIV(Current, RTAL);
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(1);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(2);
  	RTEE;
  	{ EIF_TYPED_VALUE r; r.type = SK_INT8; r.it_i1 = Result; return r; }
  }
  
  /* {RT_DBG_FIELD_RECORD}._invariant */
  void F597_7139 (EIF_REFERENCE Current, int where)
  {
  	GTCX
  	char *l_feature_name = "_invariant";
  	RTEX;
  	EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
  #define up1 up1x.it_p
  	EIF_REFERENCE tr1 = NULL;
  	RTCDT;
  	RTLD;
  	RTDA;
  	
  	RTLI(2);
  	RTLR(0,Current);
  	RTLR(1,tr1);
  	RTLIU(2);
  	RTLU (SK_VOID, NULL);
  	RTLU (SK_REF, &Current);
  	RTEAINV(l_feature_name, 596, Current, 0, 7138);
  	RTSA(dtype);
  	RTME(dtype, 0);
  	RTIT("object_attached", Current);
  	tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2105, 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_Minit597 (void)
  {
  	GTCX
  }
  
  
  #ifdef __cplusplus
  }
  #endif
  