/*
-- 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_jvm.h"
T0* r283formal_generic_list(T283* C){
T0* R=NULL;
R=(((T605*)((T605*)(r627base_class(((T627*)(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/)))))))->_formal_generic_list/*28*/;
return R;
}
int r283is_reference(T283* C){
int R=0;
R=X291is_reference((((T283*)C))->_run_type/*12*/);
return R;
}
void r283error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
T0* r283base_class(T283* C){
T0* R=NULL;
T0* _bcn=NULL;
_bcn=r283base_class_name(C);
/*IF*/if ((_bcn)!=((void*)(NULL))) {
R=r451base_class(((T451*)_bcn));
}
else {
/*[IRF3.6append*/{T0* b1=((T0*)ms3_291);
r7append(((T7*)(oBC683explanation)),b1);
}/*]*/
r683add_type((T0*)C,((T0*)ms67_470));
r683print_as_fatal_error(((T683*)(oBC364eh)));
}
/*FI*/return R;
}
void r283jvm_xastore(T283* C){
X291jvm_xastore((((T283*)C))->_run_type/*12*/);
}
/*No:TYPE_FORMAL_GENERIC.fatal_error*/
int r283is_any(T283* C){
int R=0;
R=X291is_any((((T283*)C))->_run_type/*12*/);
return R;
}
int r283jvm_method_flags(T283* C){
int R=0;
R=X291jvm_method_flags((((T283*)C))->_run_type/*12*/);
return R;
}
T0* r283base_class_name(T283* C){
T0* R=NULL;
R=X291base_class_name((((T283*)C))->_run_type/*12*/);
return R;
}
void r283jvm_push_local(T283* C,int a1){
X291jvm_push_local((((T283*)C))->_run_type/*12*/,a1);
}
int r283is_expanded(T283* C){
int R=0;
R=X291is_expanded((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_basic_eiffel_expanded(T283* C){
int R=0;
R=X291is_basic_eiffel_expanded((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_none(T283* C){
int R=0;
R=X291is_none((((T283*)C))->_run_type/*12*/);
return R;
}
int r283is_integer(T283* C){
int R=0;
R=X291is_integer((((T283*)C))->_run_type/*12*/);
return R;
}
void r283warning(T0* a1,T0* a2){
r683add_position(a1);
r683warning(((T683*)(oBC364eh)),a2);
}
T0* r283make_runnable(T283* C,T0* a1){
T0* R=NULL;
T0* _rt2=NULL;
_rt2=X291run_type(a1);
/*IF*/if ((_rt2)==((void*)(NULL))) {
/*IF*/if ((a1)!=((void*)(NULL))) {
r683add_position(X291start_position(a1));
}
/*FI*/r283error(/*(IRF4.6start_position*/(((T451*)((T451*)((((T283*)C))->_formal_name/*4*/))))->_start_position/*4*//*)*/,((T0*)ms59_470));
}
 else if (((((T283*)C))->_run_type/*12*/)==((void*)(NULL))) {
C->_run_type=_rt2;
R=(T0*)C;
}
else {
R=r283twin(C);
/*[IRF3.3set_run_type*/((((T283*)(((T283*)R))))->_run_type)=(_rt2);
/*]*/
}
/*FI*/return R;
}
/*No:NATIVE_WITHOUT_CURRENT.jvm_add_method_for_procedure*/
/*No:NATIVE_WITHOUT_CURRENT.jvm_add_method_for_function*/
/*No:NATIVE_WITHOUT_CURRENT.jvm_mapping_procedure*/
/*No:NATIVE_WITHOUT_CURRENT.jvm_define_procedure*/
/*No:NATIVE_WITHOUT_CURRENT.use_current*/
/*No:NATIVE_WITHOUT_CURRENT.jvm_define_function*/
/*No:NATIVE_WITHOUT_CURRENT.fatal_error*/
void r320fe_c2jvm(T0* a1){
r683add_position(r228target_position(((T228*)(oBC364jvm))));
r683add_position(X496start_position(a1));
/*[IRF3.6fatal_error*/{T0* b1=((T0*)ms1_845);
r683fatal_error(((T683*)(oBC364eh)),b1);
}/*]*/
}
/*No:NATIVE_WITHOUT_CURRENT.jvm_mapping_function*/