/*
-- 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"
int r239is_integer(T239* C){
int R=0;
R=X291is_integer((((T239*)C))->_run_type/*8*/);
return R;
}
void r239anchor_cycle_end(T239* C){
/*IF*/if (((((T239*)C))->_start_position/*4*/)==((void*)(/*(IRF4.5first*//*(IRF4.6item*/((((T907*)((T907*)(oBC646visited))))->_storage/*0*/)[0]/*)*//*)*/))) {
/*[IRF3.3clear*/((((T907*)(((T907*)(oBC646visited)))))->_upper)=(-(1));
/*]*/
}
/*FI*/}
T0* r342add_comment(T342* C,T0* a1){
T0* R=NULL;
/*IF*/if (((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r52count(((T52*)((((T393*)((T393*)a1)))->_list/*4*/)))/*)*/)==(0))) {
R=(T0*)C;
}
else {
{T529*n=malloc(sizeof(*n));
*n=M529;
r529make(n,(T0*)C,a1);
R=(T0*)n;
}
}
/*FI*/return R;
}
/*No:INTEGER_CONSTANT.to_integer*/
int r342is_a(T342* C,T0* a1){
int R=0;
R=X291is_a(/*(IRF4.4run_type*/((T0*)((T788*)r342result_type()))/*)*/,X291run_type(X662result_type(a1)));
/*IF*/if (!(R)) {
r683add_position((((T342*)C))->_start_position/*12*/);
r342error(X662start_position(a1),((T0*)ms4_662));
}
/*FI*/return R;
}
/*No:INTEGER_CONSTANT.is_current*/
/*No:INTEGER_CONSTANT.jvm_branch_if_false*/
/*No:INTEGER_CONSTANT.static_value*/
void r342make(T342* C,int a1,T0* a2){
C->_value=a1;
C->_start_position=a2;
}
/*No:INTEGER_CONSTANT.compile_to_jvm_assignment*/
/*No:INTEGER_CONSTANT.fz_iinaiv*/
/*No:INTEGER_CONSTANT.jvm_branch_if_true*/
void r342unary_minus(T342* C){
C->_value=-((((T342*)C))->_value/*16*/);
}
/*No:INTEGER_CONSTANT.start_position*/
/*No:INTEGER_CONSTANT.compile_to_jvm_old*/
T0* r342to_runnable(T342* C,T0* a1){
T0* R=NULL;
/*IF*/if (((((T342*)C))->_current_type/*8*/)==((void*)(NULL))) {
C->_current_type=a1;
R=(T0*)C;
}
else {
R=r342twin(C);
/*[IRF3.3set_current_type*/((((T342*)(((T342*)R))))->_current_type)=(a1);
/*]*/
}
/*FI*/return R;
}
int fBC342result_type=0;
T0*oBC342result_type=NULL;
T0* r342result_type(void){
if (fBC342result_type==0){
T0* R=NULL;
fBC342result_type=1;
{T788*n=malloc(sizeof(*n));
*n=M788;
r788make(n,NULL);
R=(T0*)n;
}
oBC342result_type=R;}
return oBC342result_type;}
/*No:INTEGER_CONSTANT.is_result*/
T0* r342twin(T342* C){
T0* R=NULL;
R=malloc(sizeof(*C));
*((T342*)R)=*C;
return R;
}
/*No:INTEGER_CONSTANT.set_current_type*/
int r342is_static(T342* C){
int R=0;
C->_static_value_mem=(((T342*)C))->_value/*16*/;
R=1;
return R;
}
int r342compile_to_jvm_into(T342* C,T0* a1){
int R=0;
R=r342standard_compile_to_jvm_into(C,a1);
return R;
}
/*No:INTEGER_CONSTANT.compile_target_to_jvm*/
/*No:INTEGER_CONSTANT.value*/
/*No:INTEGER_CONSTANT.can_be_dropped*/
/*No:INTEGER_CONSTANT.current_type*/
/*No:INTEGER_CONSTANT.jvm_assign*/
/*No:INTEGER_CONSTANT.static_value_mem*/
/*No:INTEGER_CONSTANT.is_manifest_string*/
/*No:INTEGER_CONSTANT.is_void*/
/*No:INTEGER_CONSTANT.compile_to_jvm*/
T0* r342to_real_constant(T342* C){
T0* R=NULL;
{T936*n=malloc(sizeof(*n));
*n=M936;
r936make(n,(((T342*)C))->_start_position/*12*/,r2to_string((((T342*)C))->_value/*16*/));
R=(T0*)n;
}
return R;
}
/*No:INTEGER_CONSTANT.is_pre_computable*/
/*No:INTEGER_CONSTANT.use_current*/
void r342error(T0* a1,T0* a2){
r683add_position(a1);
r683error(((T683*)(oBC364eh)),a2);
}
int r342isa_dca_inline_argument(T342* C){
int R=0;
/*IF*/if (r342is_static(C)) {
R=-(1);
}
/*FI*/return R;
}
int r342standard_compile_to_jvm_into(T342* C,T0* a1){
int R=0;
/*[IRF3.6compile_to_jvm*/{T342* C1=C;
r256opcode_push_integer(((T256*)(oBC364code_attribute)),(((T342*)C1))->_value/*16*/);
}/*]*/
R=X291jvm_convert_to(/*(IRF4.4run_type*/((T0*)((T788*)r342result_type()))/*)*/,a1);
return R;
}
/*No:INTEGER_CONSTANT.afd_check*/