text: /*
   * Code for class ADDRINFO_2
   */
  
  #include "eif_eiffel.h"
  #include "../E1/estructure.h"
  
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  
  extern void F1014_7970(EIF_REFERENCE, EIF_TYPED_VALUE);
  extern void EIF_Minit1014(void);
  
  #ifdef __cplusplus
  }
  #endif
  
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  
  
  #ifdef __cplusplus
  }
  #endif
  
  
  #ifdef __cplusplus
  extern "C" {
  #endif
  
  /* {ADDRINFO_2}.c_free */
  void F1014_7970 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
  {
  	GTCX
  	char *l_feature_name = "c_free";
  	RTEX;
  #define arg1 arg1x.it_p
  	EIF_POINTER tp1;
  	RTCDT;
  	RTSN;
  	RTDA;
  	RTLD;
  	
  	if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_p = * (EIF_POINTER *) arg1x.it_r;
  	
  	RTLI(1);
  	RTLR(0,Current);
  	RTLIU(1);
  	RTLU (SK_VOID, NULL);
  	RTLU(SK_POINTER,&arg1);
  	RTLU (SK_REF, &Current);
  	
  	RTEAA(l_feature_name, 1013, Current, 0, 1, 14316);
  	RTSA(dtype);
  	RTSC;
  	RTME(dtype, 0);
  	RTGC;
  	RTDBGEAA(1013, Current, 14316);
  	RTIV(Current, RTAL);
  	if ((RTAL & CK_REQUIRE) || RTAC) {
  		RTHOOK(1);
  		RTCT("obj_ptr_not_null", EX_PRE);
  		tp1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(36, dtype))(Current)).it_p);
  		RTTE((EIF_BOOLEAN)(arg1 != tp1), label_1);
  		RTCK;
  		RTJB;
  label_1:
  		RTCF;
  	}
  body:;
  	RTVI(Current, RTAL);
  	RTRS;
  	RTHOOK(2);
  	RTDBGLE;
  	RTMD(0);
  	RTLE;
  	RTLO(3);
  	RTEE;
  #undef arg1
  }
  
  void EIF_Minit1014 (void)
  {
  	GTCX
  }
  
  
  #ifdef __cplusplus
  }
  #endif
  