home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
sa104os2.zip
/
SATHR104.ZIP
/
SATHER
/
BOOT
/
CS.COD
/
CODE7.C
< prev
next >
Wrap
C/C++ Source or Header
|
1995-02-15
|
66KB
|
2,562 lines
/* C code generated by Sather 1.0 compiler */
#include "sather.h"
#include "strings.h"
INLINE INLINE_TBL_elt_I(INLINE_TBL_elt_I_frame frame) {
INLINE dummy;
INLINE local0;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if ((!((frame->arg0==((INLINE_TBL) NULL))))) {
{
frame->nested1 = ALLOCATE(INLINE_TBL_aelt__frame);
frame->nested1->state = 0;
while (1) {
if (frame->nested1->state == 0) {
frame->noname8040 = frame->arg0;
frame->nested1->arg0 = frame->noname8040;
}
local0 = INLINE_TBL_aelt_(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
frame->r_8041 = local0;
if ((!(INLINE_TBL_elt_e(frame->arg0, frame->r_8041, INLINE_TBL_elt_n(frame->arg0))))) {
frame->state = 1;
return frame->r_8041;
state1:;
}
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
}
if (!INLINE_TBL_invar(frame->arg0)) {
fprintf(stderr,"Failed invariant INLINE_TBL::invariant:BOOL ../Library/fqset.sa:105:6\n");
exit(16);
}
frame->state = -1;
return dummy;
}
INLINE INLINE_TBL_aelt_(INLINE_TBL_aelt__frame frame) {
INLINE dummy;
INT local0;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if (!((!((frame->arg0==((INLINE_TBL) NULL)))))) {
fprintf(stderr,"Violation of precondition ../Library/aref.sa:48:7\n");
exit(16);
}
{
frame->nested1 = ALLOCATE(INT_times_INT_frame);
frame->nested1->state = 0;
while (1) {
frame->state = 1;
if (frame->nested1->state == 0) {
frame->noname8044 = (frame->arg0->asize);
frame->nested1->arg0 = frame->noname8044;
}
local0 = INT_times_INT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
return INLINE_TBL_aget_(frame->arg0, local0);
state1:;
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
frame->state = -1;
return dummy;
}
void INLINE_TBL_aset_(INLINE_TBL_aset__frame frame) {
INT local0;
INT local1;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if (!((!((frame->arg0==((INLINE_TBL) NULL)))))) {
fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
exit(16);
}
{
frame->nested1 = ALLOCATE(INT_times_INT_frame);
frame->nested1->state = 0;
while (1) {
if (frame->nested1->state == 0) {
frame->noname8046 = (frame->arg0->asize);
frame->nested1->arg0 = frame->noname8046;
}
local0 = INT_times_INT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
local1 = local0;
INLINE_TBL_aset__333(frame->arg0, local1, frame->arg1);
frame->state = 1;
return;
state1:;
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
frame->state = -1;
return;
}
void TP_ROUT_TBL_aset(TP_ROUT_TBL_aset_frame frame) {
INT local0;
INT local1;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if (!((!((frame->arg0==((TP_ROUT_TBL) NULL)))))) {
fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
exit(16);
}
{
frame->nested1 = ALLOCATE(INT_times_INT_frame);
frame->nested1->state = 0;
while (1) {
if (frame->nested1->state == 0) {
frame->noname8048 = (frame->arg0->asize);
frame->nested1->arg0 = frame->noname8048;
}
local0 = INT_times_INT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
local1 = local0;
TP_ROUT_TBL_aset_232(frame->arg0, local1, frame->arg1);
frame->state = 1;
return;
state1:;
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
frame->state = -1;
return;
}
void TP_CLASS_TBL_ase(TP_CLASS_TBL_ase_frame frame) {
INT local0;
INT local1;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if (!((!((frame->arg0==((TP_CLASS_TBL) NULL)))))) {
fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
exit(16);
}
{
frame->nested1 = ALLOCATE(INT_times_INT_frame);
frame->nested1->state = 0;
while (1) {
if (frame->nested1->state == 0) {
frame->noname8050 = (frame->arg0->asize);
frame->nested1->arg0 = frame->noname8050;
}
local0 = INT_times_INT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
local1 = local0;
TP_CLASS_TBL_ase_170(frame->arg0, local1, frame->arg1);
frame->state = 1;
return;
state1:;
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
frame->state = -1;
return;
}
BOOL TP_CLASS_is_neq_(TP_CLASS self, TP t_8052) {
BOOL noname8053 = ((BOOL) 0);
return (!(c_SYS_ob_eq_OB_OB_BOOL(((OB) self),((OB) t_8052))));
}
BOOL TP_ROUT_is_neq_T(TP_ROUT self, TP t_8054) {
BOOL noname8055 = ((BOOL) 0);
return (!(c_SYS_ob_eq_OB_OB_BOOL(((OB) self),((OB) t_8054))));
}
BOOL TP_ITER_is_neq_T(TP_ITER self, TP t_8056) {
BOOL noname8057 = ((BOOL) 0);
return (!(c_SYS_ob_eq_OB_OB_BOOL(((OB) self),((OB) t_8056))));
}
BOOL IDENT_TBL_invari(IDENT_TBL self) {
BOOL noname8058 = ((BOOL) 0);
BOOL local0;
INT local1;
INT local2;
if ((self==((IDENT_TBL) NULL))) {
local0 = TRUE;
} else {
local1 = self->hsize;
local2 = 0;
local0 = INT_is_bet_INT_I(local1, local2, (self->asize));
}
return local0;
}
IDENT IDENT_TBL_elt_IDENT(IDENT_TBL_elt_IDENT_frame frame) {
IDENT dummy;
IDENT local0;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if ((!((frame->arg0==((IDENT_TBL) NULL))))) {
{
frame->nested1 = ALLOCATE(IDENT_TBL_aelt_IDENT_frame);
frame->nested1->state = 0;
while (1) {
if (frame->nested1->state == 0) {
frame->noname8060 = frame->arg0;
frame->nested1->arg0 = frame->noname8060;
}
local0 = IDENT_TBL_aelt_IDENT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
frame->r_8061 = local0;
if ((!(IDENT_TBL_elt_eq(frame->arg0, frame->r_8061, IDENT_TBL_elt_ni(frame->arg0))))) {
frame->state = 1;
return frame->r_8061;
state1:;
}
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
}
if (!IDENT_TBL_invari(frame->arg0)) {
fprintf(stderr,"Failed invariant IDENT_TBL::invariant:BOOL ../Library/fqset.sa:105:6\n");
exit(16);
}
frame->state = -1;
return dummy;
}
IDENT IDENT_TBL_aelt_IDENT(IDENT_TBL_aelt_IDENT_frame frame) {
IDENT dummy;
INT local0;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if (!((!((frame->arg0==((IDENT_TBL) NULL)))))) {
fprintf(stderr,"Violation of precondition ../Library/aref.sa:48:7\n");
exit(16);
}
{
frame->nested1 = ALLOCATE(INT_times_INT_frame);
frame->nested1->state = 0;
while (1) {
frame->state = 1;
if (frame->nested1->state == 0) {
frame->noname8064 = (frame->arg0->asize);
frame->nested1->arg0 = frame->noname8064;
}
local0 = INT_times_INT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
return IDENT_TBL_aget_I(frame->arg0, local0);
state1:;
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
frame->state = -1;
return dummy;
}
void IDENT_TBL_aset_IDENT(IDENT_TBL_aset_IDENT_frame frame) {
INT local0;
INT local1;
switch (frame->state) {
case 0: goto state0;
case 1: goto state1;
}
state0:;
if (!((!((frame->arg0==((IDENT_TBL) NULL)))))) {
fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
exit(16);
}
{
frame->nested1 = ALLOCATE(INT_times_INT_frame);
frame->nested1->state = 0;
while (1) {
if (frame->nested1->state == 0) {
frame->noname8066 = (frame->arg0->asize);
frame->nested1->arg0 = frame->noname8066;
}
local0 = INT_times_INT(frame->nested1);
if (frame->nested1->state == -1) goto after_loop;
local1 = local0;
IDENT_TBL_aset_I(frame->arg0, local1, frame->arg1);
frame->state = 1;
return;
state1:;
}
}
after_loop: ;
GC_free(frame->nested1); frame->nested1 = NULL;
frame->state = -1;
return;
}
int main(int argc, char *argv[]) {
CS main_ob;
ARRAYSTR main_args;
int i,j,length;
STR s;
shared_INTI_B = INT_pow_INT_INT(2, shared_INTI_log2B);
shared_INTI_D = INT_pow_INT_INT(10, shared_INTI_log10D);
shared_FLTD_log10_2 = FLTD_log10_FLTD(20000000000000000e-16);
main_ob = ((CS) sbi_alloc_atomic(sizeof(struct CS_struct), CS_tag));
main_args = ((ARRAYSTR) sbi_arr_alloc(sizeof(struct ARRAYSTR_struct), ARRAYSTR_tag, sizeof(STR) , argc));
main_args->asize = argc;
for (i=0;i<argc;i++) {
for (length=0; argv[i][length]!=0; length++);
s = ((STR) sbi_arr_alloc_atomic(sizeof(struct STR_struct), STR_tag, sizeof(CHAR) , length));
s->asize = length;
for (j=0;j<length;j++) s->arr_part[j] = argv[i][j];
main_args->arr_part[i] = s;
}
signal(SIGSEGV,(void(*)())sbi_segfault_handler);
if (setjmp(last_protect) == 0) {
return sather_main(main_ob,main_args);
} else {
if (exception->header.tag==STR_tag) fprintf(stderr,"Uncaught STR exception: %s\n",((STR)exception)->arr_part);
else fprintf(stderr,"Uncaught exception\n");
exit(16);
}
}
STR c_SYS_str_for_tp_INT_STR(SYS p,INT i) {
switch (i) {
case TP_ITER_tag: return ((STR) &TP_ITER_8092);
case TR_IF_STMT_tag: return ((STR) &TR_IF_STMT_8093);
case TR_INT_LIT_EXPR_tag: return ((STR) &TR_INT_LIT_EXPR_8094);
case TR_ASSERT_STMT_tag: return ((STR) &TR_ASSERT_STMT_8095);
case TR_ATTR_DEF_tag: return ((STR) &TR_ATTR_DEF_8096);
case BOOL_tag: return ((STR) &BOOL_8097);
case CHAR_tag: return ((STR) &CHAR_8098);
case INT_tag: return ((STR) &INT_8099);
case INTI_tag: return ((STR) &INTI_8100);
case TR_LOOP_STMT_tag: return ((STR) &TR_LOOP_STMT_8101);
case TUPSTRSTR_tag: return ((STR) &TUPSTRSTR_8102);
case FMAPSTRTUPSTRSTR_tag: return ((STR) &FMAPSTRTUPSTRSTR_8103);
case TR_SELF_EXPR_tag: return ((STR) &TR_SELF_EXPR_8104);
case STR_tag: return ((STR) &STR_8105);
case ARRAYSTR_tag: return ((STR) &ARRAYSTR_8106);
case TUPSFILE_IDSFILE_ID_tag: return ((STR) &TUPSFILE_IDSFILE_8107);
case TR_TRY_STMT_tag: return ((STR) &TR_TRY_STMT_8108);
case TR_ARRAY_EXPR_tag: return ((STR) &TR_ARRAY_EXPR_8109);
case FSETTP_CLASS_tag: return ((STR) &FSETTP_CLASS_8110);
case FMAPTP_CLASSFSET_tag: return ((STR) &FMAPTP_CLASSFSET_8111);
case FMAPSTRITER_INLINE_tag: return ((STR) &FMAPSTRITER_INLI_8112);
case TP_ITER_TBL_tag: return ((STR) &TP_ITER_TBL_8113);
case TUPSIGAM_ROUT_DEF_tag: return ((STR) &TUPSIGAM_ROUT_DE_8114);
case TUPARRAYTPARRAYB_tag: return ((STR) &TUPARRAYTPARRAYB_8115);
case AM_BND_CREATE_EXPR_tag: return ((STR) &AM_BND_CREATE_EX_8116);
case FSETOB_tag: return ((STR) &FSETOB_8117);
case TR_OR_EXPR_tag: return ((STR) &TR_OR_EXPR_8118);
case TUPAM_BND_ITER_C_tag: return ((STR) &TUPAM_BND_ITER_C_8119);
case TUPSTRFSETSTR_tag: return ((STR) &TUPSTRFSETSTR_8120);
case TUPTPINT_tag: return ((STR) &TUPTPINT_8121);
case TUPTP_CLASSFSETT_tag: return ((STR) &TUPTP_CLASSFSETT_8122);
case TR_EXCEPT_EXPR_tag: return ((STR) &TR_EXCEPT_EXPR_8123);
case ARRAYINT_tag: return ((STR) &ARRAYINT_8124);
case TR_DIST_STMT_tag: return ((STR) &TR_DIST_STMT_8125);
case TR_BREAK_EXPR_tag: return ((STR) &TR_BREAK_EXPR_8126);
case TUPOBSTR_tag: return ((STR) &TUPOBSTR_8127);
case TR_BOUND_CREATE_EXPR_tag: return ((STR) &TR_BOUND_CREATE__8128);
case FLISTTR_EXPR_tag: return ((STR) &FLISTTR_EXPR_8129);
case TR_CHAR_LIT_EXPR_tag: return ((STR) &TR_CHAR_LIT_EXPR_8130);
case TR_CALL_EXPR_tag: return ((STR) &TR_CALL_EXPR_8131);
case TR_EXPR_STMT_tag: return ((STR) &TR_EXPR_STMT_8132);
case ITER_INLINE_tag: return ((STR) &ITER_INLINE_8133);
case BE_tag: return ((STR) &BE_8134);
case FLISTIDENT_tag: return ((STR) &FLISTIDENT_8135);
case TP_GRAPH_DES_tag: return ((STR) &TP_GRAPH_DES_8136);
case CALL_TP_CREATE_tag: return ((STR) &CALL_TP_CREATE_8137);
case PROG_tag: return ((STR) &PROG_8138);
case TP_CLASS_tag: return ((STR) &TP_CLASS_8139);
case PROG_AM_GENERATE_tag: return ((STR) &PROG_AM_GENERATE_8140);
case FSETTP_tag: return ((STR) &FSETTP_8141);
case FMAPTP_CLASSFSETTP_tag: return ((STR) &FMAPTP_CLASSFSET_8142);
case AM_YIELD_STMT_tag: return ((STR) &AM_YIELD_STMT_8143);
case TR_TYPECASE_WHEN_tag: return ((STR) &TR_TYPECASE_WHEN_8144);
case FLISTTP_CLASS_tag: return ((STR) &FLISTTP_CLASS_8145);
case FLISTSIG_tag: return ((STR) &FLISTSIG_8146);
case PROG_TR_TBL_tag: return ((STR) &PROG_TR_TBL_8147);
case AM_LOOP_STMT_tag: return ((STR) &AM_LOOP_STMT_8148);
case IDENT_tag: return ((STR) &IDENT_8149);
case TUPIDENTINT_tag: return ((STR) &TUPIDENTINT_8150);
case FSETTUPIDENTINT_tag: return ((STR) &FSETTUPIDENTINT_8151);
case AM_INITIAL_STMT_tag: return ((STR) &AM_INITIAL_STMT_8152);
case AM_ITER_CALL_EXPR_tag: return ((STR) &AM_ITER_CALL_EXP_8153);
case FLISTAM_ITER_CAL_tag: return ((STR) &FLISTAM_ITER_CAL_8154);
case TR_AND_EXPR_tag: return ((STR) &TR_AND_EXPR_8155);
case ARRAYARRAYSTR_tag: return ((STR) &ARRAYARRAYSTR_8156);
case AM_BREAK_STMT_tag: return ((STR) &AM_BREAK_STMT_8157);
case FMAPTPINT_tag: return ((STR) &FMAPTPINT_8158);
case AM_BND_ITER_CALL_tag: return ((STR) &AM_BND_ITER_CALL_8159);
case FLISTAM_BND_ITER_tag: return ((STR) &FLISTAM_BND_ITER_8160);
case TUPAM_BND_CREATE_tag: return ((STR) &TUPAM_BND_CREATE_8161);
case ARRAYIDENT_tag: return ((STR) &ARRAYIDENT_8162);
case TR_IS_VOID_EXPR_tag: return ((STR) &TR_IS_VOID_EXPR_8163);
case AM_INTI_CONST_tag: return ((STR) &AM_INTI_CONST_8164);
case ELT_tag: return ((STR) &ELT_8165);
case AM_PROTECT_STMT_tag: return ((STR) &AM_PROTECT_STMT_8166);
case TUPAM_ITER_CALL__tag: return ((STR) &TUPAM_ITER_CALL__8167);
case FLISTTP_tag: return ((STR) &FLISTTP_8168);
case AM_STR_CONST_tag: return ((STR) &AM_STR_CONST_8169);
case TUPTPFMAPIDENTAM_tag: return ((STR) &TUPTPFMAPIDENTAM_8170);
case FLISTSFILE_ID_tag: return ((STR) &FLISTSFILE_ID_8171);
case TP_GRAPH_tag: return ((STR) &TP_GRAPH_8172);
case TR_STR_LIT_EXPR_tag: return ((STR) &TR_STR_LIT_EXPR_8173);
case TR_FORK_STMT_tag: return ((STR) &TR_FORK_STMT_8174);
case TP_GRAPH_ANC_tag: return ((STR) &TP_GRAPH_ANC_8175);
case AM_FLTDX_CONST_tag: return ((STR) &AM_FLTDX_CONST_8176);
case TUPCHARCHAR_tag: return ((STR) &TUPCHARCHAR_8177);
case TUPIDENTTP_tag: return ((STR) &TUPIDENTTP_8178);
case TR_ARG_DEC_tag: return ((STR) &TR_ARG_DEC_8179);
case TR_PROTECT_STMT_tag: return ((STR) &TR_PROTECT_STMT_8180);
case INLINE_TBL_tag: return ((STR) &INLINE_TBL_8181);
case TR_PROTECT_WHEN_tag: return ((STR) &TR_PROTECT_WHEN_8182);
case ARRAYBOOL_tag: return ((STR) &ARRAYBOOL_8183);
case IDENT_BUILTIN_tag: return ((STR) &IDENT_BUILTIN_8184);
case FSETIDENT_tag: return ((STR) &FSETIDENT_8185);
case TR_QUIT_STMT_tag: return ((STR) &TR_QUIT_STMT_8186);
case TUPTR_EXPRTR_EXPR_tag: return ((STR) &TUPTR_EXPRTR_EXP_8187);
case TP_BUILTIN_tag: return ((STR) &TP_BUILTIN_8188);
case TP_GRAPH_ABS_DES_tag: return ((STR) &TP_GRAPH_ABS_DES_8189);
case TR_CASE_STMT_tag: return ((STR) &TR_CASE_STMT_8190);
case TUPAM_CONSTAM_CONST_tag: return ((STR) &TUPAM_CONSTAM_CO_8191);
case AM_FLTI_CONST_tag: return ((STR) &AM_FLTI_CONST_8192);
case TR_FAR_EXPR_tag: return ((STR) &TR_FAR_EXPR_8193);
case IFC_TBL_tag: return ((STR) &IFC_TBL_8194);
case TR_CASE_WHEN_tag: return ((STR) &TR_CASE_WHEN_8195);
case TUPAM_ROUT_DEFAM_tag: return ((STR) &TUPAM_ROUT_DEFAM_8196);
case PROG_GET_MAIN_tag: return ((STR) &PROG_GET_MAIN_8197);
case TUPTPTP_tag: return ((STR) &TUPTPTP_8198);
case TR_RAISE_STMT_tag: return ((STR) &TR_RAISE_STMT_8199);
case SCANNER_tag: return ((STR) &SCANNER_8200);
case FMAPTPIFC_tag: return ((STR) &FMAPTPIFC_8201);
case FLISTAM_ROUT_DEF_tag: return ((STR) &FLISTAM_ROUT_DEF_8202);
case TUPTPIFC_tag: return ((STR) &TUPTPIFC_8203);
case TUPAM_STMTAM_STMT_tag: return ((STR) &TUPAM_STMTAM_STM_8204);
case FLISTAM_BND_CREA_tag: return ((STR) &FLISTAM_BND_CREA_8205);
case TR_UNDERSCORE_ARG_tag: return ((STR) &TR_UNDERSCORE_AR_8206);
case CALL_TP_ARRAY_tag: return ((STR) &CALL_TP_ARRAY_8207);
case IMPL_tag: return ((STR) &IMPL_8208);
case TR_CREATE_EXPR_tag: return ((STR) &TR_CREATE_EXPR_8209);
case IFC_tag: return ((STR) &IFC_8210);
case AM_FLT_CONST_tag: return ((STR) &AM_FLT_CONST_8211);
case ARRAYCALL_TP_tag: return ((STR) &ARRAYCALL_TP_8212);
case TR_TYPE_SPEC_tag: return ((STR) &TR_TYPE_SPEC_8213);
case IFC_ABS_CREATE_tag: return ((STR) &IFC_ABS_CREATE_8214);
case TR_BOOL_LIT_EXPR_tag: return ((STR) &TR_BOOL_LIT_EXPR_8215);
case AM_RAISE_STMT_tag: return ((STR) &AM_RAISE_STMT_8216);
case TR_FLT_LIT_EXPR_tag: return ((STR) &TR_FLT_LIT_EXPR_8217);
case FMAPSIGAM_ROUT_DEF_tag: return ((STR) &FMAPSIGAM_ROUT_D_8218);
case TP_ROUT_TBL_tag: return ((STR) &TP_ROUT_TBL_8219);
case TUPARRAYTPTP_tag: return ((STR) &TUPARRAYTPTP_8220);
case TR_WHERE_EXPR_tag: return ((STR) &TR_WHERE_EXPR_8221);
case SFILE_ID_tag: return ((STR) &SFILE_ID_8222);
case IMPL_TBL_tag: return ((STR) &IMPL_TBL_8223);
case FLISTAM_EXPR_tag: return ((STR) &FLISTAM_EXPR_8224);
case FMAPSTRFSETSTR_tag: return ((STR) &FMAPSTRFSETSTR_8225);
case BE_LEX_tag: return ((STR) &BE_LEX_8226);
case FMAPTPIMPL_tag: return ((STR) &FMAPTPIMPL_8227);
case FLISTAM_LOCAL_EXPR_tag: return ((STR) &FLISTAM_LOCAL_EX_8228);
case FLISTIFC_tag: return ((STR) &FLISTIFC_8229);
case FMAPSTRSTR_tag: return ((STR) &FMAPSTRSTR_8230);
case FILE_20_tag: return ((STR) &FILE_8231);
case TUPFLISTAM_CONST_tag: return ((STR) &TUPFLISTAM_CONST_8232);
case TR_HERE_EXPR_tag: return ((STR) &TR_HERE_EXPR_8233);
case AM_IF_STMT_tag: return ((STR) &AM_IF_STMT_8234);
case TUPSTRITER_INLINE_tag: return ((STR) &TUPSTRITER_INLIN_8235);
case AM_IF_EXPR_tag: return ((STR) &AM_IF_EXPR_8236);
case AM_PRE_STMT_tag: return ((STR) &AM_PRE_STMT_8237);
case TP_ROUT_tag: return ((STR) &TP_ROUT_8238);
case TUPAM_GLOBAL_EXP_tag: return ((STR) &TUPAM_GLOBAL_EXP_8239);
case AM_POST_STMT_tag: return ((STR) &AM_POST_STMT_8240);
case TUPSIGSIG_tag: return ((STR) &TUPSIGSIG_8241);
case AM_GLOBAL_EXPR_tag: return ((STR) &AM_GLOBAL_EXPR_8242);
case INLINE_GLOBAL_READ_tag: return ((STR) &INLINE_GLOBAL_RE_8243);
case AM_ASSIGN_STMT_tag: return ((STR) &AM_ASSIGN_STMT_8244);
case TUPTP_CLASSFSETTP_tag: return ((STR) &TUPTP_CLASSFSETT_8245);
case PROG_AM_CHECK_tag: return ((STR) &PROG_AM_CHECK_8246);
case TR_CLASS_DEF_tag: return ((STR) &TR_CLASS_DEF_8247);
case TR_NEAR_EXPR_tag: return ((STR) &TR_NEAR_EXPR_8248);
case INLINE_ATTR_WRITE_tag: return ((STR) &INLINE_ATTR_WRIT_8249);
case INLINE_INT_FOLD_tag: return ((STR) &INLINE_INT_FOLD_8250);
case AM_INVARIANT_STMT_tag: return ((STR) &AM_INVARIANT_STM_8251);
case CALL_SIG_tag: return ((STR) &CALL_SIG_8252);
case TP_TBL_tag: return ((STR) &TP_TBL_8253);
case AM_TYPECASE_STMT_tag: return ((STR) &AM_TYPECASE_STMT_8254);
case ARRAYTP_tag: return ((STR) &ARRAYTP_8255);
case AM_ASSERT_STMT_tag: return ((STR) &AM_ASSERT_STMT_8256);
case TR_COBEGIN_STMT_tag: return ((STR) &TR_COBEGIN_STMT_8257);
case AM_EXPR_STMT_tag: return ((STR) &AM_EXPR_STMT_8258);
case TUPTPIMPL_tag: return ((STR) &TUPTPIMPL_8259);
case AM_ARRAY_EXPR_tag: return ((STR) &AM_ARRAY_EXPR_8260);
case TUPIDENTAM_GLOBA_tag: return ((STR) &TUPIDENTAM_GLOBA_8261);
case TUPAM_LOCAL_EXPR_tag: return ((STR) &TUPAM_LOCAL_EXPR_8262);
case TR_AT_EXPR_tag: return ((STR) &TR_AT_EXPR_8263);
case AM_NEW_EXPR_tag: return ((STR) &AM_NEW_EXPR_8264);
case TR_UNLOCK_STMT_tag: return ((STR) &TR_UNLOCK_STMT_8265);
case TR_PARAM_DEC_tag: return ((STR) &TR_PARAM_DEC_8266);
case AM_IS_VOID_EXPR_tag: return ((STR) &AM_IS_VOID_EXPR_8267);
case AM_INT_CONST_tag: return ((STR) &AM_INT_CONST_8268);
case TUPAM_EXPRAM_EXPR_tag: return ((STR) &TUPAM_EXPRAM_EXP_8269);
case AM_ARR_CONST_tag: return ((STR) &AM_ARR_CONST_8270);
case FLISTIMPL_INCLUDE_tag: return ((STR) &FLISTIMPL_INCLUD_8271);
case IDENT_TBL_tag: return ((STR) &IDENT_TBL_8272);
case CALL_TP_VOID_tag: return ((STR) &CALL_TP_VOID_8273);
case TUPIMPL_INCLUDEI_tag: return ((STR) &TUPIMPL_INCLUDEI_8274);
case AM_ARR_EXPR_tag: return ((STR) &AM_ARR_EXPR_8275);
case FLISTINT_tag: return ((STR) &FLISTINT_8276);
case AM_VARR_ASSIGN_EXPR_tag: return ((STR) &AM_VARR_ASSIGN_E_8277);
case TR_RESULT_EXPR_tag: return ((STR) &TR_RESULT_EXPR_8278);
case AM_VATTR_ASSIGN_EXPR_tag: return ((STR) &AM_VATTR_ASSIGN__8279);
case PROG_IFC_CONFORMANCE_tag: return ((STR) &PROG_IFC_CONFORM_8280);
case TR_VOID_EXPR_tag: return ((STR) &TR_VOID_EXPR_8281);
case TUPINTINTINT_tag: return ((STR) &TUPINTINTINT_8282);
case GLOBAL_TBL_tag: return ((STR) &GLOBAL_TBL_8283);
case AM_OB_DEF_tag: return ((STR) &AM_OB_DEF_8284);
case IMPL_INCLUDE_tag: return ((STR) &IMPL_INCLUDE_8285);
case CALL_TP_UNDERSCORE_tag: return ((STR) &CALL_TP_UNDERSCO_8286);
case FMAPIDENTAM_GLOB_tag: return ((STR) &FMAPIDENTAM_GLOB_8287);
case FMAPTPFMAPIDENTA_tag: return ((STR) &FMAPTPFMAPIDENTA_8288);
case AM_BND_ROUT_CALL_tag: return ((STR) &AM_BND_ROUT_CALL_8289);
case PARSER_tag: return ((STR) &PARSER_8290);
case TR_INCLUDE_CLAUSE_tag: return ((STR) &TR_INCLUDE_CLAUS_8291);
case FMAPIDENTTP_tag: return ((STR) &FMAPIDENTTP_8292);
case TUPSTRTUPSTRSTR_tag: return ((STR) &TUPSTRTUPSTRSTR_8293);
case AM_VOID_CONST_tag: return ((STR) &AM_VOID_CONST_8294);
case FLISTAM_GLOBAL_EXPR_tag: return ((STR) &FLISTAM_GLOBAL_E_8295);
case AM_BOOL_CONST_tag: return ((STR) &AM_BOOL_CONST_8296);
case AM_ROUT_CALL_EXPR_tag: return ((STR) &AM_ROUT_CALL_EXP_8297);
case TRANS_tag: return ((STR) &TRANS_8298);
case INLINE_ATTR_READ_tag: return ((STR) &INLINE_ATTR_READ_8299);
case TUPIDENTIDENT_tag: return ((STR) &TUPIDENTIDENT_8300);
case AM_CHAR_CONST_tag: return ((STR) &AM_CHAR_CONST_8301);
case AM_ROUT_DEF_tag: return ((STR) &AM_ROUT_DEF_8302);
case OPTIONS_tag: return ((STR) &OPTIONS_8303);
case TP_CLASS_TBL_tag: return ((STR) &TP_CLASS_TBL_8304);
case TR_ASSIGN_STMT_tag: return ((STR) &TR_ASSIGN_STMT_8305);
case AM_LOCAL_EXPR_tag: return ((STR) &AM_LOCAL_EXPR_8306);
case TR_FEAT_MOD_tag: return ((STR) &TR_FEAT_MOD_8307);
case FSETSTR_tag: return ((STR) &FSETSTR_8308);
case TUPIDENTARRAYTP_tag: return ((STR) &TUPIDENTARRAYTP_8309);
case FSETTR_FEAT_MOD_tag: return ((STR) &FSETTR_FEAT_MOD_8310);
case TR_INITIAL_EXPR_tag: return ((STR) &TR_INITIAL_EXPR_8311);
case PROG_PARSE_tag: return ((STR) &PROG_PARSE_8312);
case TUPINTINT_tag: return ((STR) &TUPINTINT_8313);
case TUPAM_EXPRTP_tag: return ((STR) &TUPAM_EXPRTP_8314);
case TUPBOOLINTIINTBOOL_tag: return ((STR) &TUPBOOLINTIINTBO_8315);
case ELT_TBL_tag: return ((STR) &ELT_TBL_8316);
case TUPIFCIFC_tag: return ((STR) &TUPIFCIFC_8317);
case PROG_FIND_TYPES_tag: return ((STR) &PROG_FIND_TYPES_8318);
case AM_FLTD_CONST_tag: return ((STR) &AM_FLTD_CONST_8319);
case AM_FLTX_CONST_tag: return ((STR) &AM_FLTX_CONST_8320);
case PROG_TYPE_GRAPH_tag: return ((STR) &PROG_TYPE_GRAPH_8321);
case FSTR_tag: return ((STR) &FSTR_8322);
case AM_CASE_STMT_tag: return ((STR) &AM_CASE_STMT_8323);
case FLISTSTR_tag: return ((STR) &FLISTSTR_8324);
case TR_LOCK_STMT_tag: return ((STR) &TR_LOCK_STMT_8325);
case FLISTAM_CONST_tag: return ((STR) &FLISTAM_CONST_8326);
case IMPL_CREATE_tag: return ((STR) &IMPL_CREATE_8327);
case FLISTFLISTAM_CONST_tag: return ((STR) &FLISTFLISTAM_CON_8328);
case CS_tag: return ((STR) &CS_8329);
case TR_DEC_STMT_tag: return ((STR) &TR_DEC_STMT_8330);
case FMAPOBSTR_tag: return ((STR) &FMAPOBSTR_8331);
case AM_ATTR_EXPR_tag: return ((STR) &AM_ATTR_EXPR_8332);
case AM_RETURN_STMT_tag: return ((STR) &AM_RETURN_STMT_8333);
case FLISTAM_STMT_tag: return ((STR) &FLISTAM_STMT_8334);
case TR_NEW_EXPR_tag: return ((STR) &TR_NEW_EXPR_8335);
case TR_WITH_NEAR_STMT_tag: return ((STR) &TR_WITH_NEAR_STM_8336);
case AM_EXT_CALL_EXPR_tag: return ((STR) &AM_EXT_CALL_EXPR_8337);
case TR_IDENT_LIST_tag: return ((STR) &TR_IDENT_LIST_8338);
case TR_RETURN_STMT_tag: return ((STR) &TR_RETURN_STMT_8339);
case AM_EXCEPT_EXPR_tag: return ((STR) &AM_EXCEPT_EXPR_8340);
case TR_YIELD_STMT_tag: return ((STR) &TR_YIELD_STMT_8341);
case TUPTP_CLASSTP_CLASS_tag: return ((STR) &TUPTP_CLASSTP_CL_8342);
case AM_STMT_EXPR_tag: return ((STR) &AM_STMT_EXPR_8343);
case ARRAYAM_EXPR_tag: return ((STR) &ARRAYAM_EXPR_8344);
case SIG_TBL_tag: return ((STR) &SIG_TBL_8345);
case TP_CONTEXT_tag: return ((STR) &TP_CONTEXT_8346);
case TR_CONST_DEF_tag: return ((STR) &TR_CONST_DEF_8347);
case TR_SHARED_DEF_tag: return ((STR) &TR_SHARED_DEF_8348);
case SIG_tag: return ((STR) &SIG_8349);
case TR_TYPECASE_STMT_tag: return ((STR) &TR_TYPECASE_STMT_8350);
case TR_ROUT_DEF_tag: return ((STR) &TR_ROUT_DEF_8351);
default: fprintf(stderr,"Internal error: unknown tag?\n"); exit(16);
}
}
BOOL c_SYS_ob_eq_OB_OB_BOOL(OB o1,OB o2) {
INT t1,t2;
if (o1==o2) return TRUE;
if (o1==NULL || o2==NULL) return FALSE;
t1 = o1->header.tag; t2 = o2->header.tag;
if (t1!=t2) return FALSE;
switch (t1) {
case BOOL_tag:
{BOOL v1,v2;
v1 = ((BOOL_boxed)o1)->value_part;
v2 = ((BOOL_boxed)o2)->value_part;
return (v1==v2);}
case CHAR_tag:
{CHAR v1,v2;
v1 = ((CHAR_boxed)o1)->value_part;
v2 = ((CHAR_boxed)o2)->value_part;
return (v1==v2);}
case INT_tag:
{INT v1,v2;
v1 = ((INT_boxed)o1)->value_part;
v2 = ((INT_boxed)o2)->value_part;
return (v1==v2);}
case TUPSTRSTR_tag:
{TUPSTRSTR v1,v2;
v1 = ((TUPSTRSTR_boxed)o1)->value_part;
v2 = ((TUPSTRSTR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPSFILE_IDSFILE_ID_tag:
{TUPSFILE_IDSFILE_ID v1,v2;
v1 = ((TUPSFILE_IDSFILE_ID_boxed)o1)->value_part;
v2 = ((TUPSFILE_IDSFILE_ID_boxed)o2)->value_part;
return (v1.t1.loc_17==v2.t1.loc_17)&&(v1.t2.loc_17==v2.t2.loc_17);}
case TUPSIGAM_ROUT_DEF_tag:
{TUPSIGAM_ROUT_DEF v1,v2;
v1 = ((TUPSIGAM_ROUT_DEF_boxed)o1)->value_part;
v2 = ((TUPSIGAM_ROUT_DEF_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPARRAYTPARRAYB_tag:
{TUPARRAYTPARRAYB v1,v2;
v1 = ((TUPARRAYTPARRAYB_boxed)o1)->value_part;
v2 = ((TUPARRAYTPARRAYB_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2)&&(v1.t3==v2.t3);}
case TUPAM_BND_ITER_C_tag:
{TUPAM_BND_ITER_C v1,v2;
v1 = ((TUPAM_BND_ITER_C_boxed)o1)->value_part;
v2 = ((TUPAM_BND_ITER_C_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPSTRFSETSTR_tag:
{TUPSTRFSETSTR v1,v2;
v1 = ((TUPSTRFSETSTR_boxed)o1)->value_part;
v2 = ((TUPSTRFSETSTR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTPINT_tag:
{TUPTPINT v1,v2;
v1 = ((TUPTPINT_boxed)o1)->value_part;
v2 = ((TUPTPINT_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTP_CLASSFSETT_tag:
{TUPTP_CLASSFSETT v1,v2;
v1 = ((TUPTP_CLASSFSETT_boxed)o1)->value_part;
v2 = ((TUPTP_CLASSFSETT_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPOBSTR_tag:
{TUPOBSTR v1,v2;
v1 = ((TUPOBSTR_boxed)o1)->value_part;
v2 = ((TUPOBSTR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case IDENT_tag:
{IDENT v1,v2;
v1 = ((IDENT_boxed)o1)->value_part;
v2 = ((IDENT_boxed)o2)->value_part;
return (v1.str_4==v2.str_4);}
case TUPIDENTINT_tag:
{TUPIDENTINT v1,v2;
v1 = ((TUPIDENTINT_boxed)o1)->value_part;
v2 = ((TUPIDENTINT_boxed)o2)->value_part;
return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
case TUPAM_BND_CREATE_tag:
{TUPAM_BND_CREATE v1,v2;
v1 = ((TUPAM_BND_CREATE_boxed)o1)->value_part;
v2 = ((TUPAM_BND_CREATE_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_ITER_CALL__tag:
{TUPAM_ITER_CALL_ v1,v2;
v1 = ((TUPAM_ITER_CALL__boxed)o1)->value_part;
v2 = ((TUPAM_ITER_CALL__boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTPFMAPIDENTAM_tag:
{TUPTPFMAPIDENTAM v1,v2;
v1 = ((TUPTPFMAPIDENTAM_boxed)o1)->value_part;
v2 = ((TUPTPFMAPIDENTAM_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPCHARCHAR_tag:
{TUPCHARCHAR v1,v2;
v1 = ((TUPCHARCHAR_boxed)o1)->value_part;
v2 = ((TUPCHARCHAR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPIDENTTP_tag:
{TUPIDENTTP v1,v2;
v1 = ((TUPIDENTTP_boxed)o1)->value_part;
v2 = ((TUPIDENTTP_boxed)o2)->value_part;
return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
case TUPTR_EXPRTR_EXPR_tag:
{TUPTR_EXPRTR_EXPR v1,v2;
v1 = ((TUPTR_EXPRTR_EXPR_boxed)o1)->value_part;
v2 = ((TUPTR_EXPRTR_EXPR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_CONSTAM_CONST_tag:
{TUPAM_CONSTAM_CONST v1,v2;
v1 = ((TUPAM_CONSTAM_CONST_boxed)o1)->value_part;
v2 = ((TUPAM_CONSTAM_CONST_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_ROUT_DEFAM_tag:
{TUPAM_ROUT_DEFAM v1,v2;
v1 = ((TUPAM_ROUT_DEFAM_boxed)o1)->value_part;
v2 = ((TUPAM_ROUT_DEFAM_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTPTP_tag:
{TUPTPTP v1,v2;
v1 = ((TUPTPTP_boxed)o1)->value_part;
v2 = ((TUPTPTP_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTPIFC_tag:
{TUPTPIFC v1,v2;
v1 = ((TUPTPIFC_boxed)o1)->value_part;
v2 = ((TUPTPIFC_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_STMTAM_STMT_tag:
{TUPAM_STMTAM_STMT v1,v2;
v1 = ((TUPAM_STMTAM_STMT_boxed)o1)->value_part;
v2 = ((TUPAM_STMTAM_STMT_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPARRAYTPTP_tag:
{TUPARRAYTPTP v1,v2;
v1 = ((TUPARRAYTPTP_boxed)o1)->value_part;
v2 = ((TUPARRAYTPTP_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case SFILE_ID_tag:
{SFILE_ID v1,v2;
v1 = ((SFILE_ID_boxed)o1)->value_part;
v2 = ((SFILE_ID_boxed)o2)->value_part;
return (v1.loc_17==v2.loc_17);}
case TUPFLISTAM_CONST_tag:
{TUPFLISTAM_CONST v1,v2;
v1 = ((TUPFLISTAM_CONST_boxed)o1)->value_part;
v2 = ((TUPFLISTAM_CONST_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPSTRITER_INLINE_tag:
{TUPSTRITER_INLINE v1,v2;
v1 = ((TUPSTRITER_INLINE_boxed)o1)->value_part;
v2 = ((TUPSTRITER_INLINE_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_GLOBAL_EXP_tag:
{TUPAM_GLOBAL_EXP v1,v2;
v1 = ((TUPAM_GLOBAL_EXP_boxed)o1)->value_part;
v2 = ((TUPAM_GLOBAL_EXP_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPSIGSIG_tag:
{TUPSIGSIG v1,v2;
v1 = ((TUPSIGSIG_boxed)o1)->value_part;
v2 = ((TUPSIGSIG_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTP_CLASSFSETTP_tag:
{TUPTP_CLASSFSETTP v1,v2;
v1 = ((TUPTP_CLASSFSETTP_boxed)o1)->value_part;
v2 = ((TUPTP_CLASSFSETTP_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTPIMPL_tag:
{TUPTPIMPL v1,v2;
v1 = ((TUPTPIMPL_boxed)o1)->value_part;
v2 = ((TUPTPIMPL_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPIDENTAM_GLOBA_tag:
{TUPIDENTAM_GLOBA v1,v2;
v1 = ((TUPIDENTAM_GLOBA_boxed)o1)->value_part;
v2 = ((TUPIDENTAM_GLOBA_boxed)o2)->value_part;
return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
case TUPAM_LOCAL_EXPR_tag:
{TUPAM_LOCAL_EXPR v1,v2;
v1 = ((TUPAM_LOCAL_EXPR_boxed)o1)->value_part;
v2 = ((TUPAM_LOCAL_EXPR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_EXPRAM_EXPR_tag:
{TUPAM_EXPRAM_EXPR v1,v2;
v1 = ((TUPAM_EXPRAM_EXPR_boxed)o1)->value_part;
v2 = ((TUPAM_EXPRAM_EXPR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPIMPL_INCLUDEI_tag:
{TUPIMPL_INCLUDEI v1,v2;
v1 = ((TUPIMPL_INCLUDEI_boxed)o1)->value_part;
v2 = ((TUPIMPL_INCLUDEI_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPINTINTINT_tag:
{TUPINTINTINT v1,v2;
v1 = ((TUPINTINTINT_boxed)o1)->value_part;
v2 = ((TUPINTINTINT_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2)&&(v1.t3==v2.t3);}
case TUPSTRTUPSTRSTR_tag:
{TUPSTRTUPSTRSTR v1,v2;
v1 = ((TUPSTRTUPSTRSTR_boxed)o1)->value_part;
v2 = ((TUPSTRTUPSTRSTR_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2.t1==v2.t2.t1)&&(v1.t2.t2==v2.t2.t2);}
case TUPIDENTIDENT_tag:
{TUPIDENTIDENT v1,v2;
v1 = ((TUPIDENTIDENT_boxed)o1)->value_part;
v2 = ((TUPIDENTIDENT_boxed)o2)->value_part;
return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2.str_4==v2.t2.str_4);}
case TUPIDENTARRAYTP_tag:
{TUPIDENTARRAYTP v1,v2;
v1 = ((TUPIDENTARRAYTP_boxed)o1)->value_part;
v2 = ((TUPIDENTARRAYTP_boxed)o2)->value_part;
return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
case TUPINTINT_tag:
{TUPINTINT v1,v2;
v1 = ((TUPINTINT_boxed)o1)->value_part;
v2 = ((TUPINTINT_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPAM_EXPRTP_tag:
{TUPAM_EXPRTP v1,v2;
v1 = ((TUPAM_EXPRTP_boxed)o1)->value_part;
v2 = ((TUPAM_EXPRTP_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPBOOLINTIINTBOOL_tag:
{TUPBOOLINTIINTBOOL v1,v2;
v1 = ((TUPBOOLINTIINTBOOL_boxed)o1)->value_part;
v2 = ((TUPBOOLINTIINTBOOL_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2)&&(v1.t4==v2.t4)&&(v1.t3==v2.t3);}
case TUPIFCIFC_tag:
{TUPIFCIFC v1,v2;
v1 = ((TUPIFCIFC_boxed)o1)->value_part;
v2 = ((TUPIFCIFC_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
case TUPTP_CLASSTP_CLASS_tag:
{TUPTP_CLASSTP_CLASS v1,v2;
v1 = ((TUPTP_CLASSTP_CLASS_boxed)o1)->value_part;
v2 = ((TUPTP_CLASSTP_CLASS_boxed)o2)->value_part;
return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
default: return FALSE;
}
}
SIG INLINE_INT_FOLD__8352(INLINE_INT_FOLD self) {
return self->sig_6;
}
SIG INLINE_ATTR_READ_8353(INLINE_ATTR_READ self) {
return self->sig_6;
}
SIG INLINE_GLOBAL_RE_8354(INLINE_GLOBAL_READ self) {
return self->sig_6;
}
SIG INLINE_ATTR_WRIT_8355(INLINE_ATTR_WRITE self) {
return self->sig_6;
}
SIG INLINE_VATTR_REA_8356(INLINE_VATTR_READ self) {
return self->sig_6;
}
SIG INLINE_VARR_READ_8357(INLINE_VARR_READ self) {
return self->sig_6;
}
SIG INLINE_ARR_READ__8358(INLINE_ARR_READ self) {
return self->sig_6;
}
SIG INLINE_VATTR_WRI_8359(INLINE_VATTR_WRITE self) {
return self->sig_6;
}
SIG INLINE_ARR_WRITE_8360(INLINE_ARR_WRITE self) {
return self->sig_6;
}
SIG INLINE_VARR_WRIT_8361(INLINE_VARR_WRITE self) {
return self->sig_6;
}
SIG INLINE_BUILTIN_s(INLINE_BUILTIN self) {
return self->sig_6;
}
SFILE_ID TR_CLASS_DEF_sou(TR_CLASS_DEF self) {
return self->source_38;
}
SFILE_ID TR_PARAM_DEC_sou(TR_PARAM_DEC self) {
return self->source_38;
}
SFILE_ID TR_TYPE_SPEC_sou(TR_TYPE_SPEC self) {
return self->source_38;
}
SFILE_ID TR_ROUT_DEF_sour(TR_ROUT_DEF self) {
return self->source_38;
}
SFILE_ID TR_ARG_DEC_sourc(TR_ARG_DEC self) {
return self->source_38;
}
SFILE_ID TR_INCLUDE_CLAUS_8362(TR_INCLUDE_CLAUSE self) {
return self->source_38;
}
SFILE_ID TR_FEAT_MOD_sour(TR_FEAT_MOD self) {
return self->source_38;
}
SFILE_ID TR_CONST_DEF_sou(TR_CONST_DEF self) {
return self->source_38;
}
SFILE_ID TR_INT_LIT_EXPR__8363(TR_INT_LIT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_FLT_LIT_EXPR__8364(TR_FLT_LIT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_CALL_EXPR_sou(TR_CALL_EXPR self) {
return self->source_38;
}
SFILE_ID TR_SELF_EXPR_sou(TR_SELF_EXPR self) {
return self->source_38;
}
SFILE_ID TR_IS_VOID_EXPR__8365(TR_IS_VOID_EXPR self) {
return self->source_38;
}
SFILE_ID TR_VOID_EXPR_sou(TR_VOID_EXPR self) {
return self->source_38;
}
SFILE_ID TR_NEW_EXPR_sour(TR_NEW_EXPR self) {
return self->source_38;
}
SFILE_ID TR_BOUND_CREATE__8366(TR_BOUND_CREATE_EXPR self) {
return self->source_38;
}
SFILE_ID TR_UNDERSCORE_AR_8367(TR_UNDERSCORE_ARG self) {
return self->source_38;
}
SFILE_ID TR_CREATE_EXPR_s_8368(TR_CREATE_EXPR self) {
return self->source_38;
}
SFILE_ID TR_ARRAY_EXPR_so(TR_ARRAY_EXPR self) {
return self->source_38;
}
SFILE_ID TR_EXCEPT_EXPR_s_8369(TR_EXCEPT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_INITIAL_EXPR__8370(TR_INITIAL_EXPR self) {
return self->source_38;
}
SFILE_ID TR_RESULT_EXPR_s_8371(TR_RESULT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_BOOL_LIT_EXPR_8372(TR_BOOL_LIT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_CHAR_LIT_EXPR_8373(TR_CHAR_LIT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_STR_LIT_EXPR__8374(TR_STR_LIT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_HERE_EXPR_sou(TR_HERE_EXPR self) {
return self->source_38;
}
SFILE_ID TR_WHERE_EXPR_so(TR_WHERE_EXPR self) {
return self->source_38;
}
SFILE_ID TR_NEAR_EXPR_sou(TR_NEAR_EXPR self) {
return self->source_38;
}
SFILE_ID TR_FAR_EXPR_sour(TR_FAR_EXPR self) {
return self->source_38;
}
SFILE_ID TR_AND_EXPR_sour(TR_AND_EXPR self) {
return self->source_38;
}
SFILE_ID TR_OR_EXPR_sourc(TR_OR_EXPR self) {
return self->source_38;
}
SFILE_ID TR_AT_EXPR_sourc(TR_AT_EXPR self) {
return self->source_38;
}
SFILE_ID TR_SHARED_DEF_so(TR_SHARED_DEF self) {
return self->source_38;
}
SFILE_ID TR_ATTR_DEF_sour(TR_ATTR_DEF self) {
return self->source_38;
}
SFILE_ID TR_IF_STMT_sourc(TR_IF_STMT self) {
return self->source_38;
}
SFILE_ID TR_LOOP_STMT_sou(TR_LOOP_STMT self) {
return self->source_38;
}
SFILE_ID TR_RETURN_STMT_s(TR_RETURN_STMT self) {
return self->source_38;
}
SFILE_ID TR_YIELD_STMT_so(TR_YIELD_STMT self) {
return self->source_38;
}
SFILE_ID TR_QUIT_STMT_sou(TR_QUIT_STMT self) {
return self->source_38;
}
SFILE_ID TR_CASE_STMT_sou(TR_CASE_STMT self) {
return self->source_38;
}
SFILE_ID TR_CASE_WHEN_sou(TR_CASE_WHEN self) {
return self->source_38;
}
SFILE_ID TR_TYPECASE_STMT_8375(TR_TYPECASE_STMT self) {
return self->source_38;
}
SFILE_ID TR_TYPECASE_WHEN_8376(TR_TYPECASE_WHEN self) {
return self->source_38;
}
SFILE_ID TR_ASSERT_STMT_s(TR_ASSERT_STMT self) {
return self->source_38;
}
SFILE_ID TR_PROTECT_STMT__8377(TR_PROTECT_STMT self) {
return self->source_38;
}
SFILE_ID TR_PROTECT_WHEN__8378(TR_PROTECT_WHEN self) {
return self->source_38;
}
SFILE_ID TR_RAISE_STMT_so(TR_RAISE_STMT self) {
return self->source_38;
}
SFILE_ID TR_COBEGIN_STMT__8379(TR_COBEGIN_STMT self) {
return self->source_38;
}
SFILE_ID TR_LOCK_STMT_sou(TR_LOCK_STMT self) {
return self->source_38;
}
SFILE_ID TR_UNLOCK_STMT_s(TR_UNLOCK_STMT self) {
return self->source_38;
}
SFILE_ID TR_TRY_STMT_sour(TR_TRY_STMT self) {
return self->source_38;
}
SFILE_ID TR_WITH_NEAR_STM_8380(TR_WITH_NEAR_STMT self) {
return self->source_38;
}
SFILE_ID TR_IDENT_LIST_so(TR_IDENT_LIST self) {
return self->source_38;
}
SFILE_ID TR_DIST_STMT_sou(TR_DIST_STMT self) {
return self->source_38;
}
SFILE_ID TR_FORK_STMT_sou(TR_FORK_STMT self) {
return self->source_38;
}
SFILE_ID TR_EXPR_STMT_sou(TR_EXPR_STMT self) {
return self->source_38;
}
SFILE_ID TR_BREAK_EXPR_so(TR_BREAK_EXPR self) {
return self->source_38;
}
SFILE_ID TR_ASSIGN_STMT_s(TR_ASSIGN_STMT self) {
return self->source_38;
}
SFILE_ID TR_DEC_STMT_sour(TR_DEC_STMT self) {
return self->source_38;
}
SFILE_ID AM_LOCAL_EXPR_so(AM_LOCAL_EXPR self) {
return self->source_38;
}
SFILE_ID AM_BND_CREATE_EX_8381(AM_BND_CREATE_EXPR self) {
return self->source_38;
}
SFILE_ID AM_GLOBAL_EXPR_s(AM_GLOBAL_EXPR self) {
return self->source_38;
}
SFILE_ID AM_LOOP_STMT_sou(AM_LOOP_STMT self) {
return self->source_38;
}
SFILE_ID AM_STR_CONST_sou(AM_STR_CONST self) {
return self->source_38;
}
SFILE_ID AM_OB_DEF_source(AM_OB_DEF self) {
return self->source_38;
}
SFILE_ID AM_ROUT_DEF_sour(AM_ROUT_DEF self) {
return self->source_38;
}
SFILE_ID AM_ARRAY_EXPR_so(AM_ARRAY_EXPR self) {
return self->source_38;
}
SFILE_ID AM_IF_EXPR_sourc(AM_IF_EXPR self) {
return self->source_38;
}
SFILE_ID AM_NEW_EXPR_sour(AM_NEW_EXPR self) {
return self->source_38;
}
SFILE_ID AM_IS_VOID_EXPR__8382(AM_IS_VOID_EXPR self) {
return self->source_38;
}
SFILE_ID AM_ATTR_EXPR_sou(AM_ATTR_EXPR self) {
return self->source_38;
}
SFILE_ID AM_ARR_EXPR_sour(AM_ARR_EXPR self) {
return self->source_38;
}
SFILE_ID AM_VATTR_ASSIGN__8383(AM_VATTR_ASSIGN_EXPR self) {
return self->source_38;
}
SFILE_ID AM_VARR_ASSIGN_E_8384(AM_VARR_ASSIGN_EXPR self) {
return self->source_38;
}
SFILE_ID AM_EXCEPT_EXPR_s(AM_EXCEPT_EXPR self) {
return self->source_38;
}
SFILE_ID AM_STMT_EXPR_sou(AM_STMT_EXPR self) {
return self->source_38;
}
SFILE_ID AM_ROUT_CALL_EXP_8385(AM_ROUT_CALL_EXPR self) {
return self->source_38;
}
SFILE_ID AM_ITER_CALL_EXP_8386(AM_ITER_CALL_EXPR self) {
return self->source_38;
}
SFILE_ID AM_BND_ROUT_CALL_8387(AM_BND_ROUT_CALL self) {
return self->source_38;
}
SFILE_ID AM_BND_ITER_CALL_8388(AM_BND_ITER_CALL self) {
return self->source_38;
}
SFILE_ID AM_EXT_CALL_EXPR_8389(AM_EXT_CALL_EXPR self) {
return self->source_38;
}
SFILE_ID AM_VOID_CONST_so(AM_VOID_CONST self) {
return self->source_38;
}
SFILE_ID AM_ARR_CONST_sou(AM_ARR_CONST self) {
return self->source_38;
}
SFILE_ID AM_BOOL_CONST_so(AM_BOOL_CONST self) {
return self->source_38;
}
SFILE_ID AM_CHAR_CONST_so(AM_CHAR_CONST self) {
return self->source_38;
}
SFILE_ID AM_INT_CONST_sou(AM_INT_CONST self) {
return self->source_38;
}
SFILE_ID AM_INTI_CONST_so(AM_INTI_CONST self) {
return self->source_38;
}
SFILE_ID AM_FLT_CONST_sou(AM_FLT_CONST self) {
return self->source_38;
}
SFILE_ID AM_FLTD_CONST_so(AM_FLTD_CONST self) {
return self->source_38;
}
SFILE_ID AM_FLTX_CONST_so(AM_FLTX_CONST self) {
return self->source_38;
}
SFILE_ID AM_FLTDX_CONST_s(AM_FLTDX_CONST self) {
return self->source_38;
}
SFILE_ID AM_FLTI_CONST_so(AM_FLTI_CONST self) {
return self->source_38;
}
SFILE_ID AM_ASSIGN_STMT_s(AM_ASSIGN_STMT self) {
return self->source_38;
}
SFILE_ID AM_IF_STMT_sourc(AM_IF_STMT self) {
return self->source_38;
}
SFILE_ID AM_BREAK_STMT_so(AM_BREAK_STMT self) {
return self->source_38;
}
SFILE_ID AM_RETURN_STMT_s(AM_RETURN_STMT self) {
return self->source_38;
}
SFILE_ID AM_YIELD_STMT_so(AM_YIELD_STMT self) {
return self->source_38;
}
SFILE_ID AM_CASE_STMT_sou(AM_CASE_STMT self) {
return self->source_38;
}
SFILE_ID AM_TYPECASE_STMT_8390(AM_TYPECASE_STMT self) {
return self->source_38;
}
SFILE_ID AM_PRE_STMT_sour(AM_PRE_STMT self) {
return self->source_38;
}
SFILE_ID AM_POST_STMT_sou(AM_POST_STMT self) {
return self->source_38;
}
SFILE_ID AM_INITIAL_STMT__8391(AM_INITIAL_STMT self) {
return self->source_38;
}
SFILE_ID AM_ASSERT_STMT_s(AM_ASSERT_STMT self) {
return self->source_38;
}
SFILE_ID AM_INVARIANT_STM_8392(AM_INVARIANT_STMT self) {
return self->source_38;
}
SFILE_ID AM_PROTECT_STMT__8393(AM_PROTECT_STMT self) {
return self->source_38;
}
SFILE_ID AM_RAISE_STMT_so(AM_RAISE_STMT self) {
return self->source_38;
}
SFILE_ID AM_EXPR_STMT_sou(AM_EXPR_STMT self) {
return self->source_38;
}
SFILE_ID TR_CLASS_ELT_sou_8394(TR_CLASS_ELT_45 self) {
return self->source_38;
}
SFILE_ID TR_EXPR_source_S_8395(TR_EXPR_52 self) {
return self->source_38;
}
SFILE_ID AM_CONST_source_(AM_CONST_53 self) {
return self->source_38;
}
SFILE_ID TR_STMT_source_S_8396(TR_STMT_39 self) {
return self->source_38;
}
INT TUPBOOLINTIINTBO_7880_unbox(TUPBOOLINTIINTBOOL_boxed arg0) {
return TUPBOOLINTIINTBO_7880(arg0->value_part);
}
INT TUPAM_EXPRTP_has_unbox(TUPAM_EXPRTP_boxed arg0) {
return TUPAM_EXPRTP_has(arg0->value_part);
}
INT TUPFLISTAM_CONST_7883_unbox(TUPFLISTAM_CONST_boxed arg0) {
return TUPFLISTAM_CONST_7883(arg0->value_part);
}
INT TUPOBSTR_hash_INT_unbox(TUPOBSTR_boxed arg0) {
return TUPOBSTR_hash_INT(arg0->value_part);
}
INT TUPINTINT_hash_INT_unbox(TUPINTINT_boxed arg0) {
return TUPINTINT_hash_INT(arg0->value_part);
}
INT TUPAM_STMTAM_STM_unbox(TUPAM_STMTAM_STMT_boxed arg0) {
return TUPAM_STMTAM_STM(arg0->value_part);
}
INT TUPTP_CLASSTP_CL_unbox(TUPTP_CLASSTP_CLASS_boxed arg0) {
return TUPTP_CLASSTP_CL(arg0->value_part);
}
INT TUPTPIFC_hash_INT_unbox(TUPTPIFC_boxed arg0) {
return TUPTPIFC_hash_INT(arg0->value_part);
}
INT TUPAM_EXPRAM_EXP_unbox(TUPAM_EXPRAM_EXPR_boxed arg0) {
return TUPAM_EXPRAM_EXP(arg0->value_part);
}
INT TUPIDENTARRAYTP__7891_unbox(TUPIDENTARRAYTP_boxed arg0) {
return TUPIDENTARRAYTP__7891(arg0->value_part);
}
INT TUPIDENTTP_hash_INT_unbox(TUPIDENTTP_boxed arg0) {
return TUPIDENTTP_hash_INT(arg0->value_part);
}
INT TUPCHARCHAR_hash_INT_unbox(TUPCHARCHAR_boxed arg0) {
return TUPCHARCHAR_hash_INT(arg0->value_part);
}
INT TUPTP_CLASSFSETT_7896_unbox(TUPTP_CLASSFSETT_boxed arg0) {
return TUPTP_CLASSFSETT_7896(arg0->value_part);
}
INT TUPIDENTIDENT_ha_unbox(TUPIDENTIDENT_boxed arg0) {
return TUPIDENTIDENT_ha(arg0->value_part);
}
INT TUPIDENTINT_hash_INT_unbox(TUPIDENTINT_boxed arg0) {
return TUPIDENTINT_hash_INT(arg0->value_part);
}
INT TUPTPINT_hash_INT_unbox(TUPTPINT_boxed arg0) {
return TUPTPINT_hash_INT(arg0->value_part);
}
INT TUPTPTP_hash_INT_unbox(TUPTPTP_boxed arg0) {
return TUPTPTP_hash_INT(arg0->value_part);
}
INT TUPAM_ROUT_DEFAM_7901_unbox(TUPAM_ROUT_DEFAM_boxed arg0) {
return TUPAM_ROUT_DEFAM_7901(arg0->value_part);
}
INT TUPSTRFSETSTR_ha_unbox(TUPSTRFSETSTR_boxed arg0) {
return TUPSTRFSETSTR_ha(arg0->value_part);
}
INT TUPAM_LOCAL_EXPR_7904_unbox(TUPAM_LOCAL_EXPR_boxed arg0) {
return TUPAM_LOCAL_EXPR_7904(arg0->value_part);
}
INT TUPAM_BND_ITER_C_7906_unbox(TUPAM_BND_ITER_C_boxed arg0) {
return TUPAM_BND_ITER_C_7906(arg0->value_part);
}
INT TUPIDENTAM_GLOBA_7908_unbox(TUPIDENTAM_GLOBA_boxed arg0) {
return TUPIDENTAM_GLOBA_7908(arg0->value_part);
}
INT TUPARRAYTPARRAYB_7910_unbox(TUPARRAYTPARRAYB_boxed arg0) {
return TUPARRAYTPARRAYB_7910(arg0->value_part);
}
INT TUPSIGAM_ROUT_DE_7912_unbox(TUPSIGAM_ROUT_DEF_boxed arg0) {
return TUPSIGAM_ROUT_DE_7912(arg0->value_part);
}
INT TUPTPIMPL_hash_INT_unbox(TUPTPIMPL_boxed arg0) {
return TUPTPIMPL_hash_INT(arg0->value_part);
}
INT TUPSTRTUPSTRSTR__7916_unbox(TUPSTRTUPSTRSTR_boxed arg0) {
return TUPSTRTUPSTRSTR__7916(arg0->value_part);
}
INT TUPAM_CONSTAM_CO_unbox(TUPAM_CONSTAM_CONST_boxed arg0) {
return TUPAM_CONSTAM_CO(arg0->value_part);
}
INT TUPARRAYTPTP_has_unbox(TUPARRAYTPTP_boxed arg0) {
return TUPARRAYTPTP_has(arg0->value_part);
}
INT TUPTPFMAPIDENTAM_7920_unbox(TUPTPFMAPIDENTAM_boxed arg0) {
return TUPTPFMAPIDENTAM_7920(arg0->value_part);
}
INT TUPTR_EXPRTR_EXP_unbox(TUPTR_EXPRTR_EXPR_boxed arg0) {
return TUPTR_EXPRTR_EXP(arg0->value_part);
}
INT TUPAM_ITER_CALL__7923_unbox(TUPAM_ITER_CALL__boxed arg0) {
return TUPAM_ITER_CALL__7923(arg0->value_part);
}
INT TUPSFILE_IDSFILE_unbox(TUPSFILE_IDSFILE_ID_boxed arg0) {
return TUPSFILE_IDSFILE(arg0->value_part);
}
INT TUPINTINTINT_has_unbox(TUPINTINTINT_boxed arg0) {
return TUPINTINTINT_has(arg0->value_part);
}
INT TUPSTRSTR_hash_INT_unbox(TUPSTRSTR_boxed arg0) {
return TUPSTRSTR_hash_INT(arg0->value_part);
}
INT TUPTP_CLASSFSETT_7927_unbox(TUPTP_CLASSFSETTP_boxed arg0) {
return TUPTP_CLASSFSETT_7927(arg0->value_part);
}
INT INT_hash_INT_unbox(INT_boxed arg0) {
return INT_hash_INT(arg0->value_part);
}
INT CHAR_hash_INT_unbox(CHAR_boxed arg0) {
return CHAR_hash_INT(arg0->value_part);
}
INT TUPSIGSIG_hash_INT_unbox(TUPSIGSIG_boxed arg0) {
return TUPSIGSIG_hash_INT(arg0->value_part);
}
INT TUPAM_GLOBAL_EXP_7934_unbox(TUPAM_GLOBAL_EXP_boxed arg0) {
return TUPAM_GLOBAL_EXP_7934(arg0->value_part);
}
INT TUPSTRITER_INLIN_7936_unbox(TUPSTRITER_INLINE_boxed arg0) {
return TUPSTRITER_INLIN_7936(arg0->value_part);
}
INT TUPIFCIFC_hash_INT_unbox(TUPIFCIFC_boxed arg0) {
return TUPIFCIFC_hash_INT(arg0->value_part);
}
INT TUPAM_BND_CREATE_7939_unbox(TUPAM_BND_CREATE_boxed arg0) {
return TUPAM_BND_CREATE_7939(arg0->value_part);
}
INT TUPIMPL_INCLUDEI_7941_unbox(TUPIMPL_INCLUDEI_boxed arg0) {
return TUPIMPL_INCLUDEI_7941(arg0->value_part);
}
INT IDENT_hash_INT_unbox(IDENT_boxed arg0) {
return IDENT_hash_INT(arg0->value_part);
}
void TR_INT_LIT_EXPR__8397(TR_INT_LIT_EXPR self, SFILE_ID source_8398) {
self->source_38 = source_8398;
}
void TR_FLT_LIT_EXPR__8399(TR_FLT_LIT_EXPR self, SFILE_ID source_8400) {
self->source_38 = source_8400;
}
void TR_CALL_EXPR_sou_8401(TR_CALL_EXPR self, SFILE_ID source_8402) {
self->source_38 = source_8402;
}
void TR_SELF_EXPR_sou_8403(TR_SELF_EXPR self, SFILE_ID source_8404) {
self->source_38 = source_8404;
}
void TR_IS_VOID_EXPR__8405(TR_IS_VOID_EXPR self, SFILE_ID source_8406) {
self->source_38 = source_8406;
}
void TR_VOID_EXPR_sou_8407(TR_VOID_EXPR self, SFILE_ID source_8408) {
self->source_38 = source_8408;
}
void TR_NEW_EXPR_sour_8409(TR_NEW_EXPR self, SFILE_ID source_8410) {
self->source_38 = source_8410;
}
void TR_BOUND_CREATE__8411(TR_BOUND_CREATE_EXPR self, SFILE_ID source_8412) {
self->source_38 = source_8412;
}
void TR_UNDERSCORE_AR_8413(TR_UNDERSCORE_ARG self, SFILE_ID source_8414) {
self->source_38 = source_8414;
}
void TR_CREATE_EXPR_s_8415(TR_CREATE_EXPR self, SFILE_ID source_8416) {
self->source_38 = source_8416;
}
void TR_ARRAY_EXPR_so_8417(TR_ARRAY_EXPR self, SFILE_ID source_8418) {
self->source_38 = source_8418;
}
void TR_EXCEPT_EXPR_s_8419(TR_EXCEPT_EXPR self, SFILE_ID source_8420) {
self->source_38 = source_8420;
}
void TR_INITIAL_EXPR__8421(TR_INITIAL_EXPR self, SFILE_ID source_8422) {
self->source_38 = source_8422;
}
void TR_RESULT_EXPR_s_8423(TR_RESULT_EXPR self, SFILE_ID source_8424) {
self->source_38 = source_8424;
}
void TR_BOOL_LIT_EXPR_8425(TR_BOOL_LIT_EXPR self, SFILE_ID source_8426) {
self->source_38 = source_8426;
}
void TR_CHAR_LIT_EXPR_8427(TR_CHAR_LIT_EXPR self, SFILE_ID source_8428) {
self->source_38 = source_8428;
}
void TR_STR_LIT_EXPR__8429(TR_STR_LIT_EXPR self, SFILE_ID source_8430) {
self->source_38 = source_8430;
}
void TR_HERE_EXPR_sou_8431(TR_HERE_EXPR self, SFILE_ID source_8432) {
self->source_38 = source_8432;
}
void TR_WHERE_EXPR_so_8433(TR_WHERE_EXPR self, SFILE_ID source_8434) {
self->source_38 = source_8434;
}
void TR_NEAR_EXPR_sou_8435(TR_NEAR_EXPR self, SFILE_ID source_8436) {
self->source_38 = source_8436;
}
void TR_FAR_EXPR_sour_8437(TR_FAR_EXPR self, SFILE_ID source_8438) {
self->source_38 = source_8438;
}
void TR_AND_EXPR_sour_8439(TR_AND_EXPR self, SFILE_ID source_8440) {
self->source_38 = source_8440;
}
void TR_OR_EXPR_sourc_8441(TR_OR_EXPR self, SFILE_ID source_8442) {
self->source_38 = source_8442;
}
void TR_AT_EXPR_sourc_8443(TR_AT_EXPR self, SFILE_ID source_8444) {
self->source_38 = source_8444;
}
void TR_BREAK_EXPR_so_8445(TR_BREAK_EXPR self, SFILE_ID source_8446) {
self->source_38 = source_8446;
}
void TR_EXPR_source_S_8447(TR_EXPR_52 self, SFILE_ID source_8448) {
self->source_38 = source_8448;
}
TR_EXPR TR_INT_LIT_EXPR__8449(TR_INT_LIT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_FLT_LIT_EXPR__8450(TR_FLT_LIT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_CALL_EXPR_nex(TR_CALL_EXPR self) {
return self->next_8;
}
TR_EXPR TR_SELF_EXPR_nex(TR_SELF_EXPR self) {
return self->next_8;
}
TR_EXPR TR_IS_VOID_EXPR__8451(TR_IS_VOID_EXPR self) {
return self->next_8;
}
TR_EXPR TR_VOID_EXPR_nex(TR_VOID_EXPR self) {
return self->next_8;
}
TR_EXPR TR_NEW_EXPR_next(TR_NEW_EXPR self) {
return self->next_8;
}
TR_EXPR TR_BOUND_CREATE__8452(TR_BOUND_CREATE_EXPR self) {
return self->next_8;
}
TR_EXPR TR_UNDERSCORE_AR_8453(TR_UNDERSCORE_ARG self) {
return self->next_8;
}
TR_EXPR TR_CREATE_EXPR_n(TR_CREATE_EXPR self) {
return self->next_8;
}
TR_EXPR TR_ARRAY_EXPR_ne(TR_ARRAY_EXPR self) {
return self->next_8;
}
TR_EXPR TR_EXCEPT_EXPR_n(TR_EXCEPT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_INITIAL_EXPR__8454(TR_INITIAL_EXPR self) {
return self->next_8;
}
TR_EXPR TR_RESULT_EXPR_n(TR_RESULT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_BOOL_LIT_EXPR_8455(TR_BOOL_LIT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_CHAR_LIT_EXPR_8456(TR_CHAR_LIT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_STR_LIT_EXPR__8457(TR_STR_LIT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_HERE_EXPR_nex(TR_HERE_EXPR self) {
return self->next_8;
}
TR_EXPR TR_WHERE_EXPR_ne(TR_WHERE_EXPR self) {
return self->next_8;
}
TR_EXPR TR_NEAR_EXPR_nex(TR_NEAR_EXPR self) {
return self->next_8;
}
TR_EXPR TR_FAR_EXPR_next(TR_FAR_EXPR self) {
return self->next_8;
}
TR_EXPR TR_AND_EXPR_next(TR_AND_EXPR self) {
return self->next_8;
}
TR_EXPR TR_OR_EXPR_next_(TR_OR_EXPR self) {
return self->next_8;
}
TR_EXPR TR_AT_EXPR_next_(TR_AT_EXPR self) {
return self->next_8;
}
TR_EXPR TR_BREAK_EXPR_ne(TR_BREAK_EXPR self) {
return self->next_8;
}
TR_EXPR TR_EXPR_next_TR__8458(TR_EXPR_52 self) {
return self->next_8;
}
TR_CLASS_ELT TR_ROUT_DEF_next(TR_ROUT_DEF self) {
return self->next_8;
}
TR_CLASS_ELT TR_INCLUDE_CLAUS_8459(TR_INCLUDE_CLAUSE self) {
return self->next_8;
}
TR_CLASS_ELT TR_CONST_DEF_nex(TR_CONST_DEF self) {
return self->next_8;
}
TR_CLASS_ELT TR_SHARED_DEF_ne(TR_SHARED_DEF self) {
return self->next_8;
}
TR_CLASS_ELT TR_ATTR_DEF_next(TR_ATTR_DEF self) {
return self->next_8;
}
TR_CLASS_ELT TR_CLASS_ELT_nex_8460(TR_CLASS_ELT_45 self) {
return self->next_8;
}
void TR_IF_STMT_sourc_8461(TR_IF_STMT self, SFILE_ID source_8462) {
self->source_38 = source_8462;
}
void TR_LOOP_STMT_sou_8463(TR_LOOP_STMT self, SFILE_ID source_8464) {
self->source_38 = source_8464;
}
void TR_RETURN_STMT_s_8465(TR_RETURN_STMT self, SFILE_ID source_8466) {
self->source_38 = source_8466;
}
void TR_YIELD_STMT_so_8467(TR_YIELD_STMT self, SFILE_ID source_8468) {
self->source_38 = source_8468;
}
void TR_QUIT_STMT_sou_8469(TR_QUIT_STMT self, SFILE_ID source_8470) {
self->source_38 = source_8470;
}
void TR_CASE_STMT_sou_8471(TR_CASE_STMT self, SFILE_ID source_8472) {
self->source_38 = source_8472;
}
void TR_TYPECASE_STMT_8473(TR_TYPECASE_STMT self, SFILE_ID source_8474) {
self->source_38 = source_8474;
}
void TR_ASSERT_STMT_s_8475(TR_ASSERT_STMT self, SFILE_ID source_8476) {
self->source_38 = source_8476;
}
void TR_PROTECT_STMT__8477(TR_PROTECT_STMT self, SFILE_ID source_8478) {
self->source_38 = source_8478;
}
void TR_RAISE_STMT_so_8479(TR_RAISE_STMT self, SFILE_ID source_8480) {
self->source_38 = source_8480;
}
void TR_COBEGIN_STMT__8481(TR_COBEGIN_STMT self, SFILE_ID source_8482) {
self->source_38 = source_8482;
}
void TR_LOCK_STMT_sou_8483(TR_LOCK_STMT self, SFILE_ID source_8484) {
self->source_38 = source_8484;
}
void TR_UNLOCK_STMT_s_8485(TR_UNLOCK_STMT self, SFILE_ID source_8486) {
self->source_38 = source_8486;
}
void TR_TRY_STMT_sour_8487(TR_TRY_STMT self, SFILE_ID source_8488) {
self->source_38 = source_8488;
}
void TR_WITH_NEAR_STM_8489(TR_WITH_NEAR_STMT self, SFILE_ID source_8490) {
self->source_38 = source_8490;
}
void TR_DIST_STMT_sou_8491(TR_DIST_STMT self, SFILE_ID source_8492) {
self->source_38 = source_8492;
}
void TR_FORK_STMT_sou_8493(TR_FORK_STMT self, SFILE_ID source_8494) {
self->source_38 = source_8494;
}
void TR_EXPR_STMT_sou_8495(TR_EXPR_STMT self, SFILE_ID source_8496) {
self->source_38 = source_8496;
}
void TR_ASSIGN_STMT_s_8497(TR_ASSIGN_STMT self, SFILE_ID source_8498) {
self->source_38 = source_8498;
}
void TR_DEC_STMT_sour_8499(TR_DEC_STMT self, SFILE_ID source_8500) {
self->source_38 = source_8500;
}
void TR_STMT_source_S_8501(TR_STMT_39 self, SFILE_ID source_8502) {
self->source_38 = source_8502;
}
TR_STMT TR_IF_STMT_next_(TR_IF_STMT self) {
return self->next_8;
}
TR_STMT TR_LOOP_STMT_nex(TR_LOOP_STMT self) {
return self->next_8;
}
TR_STMT TR_RETURN_STMT_n(TR_RETURN_STMT self) {
return self->next_8;
}
TR_STMT TR_YIELD_STMT_ne(TR_YIELD_STMT self) {
return self->next_8;
}
TR_STMT TR_QUIT_STMT_nex(TR_QUIT_STMT self) {
return self->next_8;
}
TR_STMT TR_CASE_STMT_nex(TR_CASE_STMT self) {
return self->next_8;
}
TR_STMT TR_TYPECASE_STMT_8503(TR_TYPECASE_STMT self) {
return self->next_8;
}
TR_STMT TR_ASSERT_STMT_n(TR_ASSERT_STMT self) {
return self->next_8;
}
TR_STMT TR_PROTECT_STMT__8504(TR_PROTECT_STMT self) {
return self->next_8;
}
TR_STMT TR_RAISE_STMT_ne(TR_RAISE_STMT self) {
return self->next_8;
}
TR_STMT TR_COBEGIN_STMT__8505(TR_COBEGIN_STMT self) {
return self->next_8;
}
TR_STMT TR_LOCK_STMT_nex(TR_LOCK_STMT self) {
return self->next_8;
}
TR_STMT TR_UNLOCK_STMT_n(TR_UNLOCK_STMT self) {
return self->next_8;
}
TR_STMT TR_TRY_STMT_next(TR_TRY_STMT self) {
return self->next_8;
}
TR_STMT TR_WITH_NEAR_STM_8506(TR_WITH_NEAR_STMT self) {
return self->next_8;
}
TR_STMT TR_DIST_STMT_nex(TR_DIST_STMT self) {
return self->next_8;
}
TR_STMT TR_FORK_STMT_nex(TR_FORK_STMT self) {
return self->next_8;
}
TR_STMT TR_EXPR_STMT_nex(TR_EXPR_STMT self) {
return self->next_8;
}
TR_STMT TR_ASSIGN_STMT_n(TR_ASSIGN_STMT self) {
return self->next_8;
}
TR_STMT TR_DEC_STMT_next(TR_DEC_STMT self) {
return self->next_8;
}
TR_STMT TR_STMT_next_TR__8507(TR_STMT_39 self) {
return self->next_8;
}
PROG TP_CLASS_prog_PROG(TP_CLASS self) {
return self->prog;
}
PROG TP_ROUT_prog_PROG(TP_ROUT self) {
return self->prog;
}
PROG TP_ITER_prog_PROG(TP_ITER self) {
return self->prog;
}
BOOL TR_ROUT_DEF_is_p(TR_ROUT_DEF self) {
return self->is_private;
}
BOOL TR_INCLUDE_CLAUS_8508(TR_INCLUDE_CLAUSE self) {
return self->is_private;
}
BOOL TR_CONST_DEF_is_(TR_CONST_DEF self) {
return self->is_private;
}
BOOL TR_SHARED_DEF_is(TR_SHARED_DEF self) {
return self->is_private;
}
BOOL TR_ATTR_DEF_is_p(TR_ATTR_DEF self) {
return self->is_private;
}
BOOL TR_CLASS_ELT_is__8509(TR_CLASS_ELT_45 self) {
return self->is_private;
}
INT TP_ROUT_kind_INT(TP_ROUT self) {
INT noname8510 = ((INT) 0);
return shared_TP_KIND_r;
}
INT TP_ITER_kind_INT(TP_ITER self) {
INT noname8511 = ((INT) 0);
return shared_TP_KIND_i;
}
AM_STMT AM_LOOP_STMT_nex(AM_LOOP_STMT self) {
return self->next_8;
}
AM_STMT AM_ASSIGN_STMT_n(AM_ASSIGN_STMT self) {
return self->next_8;
}
AM_STMT AM_IF_STMT_next_(AM_IF_STMT self) {
return self->next_8;
}
AM_STMT AM_BREAK_STMT_ne(AM_BREAK_STMT self) {
return self->next_8;
}
AM_STMT AM_RETURN_STMT_n(AM_RETURN_STMT self) {
return self->next_8;
}
AM_STMT AM_YIELD_STMT_ne(AM_YIELD_STMT self) {
return self->next_8;
}
AM_STMT AM_CASE_STMT_nex(AM_CASE_STMT self) {
return self->next_8;
}
AM_STMT AM_TYPECASE_STMT_8512(AM_TYPECASE_STMT self) {
return self->next_8;
}
AM_STMT AM_PRE_STMT_next(AM_PRE_STMT self) {
return self->next_8;
}
AM_STMT AM_POST_STMT_nex(AM_POST_STMT self) {
return self->next_8;
}
AM_STMT AM_INITIAL_STMT__8513(AM_INITIAL_STMT self) {
return self->next_8;
}
AM_STMT AM_ASSERT_STMT_n(AM_ASSERT_STMT self) {
return self->next_8;
}
AM_STMT AM_INVARIANT_STM_8514(AM_INVARIANT_STMT self) {
return self->next_8;
}
AM_STMT AM_PROTECT_STMT__8515(AM_PROTECT_STMT self) {
return self->next_8;
}
AM_STMT AM_RAISE_STMT_ne(AM_RAISE_STMT self) {
return self->next_8;
}
AM_STMT AM_EXPR_STMT_nex(AM_EXPR_STMT self) {
return self->next_8;
}
TP AM_LOCAL_EXPR_tp_TP(AM_LOCAL_EXPR self) {
TP noname8516;
return self->tp_at;
}
TP AM_BND_CREATE_EX_8517(AM_BND_CREATE_EXPR self) {
TP noname8518;
return self->tp_at;
}
TP AM_GLOBAL_EXPR_tp_TP(AM_GLOBAL_EXPR self) {
TP noname8519;
return self->tp_at;
}
TP AM_STR_CONST_tp_TP(AM_STR_CONST self) {
TP noname8520;
return self->tp_at;
}
TP AM_ARRAY_EXPR_tp_TP(AM_ARRAY_EXPR self) {
TP noname8521;
return self->tp_at;
}
TP AM_IF_EXPR_tp_TP(AM_IF_EXPR self) {
TP noname8522;
return self->tp_at;
}
TP AM_NEW_EXPR_tp_TP(AM_NEW_EXPR self) {
TP noname8523;
return self->tp_at;
}
TP AM_IS_VOID_EXPR__8524(AM_IS_VOID_EXPR self) {
TP noname8525;
return self->tp_at;
}
TP AM_ATTR_EXPR_tp_TP(AM_ATTR_EXPR self) {
TP noname8526;
return self->tp_at;
}
TP AM_ARR_EXPR_tp_TP(AM_ARR_EXPR self) {
TP noname8527;
return self->tp_at;
}
TP AM_EXCEPT_EXPR_tp_TP(AM_EXCEPT_EXPR self) {
TP noname8528;
return self->tp_at;
}
TP AM_VOID_CONST_tp_TP(AM_VOID_CONST self) {
TP noname8529;
return self->tp_at;
}
TP AM_ARR_CONST_tp_TP(AM_ARR_CONST self) {
TP noname8530;
return self->tp_at;
}
TP AM_BOOL_CONST_tp_TP(AM_BOOL_CONST self) {
TP noname8531;
return self->tp_at;
}
TP AM_CHAR_CONST_tp_TP(AM_CHAR_CONST self) {
TP noname8532;
return self->tp_at;
}
TP AM_INT_CONST_tp_TP(AM_INT_CONST self) {
TP noname8533;
return self->tp_at;
}
TP AM_INTI_CONST_tp_TP(AM_INTI_CONST self) {
TP noname8534;
return self->tp_at;
}
TP AM_FLT_CONST_tp_TP(AM_FLT_CONST self) {
TP noname8535;
return self->tp_at;
}
TP AM_FLTD_CONST_tp_TP(AM_FLTD_CONST self) {
TP noname8536;
return self->tp_at;
}
TP AM_FLTX_CONST_tp_TP(AM_FLTX_CONST self) {
TP noname8537;
return self->tp_at;
}
TP AM_FLTDX_CONST_tp_TP(AM_FLTDX_CONST self) {
TP noname8538;
return self->tp_at;
}
TP AM_FLTI_CONST_tp_TP(AM_FLTI_CONST self) {
TP noname8539;
return self->tp_at;
}
TP AM_CONST_tp_TP(AM_CONST_53 self) {
TP noname8540;
return self->tp_at;
}
void TR_INT_LIT_EXPR__8541(TR_INT_LIT_EXPR self, TR_EXPR next_8542) {
self->next_8 = next_8542;
}
void TR_FLT_LIT_EXPR__8543(TR_FLT_LIT_EXPR self, TR_EXPR next_8544) {
self->next_8 = next_8544;
}
void TR_CALL_EXPR_nex_8545(TR_CALL_EXPR self, TR_EXPR next_8546) {
self->next_8 = next_8546;
}
void TR_SELF_EXPR_nex_8547(TR_SELF_EXPR self, TR_EXPR next_8548) {
self->next_8 = next_8548;
}
void TR_IS_VOID_EXPR__8549(TR_IS_VOID_EXPR self, TR_EXPR next_8550) {
self->next_8 = next_8550;
}
void TR_VOID_EXPR_nex_8551(TR_VOID_EXPR self, TR_EXPR next_8552) {
self->next_8 = next_8552;
}
void TR_NEW_EXPR_next_8553(TR_NEW_EXPR self, TR_EXPR next_8554) {
self->next_8 = next_8554;
}
void TR_BOUND_CREATE__8555(TR_BOUND_CREATE_EXPR self, TR_EXPR next_8556) {
self->next_8 = next_8556;
}
void TR_UNDERSCORE_AR_8557(TR_UNDERSCORE_ARG self, TR_EXPR next_8558) {
self->next_8 = next_8558;
}
void TR_CREATE_EXPR_n_8559(TR_CREATE_EXPR self, TR_EXPR next_8560) {
self->next_8 = next_8560;
}
void TR_ARRAY_EXPR_ne_8561(TR_ARRAY_EXPR self, TR_EXPR next_8562) {
self->next_8 = next_8562;
}
void TR_EXCEPT_EXPR_n_8563(TR_EXCEPT_EXPR self, TR_EXPR next_8564) {
self->next_8 = next_8564;
}
void TR_INITIAL_EXPR__8565(TR_INITIAL_EXPR self, TR_EXPR next_8566) {
self->next_8 = next_8566;
}
void TR_RESULT_EXPR_n_8567(TR_RESULT_EXPR self, TR_EXPR next_8568) {
self->next_8 = next_8568;
}
void TR_BOOL_LIT_EXPR_8569(TR_BOOL_LIT_EXPR self, TR_EXPR next_8570) {
self->next_8 = next_8570;
}
void TR_CHAR_LIT_EXPR_8571(TR_CHAR_LIT_EXPR self, TR_EXPR next_8572) {
self->next_8 = next_8572;
}
void TR_STR_LIT_EXPR__8573(TR_STR_LIT_EXPR self, TR_EXPR next_8574) {
self->next_8 = next_8574;
}