/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
-- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
-- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
--                 http://www.loria.fr/SmallEiffel              --
*/
#include "compile_to_c.h"
int r605is_any(T605* C){
int R=0;
R=(((T0*)ms1_473))==((void*)((((T451*)((T451*)((((T605*)C))->_base_class_name/*24*/))))->_to_string/*0*/));
return R;
}
/*No:BASE_CLASS.heading_comment2*/
int r605is_general(T605* C){
int R=0;
R=(((T0*)ms14_473))==((void*)((((T451*)((T451*)((((T605*)C))->_base_class_name/*24*/))))->_to_string/*0*/));
return R;
}
/*No:BASE_CLASS.feature_dictionary*/
void r605mapping_c_in(T605* C,T0* a1){
r7extend(((T7*)a1),'B');
r7extend(((T7*)a1),'C');
r2append_in((((T605*)C))->_id/*0*/,a1);
}
T0* r605new_name_of_original(T605* C,T0* a1,T0* a2){
T0* R=NULL;
/*IF*/if ((C)==((void*)(a1))) {
R=a2;
}
 else if (r605is_general(C)) {
R=a2;
}
else {
/*IF*/if (((((T605*)C))->_parent_list/*40*/)==((void*)(NULL))) {
R=r605new_name_of(((T605*)(r605class_any())),a1,a2);
}
else {
/*[IRF3.3clear*/((((T854*)(((T854*)(oBC605going_up_trace)))))->_upper)=(-(1));
/*]*/
R=r673going_up(((T673*)((((T605*)C))->_parent_list/*40*/)),oBC605going_up_trace,a1,a2);
}
/*FI*/}
/*FI*/return R;
}
T0*oBC605visited=NULL;
/*No:BASE_CLASS.base_class_name*/
/*No:BASE_CLASS.is_expanded*/
/*No:BASE_CLASS.creation_clause_list*/
/*No:BASE_CLASS.us_any*/
/*No:BASE_CLASS.us_general*/
void r605warning(T0* a1,T0* a2){
r683add_position(a1);
r683warning(((T683*)(oBC364eh)),a2);
}