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 >
C/C++ Source or Header  |  1995-02-15  |  66KB  |  2,562 lines
  1. /* C code generated by Sather 1.0 compiler */
  2.  
  3. #include "sather.h"
  4.  
  5. #include "strings.h"
  6.  
  7.  
  8.  
  9.  
  10. INLINE INLINE_TBL_elt_I(INLINE_TBL_elt_I_frame frame) {
  11.  INLINE dummy;
  12.  INLINE local0;
  13.  switch (frame->state) {
  14.   case 0: goto state0;
  15.   case 1: goto state1;
  16.   }
  17.  state0:;
  18.  if ((!((frame->arg0==((INLINE_TBL) NULL))))) {
  19.   {
  20.    frame->nested1 = ALLOCATE(INLINE_TBL_aelt__frame);
  21.    frame->nested1->state = 0;
  22.    while (1) {
  23.     if (frame->nested1->state == 0) {
  24.      frame->noname8040 = frame->arg0;
  25.      frame->nested1->arg0 = frame->noname8040;
  26.     }
  27.     local0 = INLINE_TBL_aelt_(frame->nested1);
  28.     if (frame->nested1->state == -1) goto after_loop;
  29.     frame->r_8041 = local0;
  30.     if ((!(INLINE_TBL_elt_e(frame->arg0, frame->r_8041, INLINE_TBL_elt_n(frame->arg0))))) {
  31.      frame->state = 1;
  32.      return frame->r_8041;
  33.      state1:;
  34.     }
  35.    }
  36.   }
  37.   after_loop: ;
  38.   GC_free(frame->nested1); frame->nested1 = NULL;
  39.  }
  40.  if (!INLINE_TBL_invar(frame->arg0)) {
  41.   fprintf(stderr,"Failed invariant INLINE_TBL::invariant:BOOL ../Library/fqset.sa:105:6\n");
  42.   exit(16);
  43.  }
  44.  frame->state = -1;
  45.  return dummy;
  46. }
  47.  
  48.  
  49. INLINE INLINE_TBL_aelt_(INLINE_TBL_aelt__frame frame) {
  50.  INLINE dummy;
  51.  INT local0;
  52.  switch (frame->state) {
  53.   case 0: goto state0;
  54.   case 1: goto state1;
  55.   }
  56.  state0:;
  57.  if (!((!((frame->arg0==((INLINE_TBL) NULL)))))) {
  58.   fprintf(stderr,"Violation of precondition ../Library/aref.sa:48:7\n");
  59.   exit(16);
  60.  }
  61.  {
  62.   frame->nested1 = ALLOCATE(INT_times_INT_frame);
  63.   frame->nested1->state = 0;
  64.   while (1) {
  65.    frame->state = 1;
  66.    if (frame->nested1->state == 0) {
  67.     frame->noname8044 = (frame->arg0->asize);
  68.     frame->nested1->arg0 = frame->noname8044;
  69.    }
  70.    local0 = INT_times_INT(frame->nested1);
  71.    if (frame->nested1->state == -1) goto after_loop;
  72.    return INLINE_TBL_aget_(frame->arg0, local0);
  73.    state1:;
  74.   }
  75.  }
  76.  after_loop: ;
  77.  GC_free(frame->nested1); frame->nested1 = NULL;
  78.  frame->state = -1;
  79.  return dummy;
  80. }
  81.  
  82.  
  83. void INLINE_TBL_aset_(INLINE_TBL_aset__frame frame) {
  84.  INT local0;
  85.  INT local1;
  86.  switch (frame->state) {
  87.   case 0: goto state0;
  88.   case 1: goto state1;
  89.   }
  90.  state0:;
  91.  if (!((!((frame->arg0==((INLINE_TBL) NULL)))))) {
  92.   fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
  93.   exit(16);
  94.  }
  95.  {
  96.   frame->nested1 = ALLOCATE(INT_times_INT_frame);
  97.   frame->nested1->state = 0;
  98.   while (1) {
  99.    if (frame->nested1->state == 0) {
  100.     frame->noname8046 = (frame->arg0->asize);
  101.     frame->nested1->arg0 = frame->noname8046;
  102.    }
  103.    local0 = INT_times_INT(frame->nested1);
  104.    if (frame->nested1->state == -1) goto after_loop;
  105.    local1 = local0;
  106.    INLINE_TBL_aset__333(frame->arg0, local1, frame->arg1);
  107.    frame->state = 1;
  108.    return;
  109.    state1:;
  110.   }
  111.  }
  112.  after_loop: ;
  113.  GC_free(frame->nested1); frame->nested1 = NULL;
  114.  frame->state = -1;
  115.  return;
  116. }
  117.  
  118.  
  119. void TP_ROUT_TBL_aset(TP_ROUT_TBL_aset_frame frame) {
  120.  INT local0;
  121.  INT local1;
  122.  switch (frame->state) {
  123.   case 0: goto state0;
  124.   case 1: goto state1;
  125.   }
  126.  state0:;
  127.  if (!((!((frame->arg0==((TP_ROUT_TBL) NULL)))))) {
  128.   fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
  129.   exit(16);
  130.  }
  131.  {
  132.   frame->nested1 = ALLOCATE(INT_times_INT_frame);
  133.   frame->nested1->state = 0;
  134.   while (1) {
  135.    if (frame->nested1->state == 0) {
  136.     frame->noname8048 = (frame->arg0->asize);
  137.     frame->nested1->arg0 = frame->noname8048;
  138.    }
  139.    local0 = INT_times_INT(frame->nested1);
  140.    if (frame->nested1->state == -1) goto after_loop;
  141.    local1 = local0;
  142.    TP_ROUT_TBL_aset_232(frame->arg0, local1, frame->arg1);
  143.    frame->state = 1;
  144.    return;
  145.    state1:;
  146.   }
  147.  }
  148.  after_loop: ;
  149.  GC_free(frame->nested1); frame->nested1 = NULL;
  150.  frame->state = -1;
  151.  return;
  152. }
  153.  
  154.  
  155. void TP_CLASS_TBL_ase(TP_CLASS_TBL_ase_frame frame) {
  156.  INT local0;
  157.  INT local1;
  158.  switch (frame->state) {
  159.   case 0: goto state0;
  160.   case 1: goto state1;
  161.   }
  162.  state0:;
  163.  if (!((!((frame->arg0==((TP_CLASS_TBL) NULL)))))) {
  164.   fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
  165.   exit(16);
  166.  }
  167.  {
  168.   frame->nested1 = ALLOCATE(INT_times_INT_frame);
  169.   frame->nested1->state = 0;
  170.   while (1) {
  171.    if (frame->nested1->state == 0) {
  172.     frame->noname8050 = (frame->arg0->asize);
  173.     frame->nested1->arg0 = frame->noname8050;
  174.    }
  175.    local0 = INT_times_INT(frame->nested1);
  176.    if (frame->nested1->state == -1) goto after_loop;
  177.    local1 = local0;
  178.    TP_CLASS_TBL_ase_170(frame->arg0, local1, frame->arg1);
  179.    frame->state = 1;
  180.    return;
  181.    state1:;
  182.   }
  183.  }
  184.  after_loop: ;
  185.  GC_free(frame->nested1); frame->nested1 = NULL;
  186.  frame->state = -1;
  187.  return;
  188. }
  189.  
  190.  
  191. BOOL TP_CLASS_is_neq_(TP_CLASS self, TP t_8052) {
  192.  BOOL noname8053 = ((BOOL) 0);
  193.  return (!(c_SYS_ob_eq_OB_OB_BOOL(((OB) self),((OB) t_8052))));
  194. }
  195.  
  196.  
  197. BOOL TP_ROUT_is_neq_T(TP_ROUT self, TP t_8054) {
  198.  BOOL noname8055 = ((BOOL) 0);
  199.  return (!(c_SYS_ob_eq_OB_OB_BOOL(((OB) self),((OB) t_8054))));
  200. }
  201.  
  202.  
  203. BOOL TP_ITER_is_neq_T(TP_ITER self, TP t_8056) {
  204.  BOOL noname8057 = ((BOOL) 0);
  205.  return (!(c_SYS_ob_eq_OB_OB_BOOL(((OB) self),((OB) t_8056))));
  206. }
  207.  
  208.  
  209. BOOL IDENT_TBL_invari(IDENT_TBL self) {
  210.  BOOL noname8058 = ((BOOL) 0);
  211.  BOOL local0;
  212.  INT local1;
  213.  INT local2;
  214.  if ((self==((IDENT_TBL) NULL))) {
  215.   local0 = TRUE;
  216.  } else {
  217.   local1 = self->hsize;
  218.   local2 = 0;
  219.   local0 = INT_is_bet_INT_I(local1, local2, (self->asize));
  220.  }
  221.  return local0;
  222. }
  223.  
  224.  
  225. IDENT IDENT_TBL_elt_IDENT(IDENT_TBL_elt_IDENT_frame frame) {
  226.  IDENT dummy;
  227.  IDENT local0;
  228.  switch (frame->state) {
  229.   case 0: goto state0;
  230.   case 1: goto state1;
  231.   }
  232.  state0:;
  233.  if ((!((frame->arg0==((IDENT_TBL) NULL))))) {
  234.   {
  235.    frame->nested1 = ALLOCATE(IDENT_TBL_aelt_IDENT_frame);
  236.    frame->nested1->state = 0;
  237.    while (1) {
  238.     if (frame->nested1->state == 0) {
  239.      frame->noname8060 = frame->arg0;
  240.      frame->nested1->arg0 = frame->noname8060;
  241.     }
  242.     local0 = IDENT_TBL_aelt_IDENT(frame->nested1);
  243.     if (frame->nested1->state == -1) goto after_loop;
  244.     frame->r_8061 = local0;
  245.     if ((!(IDENT_TBL_elt_eq(frame->arg0, frame->r_8061, IDENT_TBL_elt_ni(frame->arg0))))) {
  246.      frame->state = 1;
  247.      return frame->r_8061;
  248.      state1:;
  249.     }
  250.    }
  251.   }
  252.   after_loop: ;
  253.   GC_free(frame->nested1); frame->nested1 = NULL;
  254.  }
  255.  if (!IDENT_TBL_invari(frame->arg0)) {
  256.   fprintf(stderr,"Failed invariant IDENT_TBL::invariant:BOOL ../Library/fqset.sa:105:6\n");
  257.   exit(16);
  258.  }
  259.  frame->state = -1;
  260.  return dummy;
  261. }
  262.  
  263.  
  264. IDENT IDENT_TBL_aelt_IDENT(IDENT_TBL_aelt_IDENT_frame frame) {
  265.  IDENT dummy;
  266.  INT local0;
  267.  switch (frame->state) {
  268.   case 0: goto state0;
  269.   case 1: goto state1;
  270.   }
  271.  state0:;
  272.  if (!((!((frame->arg0==((IDENT_TBL) NULL)))))) {
  273.   fprintf(stderr,"Violation of precondition ../Library/aref.sa:48:7\n");
  274.   exit(16);
  275.  }
  276.  {
  277.   frame->nested1 = ALLOCATE(INT_times_INT_frame);
  278.   frame->nested1->state = 0;
  279.   while (1) {
  280.    frame->state = 1;
  281.    if (frame->nested1->state == 0) {
  282.     frame->noname8064 = (frame->arg0->asize);
  283.     frame->nested1->arg0 = frame->noname8064;
  284.    }
  285.    local0 = INT_times_INT(frame->nested1);
  286.    if (frame->nested1->state == -1) goto after_loop;
  287.    return IDENT_TBL_aget_I(frame->arg0, local0);
  288.    state1:;
  289.   }
  290.  }
  291.  after_loop: ;
  292.  GC_free(frame->nested1); frame->nested1 = NULL;
  293.  frame->state = -1;
  294.  return dummy;
  295. }
  296.  
  297.  
  298. void IDENT_TBL_aset_IDENT(IDENT_TBL_aset_IDENT_frame frame) {
  299.  INT local0;
  300.  INT local1;
  301.  switch (frame->state) {
  302.   case 0: goto state0;
  303.   case 1: goto state1;
  304.   }
  305.  state0:;
  306.  if (!((!((frame->arg0==((IDENT_TBL) NULL)))))) {
  307.   fprintf(stderr,"Violation of precondition ../Library/aref.sa:77:7\n");
  308.   exit(16);
  309.  }
  310.  {
  311.   frame->nested1 = ALLOCATE(INT_times_INT_frame);
  312.   frame->nested1->state = 0;
  313.   while (1) {
  314.    if (frame->nested1->state == 0) {
  315.     frame->noname8066 = (frame->arg0->asize);
  316.     frame->nested1->arg0 = frame->noname8066;
  317.    }
  318.    local0 = INT_times_INT(frame->nested1);
  319.    if (frame->nested1->state == -1) goto after_loop;
  320.    local1 = local0;
  321.    IDENT_TBL_aset_I(frame->arg0, local1, frame->arg1);
  322.    frame->state = 1;
  323.    return;
  324.    state1:;
  325.   }
  326.  }
  327.  after_loop: ;
  328.  GC_free(frame->nested1); frame->nested1 = NULL;
  329.  frame->state = -1;
  330.  return;
  331. }
  332.  
  333. int main(int argc, char *argv[]) {
  334.  
  335.  CS main_ob;
  336.  ARRAYSTR main_args;
  337.  int i,j,length;
  338.  STR s;
  339.  shared_INTI_B = INT_pow_INT_INT(2, shared_INTI_log2B);
  340.  shared_INTI_D = INT_pow_INT_INT(10, shared_INTI_log10D);
  341.  shared_FLTD_log10_2 = FLTD_log10_FLTD(20000000000000000e-16);
  342.  main_ob = ((CS) sbi_alloc_atomic(sizeof(struct CS_struct), CS_tag));
  343.  main_args = ((ARRAYSTR) sbi_arr_alloc(sizeof(struct ARRAYSTR_struct), ARRAYSTR_tag, sizeof(STR) , argc));
  344.  main_args->asize = argc;
  345.  for (i=0;i<argc;i++) {
  346.   for (length=0; argv[i][length]!=0; length++);
  347.   s = ((STR) sbi_arr_alloc_atomic(sizeof(struct STR_struct), STR_tag, sizeof(CHAR) , length));
  348.   s->asize = length;
  349.   for (j=0;j<length;j++) s->arr_part[j] = argv[i][j];
  350.   main_args->arr_part[i] = s;
  351.  }
  352.  signal(SIGSEGV,(void(*)())sbi_segfault_handler);
  353.  if (setjmp(last_protect) == 0) {
  354.   return sather_main(main_ob,main_args);
  355.  } else {
  356.   if (exception->header.tag==STR_tag) fprintf(stderr,"Uncaught STR exception: %s\n",((STR)exception)->arr_part);
  357.   else fprintf(stderr,"Uncaught exception\n");
  358.   exit(16);
  359.  }
  360. }
  361.  
  362.  
  363. STR c_SYS_str_for_tp_INT_STR(SYS p,INT i) {
  364.  switch (i) {
  365.   case TP_ITER_tag: return ((STR) &TP_ITER_8092);
  366.   case TR_IF_STMT_tag: return ((STR) &TR_IF_STMT_8093);
  367.   case TR_INT_LIT_EXPR_tag: return ((STR) &TR_INT_LIT_EXPR_8094);
  368.   case TR_ASSERT_STMT_tag: return ((STR) &TR_ASSERT_STMT_8095);
  369.   case TR_ATTR_DEF_tag: return ((STR) &TR_ATTR_DEF_8096);
  370.   case BOOL_tag: return ((STR) &BOOL_8097);
  371.   case CHAR_tag: return ((STR) &CHAR_8098);
  372.   case INT_tag: return ((STR) &INT_8099);
  373.   case INTI_tag: return ((STR) &INTI_8100);
  374.   case TR_LOOP_STMT_tag: return ((STR) &TR_LOOP_STMT_8101);
  375.   case TUPSTRSTR_tag: return ((STR) &TUPSTRSTR_8102);
  376.   case FMAPSTRTUPSTRSTR_tag: return ((STR) &FMAPSTRTUPSTRSTR_8103);
  377.   case TR_SELF_EXPR_tag: return ((STR) &TR_SELF_EXPR_8104);
  378.   case STR_tag: return ((STR) &STR_8105);
  379.   case ARRAYSTR_tag: return ((STR) &ARRAYSTR_8106);
  380.   case TUPSFILE_IDSFILE_ID_tag: return ((STR) &TUPSFILE_IDSFILE_8107);
  381.   case TR_TRY_STMT_tag: return ((STR) &TR_TRY_STMT_8108);
  382.   case TR_ARRAY_EXPR_tag: return ((STR) &TR_ARRAY_EXPR_8109);
  383.   case FSETTP_CLASS_tag: return ((STR) &FSETTP_CLASS_8110);
  384.   case FMAPTP_CLASSFSET_tag: return ((STR) &FMAPTP_CLASSFSET_8111);
  385.   case FMAPSTRITER_INLINE_tag: return ((STR) &FMAPSTRITER_INLI_8112);
  386.   case TP_ITER_TBL_tag: return ((STR) &TP_ITER_TBL_8113);
  387.   case TUPSIGAM_ROUT_DEF_tag: return ((STR) &TUPSIGAM_ROUT_DE_8114);
  388.   case TUPARRAYTPARRAYB_tag: return ((STR) &TUPARRAYTPARRAYB_8115);
  389.   case AM_BND_CREATE_EXPR_tag: return ((STR) &AM_BND_CREATE_EX_8116);
  390.   case FSETOB_tag: return ((STR) &FSETOB_8117);
  391.   case TR_OR_EXPR_tag: return ((STR) &TR_OR_EXPR_8118);
  392.   case TUPAM_BND_ITER_C_tag: return ((STR) &TUPAM_BND_ITER_C_8119);
  393.   case TUPSTRFSETSTR_tag: return ((STR) &TUPSTRFSETSTR_8120);
  394.   case TUPTPINT_tag: return ((STR) &TUPTPINT_8121);
  395.   case TUPTP_CLASSFSETT_tag: return ((STR) &TUPTP_CLASSFSETT_8122);
  396.   case TR_EXCEPT_EXPR_tag: return ((STR) &TR_EXCEPT_EXPR_8123);
  397.   case ARRAYINT_tag: return ((STR) &ARRAYINT_8124);
  398.   case TR_DIST_STMT_tag: return ((STR) &TR_DIST_STMT_8125);
  399.   case TR_BREAK_EXPR_tag: return ((STR) &TR_BREAK_EXPR_8126);
  400.   case TUPOBSTR_tag: return ((STR) &TUPOBSTR_8127);
  401.   case TR_BOUND_CREATE_EXPR_tag: return ((STR) &TR_BOUND_CREATE__8128);
  402.   case FLISTTR_EXPR_tag: return ((STR) &FLISTTR_EXPR_8129);
  403.   case TR_CHAR_LIT_EXPR_tag: return ((STR) &TR_CHAR_LIT_EXPR_8130);
  404.   case TR_CALL_EXPR_tag: return ((STR) &TR_CALL_EXPR_8131);
  405.   case TR_EXPR_STMT_tag: return ((STR) &TR_EXPR_STMT_8132);
  406.   case ITER_INLINE_tag: return ((STR) &ITER_INLINE_8133);
  407.   case BE_tag: return ((STR) &BE_8134);
  408.   case FLISTIDENT_tag: return ((STR) &FLISTIDENT_8135);
  409.   case TP_GRAPH_DES_tag: return ((STR) &TP_GRAPH_DES_8136);
  410.   case CALL_TP_CREATE_tag: return ((STR) &CALL_TP_CREATE_8137);
  411.   case PROG_tag: return ((STR) &PROG_8138);
  412.   case TP_CLASS_tag: return ((STR) &TP_CLASS_8139);
  413.   case PROG_AM_GENERATE_tag: return ((STR) &PROG_AM_GENERATE_8140);
  414.   case FSETTP_tag: return ((STR) &FSETTP_8141);
  415.   case FMAPTP_CLASSFSETTP_tag: return ((STR) &FMAPTP_CLASSFSET_8142);
  416.   case AM_YIELD_STMT_tag: return ((STR) &AM_YIELD_STMT_8143);
  417.   case TR_TYPECASE_WHEN_tag: return ((STR) &TR_TYPECASE_WHEN_8144);
  418.   case FLISTTP_CLASS_tag: return ((STR) &FLISTTP_CLASS_8145);
  419.   case FLISTSIG_tag: return ((STR) &FLISTSIG_8146);
  420.   case PROG_TR_TBL_tag: return ((STR) &PROG_TR_TBL_8147);
  421.   case AM_LOOP_STMT_tag: return ((STR) &AM_LOOP_STMT_8148);
  422.   case IDENT_tag: return ((STR) &IDENT_8149);
  423.   case TUPIDENTINT_tag: return ((STR) &TUPIDENTINT_8150);
  424.   case FSETTUPIDENTINT_tag: return ((STR) &FSETTUPIDENTINT_8151);
  425.   case AM_INITIAL_STMT_tag: return ((STR) &AM_INITIAL_STMT_8152);
  426.   case AM_ITER_CALL_EXPR_tag: return ((STR) &AM_ITER_CALL_EXP_8153);
  427.   case FLISTAM_ITER_CAL_tag: return ((STR) &FLISTAM_ITER_CAL_8154);
  428.   case TR_AND_EXPR_tag: return ((STR) &TR_AND_EXPR_8155);
  429.   case ARRAYARRAYSTR_tag: return ((STR) &ARRAYARRAYSTR_8156);
  430.   case AM_BREAK_STMT_tag: return ((STR) &AM_BREAK_STMT_8157);
  431.   case FMAPTPINT_tag: return ((STR) &FMAPTPINT_8158);
  432.   case AM_BND_ITER_CALL_tag: return ((STR) &AM_BND_ITER_CALL_8159);
  433.   case FLISTAM_BND_ITER_tag: return ((STR) &FLISTAM_BND_ITER_8160);
  434.   case TUPAM_BND_CREATE_tag: return ((STR) &TUPAM_BND_CREATE_8161);
  435.   case ARRAYIDENT_tag: return ((STR) &ARRAYIDENT_8162);
  436.   case TR_IS_VOID_EXPR_tag: return ((STR) &TR_IS_VOID_EXPR_8163);
  437.   case AM_INTI_CONST_tag: return ((STR) &AM_INTI_CONST_8164);
  438.   case ELT_tag: return ((STR) &ELT_8165);
  439.   case AM_PROTECT_STMT_tag: return ((STR) &AM_PROTECT_STMT_8166);
  440.   case TUPAM_ITER_CALL__tag: return ((STR) &TUPAM_ITER_CALL__8167);
  441.   case FLISTTP_tag: return ((STR) &FLISTTP_8168);
  442.   case AM_STR_CONST_tag: return ((STR) &AM_STR_CONST_8169);
  443.   case TUPTPFMAPIDENTAM_tag: return ((STR) &TUPTPFMAPIDENTAM_8170);
  444.   case FLISTSFILE_ID_tag: return ((STR) &FLISTSFILE_ID_8171);
  445.   case TP_GRAPH_tag: return ((STR) &TP_GRAPH_8172);
  446.   case TR_STR_LIT_EXPR_tag: return ((STR) &TR_STR_LIT_EXPR_8173);
  447.   case TR_FORK_STMT_tag: return ((STR) &TR_FORK_STMT_8174);
  448.   case TP_GRAPH_ANC_tag: return ((STR) &TP_GRAPH_ANC_8175);
  449.   case AM_FLTDX_CONST_tag: return ((STR) &AM_FLTDX_CONST_8176);
  450.   case TUPCHARCHAR_tag: return ((STR) &TUPCHARCHAR_8177);
  451.   case TUPIDENTTP_tag: return ((STR) &TUPIDENTTP_8178);
  452.   case TR_ARG_DEC_tag: return ((STR) &TR_ARG_DEC_8179);
  453.   case TR_PROTECT_STMT_tag: return ((STR) &TR_PROTECT_STMT_8180);
  454.   case INLINE_TBL_tag: return ((STR) &INLINE_TBL_8181);
  455.   case TR_PROTECT_WHEN_tag: return ((STR) &TR_PROTECT_WHEN_8182);
  456.   case ARRAYBOOL_tag: return ((STR) &ARRAYBOOL_8183);
  457.   case IDENT_BUILTIN_tag: return ((STR) &IDENT_BUILTIN_8184);
  458.   case FSETIDENT_tag: return ((STR) &FSETIDENT_8185);
  459.   case TR_QUIT_STMT_tag: return ((STR) &TR_QUIT_STMT_8186);
  460.   case TUPTR_EXPRTR_EXPR_tag: return ((STR) &TUPTR_EXPRTR_EXP_8187);
  461.   case TP_BUILTIN_tag: return ((STR) &TP_BUILTIN_8188);
  462.   case TP_GRAPH_ABS_DES_tag: return ((STR) &TP_GRAPH_ABS_DES_8189);
  463.   case TR_CASE_STMT_tag: return ((STR) &TR_CASE_STMT_8190);
  464.   case TUPAM_CONSTAM_CONST_tag: return ((STR) &TUPAM_CONSTAM_CO_8191);
  465.   case AM_FLTI_CONST_tag: return ((STR) &AM_FLTI_CONST_8192);
  466.   case TR_FAR_EXPR_tag: return ((STR) &TR_FAR_EXPR_8193);
  467.   case IFC_TBL_tag: return ((STR) &IFC_TBL_8194);
  468.   case TR_CASE_WHEN_tag: return ((STR) &TR_CASE_WHEN_8195);
  469.   case TUPAM_ROUT_DEFAM_tag: return ((STR) &TUPAM_ROUT_DEFAM_8196);
  470.   case PROG_GET_MAIN_tag: return ((STR) &PROG_GET_MAIN_8197);
  471.   case TUPTPTP_tag: return ((STR) &TUPTPTP_8198);
  472.   case TR_RAISE_STMT_tag: return ((STR) &TR_RAISE_STMT_8199);
  473.   case SCANNER_tag: return ((STR) &SCANNER_8200);
  474.   case FMAPTPIFC_tag: return ((STR) &FMAPTPIFC_8201);
  475.   case FLISTAM_ROUT_DEF_tag: return ((STR) &FLISTAM_ROUT_DEF_8202);
  476.   case TUPTPIFC_tag: return ((STR) &TUPTPIFC_8203);
  477.   case TUPAM_STMTAM_STMT_tag: return ((STR) &TUPAM_STMTAM_STM_8204);
  478.   case FLISTAM_BND_CREA_tag: return ((STR) &FLISTAM_BND_CREA_8205);
  479.   case TR_UNDERSCORE_ARG_tag: return ((STR) &TR_UNDERSCORE_AR_8206);
  480.   case CALL_TP_ARRAY_tag: return ((STR) &CALL_TP_ARRAY_8207);
  481.   case IMPL_tag: return ((STR) &IMPL_8208);
  482.   case TR_CREATE_EXPR_tag: return ((STR) &TR_CREATE_EXPR_8209);
  483.   case IFC_tag: return ((STR) &IFC_8210);
  484.   case AM_FLT_CONST_tag: return ((STR) &AM_FLT_CONST_8211);
  485.   case ARRAYCALL_TP_tag: return ((STR) &ARRAYCALL_TP_8212);
  486.   case TR_TYPE_SPEC_tag: return ((STR) &TR_TYPE_SPEC_8213);
  487.   case IFC_ABS_CREATE_tag: return ((STR) &IFC_ABS_CREATE_8214);
  488.   case TR_BOOL_LIT_EXPR_tag: return ((STR) &TR_BOOL_LIT_EXPR_8215);
  489.   case AM_RAISE_STMT_tag: return ((STR) &AM_RAISE_STMT_8216);
  490.   case TR_FLT_LIT_EXPR_tag: return ((STR) &TR_FLT_LIT_EXPR_8217);
  491.   case FMAPSIGAM_ROUT_DEF_tag: return ((STR) &FMAPSIGAM_ROUT_D_8218);
  492.   case TP_ROUT_TBL_tag: return ((STR) &TP_ROUT_TBL_8219);
  493.   case TUPARRAYTPTP_tag: return ((STR) &TUPARRAYTPTP_8220);
  494.   case TR_WHERE_EXPR_tag: return ((STR) &TR_WHERE_EXPR_8221);
  495.   case SFILE_ID_tag: return ((STR) &SFILE_ID_8222);
  496.   case IMPL_TBL_tag: return ((STR) &IMPL_TBL_8223);
  497.   case FLISTAM_EXPR_tag: return ((STR) &FLISTAM_EXPR_8224);
  498.   case FMAPSTRFSETSTR_tag: return ((STR) &FMAPSTRFSETSTR_8225);
  499.   case BE_LEX_tag: return ((STR) &BE_LEX_8226);
  500.   case FMAPTPIMPL_tag: return ((STR) &FMAPTPIMPL_8227);
  501.   case FLISTAM_LOCAL_EXPR_tag: return ((STR) &FLISTAM_LOCAL_EX_8228);
  502.   case FLISTIFC_tag: return ((STR) &FLISTIFC_8229);
  503.   case FMAPSTRSTR_tag: return ((STR) &FMAPSTRSTR_8230);
  504.   case FILE_20_tag: return ((STR) &FILE_8231);
  505.   case TUPFLISTAM_CONST_tag: return ((STR) &TUPFLISTAM_CONST_8232);
  506.   case TR_HERE_EXPR_tag: return ((STR) &TR_HERE_EXPR_8233);
  507.   case AM_IF_STMT_tag: return ((STR) &AM_IF_STMT_8234);
  508.   case TUPSTRITER_INLINE_tag: return ((STR) &TUPSTRITER_INLIN_8235);
  509.   case AM_IF_EXPR_tag: return ((STR) &AM_IF_EXPR_8236);
  510.   case AM_PRE_STMT_tag: return ((STR) &AM_PRE_STMT_8237);
  511.   case TP_ROUT_tag: return ((STR) &TP_ROUT_8238);
  512.   case TUPAM_GLOBAL_EXP_tag: return ((STR) &TUPAM_GLOBAL_EXP_8239);
  513.   case AM_POST_STMT_tag: return ((STR) &AM_POST_STMT_8240);
  514.   case TUPSIGSIG_tag: return ((STR) &TUPSIGSIG_8241);
  515.   case AM_GLOBAL_EXPR_tag: return ((STR) &AM_GLOBAL_EXPR_8242);
  516.   case INLINE_GLOBAL_READ_tag: return ((STR) &INLINE_GLOBAL_RE_8243);
  517.   case AM_ASSIGN_STMT_tag: return ((STR) &AM_ASSIGN_STMT_8244);
  518.   case TUPTP_CLASSFSETTP_tag: return ((STR) &TUPTP_CLASSFSETT_8245);
  519.   case PROG_AM_CHECK_tag: return ((STR) &PROG_AM_CHECK_8246);
  520.   case TR_CLASS_DEF_tag: return ((STR) &TR_CLASS_DEF_8247);
  521.   case TR_NEAR_EXPR_tag: return ((STR) &TR_NEAR_EXPR_8248);
  522.   case INLINE_ATTR_WRITE_tag: return ((STR) &INLINE_ATTR_WRIT_8249);
  523.   case INLINE_INT_FOLD_tag: return ((STR) &INLINE_INT_FOLD_8250);
  524.   case AM_INVARIANT_STMT_tag: return ((STR) &AM_INVARIANT_STM_8251);
  525.   case CALL_SIG_tag: return ((STR) &CALL_SIG_8252);
  526.   case TP_TBL_tag: return ((STR) &TP_TBL_8253);
  527.   case AM_TYPECASE_STMT_tag: return ((STR) &AM_TYPECASE_STMT_8254);
  528.   case ARRAYTP_tag: return ((STR) &ARRAYTP_8255);
  529.   case AM_ASSERT_STMT_tag: return ((STR) &AM_ASSERT_STMT_8256);
  530.   case TR_COBEGIN_STMT_tag: return ((STR) &TR_COBEGIN_STMT_8257);
  531.   case AM_EXPR_STMT_tag: return ((STR) &AM_EXPR_STMT_8258);
  532.   case TUPTPIMPL_tag: return ((STR) &TUPTPIMPL_8259);
  533.   case AM_ARRAY_EXPR_tag: return ((STR) &AM_ARRAY_EXPR_8260);
  534.   case TUPIDENTAM_GLOBA_tag: return ((STR) &TUPIDENTAM_GLOBA_8261);
  535.   case TUPAM_LOCAL_EXPR_tag: return ((STR) &TUPAM_LOCAL_EXPR_8262);
  536.   case TR_AT_EXPR_tag: return ((STR) &TR_AT_EXPR_8263);
  537.   case AM_NEW_EXPR_tag: return ((STR) &AM_NEW_EXPR_8264);
  538.   case TR_UNLOCK_STMT_tag: return ((STR) &TR_UNLOCK_STMT_8265);
  539.   case TR_PARAM_DEC_tag: return ((STR) &TR_PARAM_DEC_8266);
  540.   case AM_IS_VOID_EXPR_tag: return ((STR) &AM_IS_VOID_EXPR_8267);
  541.   case AM_INT_CONST_tag: return ((STR) &AM_INT_CONST_8268);
  542.   case TUPAM_EXPRAM_EXPR_tag: return ((STR) &TUPAM_EXPRAM_EXP_8269);
  543.   case AM_ARR_CONST_tag: return ((STR) &AM_ARR_CONST_8270);
  544.   case FLISTIMPL_INCLUDE_tag: return ((STR) &FLISTIMPL_INCLUD_8271);
  545.   case IDENT_TBL_tag: return ((STR) &IDENT_TBL_8272);
  546.   case CALL_TP_VOID_tag: return ((STR) &CALL_TP_VOID_8273);
  547.   case TUPIMPL_INCLUDEI_tag: return ((STR) &TUPIMPL_INCLUDEI_8274);
  548.   case AM_ARR_EXPR_tag: return ((STR) &AM_ARR_EXPR_8275);
  549.   case FLISTINT_tag: return ((STR) &FLISTINT_8276);
  550.   case AM_VARR_ASSIGN_EXPR_tag: return ((STR) &AM_VARR_ASSIGN_E_8277);
  551.   case TR_RESULT_EXPR_tag: return ((STR) &TR_RESULT_EXPR_8278);
  552.   case AM_VATTR_ASSIGN_EXPR_tag: return ((STR) &AM_VATTR_ASSIGN__8279);
  553.   case PROG_IFC_CONFORMANCE_tag: return ((STR) &PROG_IFC_CONFORM_8280);
  554.   case TR_VOID_EXPR_tag: return ((STR) &TR_VOID_EXPR_8281);
  555.   case TUPINTINTINT_tag: return ((STR) &TUPINTINTINT_8282);
  556.   case GLOBAL_TBL_tag: return ((STR) &GLOBAL_TBL_8283);
  557.   case AM_OB_DEF_tag: return ((STR) &AM_OB_DEF_8284);
  558.   case IMPL_INCLUDE_tag: return ((STR) &IMPL_INCLUDE_8285);
  559.   case CALL_TP_UNDERSCORE_tag: return ((STR) &CALL_TP_UNDERSCO_8286);
  560.   case FMAPIDENTAM_GLOB_tag: return ((STR) &FMAPIDENTAM_GLOB_8287);
  561.   case FMAPTPFMAPIDENTA_tag: return ((STR) &FMAPTPFMAPIDENTA_8288);
  562.   case AM_BND_ROUT_CALL_tag: return ((STR) &AM_BND_ROUT_CALL_8289);
  563.   case PARSER_tag: return ((STR) &PARSER_8290);
  564.   case TR_INCLUDE_CLAUSE_tag: return ((STR) &TR_INCLUDE_CLAUS_8291);
  565.   case FMAPIDENTTP_tag: return ((STR) &FMAPIDENTTP_8292);
  566.   case TUPSTRTUPSTRSTR_tag: return ((STR) &TUPSTRTUPSTRSTR_8293);
  567.   case AM_VOID_CONST_tag: return ((STR) &AM_VOID_CONST_8294);
  568.   case FLISTAM_GLOBAL_EXPR_tag: return ((STR) &FLISTAM_GLOBAL_E_8295);
  569.   case AM_BOOL_CONST_tag: return ((STR) &AM_BOOL_CONST_8296);
  570.   case AM_ROUT_CALL_EXPR_tag: return ((STR) &AM_ROUT_CALL_EXP_8297);
  571.   case TRANS_tag: return ((STR) &TRANS_8298);
  572.   case INLINE_ATTR_READ_tag: return ((STR) &INLINE_ATTR_READ_8299);
  573.   case TUPIDENTIDENT_tag: return ((STR) &TUPIDENTIDENT_8300);
  574.   case AM_CHAR_CONST_tag: return ((STR) &AM_CHAR_CONST_8301);
  575.   case AM_ROUT_DEF_tag: return ((STR) &AM_ROUT_DEF_8302);
  576.   case OPTIONS_tag: return ((STR) &OPTIONS_8303);
  577.   case TP_CLASS_TBL_tag: return ((STR) &TP_CLASS_TBL_8304);
  578.   case TR_ASSIGN_STMT_tag: return ((STR) &TR_ASSIGN_STMT_8305);
  579.   case AM_LOCAL_EXPR_tag: return ((STR) &AM_LOCAL_EXPR_8306);
  580.   case TR_FEAT_MOD_tag: return ((STR) &TR_FEAT_MOD_8307);
  581.   case FSETSTR_tag: return ((STR) &FSETSTR_8308);
  582.   case TUPIDENTARRAYTP_tag: return ((STR) &TUPIDENTARRAYTP_8309);
  583.   case FSETTR_FEAT_MOD_tag: return ((STR) &FSETTR_FEAT_MOD_8310);
  584.   case TR_INITIAL_EXPR_tag: return ((STR) &TR_INITIAL_EXPR_8311);
  585.   case PROG_PARSE_tag: return ((STR) &PROG_PARSE_8312);
  586.   case TUPINTINT_tag: return ((STR) &TUPINTINT_8313);
  587.   case TUPAM_EXPRTP_tag: return ((STR) &TUPAM_EXPRTP_8314);
  588.   case TUPBOOLINTIINTBOOL_tag: return ((STR) &TUPBOOLINTIINTBO_8315);
  589.   case ELT_TBL_tag: return ((STR) &ELT_TBL_8316);
  590.   case TUPIFCIFC_tag: return ((STR) &TUPIFCIFC_8317);
  591.   case PROG_FIND_TYPES_tag: return ((STR) &PROG_FIND_TYPES_8318);
  592.   case AM_FLTD_CONST_tag: return ((STR) &AM_FLTD_CONST_8319);
  593.   case AM_FLTX_CONST_tag: return ((STR) &AM_FLTX_CONST_8320);
  594.   case PROG_TYPE_GRAPH_tag: return ((STR) &PROG_TYPE_GRAPH_8321);
  595.   case FSTR_tag: return ((STR) &FSTR_8322);
  596.   case AM_CASE_STMT_tag: return ((STR) &AM_CASE_STMT_8323);
  597.   case FLISTSTR_tag: return ((STR) &FLISTSTR_8324);
  598.   case TR_LOCK_STMT_tag: return ((STR) &TR_LOCK_STMT_8325);
  599.   case FLISTAM_CONST_tag: return ((STR) &FLISTAM_CONST_8326);
  600.   case IMPL_CREATE_tag: return ((STR) &IMPL_CREATE_8327);
  601.   case FLISTFLISTAM_CONST_tag: return ((STR) &FLISTFLISTAM_CON_8328);
  602.   case CS_tag: return ((STR) &CS_8329);
  603.   case TR_DEC_STMT_tag: return ((STR) &TR_DEC_STMT_8330);
  604.   case FMAPOBSTR_tag: return ((STR) &FMAPOBSTR_8331);
  605.   case AM_ATTR_EXPR_tag: return ((STR) &AM_ATTR_EXPR_8332);
  606.   case AM_RETURN_STMT_tag: return ((STR) &AM_RETURN_STMT_8333);
  607.   case FLISTAM_STMT_tag: return ((STR) &FLISTAM_STMT_8334);
  608.   case TR_NEW_EXPR_tag: return ((STR) &TR_NEW_EXPR_8335);
  609.   case TR_WITH_NEAR_STMT_tag: return ((STR) &TR_WITH_NEAR_STM_8336);
  610.   case AM_EXT_CALL_EXPR_tag: return ((STR) &AM_EXT_CALL_EXPR_8337);
  611.   case TR_IDENT_LIST_tag: return ((STR) &TR_IDENT_LIST_8338);
  612.   case TR_RETURN_STMT_tag: return ((STR) &TR_RETURN_STMT_8339);
  613.   case AM_EXCEPT_EXPR_tag: return ((STR) &AM_EXCEPT_EXPR_8340);
  614.   case TR_YIELD_STMT_tag: return ((STR) &TR_YIELD_STMT_8341);
  615.   case TUPTP_CLASSTP_CLASS_tag: return ((STR) &TUPTP_CLASSTP_CL_8342);
  616.   case AM_STMT_EXPR_tag: return ((STR) &AM_STMT_EXPR_8343);
  617.   case ARRAYAM_EXPR_tag: return ((STR) &ARRAYAM_EXPR_8344);
  618.   case SIG_TBL_tag: return ((STR) &SIG_TBL_8345);
  619.   case TP_CONTEXT_tag: return ((STR) &TP_CONTEXT_8346);
  620.   case TR_CONST_DEF_tag: return ((STR) &TR_CONST_DEF_8347);
  621.   case TR_SHARED_DEF_tag: return ((STR) &TR_SHARED_DEF_8348);
  622.   case SIG_tag: return ((STR) &SIG_8349);
  623.   case TR_TYPECASE_STMT_tag: return ((STR) &TR_TYPECASE_STMT_8350);
  624.   case TR_ROUT_DEF_tag: return ((STR) &TR_ROUT_DEF_8351);
  625.   default: fprintf(stderr,"Internal error: unknown tag?\n"); exit(16);
  626.  }
  627. }
  628.  
  629.  
  630. BOOL c_SYS_ob_eq_OB_OB_BOOL(OB o1,OB o2) {
  631.  INT t1,t2;
  632.  if (o1==o2) return TRUE;
  633.  if (o1==NULL || o2==NULL) return FALSE;
  634.  t1 = o1->header.tag; t2 = o2->header.tag;
  635.  if (t1!=t2) return FALSE;
  636.  switch (t1) {
  637.   case BOOL_tag:
  638.     {BOOL v1,v2;
  639.      v1 = ((BOOL_boxed)o1)->value_part;
  640.      v2 = ((BOOL_boxed)o2)->value_part;
  641.      return (v1==v2);}
  642.   case CHAR_tag:
  643.     {CHAR v1,v2;
  644.      v1 = ((CHAR_boxed)o1)->value_part;
  645.      v2 = ((CHAR_boxed)o2)->value_part;
  646.      return (v1==v2);}
  647.   case INT_tag:
  648.     {INT v1,v2;
  649.      v1 = ((INT_boxed)o1)->value_part;
  650.      v2 = ((INT_boxed)o2)->value_part;
  651.      return (v1==v2);}
  652.   case TUPSTRSTR_tag:
  653.     {TUPSTRSTR v1,v2;
  654.      v1 = ((TUPSTRSTR_boxed)o1)->value_part;
  655.      v2 = ((TUPSTRSTR_boxed)o2)->value_part;
  656.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  657.   case TUPSFILE_IDSFILE_ID_tag:
  658.     {TUPSFILE_IDSFILE_ID v1,v2;
  659.      v1 = ((TUPSFILE_IDSFILE_ID_boxed)o1)->value_part;
  660.      v2 = ((TUPSFILE_IDSFILE_ID_boxed)o2)->value_part;
  661.      return (v1.t1.loc_17==v2.t1.loc_17)&&(v1.t2.loc_17==v2.t2.loc_17);}
  662.   case TUPSIGAM_ROUT_DEF_tag:
  663.     {TUPSIGAM_ROUT_DEF v1,v2;
  664.      v1 = ((TUPSIGAM_ROUT_DEF_boxed)o1)->value_part;
  665.      v2 = ((TUPSIGAM_ROUT_DEF_boxed)o2)->value_part;
  666.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  667.   case TUPARRAYTPARRAYB_tag:
  668.     {TUPARRAYTPARRAYB v1,v2;
  669.      v1 = ((TUPARRAYTPARRAYB_boxed)o1)->value_part;
  670.      v2 = ((TUPARRAYTPARRAYB_boxed)o2)->value_part;
  671.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2)&&(v1.t3==v2.t3);}
  672.   case TUPAM_BND_ITER_C_tag:
  673.     {TUPAM_BND_ITER_C v1,v2;
  674.      v1 = ((TUPAM_BND_ITER_C_boxed)o1)->value_part;
  675.      v2 = ((TUPAM_BND_ITER_C_boxed)o2)->value_part;
  676.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  677.   case TUPSTRFSETSTR_tag:
  678.     {TUPSTRFSETSTR v1,v2;
  679.      v1 = ((TUPSTRFSETSTR_boxed)o1)->value_part;
  680.      v2 = ((TUPSTRFSETSTR_boxed)o2)->value_part;
  681.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  682.   case TUPTPINT_tag:
  683.     {TUPTPINT v1,v2;
  684.      v1 = ((TUPTPINT_boxed)o1)->value_part;
  685.      v2 = ((TUPTPINT_boxed)o2)->value_part;
  686.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  687.   case TUPTP_CLASSFSETT_tag:
  688.     {TUPTP_CLASSFSETT v1,v2;
  689.      v1 = ((TUPTP_CLASSFSETT_boxed)o1)->value_part;
  690.      v2 = ((TUPTP_CLASSFSETT_boxed)o2)->value_part;
  691.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  692.   case TUPOBSTR_tag:
  693.     {TUPOBSTR v1,v2;
  694.      v1 = ((TUPOBSTR_boxed)o1)->value_part;
  695.      v2 = ((TUPOBSTR_boxed)o2)->value_part;
  696.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  697.   case IDENT_tag:
  698.     {IDENT v1,v2;
  699.      v1 = ((IDENT_boxed)o1)->value_part;
  700.      v2 = ((IDENT_boxed)o2)->value_part;
  701.      return (v1.str_4==v2.str_4);}
  702.   case TUPIDENTINT_tag:
  703.     {TUPIDENTINT v1,v2;
  704.      v1 = ((TUPIDENTINT_boxed)o1)->value_part;
  705.      v2 = ((TUPIDENTINT_boxed)o2)->value_part;
  706.      return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
  707.   case TUPAM_BND_CREATE_tag:
  708.     {TUPAM_BND_CREATE v1,v2;
  709.      v1 = ((TUPAM_BND_CREATE_boxed)o1)->value_part;
  710.      v2 = ((TUPAM_BND_CREATE_boxed)o2)->value_part;
  711.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  712.   case TUPAM_ITER_CALL__tag:
  713.     {TUPAM_ITER_CALL_ v1,v2;
  714.      v1 = ((TUPAM_ITER_CALL__boxed)o1)->value_part;
  715.      v2 = ((TUPAM_ITER_CALL__boxed)o2)->value_part;
  716.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  717.   case TUPTPFMAPIDENTAM_tag:
  718.     {TUPTPFMAPIDENTAM v1,v2;
  719.      v1 = ((TUPTPFMAPIDENTAM_boxed)o1)->value_part;
  720.      v2 = ((TUPTPFMAPIDENTAM_boxed)o2)->value_part;
  721.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  722.   case TUPCHARCHAR_tag:
  723.     {TUPCHARCHAR v1,v2;
  724.      v1 = ((TUPCHARCHAR_boxed)o1)->value_part;
  725.      v2 = ((TUPCHARCHAR_boxed)o2)->value_part;
  726.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  727.   case TUPIDENTTP_tag:
  728.     {TUPIDENTTP v1,v2;
  729.      v1 = ((TUPIDENTTP_boxed)o1)->value_part;
  730.      v2 = ((TUPIDENTTP_boxed)o2)->value_part;
  731.      return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
  732.   case TUPTR_EXPRTR_EXPR_tag:
  733.     {TUPTR_EXPRTR_EXPR v1,v2;
  734.      v1 = ((TUPTR_EXPRTR_EXPR_boxed)o1)->value_part;
  735.      v2 = ((TUPTR_EXPRTR_EXPR_boxed)o2)->value_part;
  736.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  737.   case TUPAM_CONSTAM_CONST_tag:
  738.     {TUPAM_CONSTAM_CONST v1,v2;
  739.      v1 = ((TUPAM_CONSTAM_CONST_boxed)o1)->value_part;
  740.      v2 = ((TUPAM_CONSTAM_CONST_boxed)o2)->value_part;
  741.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  742.   case TUPAM_ROUT_DEFAM_tag:
  743.     {TUPAM_ROUT_DEFAM v1,v2;
  744.      v1 = ((TUPAM_ROUT_DEFAM_boxed)o1)->value_part;
  745.      v2 = ((TUPAM_ROUT_DEFAM_boxed)o2)->value_part;
  746.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  747.   case TUPTPTP_tag:
  748.     {TUPTPTP v1,v2;
  749.      v1 = ((TUPTPTP_boxed)o1)->value_part;
  750.      v2 = ((TUPTPTP_boxed)o2)->value_part;
  751.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  752.   case TUPTPIFC_tag:
  753.     {TUPTPIFC v1,v2;
  754.      v1 = ((TUPTPIFC_boxed)o1)->value_part;
  755.      v2 = ((TUPTPIFC_boxed)o2)->value_part;
  756.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  757.   case TUPAM_STMTAM_STMT_tag:
  758.     {TUPAM_STMTAM_STMT v1,v2;
  759.      v1 = ((TUPAM_STMTAM_STMT_boxed)o1)->value_part;
  760.      v2 = ((TUPAM_STMTAM_STMT_boxed)o2)->value_part;
  761.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  762.   case TUPARRAYTPTP_tag:
  763.     {TUPARRAYTPTP v1,v2;
  764.      v1 = ((TUPARRAYTPTP_boxed)o1)->value_part;
  765.      v2 = ((TUPARRAYTPTP_boxed)o2)->value_part;
  766.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  767.   case SFILE_ID_tag:
  768.     {SFILE_ID v1,v2;
  769.      v1 = ((SFILE_ID_boxed)o1)->value_part;
  770.      v2 = ((SFILE_ID_boxed)o2)->value_part;
  771.      return (v1.loc_17==v2.loc_17);}
  772.   case TUPFLISTAM_CONST_tag:
  773.     {TUPFLISTAM_CONST v1,v2;
  774.      v1 = ((TUPFLISTAM_CONST_boxed)o1)->value_part;
  775.      v2 = ((TUPFLISTAM_CONST_boxed)o2)->value_part;
  776.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  777.   case TUPSTRITER_INLINE_tag:
  778.     {TUPSTRITER_INLINE v1,v2;
  779.      v1 = ((TUPSTRITER_INLINE_boxed)o1)->value_part;
  780.      v2 = ((TUPSTRITER_INLINE_boxed)o2)->value_part;
  781.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  782.   case TUPAM_GLOBAL_EXP_tag:
  783.     {TUPAM_GLOBAL_EXP v1,v2;
  784.      v1 = ((TUPAM_GLOBAL_EXP_boxed)o1)->value_part;
  785.      v2 = ((TUPAM_GLOBAL_EXP_boxed)o2)->value_part;
  786.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  787.   case TUPSIGSIG_tag:
  788.     {TUPSIGSIG v1,v2;
  789.      v1 = ((TUPSIGSIG_boxed)o1)->value_part;
  790.      v2 = ((TUPSIGSIG_boxed)o2)->value_part;
  791.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  792.   case TUPTP_CLASSFSETTP_tag:
  793.     {TUPTP_CLASSFSETTP v1,v2;
  794.      v1 = ((TUPTP_CLASSFSETTP_boxed)o1)->value_part;
  795.      v2 = ((TUPTP_CLASSFSETTP_boxed)o2)->value_part;
  796.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  797.   case TUPTPIMPL_tag:
  798.     {TUPTPIMPL v1,v2;
  799.      v1 = ((TUPTPIMPL_boxed)o1)->value_part;
  800.      v2 = ((TUPTPIMPL_boxed)o2)->value_part;
  801.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  802.   case TUPIDENTAM_GLOBA_tag:
  803.     {TUPIDENTAM_GLOBA v1,v2;
  804.      v1 = ((TUPIDENTAM_GLOBA_boxed)o1)->value_part;
  805.      v2 = ((TUPIDENTAM_GLOBA_boxed)o2)->value_part;
  806.      return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
  807.   case TUPAM_LOCAL_EXPR_tag:
  808.     {TUPAM_LOCAL_EXPR v1,v2;
  809.      v1 = ((TUPAM_LOCAL_EXPR_boxed)o1)->value_part;
  810.      v2 = ((TUPAM_LOCAL_EXPR_boxed)o2)->value_part;
  811.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  812.   case TUPAM_EXPRAM_EXPR_tag:
  813.     {TUPAM_EXPRAM_EXPR v1,v2;
  814.      v1 = ((TUPAM_EXPRAM_EXPR_boxed)o1)->value_part;
  815.      v2 = ((TUPAM_EXPRAM_EXPR_boxed)o2)->value_part;
  816.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  817.   case TUPIMPL_INCLUDEI_tag:
  818.     {TUPIMPL_INCLUDEI v1,v2;
  819.      v1 = ((TUPIMPL_INCLUDEI_boxed)o1)->value_part;
  820.      v2 = ((TUPIMPL_INCLUDEI_boxed)o2)->value_part;
  821.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  822.   case TUPINTINTINT_tag:
  823.     {TUPINTINTINT v1,v2;
  824.      v1 = ((TUPINTINTINT_boxed)o1)->value_part;
  825.      v2 = ((TUPINTINTINT_boxed)o2)->value_part;
  826.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2)&&(v1.t3==v2.t3);}
  827.   case TUPSTRTUPSTRSTR_tag:
  828.     {TUPSTRTUPSTRSTR v1,v2;
  829.      v1 = ((TUPSTRTUPSTRSTR_boxed)o1)->value_part;
  830.      v2 = ((TUPSTRTUPSTRSTR_boxed)o2)->value_part;
  831.      return (v1.t1==v2.t1)&&(v1.t2.t1==v2.t2.t1)&&(v1.t2.t2==v2.t2.t2);}
  832.   case TUPIDENTIDENT_tag:
  833.     {TUPIDENTIDENT v1,v2;
  834.      v1 = ((TUPIDENTIDENT_boxed)o1)->value_part;
  835.      v2 = ((TUPIDENTIDENT_boxed)o2)->value_part;
  836.      return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2.str_4==v2.t2.str_4);}
  837.   case TUPIDENTARRAYTP_tag:
  838.     {TUPIDENTARRAYTP v1,v2;
  839.      v1 = ((TUPIDENTARRAYTP_boxed)o1)->value_part;
  840.      v2 = ((TUPIDENTARRAYTP_boxed)o2)->value_part;
  841.      return (v1.t1.str_4==v2.t1.str_4)&&(v1.t2==v2.t2);}
  842.   case TUPINTINT_tag:
  843.     {TUPINTINT v1,v2;
  844.      v1 = ((TUPINTINT_boxed)o1)->value_part;
  845.      v2 = ((TUPINTINT_boxed)o2)->value_part;
  846.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  847.   case TUPAM_EXPRTP_tag:
  848.     {TUPAM_EXPRTP v1,v2;
  849.      v1 = ((TUPAM_EXPRTP_boxed)o1)->value_part;
  850.      v2 = ((TUPAM_EXPRTP_boxed)o2)->value_part;
  851.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  852.   case TUPBOOLINTIINTBOOL_tag:
  853.     {TUPBOOLINTIINTBOOL v1,v2;
  854.      v1 = ((TUPBOOLINTIINTBOOL_boxed)o1)->value_part;
  855.      v2 = ((TUPBOOLINTIINTBOOL_boxed)o2)->value_part;
  856.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2)&&(v1.t4==v2.t4)&&(v1.t3==v2.t3);}
  857.   case TUPIFCIFC_tag:
  858.     {TUPIFCIFC v1,v2;
  859.      v1 = ((TUPIFCIFC_boxed)o1)->value_part;
  860.      v2 = ((TUPIFCIFC_boxed)o2)->value_part;
  861.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  862.   case TUPTP_CLASSTP_CLASS_tag:
  863.     {TUPTP_CLASSTP_CLASS v1,v2;
  864.      v1 = ((TUPTP_CLASSTP_CLASS_boxed)o1)->value_part;
  865.      v2 = ((TUPTP_CLASSTP_CLASS_boxed)o2)->value_part;
  866.      return (v1.t1==v2.t1)&&(v1.t2==v2.t2);}
  867.   default: return FALSE;
  868.    }
  869. }
  870.  
  871.  
  872.  
  873.  
  874. SIG INLINE_INT_FOLD__8352(INLINE_INT_FOLD self) {
  875.  return self->sig_6;
  876. }
  877.  
  878.  
  879. SIG INLINE_ATTR_READ_8353(INLINE_ATTR_READ self) {
  880.  return self->sig_6;
  881. }
  882.  
  883.  
  884. SIG INLINE_GLOBAL_RE_8354(INLINE_GLOBAL_READ self) {
  885.  return self->sig_6;
  886. }
  887.  
  888.  
  889. SIG INLINE_ATTR_WRIT_8355(INLINE_ATTR_WRITE self) {
  890.  return self->sig_6;
  891. }
  892.  
  893.  
  894. SIG INLINE_VATTR_REA_8356(INLINE_VATTR_READ self) {
  895.  return self->sig_6;
  896. }
  897.  
  898.  
  899. SIG INLINE_VARR_READ_8357(INLINE_VARR_READ self) {
  900.  return self->sig_6;
  901. }
  902.  
  903.  
  904. SIG INLINE_ARR_READ__8358(INLINE_ARR_READ self) {
  905.  return self->sig_6;
  906. }
  907.  
  908.  
  909. SIG INLINE_VATTR_WRI_8359(INLINE_VATTR_WRITE self) {
  910.  return self->sig_6;
  911. }
  912.  
  913.  
  914. SIG INLINE_ARR_WRITE_8360(INLINE_ARR_WRITE self) {
  915.  return self->sig_6;
  916. }
  917.  
  918.  
  919. SIG INLINE_VARR_WRIT_8361(INLINE_VARR_WRITE self) {
  920.  return self->sig_6;
  921. }
  922.  
  923.  
  924. SIG INLINE_BUILTIN_s(INLINE_BUILTIN self) {
  925.  return self->sig_6;
  926. }
  927.  
  928.  
  929. SFILE_ID TR_CLASS_DEF_sou(TR_CLASS_DEF self) {
  930.  return self->source_38;
  931. }
  932.  
  933.  
  934. SFILE_ID TR_PARAM_DEC_sou(TR_PARAM_DEC self) {
  935.  return self->source_38;
  936. }
  937.  
  938.  
  939. SFILE_ID TR_TYPE_SPEC_sou(TR_TYPE_SPEC self) {
  940.  return self->source_38;
  941. }
  942.  
  943.  
  944. SFILE_ID TR_ROUT_DEF_sour(TR_ROUT_DEF self) {
  945.  return self->source_38;
  946. }
  947.  
  948.  
  949. SFILE_ID TR_ARG_DEC_sourc(TR_ARG_DEC self) {
  950.  return self->source_38;
  951. }
  952.  
  953.  
  954. SFILE_ID TR_INCLUDE_CLAUS_8362(TR_INCLUDE_CLAUSE self) {
  955.  return self->source_38;
  956. }
  957.  
  958.  
  959. SFILE_ID TR_FEAT_MOD_sour(TR_FEAT_MOD self) {
  960.  return self->source_38;
  961. }
  962.  
  963.  
  964. SFILE_ID TR_CONST_DEF_sou(TR_CONST_DEF self) {
  965.  return self->source_38;
  966. }
  967.  
  968.  
  969. SFILE_ID TR_INT_LIT_EXPR__8363(TR_INT_LIT_EXPR self) {
  970.  return self->source_38;
  971. }
  972.  
  973.  
  974. SFILE_ID TR_FLT_LIT_EXPR__8364(TR_FLT_LIT_EXPR self) {
  975.  return self->source_38;
  976. }
  977.  
  978.  
  979. SFILE_ID TR_CALL_EXPR_sou(TR_CALL_EXPR self) {
  980.  return self->source_38;
  981. }
  982.  
  983.  
  984. SFILE_ID TR_SELF_EXPR_sou(TR_SELF_EXPR self) {
  985.  return self->source_38;
  986. }
  987.  
  988.  
  989. SFILE_ID TR_IS_VOID_EXPR__8365(TR_IS_VOID_EXPR self) {
  990.  return self->source_38;
  991. }
  992.  
  993.  
  994. SFILE_ID TR_VOID_EXPR_sou(TR_VOID_EXPR self) {
  995.  return self->source_38;
  996. }
  997.  
  998.  
  999. SFILE_ID TR_NEW_EXPR_sour(TR_NEW_EXPR self) {
  1000.  return self->source_38;
  1001. }
  1002.  
  1003.  
  1004. SFILE_ID TR_BOUND_CREATE__8366(TR_BOUND_CREATE_EXPR self) {
  1005.  return self->source_38;
  1006. }
  1007.  
  1008.  
  1009. SFILE_ID TR_UNDERSCORE_AR_8367(TR_UNDERSCORE_ARG self) {
  1010.  return self->source_38;
  1011. }
  1012.  
  1013.  
  1014. SFILE_ID TR_CREATE_EXPR_s_8368(TR_CREATE_EXPR self) {
  1015.  return self->source_38;
  1016. }
  1017.  
  1018.  
  1019. SFILE_ID TR_ARRAY_EXPR_so(TR_ARRAY_EXPR self) {
  1020.  return self->source_38;
  1021. }
  1022.  
  1023.  
  1024. SFILE_ID TR_EXCEPT_EXPR_s_8369(TR_EXCEPT_EXPR self) {
  1025.  return self->source_38;
  1026. }
  1027.  
  1028.  
  1029. SFILE_ID TR_INITIAL_EXPR__8370(TR_INITIAL_EXPR self) {
  1030.  return self->source_38;
  1031. }
  1032.  
  1033.  
  1034. SFILE_ID TR_RESULT_EXPR_s_8371(TR_RESULT_EXPR self) {
  1035.  return self->source_38;
  1036. }
  1037.  
  1038.  
  1039. SFILE_ID TR_BOOL_LIT_EXPR_8372(TR_BOOL_LIT_EXPR self) {
  1040.  return self->source_38;
  1041. }
  1042.  
  1043.  
  1044. SFILE_ID TR_CHAR_LIT_EXPR_8373(TR_CHAR_LIT_EXPR self) {
  1045.  return self->source_38;
  1046. }
  1047.  
  1048.  
  1049. SFILE_ID TR_STR_LIT_EXPR__8374(TR_STR_LIT_EXPR self) {
  1050.  return self->source_38;
  1051. }
  1052.  
  1053.  
  1054. SFILE_ID TR_HERE_EXPR_sou(TR_HERE_EXPR self) {
  1055.  return self->source_38;
  1056. }
  1057.  
  1058.  
  1059. SFILE_ID TR_WHERE_EXPR_so(TR_WHERE_EXPR self) {
  1060.  return self->source_38;
  1061. }
  1062.  
  1063.  
  1064. SFILE_ID TR_NEAR_EXPR_sou(TR_NEAR_EXPR self) {
  1065.  return self->source_38;
  1066. }
  1067.  
  1068.  
  1069. SFILE_ID TR_FAR_EXPR_sour(TR_FAR_EXPR self) {
  1070.  return self->source_38;
  1071. }
  1072.  
  1073.  
  1074. SFILE_ID TR_AND_EXPR_sour(TR_AND_EXPR self) {
  1075.  return self->source_38;
  1076. }
  1077.  
  1078.  
  1079. SFILE_ID TR_OR_EXPR_sourc(TR_OR_EXPR self) {
  1080.  return self->source_38;
  1081. }
  1082.  
  1083.  
  1084. SFILE_ID TR_AT_EXPR_sourc(TR_AT_EXPR self) {
  1085.  return self->source_38;
  1086. }
  1087.  
  1088.  
  1089. SFILE_ID TR_SHARED_DEF_so(TR_SHARED_DEF self) {
  1090.  return self->source_38;
  1091. }
  1092.  
  1093.  
  1094. SFILE_ID TR_ATTR_DEF_sour(TR_ATTR_DEF self) {
  1095.  return self->source_38;
  1096. }
  1097.  
  1098.  
  1099. SFILE_ID TR_IF_STMT_sourc(TR_IF_STMT self) {
  1100.  return self->source_38;
  1101. }
  1102.  
  1103.  
  1104. SFILE_ID TR_LOOP_STMT_sou(TR_LOOP_STMT self) {
  1105.  return self->source_38;
  1106. }
  1107.  
  1108.  
  1109. SFILE_ID TR_RETURN_STMT_s(TR_RETURN_STMT self) {
  1110.  return self->source_38;
  1111. }
  1112.  
  1113.  
  1114. SFILE_ID TR_YIELD_STMT_so(TR_YIELD_STMT self) {
  1115.  return self->source_38;
  1116. }
  1117.  
  1118.  
  1119. SFILE_ID TR_QUIT_STMT_sou(TR_QUIT_STMT self) {
  1120.  return self->source_38;
  1121. }
  1122.  
  1123.  
  1124. SFILE_ID TR_CASE_STMT_sou(TR_CASE_STMT self) {
  1125.  return self->source_38;
  1126. }
  1127.  
  1128.  
  1129. SFILE_ID TR_CASE_WHEN_sou(TR_CASE_WHEN self) {
  1130.  return self->source_38;
  1131. }
  1132.  
  1133.  
  1134. SFILE_ID TR_TYPECASE_STMT_8375(TR_TYPECASE_STMT self) {
  1135.  return self->source_38;
  1136. }
  1137.  
  1138.  
  1139. SFILE_ID TR_TYPECASE_WHEN_8376(TR_TYPECASE_WHEN self) {
  1140.  return self->source_38;
  1141. }
  1142.  
  1143.  
  1144. SFILE_ID TR_ASSERT_STMT_s(TR_ASSERT_STMT self) {
  1145.  return self->source_38;
  1146. }
  1147.  
  1148.  
  1149. SFILE_ID TR_PROTECT_STMT__8377(TR_PROTECT_STMT self) {
  1150.  return self->source_38;
  1151. }
  1152.  
  1153.  
  1154. SFILE_ID TR_PROTECT_WHEN__8378(TR_PROTECT_WHEN self) {
  1155.  return self->source_38;
  1156. }
  1157.  
  1158.  
  1159. SFILE_ID TR_RAISE_STMT_so(TR_RAISE_STMT self) {
  1160.  return self->source_38;
  1161. }
  1162.  
  1163.  
  1164. SFILE_ID TR_COBEGIN_STMT__8379(TR_COBEGIN_STMT self) {
  1165.  return self->source_38;
  1166. }
  1167.  
  1168.  
  1169. SFILE_ID TR_LOCK_STMT_sou(TR_LOCK_STMT self) {
  1170.  return self->source_38;
  1171. }
  1172.  
  1173.  
  1174. SFILE_ID TR_UNLOCK_STMT_s(TR_UNLOCK_STMT self) {
  1175.  return self->source_38;
  1176. }
  1177.  
  1178.  
  1179. SFILE_ID TR_TRY_STMT_sour(TR_TRY_STMT self) {
  1180.  return self->source_38;
  1181. }
  1182.  
  1183.  
  1184. SFILE_ID TR_WITH_NEAR_STM_8380(TR_WITH_NEAR_STMT self) {
  1185.  return self->source_38;
  1186. }
  1187.  
  1188.  
  1189. SFILE_ID TR_IDENT_LIST_so(TR_IDENT_LIST self) {
  1190.  return self->source_38;
  1191. }
  1192.  
  1193.  
  1194. SFILE_ID TR_DIST_STMT_sou(TR_DIST_STMT self) {
  1195.  return self->source_38;
  1196. }
  1197.  
  1198.  
  1199. SFILE_ID TR_FORK_STMT_sou(TR_FORK_STMT self) {
  1200.  return self->source_38;
  1201. }
  1202.  
  1203.  
  1204. SFILE_ID TR_EXPR_STMT_sou(TR_EXPR_STMT self) {
  1205.  return self->source_38;
  1206. }
  1207.  
  1208.  
  1209. SFILE_ID TR_BREAK_EXPR_so(TR_BREAK_EXPR self) {
  1210.  return self->source_38;
  1211. }
  1212.  
  1213.  
  1214. SFILE_ID TR_ASSIGN_STMT_s(TR_ASSIGN_STMT self) {
  1215.  return self->source_38;
  1216. }
  1217.  
  1218.  
  1219. SFILE_ID TR_DEC_STMT_sour(TR_DEC_STMT self) {
  1220.  return self->source_38;
  1221. }
  1222.  
  1223.  
  1224. SFILE_ID AM_LOCAL_EXPR_so(AM_LOCAL_EXPR self) {
  1225.  return self->source_38;
  1226. }
  1227.  
  1228.  
  1229. SFILE_ID AM_BND_CREATE_EX_8381(AM_BND_CREATE_EXPR self) {
  1230.  return self->source_38;
  1231. }
  1232.  
  1233.  
  1234. SFILE_ID AM_GLOBAL_EXPR_s(AM_GLOBAL_EXPR self) {
  1235.  return self->source_38;
  1236. }
  1237.  
  1238.  
  1239. SFILE_ID AM_LOOP_STMT_sou(AM_LOOP_STMT self) {
  1240.  return self->source_38;
  1241. }
  1242.  
  1243.  
  1244. SFILE_ID AM_STR_CONST_sou(AM_STR_CONST self) {
  1245.  return self->source_38;
  1246. }
  1247.  
  1248.  
  1249. SFILE_ID AM_OB_DEF_source(AM_OB_DEF self) {
  1250.  return self->source_38;
  1251. }
  1252.  
  1253.  
  1254. SFILE_ID AM_ROUT_DEF_sour(AM_ROUT_DEF self) {
  1255.  return self->source_38;
  1256. }
  1257.  
  1258.  
  1259. SFILE_ID AM_ARRAY_EXPR_so(AM_ARRAY_EXPR self) {
  1260.  return self->source_38;
  1261. }
  1262.  
  1263.  
  1264. SFILE_ID AM_IF_EXPR_sourc(AM_IF_EXPR self) {
  1265.  return self->source_38;
  1266. }
  1267.  
  1268.  
  1269. SFILE_ID AM_NEW_EXPR_sour(AM_NEW_EXPR self) {
  1270.  return self->source_38;
  1271. }
  1272.  
  1273.  
  1274. SFILE_ID AM_IS_VOID_EXPR__8382(AM_IS_VOID_EXPR self) {
  1275.  return self->source_38;
  1276. }
  1277.  
  1278.  
  1279. SFILE_ID AM_ATTR_EXPR_sou(AM_ATTR_EXPR self) {
  1280.  return self->source_38;
  1281. }
  1282.  
  1283.  
  1284. SFILE_ID AM_ARR_EXPR_sour(AM_ARR_EXPR self) {
  1285.  return self->source_38;
  1286. }
  1287.  
  1288.  
  1289. SFILE_ID AM_VATTR_ASSIGN__8383(AM_VATTR_ASSIGN_EXPR self) {
  1290.  return self->source_38;
  1291. }
  1292.  
  1293.  
  1294. SFILE_ID AM_VARR_ASSIGN_E_8384(AM_VARR_ASSIGN_EXPR self) {
  1295.  return self->source_38;
  1296. }
  1297.  
  1298.  
  1299. SFILE_ID AM_EXCEPT_EXPR_s(AM_EXCEPT_EXPR self) {
  1300.  return self->source_38;
  1301. }
  1302.  
  1303.  
  1304. SFILE_ID AM_STMT_EXPR_sou(AM_STMT_EXPR self) {
  1305.  return self->source_38;
  1306. }
  1307.  
  1308.  
  1309. SFILE_ID AM_ROUT_CALL_EXP_8385(AM_ROUT_CALL_EXPR self) {
  1310.  return self->source_38;
  1311. }
  1312.  
  1313.  
  1314. SFILE_ID AM_ITER_CALL_EXP_8386(AM_ITER_CALL_EXPR self) {
  1315.  return self->source_38;
  1316. }
  1317.  
  1318.  
  1319. SFILE_ID AM_BND_ROUT_CALL_8387(AM_BND_ROUT_CALL self) {
  1320.  return self->source_38;
  1321. }
  1322.  
  1323.  
  1324. SFILE_ID AM_BND_ITER_CALL_8388(AM_BND_ITER_CALL self) {
  1325.  return self->source_38;
  1326. }
  1327.  
  1328.  
  1329. SFILE_ID AM_EXT_CALL_EXPR_8389(AM_EXT_CALL_EXPR self) {
  1330.  return self->source_38;
  1331. }
  1332.  
  1333.  
  1334. SFILE_ID AM_VOID_CONST_so(AM_VOID_CONST self) {
  1335.  return self->source_38;
  1336. }
  1337.  
  1338.  
  1339. SFILE_ID AM_ARR_CONST_sou(AM_ARR_CONST self) {
  1340.  return self->source_38;
  1341. }
  1342.  
  1343.  
  1344. SFILE_ID AM_BOOL_CONST_so(AM_BOOL_CONST self) {
  1345.  return self->source_38;
  1346. }
  1347.  
  1348.  
  1349. SFILE_ID AM_CHAR_CONST_so(AM_CHAR_CONST self) {
  1350.  return self->source_38;
  1351. }
  1352.  
  1353.  
  1354. SFILE_ID AM_INT_CONST_sou(AM_INT_CONST self) {
  1355.  return self->source_38;
  1356. }
  1357.  
  1358.  
  1359. SFILE_ID AM_INTI_CONST_so(AM_INTI_CONST self) {
  1360.  return self->source_38;
  1361. }
  1362.  
  1363.  
  1364. SFILE_ID AM_FLT_CONST_sou(AM_FLT_CONST self) {
  1365.  return self->source_38;
  1366. }
  1367.  
  1368.  
  1369. SFILE_ID AM_FLTD_CONST_so(AM_FLTD_CONST self) {
  1370.  return self->source_38;
  1371. }
  1372.  
  1373.  
  1374. SFILE_ID AM_FLTX_CONST_so(AM_FLTX_CONST self) {
  1375.  return self->source_38;
  1376. }
  1377.  
  1378.  
  1379. SFILE_ID AM_FLTDX_CONST_s(AM_FLTDX_CONST self) {
  1380.  return self->source_38;
  1381. }
  1382.  
  1383.  
  1384. SFILE_ID AM_FLTI_CONST_so(AM_FLTI_CONST self) {
  1385.  return self->source_38;
  1386. }
  1387.  
  1388.  
  1389. SFILE_ID AM_ASSIGN_STMT_s(AM_ASSIGN_STMT self) {
  1390.  return self->source_38;
  1391. }
  1392.  
  1393.  
  1394. SFILE_ID AM_IF_STMT_sourc(AM_IF_STMT self) {
  1395.  return self->source_38;
  1396. }
  1397.  
  1398.  
  1399. SFILE_ID AM_BREAK_STMT_so(AM_BREAK_STMT self) {
  1400.  return self->source_38;
  1401. }
  1402.  
  1403.  
  1404. SFILE_ID AM_RETURN_STMT_s(AM_RETURN_STMT self) {
  1405.  return self->source_38;
  1406. }
  1407.  
  1408.  
  1409. SFILE_ID AM_YIELD_STMT_so(AM_YIELD_STMT self) {
  1410.  return self->source_38;
  1411. }
  1412.  
  1413.  
  1414. SFILE_ID AM_CASE_STMT_sou(AM_CASE_STMT self) {
  1415.  return self->source_38;
  1416. }
  1417.  
  1418.  
  1419. SFILE_ID AM_TYPECASE_STMT_8390(AM_TYPECASE_STMT self) {
  1420.  return self->source_38;
  1421. }
  1422.  
  1423.  
  1424. SFILE_ID AM_PRE_STMT_sour(AM_PRE_STMT self) {
  1425.  return self->source_38;
  1426. }
  1427.  
  1428.  
  1429. SFILE_ID AM_POST_STMT_sou(AM_POST_STMT self) {
  1430.  return self->source_38;
  1431. }
  1432.  
  1433.  
  1434. SFILE_ID AM_INITIAL_STMT__8391(AM_INITIAL_STMT self) {
  1435.  return self->source_38;
  1436. }
  1437.  
  1438.  
  1439. SFILE_ID AM_ASSERT_STMT_s(AM_ASSERT_STMT self) {
  1440.  return self->source_38;
  1441. }
  1442.  
  1443.  
  1444. SFILE_ID AM_INVARIANT_STM_8392(AM_INVARIANT_STMT self) {
  1445.  return self->source_38;
  1446. }
  1447.  
  1448.  
  1449. SFILE_ID AM_PROTECT_STMT__8393(AM_PROTECT_STMT self) {
  1450.  return self->source_38;
  1451. }
  1452.  
  1453.  
  1454. SFILE_ID AM_RAISE_STMT_so(AM_RAISE_STMT self) {
  1455.  return self->source_38;
  1456. }
  1457.  
  1458.  
  1459. SFILE_ID AM_EXPR_STMT_sou(AM_EXPR_STMT self) {
  1460.  return self->source_38;
  1461. }
  1462.  
  1463.  
  1464. SFILE_ID TR_CLASS_ELT_sou_8394(TR_CLASS_ELT_45 self) {
  1465.  return self->source_38;
  1466. }
  1467.  
  1468.  
  1469. SFILE_ID TR_EXPR_source_S_8395(TR_EXPR_52 self) {
  1470.  return self->source_38;
  1471. }
  1472.  
  1473.  
  1474. SFILE_ID AM_CONST_source_(AM_CONST_53 self) {
  1475.  return self->source_38;
  1476. }
  1477.  
  1478.  
  1479. SFILE_ID TR_STMT_source_S_8396(TR_STMT_39 self) {
  1480.  return self->source_38;
  1481. }
  1482.  
  1483. INT TUPBOOLINTIINTBO_7880_unbox(TUPBOOLINTIINTBOOL_boxed arg0) {
  1484.  return TUPBOOLINTIINTBO_7880(arg0->value_part);
  1485. }
  1486.  
  1487.  
  1488. INT TUPAM_EXPRTP_has_unbox(TUPAM_EXPRTP_boxed arg0) {
  1489.  return TUPAM_EXPRTP_has(arg0->value_part);
  1490. }
  1491.  
  1492.  
  1493. INT TUPFLISTAM_CONST_7883_unbox(TUPFLISTAM_CONST_boxed arg0) {
  1494.  return TUPFLISTAM_CONST_7883(arg0->value_part);
  1495. }
  1496.  
  1497.  
  1498. INT TUPOBSTR_hash_INT_unbox(TUPOBSTR_boxed arg0) {
  1499.  return TUPOBSTR_hash_INT(arg0->value_part);
  1500. }
  1501.  
  1502.  
  1503. INT TUPINTINT_hash_INT_unbox(TUPINTINT_boxed arg0) {
  1504.  return TUPINTINT_hash_INT(arg0->value_part);
  1505. }
  1506.  
  1507.  
  1508. INT TUPAM_STMTAM_STM_unbox(TUPAM_STMTAM_STMT_boxed arg0) {
  1509.  return TUPAM_STMTAM_STM(arg0->value_part);
  1510. }
  1511.  
  1512.  
  1513. INT TUPTP_CLASSTP_CL_unbox(TUPTP_CLASSTP_CLASS_boxed arg0) {
  1514.  return TUPTP_CLASSTP_CL(arg0->value_part);
  1515. }
  1516.  
  1517.  
  1518. INT TUPTPIFC_hash_INT_unbox(TUPTPIFC_boxed arg0) {
  1519.  return TUPTPIFC_hash_INT(arg0->value_part);
  1520. }
  1521.  
  1522.  
  1523. INT TUPAM_EXPRAM_EXP_unbox(TUPAM_EXPRAM_EXPR_boxed arg0) {
  1524.  return TUPAM_EXPRAM_EXP(arg0->value_part);
  1525. }
  1526.  
  1527.  
  1528. INT TUPIDENTARRAYTP__7891_unbox(TUPIDENTARRAYTP_boxed arg0) {
  1529.  return TUPIDENTARRAYTP__7891(arg0->value_part);
  1530. }
  1531.  
  1532.  
  1533. INT TUPIDENTTP_hash_INT_unbox(TUPIDENTTP_boxed arg0) {
  1534.  return TUPIDENTTP_hash_INT(arg0->value_part);
  1535. }
  1536.  
  1537.  
  1538. INT TUPCHARCHAR_hash_INT_unbox(TUPCHARCHAR_boxed arg0) {
  1539.  return TUPCHARCHAR_hash_INT(arg0->value_part);
  1540. }
  1541.  
  1542.  
  1543. INT TUPTP_CLASSFSETT_7896_unbox(TUPTP_CLASSFSETT_boxed arg0) {
  1544.  return TUPTP_CLASSFSETT_7896(arg0->value_part);
  1545. }
  1546.  
  1547.  
  1548. INT TUPIDENTIDENT_ha_unbox(TUPIDENTIDENT_boxed arg0) {
  1549.  return TUPIDENTIDENT_ha(arg0->value_part);
  1550. }
  1551.  
  1552.  
  1553. INT TUPIDENTINT_hash_INT_unbox(TUPIDENTINT_boxed arg0) {
  1554.  return TUPIDENTINT_hash_INT(arg0->value_part);
  1555. }
  1556.  
  1557.  
  1558. INT TUPTPINT_hash_INT_unbox(TUPTPINT_boxed arg0) {
  1559.  return TUPTPINT_hash_INT(arg0->value_part);
  1560. }
  1561.  
  1562.  
  1563. INT TUPTPTP_hash_INT_unbox(TUPTPTP_boxed arg0) {
  1564.  return TUPTPTP_hash_INT(arg0->value_part);
  1565. }
  1566.  
  1567.  
  1568. INT TUPAM_ROUT_DEFAM_7901_unbox(TUPAM_ROUT_DEFAM_boxed arg0) {
  1569.  return TUPAM_ROUT_DEFAM_7901(arg0->value_part);
  1570. }
  1571.  
  1572.  
  1573. INT TUPSTRFSETSTR_ha_unbox(TUPSTRFSETSTR_boxed arg0) {
  1574.  return TUPSTRFSETSTR_ha(arg0->value_part);
  1575. }
  1576.  
  1577.  
  1578. INT TUPAM_LOCAL_EXPR_7904_unbox(TUPAM_LOCAL_EXPR_boxed arg0) {
  1579.  return TUPAM_LOCAL_EXPR_7904(arg0->value_part);
  1580. }
  1581.  
  1582.  
  1583. INT TUPAM_BND_ITER_C_7906_unbox(TUPAM_BND_ITER_C_boxed arg0) {
  1584.  return TUPAM_BND_ITER_C_7906(arg0->value_part);
  1585. }
  1586.  
  1587.  
  1588. INT TUPIDENTAM_GLOBA_7908_unbox(TUPIDENTAM_GLOBA_boxed arg0) {
  1589.  return TUPIDENTAM_GLOBA_7908(arg0->value_part);
  1590. }
  1591.  
  1592.  
  1593. INT TUPARRAYTPARRAYB_7910_unbox(TUPARRAYTPARRAYB_boxed arg0) {
  1594.  return TUPARRAYTPARRAYB_7910(arg0->value_part);
  1595. }
  1596.  
  1597.  
  1598. INT TUPSIGAM_ROUT_DE_7912_unbox(TUPSIGAM_ROUT_DEF_boxed arg0) {
  1599.  return TUPSIGAM_ROUT_DE_7912(arg0->value_part);
  1600. }
  1601.  
  1602.  
  1603. INT TUPTPIMPL_hash_INT_unbox(TUPTPIMPL_boxed arg0) {
  1604.  return TUPTPIMPL_hash_INT(arg0->value_part);
  1605. }
  1606.  
  1607.  
  1608. INT TUPSTRTUPSTRSTR__7916_unbox(TUPSTRTUPSTRSTR_boxed arg0) {
  1609.  return TUPSTRTUPSTRSTR__7916(arg0->value_part);
  1610. }
  1611.  
  1612.  
  1613. INT TUPAM_CONSTAM_CO_unbox(TUPAM_CONSTAM_CONST_boxed arg0) {
  1614.  return TUPAM_CONSTAM_CO(arg0->value_part);
  1615. }
  1616.  
  1617.  
  1618. INT TUPARRAYTPTP_has_unbox(TUPARRAYTPTP_boxed arg0) {
  1619.  return TUPARRAYTPTP_has(arg0->value_part);
  1620. }
  1621.  
  1622.  
  1623. INT TUPTPFMAPIDENTAM_7920_unbox(TUPTPFMAPIDENTAM_boxed arg0) {
  1624.  return TUPTPFMAPIDENTAM_7920(arg0->value_part);
  1625. }
  1626.  
  1627.  
  1628. INT TUPTR_EXPRTR_EXP_unbox(TUPTR_EXPRTR_EXPR_boxed arg0) {
  1629.  return TUPTR_EXPRTR_EXP(arg0->value_part);
  1630. }
  1631.  
  1632.  
  1633. INT TUPAM_ITER_CALL__7923_unbox(TUPAM_ITER_CALL__boxed arg0) {
  1634.  return TUPAM_ITER_CALL__7923(arg0->value_part);
  1635. }
  1636.  
  1637.  
  1638. INT TUPSFILE_IDSFILE_unbox(TUPSFILE_IDSFILE_ID_boxed arg0) {
  1639.  return TUPSFILE_IDSFILE(arg0->value_part);
  1640. }
  1641.  
  1642.  
  1643. INT TUPINTINTINT_has_unbox(TUPINTINTINT_boxed arg0) {
  1644.  return TUPINTINTINT_has(arg0->value_part);
  1645. }
  1646.  
  1647.  
  1648. INT TUPSTRSTR_hash_INT_unbox(TUPSTRSTR_boxed arg0) {
  1649.  return TUPSTRSTR_hash_INT(arg0->value_part);
  1650. }
  1651.  
  1652.  
  1653. INT TUPTP_CLASSFSETT_7927_unbox(TUPTP_CLASSFSETTP_boxed arg0) {
  1654.  return TUPTP_CLASSFSETT_7927(arg0->value_part);
  1655. }
  1656.  
  1657.  
  1658. INT INT_hash_INT_unbox(INT_boxed arg0) {
  1659.  return INT_hash_INT(arg0->value_part);
  1660. }
  1661.  
  1662.  
  1663. INT CHAR_hash_INT_unbox(CHAR_boxed arg0) {
  1664.  return CHAR_hash_INT(arg0->value_part);
  1665. }
  1666.  
  1667.  
  1668. INT TUPSIGSIG_hash_INT_unbox(TUPSIGSIG_boxed arg0) {
  1669.  return TUPSIGSIG_hash_INT(arg0->value_part);
  1670. }
  1671.  
  1672.  
  1673. INT TUPAM_GLOBAL_EXP_7934_unbox(TUPAM_GLOBAL_EXP_boxed arg0) {
  1674.  return TUPAM_GLOBAL_EXP_7934(arg0->value_part);
  1675. }
  1676.  
  1677.  
  1678. INT TUPSTRITER_INLIN_7936_unbox(TUPSTRITER_INLINE_boxed arg0) {
  1679.  return TUPSTRITER_INLIN_7936(arg0->value_part);
  1680. }
  1681.  
  1682.  
  1683. INT TUPIFCIFC_hash_INT_unbox(TUPIFCIFC_boxed arg0) {
  1684.  return TUPIFCIFC_hash_INT(arg0->value_part);
  1685. }
  1686.  
  1687.  
  1688. INT TUPAM_BND_CREATE_7939_unbox(TUPAM_BND_CREATE_boxed arg0) {
  1689.  return TUPAM_BND_CREATE_7939(arg0->value_part);
  1690. }
  1691.  
  1692.  
  1693. INT TUPIMPL_INCLUDEI_7941_unbox(TUPIMPL_INCLUDEI_boxed arg0) {
  1694.  return TUPIMPL_INCLUDEI_7941(arg0->value_part);
  1695. }
  1696.  
  1697.  
  1698. INT IDENT_hash_INT_unbox(IDENT_boxed arg0) {
  1699.  return IDENT_hash_INT(arg0->value_part);
  1700. }
  1701.  
  1702.  
  1703.  
  1704. void TR_INT_LIT_EXPR__8397(TR_INT_LIT_EXPR self, SFILE_ID source_8398) {
  1705.  self->source_38 = source_8398;
  1706. }
  1707.  
  1708.  
  1709. void TR_FLT_LIT_EXPR__8399(TR_FLT_LIT_EXPR self, SFILE_ID source_8400) {
  1710.  self->source_38 = source_8400;
  1711. }
  1712.  
  1713.  
  1714. void TR_CALL_EXPR_sou_8401(TR_CALL_EXPR self, SFILE_ID source_8402) {
  1715.  self->source_38 = source_8402;
  1716. }
  1717.  
  1718.  
  1719. void TR_SELF_EXPR_sou_8403(TR_SELF_EXPR self, SFILE_ID source_8404) {
  1720.  self->source_38 = source_8404;
  1721. }
  1722.  
  1723.  
  1724. void TR_IS_VOID_EXPR__8405(TR_IS_VOID_EXPR self, SFILE_ID source_8406) {
  1725.  self->source_38 = source_8406;
  1726. }
  1727.  
  1728.  
  1729. void TR_VOID_EXPR_sou_8407(TR_VOID_EXPR self, SFILE_ID source_8408) {
  1730.  self->source_38 = source_8408;
  1731. }
  1732.  
  1733.  
  1734. void TR_NEW_EXPR_sour_8409(TR_NEW_EXPR self, SFILE_ID source_8410) {
  1735.  self->source_38 = source_8410;
  1736. }
  1737.  
  1738.  
  1739. void TR_BOUND_CREATE__8411(TR_BOUND_CREATE_EXPR self, SFILE_ID source_8412) {
  1740.  self->source_38 = source_8412;
  1741. }
  1742.  
  1743.  
  1744. void TR_UNDERSCORE_AR_8413(TR_UNDERSCORE_ARG self, SFILE_ID source_8414) {
  1745.  self->source_38 = source_8414;
  1746. }
  1747.  
  1748.  
  1749. void TR_CREATE_EXPR_s_8415(TR_CREATE_EXPR self, SFILE_ID source_8416) {
  1750.  self->source_38 = source_8416;
  1751. }
  1752.  
  1753.  
  1754. void TR_ARRAY_EXPR_so_8417(TR_ARRAY_EXPR self, SFILE_ID source_8418) {
  1755.  self->source_38 = source_8418;
  1756. }
  1757.  
  1758.  
  1759. void TR_EXCEPT_EXPR_s_8419(TR_EXCEPT_EXPR self, SFILE_ID source_8420) {
  1760.  self->source_38 = source_8420;
  1761. }
  1762.  
  1763.  
  1764. void TR_INITIAL_EXPR__8421(TR_INITIAL_EXPR self, SFILE_ID source_8422) {
  1765.  self->source_38 = source_8422;
  1766. }
  1767.  
  1768.  
  1769. void TR_RESULT_EXPR_s_8423(TR_RESULT_EXPR self, SFILE_ID source_8424) {
  1770.  self->source_38 = source_8424;
  1771. }
  1772.  
  1773.  
  1774. void TR_BOOL_LIT_EXPR_8425(TR_BOOL_LIT_EXPR self, SFILE_ID source_8426) {
  1775.  self->source_38 = source_8426;
  1776. }
  1777.  
  1778.  
  1779. void TR_CHAR_LIT_EXPR_8427(TR_CHAR_LIT_EXPR self, SFILE_ID source_8428) {
  1780.  self->source_38 = source_8428;
  1781. }
  1782.  
  1783.  
  1784. void TR_STR_LIT_EXPR__8429(TR_STR_LIT_EXPR self, SFILE_ID source_8430) {
  1785.  self->source_38 = source_8430;
  1786. }
  1787.  
  1788.  
  1789. void TR_HERE_EXPR_sou_8431(TR_HERE_EXPR self, SFILE_ID source_8432) {
  1790.  self->source_38 = source_8432;
  1791. }
  1792.  
  1793.  
  1794. void TR_WHERE_EXPR_so_8433(TR_WHERE_EXPR self, SFILE_ID source_8434) {
  1795.  self->source_38 = source_8434;
  1796. }
  1797.  
  1798.  
  1799. void TR_NEAR_EXPR_sou_8435(TR_NEAR_EXPR self, SFILE_ID source_8436) {
  1800.  self->source_38 = source_8436;
  1801. }
  1802.  
  1803.  
  1804. void TR_FAR_EXPR_sour_8437(TR_FAR_EXPR self, SFILE_ID source_8438) {
  1805.  self->source_38 = source_8438;
  1806. }
  1807.  
  1808.  
  1809. void TR_AND_EXPR_sour_8439(TR_AND_EXPR self, SFILE_ID source_8440) {
  1810.  self->source_38 = source_8440;
  1811. }
  1812.  
  1813.  
  1814. void TR_OR_EXPR_sourc_8441(TR_OR_EXPR self, SFILE_ID source_8442) {
  1815.  self->source_38 = source_8442;
  1816. }
  1817.  
  1818.  
  1819. void TR_AT_EXPR_sourc_8443(TR_AT_EXPR self, SFILE_ID source_8444) {
  1820.  self->source_38 = source_8444;
  1821. }
  1822.  
  1823.  
  1824. void TR_BREAK_EXPR_so_8445(TR_BREAK_EXPR self, SFILE_ID source_8446) {
  1825.  self->source_38 = source_8446;
  1826. }
  1827.  
  1828.  
  1829. void TR_EXPR_source_S_8447(TR_EXPR_52 self, SFILE_ID source_8448) {
  1830.  self->source_38 = source_8448;
  1831. }
  1832.  
  1833.  
  1834. TR_EXPR TR_INT_LIT_EXPR__8449(TR_INT_LIT_EXPR self) {
  1835.  return self->next_8;
  1836. }
  1837.  
  1838.  
  1839. TR_EXPR TR_FLT_LIT_EXPR__8450(TR_FLT_LIT_EXPR self) {
  1840.  return self->next_8;
  1841. }
  1842.  
  1843.  
  1844. TR_EXPR TR_CALL_EXPR_nex(TR_CALL_EXPR self) {
  1845.  return self->next_8;
  1846. }
  1847.  
  1848.  
  1849. TR_EXPR TR_SELF_EXPR_nex(TR_SELF_EXPR self) {
  1850.  return self->next_8;
  1851. }
  1852.  
  1853.  
  1854. TR_EXPR TR_IS_VOID_EXPR__8451(TR_IS_VOID_EXPR self) {
  1855.  return self->next_8;
  1856. }
  1857.  
  1858.  
  1859. TR_EXPR TR_VOID_EXPR_nex(TR_VOID_EXPR self) {
  1860.  return self->next_8;
  1861. }
  1862.  
  1863.  
  1864. TR_EXPR TR_NEW_EXPR_next(TR_NEW_EXPR self) {
  1865.  return self->next_8;
  1866. }
  1867.  
  1868.  
  1869. TR_EXPR TR_BOUND_CREATE__8452(TR_BOUND_CREATE_EXPR self) {
  1870.  return self->next_8;
  1871. }
  1872.  
  1873.  
  1874. TR_EXPR TR_UNDERSCORE_AR_8453(TR_UNDERSCORE_ARG self) {
  1875.  return self->next_8;
  1876. }
  1877.  
  1878.  
  1879. TR_EXPR TR_CREATE_EXPR_n(TR_CREATE_EXPR self) {
  1880.  return self->next_8;
  1881. }
  1882.  
  1883.  
  1884. TR_EXPR TR_ARRAY_EXPR_ne(TR_ARRAY_EXPR self) {
  1885.  return self->next_8;
  1886. }
  1887.  
  1888.  
  1889. TR_EXPR TR_EXCEPT_EXPR_n(TR_EXCEPT_EXPR self) {
  1890.  return self->next_8;
  1891. }
  1892.  
  1893.  
  1894. TR_EXPR TR_INITIAL_EXPR__8454(TR_INITIAL_EXPR self) {
  1895.  return self->next_8;
  1896. }
  1897.  
  1898.  
  1899. TR_EXPR TR_RESULT_EXPR_n(TR_RESULT_EXPR self) {
  1900.  return self->next_8;
  1901. }
  1902.  
  1903.  
  1904. TR_EXPR TR_BOOL_LIT_EXPR_8455(TR_BOOL_LIT_EXPR self) {
  1905.  return self->next_8;
  1906. }
  1907.  
  1908.  
  1909. TR_EXPR TR_CHAR_LIT_EXPR_8456(TR_CHAR_LIT_EXPR self) {
  1910.  return self->next_8;
  1911. }
  1912.  
  1913.  
  1914. TR_EXPR TR_STR_LIT_EXPR__8457(TR_STR_LIT_EXPR self) {
  1915.  return self->next_8;
  1916. }
  1917.  
  1918.  
  1919. TR_EXPR TR_HERE_EXPR_nex(TR_HERE_EXPR self) {
  1920.  return self->next_8;
  1921. }
  1922.  
  1923.  
  1924. TR_EXPR TR_WHERE_EXPR_ne(TR_WHERE_EXPR self) {
  1925.  return self->next_8;
  1926. }
  1927.  
  1928.  
  1929. TR_EXPR TR_NEAR_EXPR_nex(TR_NEAR_EXPR self) {
  1930.  return self->next_8;
  1931. }
  1932.  
  1933.  
  1934. TR_EXPR TR_FAR_EXPR_next(TR_FAR_EXPR self) {
  1935.  return self->next_8;
  1936. }
  1937.  
  1938.  
  1939. TR_EXPR TR_AND_EXPR_next(TR_AND_EXPR self) {
  1940.  return self->next_8;
  1941. }
  1942.  
  1943.  
  1944. TR_EXPR TR_OR_EXPR_next_(TR_OR_EXPR self) {
  1945.  return self->next_8;
  1946. }
  1947.  
  1948.  
  1949. TR_EXPR TR_AT_EXPR_next_(TR_AT_EXPR self) {
  1950.  return self->next_8;
  1951. }
  1952.  
  1953.  
  1954. TR_EXPR TR_BREAK_EXPR_ne(TR_BREAK_EXPR self) {
  1955.  return self->next_8;
  1956. }
  1957.  
  1958.  
  1959. TR_EXPR TR_EXPR_next_TR__8458(TR_EXPR_52 self) {
  1960.  return self->next_8;
  1961. }
  1962.  
  1963.  
  1964. TR_CLASS_ELT TR_ROUT_DEF_next(TR_ROUT_DEF self) {
  1965.  return self->next_8;
  1966. }
  1967.  
  1968.  
  1969. TR_CLASS_ELT TR_INCLUDE_CLAUS_8459(TR_INCLUDE_CLAUSE self) {
  1970.  return self->next_8;
  1971. }
  1972.  
  1973.  
  1974. TR_CLASS_ELT TR_CONST_DEF_nex(TR_CONST_DEF self) {
  1975.  return self->next_8;
  1976. }
  1977.  
  1978.  
  1979. TR_CLASS_ELT TR_SHARED_DEF_ne(TR_SHARED_DEF self) {
  1980.  return self->next_8;
  1981. }
  1982.  
  1983.  
  1984. TR_CLASS_ELT TR_ATTR_DEF_next(TR_ATTR_DEF self) {
  1985.  return self->next_8;
  1986. }
  1987.  
  1988.  
  1989. TR_CLASS_ELT TR_CLASS_ELT_nex_8460(TR_CLASS_ELT_45 self) {
  1990.  return self->next_8;
  1991. }
  1992.  
  1993.  
  1994. void TR_IF_STMT_sourc_8461(TR_IF_STMT self, SFILE_ID source_8462) {
  1995.  self->source_38 = source_8462;
  1996. }
  1997.  
  1998.  
  1999. void TR_LOOP_STMT_sou_8463(TR_LOOP_STMT self, SFILE_ID source_8464) {
  2000.  self->source_38 = source_8464;
  2001. }
  2002.  
  2003.  
  2004. void TR_RETURN_STMT_s_8465(TR_RETURN_STMT self, SFILE_ID source_8466) {
  2005.  self->source_38 = source_8466;
  2006. }
  2007.  
  2008.  
  2009. void TR_YIELD_STMT_so_8467(TR_YIELD_STMT self, SFILE_ID source_8468) {
  2010.  self->source_38 = source_8468;
  2011. }
  2012.  
  2013.  
  2014. void TR_QUIT_STMT_sou_8469(TR_QUIT_STMT self, SFILE_ID source_8470) {
  2015.  self->source_38 = source_8470;
  2016. }
  2017.  
  2018.  
  2019. void TR_CASE_STMT_sou_8471(TR_CASE_STMT self, SFILE_ID source_8472) {
  2020.  self->source_38 = source_8472;
  2021. }
  2022.  
  2023.  
  2024. void TR_TYPECASE_STMT_8473(TR_TYPECASE_STMT self, SFILE_ID source_8474) {
  2025.  self->source_38 = source_8474;
  2026. }
  2027.  
  2028.  
  2029. void TR_ASSERT_STMT_s_8475(TR_ASSERT_STMT self, SFILE_ID source_8476) {
  2030.  self->source_38 = source_8476;
  2031. }
  2032.  
  2033.  
  2034. void TR_PROTECT_STMT__8477(TR_PROTECT_STMT self, SFILE_ID source_8478) {
  2035.  self->source_38 = source_8478;
  2036. }
  2037.  
  2038.  
  2039. void TR_RAISE_STMT_so_8479(TR_RAISE_STMT self, SFILE_ID source_8480) {
  2040.  self->source_38 = source_8480;
  2041. }
  2042.  
  2043.  
  2044. void TR_COBEGIN_STMT__8481(TR_COBEGIN_STMT self, SFILE_ID source_8482) {
  2045.  self->source_38 = source_8482;
  2046. }
  2047.  
  2048.  
  2049. void TR_LOCK_STMT_sou_8483(TR_LOCK_STMT self, SFILE_ID source_8484) {
  2050.  self->source_38 = source_8484;
  2051. }
  2052.  
  2053.  
  2054. void TR_UNLOCK_STMT_s_8485(TR_UNLOCK_STMT self, SFILE_ID source_8486) {
  2055.  self->source_38 = source_8486;
  2056. }
  2057.  
  2058.  
  2059. void TR_TRY_STMT_sour_8487(TR_TRY_STMT self, SFILE_ID source_8488) {
  2060.  self->source_38 = source_8488;
  2061. }
  2062.  
  2063.  
  2064. void TR_WITH_NEAR_STM_8489(TR_WITH_NEAR_STMT self, SFILE_ID source_8490) {
  2065.  self->source_38 = source_8490;
  2066. }
  2067.  
  2068.  
  2069. void TR_DIST_STMT_sou_8491(TR_DIST_STMT self, SFILE_ID source_8492) {
  2070.  self->source_38 = source_8492;
  2071. }
  2072.  
  2073.  
  2074. void TR_FORK_STMT_sou_8493(TR_FORK_STMT self, SFILE_ID source_8494) {
  2075.  self->source_38 = source_8494;
  2076. }
  2077.  
  2078.  
  2079. void TR_EXPR_STMT_sou_8495(TR_EXPR_STMT self, SFILE_ID source_8496) {
  2080.  self->source_38 = source_8496;
  2081. }
  2082.  
  2083.  
  2084. void TR_ASSIGN_STMT_s_8497(TR_ASSIGN_STMT self, SFILE_ID source_8498) {
  2085.  self->source_38 = source_8498;
  2086. }
  2087.  
  2088.  
  2089. void TR_DEC_STMT_sour_8499(TR_DEC_STMT self, SFILE_ID source_8500) {
  2090.  self->source_38 = source_8500;
  2091. }
  2092.  
  2093.  
  2094. void TR_STMT_source_S_8501(TR_STMT_39 self, SFILE_ID source_8502) {
  2095.  self->source_38 = source_8502;
  2096. }
  2097.  
  2098.  
  2099. TR_STMT TR_IF_STMT_next_(TR_IF_STMT self) {
  2100.  return self->next_8;
  2101. }
  2102.  
  2103.  
  2104. TR_STMT TR_LOOP_STMT_nex(TR_LOOP_STMT self) {
  2105.  return self->next_8;
  2106. }
  2107.  
  2108.  
  2109. TR_STMT TR_RETURN_STMT_n(TR_RETURN_STMT self) {
  2110.  return self->next_8;
  2111. }
  2112.  
  2113.  
  2114. TR_STMT TR_YIELD_STMT_ne(TR_YIELD_STMT self) {
  2115.  return self->next_8;
  2116. }
  2117.  
  2118.  
  2119. TR_STMT TR_QUIT_STMT_nex(TR_QUIT_STMT self) {
  2120.  return self->next_8;
  2121. }
  2122.  
  2123.  
  2124. TR_STMT TR_CASE_STMT_nex(TR_CASE_STMT self) {
  2125.  return self->next_8;
  2126. }
  2127.  
  2128.  
  2129. TR_STMT TR_TYPECASE_STMT_8503(TR_TYPECASE_STMT self) {
  2130.  return self->next_8;
  2131. }
  2132.  
  2133.  
  2134. TR_STMT TR_ASSERT_STMT_n(TR_ASSERT_STMT self) {
  2135.  return self->next_8;
  2136. }
  2137.  
  2138.  
  2139. TR_STMT TR_PROTECT_STMT__8504(TR_PROTECT_STMT self) {
  2140.  return self->next_8;
  2141. }
  2142.  
  2143.  
  2144. TR_STMT TR_RAISE_STMT_ne(TR_RAISE_STMT self) {
  2145.  return self->next_8;
  2146. }
  2147.  
  2148.  
  2149. TR_STMT TR_COBEGIN_STMT__8505(TR_COBEGIN_STMT self) {
  2150.  return self->next_8;
  2151. }
  2152.  
  2153.  
  2154. TR_STMT TR_LOCK_STMT_nex(TR_LOCK_STMT self) {
  2155.  return self->next_8;
  2156. }
  2157.  
  2158.  
  2159. TR_STMT TR_UNLOCK_STMT_n(TR_UNLOCK_STMT self) {
  2160.  return self->next_8;
  2161. }
  2162.  
  2163.  
  2164. TR_STMT TR_TRY_STMT_next(TR_TRY_STMT self) {
  2165.  return self->next_8;
  2166. }
  2167.  
  2168.  
  2169. TR_STMT TR_WITH_NEAR_STM_8506(TR_WITH_NEAR_STMT self) {
  2170.  return self->next_8;
  2171. }
  2172.  
  2173.  
  2174. TR_STMT TR_DIST_STMT_nex(TR_DIST_STMT self) {
  2175.  return self->next_8;
  2176. }
  2177.  
  2178.  
  2179. TR_STMT TR_FORK_STMT_nex(TR_FORK_STMT self) {
  2180.  return self->next_8;
  2181. }
  2182.  
  2183.  
  2184. TR_STMT TR_EXPR_STMT_nex(TR_EXPR_STMT self) {
  2185.  return self->next_8;
  2186. }
  2187.  
  2188.  
  2189. TR_STMT TR_ASSIGN_STMT_n(TR_ASSIGN_STMT self) {
  2190.  return self->next_8;
  2191. }
  2192.  
  2193.  
  2194. TR_STMT TR_DEC_STMT_next(TR_DEC_STMT self) {
  2195.  return self->next_8;
  2196. }
  2197.  
  2198.  
  2199. TR_STMT TR_STMT_next_TR__8507(TR_STMT_39 self) {
  2200.  return self->next_8;
  2201. }
  2202.  
  2203.  
  2204. PROG TP_CLASS_prog_PROG(TP_CLASS self) {
  2205.  return self->prog;
  2206. }
  2207.  
  2208.  
  2209. PROG TP_ROUT_prog_PROG(TP_ROUT self) {
  2210.  return self->prog;
  2211. }
  2212.  
  2213.  
  2214. PROG TP_ITER_prog_PROG(TP_ITER self) {
  2215.  return self->prog;
  2216. }
  2217.  
  2218.  
  2219. BOOL TR_ROUT_DEF_is_p(TR_ROUT_DEF self) {
  2220.  return self->is_private;
  2221. }
  2222.  
  2223.  
  2224. BOOL TR_INCLUDE_CLAUS_8508(TR_INCLUDE_CLAUSE self) {
  2225.  return self->is_private;
  2226. }
  2227.  
  2228.  
  2229. BOOL TR_CONST_DEF_is_(TR_CONST_DEF self) {
  2230.  return self->is_private;
  2231. }
  2232.  
  2233.  
  2234. BOOL TR_SHARED_DEF_is(TR_SHARED_DEF self) {
  2235.  return self->is_private;
  2236. }
  2237.  
  2238.  
  2239. BOOL TR_ATTR_DEF_is_p(TR_ATTR_DEF self) {
  2240.  return self->is_private;
  2241. }
  2242.  
  2243.  
  2244. BOOL TR_CLASS_ELT_is__8509(TR_CLASS_ELT_45 self) {
  2245.  return self->is_private;
  2246. }
  2247.  
  2248.  
  2249. INT TP_ROUT_kind_INT(TP_ROUT self) {
  2250.  INT noname8510 = ((INT) 0);
  2251.  return shared_TP_KIND_r;
  2252. }
  2253.  
  2254.  
  2255. INT TP_ITER_kind_INT(TP_ITER self) {
  2256.  INT noname8511 = ((INT) 0);
  2257.  return shared_TP_KIND_i;
  2258. }
  2259.  
  2260.  
  2261. AM_STMT AM_LOOP_STMT_nex(AM_LOOP_STMT self) {
  2262.  return self->next_8;
  2263. }
  2264.  
  2265.  
  2266. AM_STMT AM_ASSIGN_STMT_n(AM_ASSIGN_STMT self) {
  2267.  return self->next_8;
  2268. }
  2269.  
  2270.  
  2271. AM_STMT AM_IF_STMT_next_(AM_IF_STMT self) {
  2272.  return self->next_8;
  2273. }
  2274.  
  2275.  
  2276. AM_STMT AM_BREAK_STMT_ne(AM_BREAK_STMT self) {
  2277.  return self->next_8;
  2278. }
  2279.  
  2280.  
  2281. AM_STMT AM_RETURN_STMT_n(AM_RETURN_STMT self) {
  2282.  return self->next_8;
  2283. }
  2284.  
  2285.  
  2286. AM_STMT AM_YIELD_STMT_ne(AM_YIELD_STMT self) {
  2287.  return self->next_8;
  2288. }
  2289.  
  2290.  
  2291. AM_STMT AM_CASE_STMT_nex(AM_CASE_STMT self) {
  2292.  return self->next_8;
  2293. }
  2294.  
  2295.  
  2296. AM_STMT AM_TYPECASE_STMT_8512(AM_TYPECASE_STMT self) {
  2297.  return self->next_8;
  2298. }
  2299.  
  2300.  
  2301. AM_STMT AM_PRE_STMT_next(AM_PRE_STMT self) {
  2302.  return self->next_8;
  2303. }
  2304.  
  2305.  
  2306. AM_STMT AM_POST_STMT_nex(AM_POST_STMT self) {
  2307.  return self->next_8;
  2308. }
  2309.  
  2310.  
  2311. AM_STMT AM_INITIAL_STMT__8513(AM_INITIAL_STMT self) {
  2312.  return self->next_8;
  2313. }
  2314.  
  2315.  
  2316. AM_STMT AM_ASSERT_STMT_n(AM_ASSERT_STMT self) {
  2317.  return self->next_8;
  2318. }
  2319.  
  2320.  
  2321. AM_STMT AM_INVARIANT_STM_8514(AM_INVARIANT_STMT self) {
  2322.  return self->next_8;
  2323. }
  2324.  
  2325.  
  2326. AM_STMT AM_PROTECT_STMT__8515(AM_PROTECT_STMT self) {
  2327.  return self->next_8;
  2328. }
  2329.  
  2330.  
  2331. AM_STMT AM_RAISE_STMT_ne(AM_RAISE_STMT self) {
  2332.  return self->next_8;
  2333. }
  2334.  
  2335.  
  2336. AM_STMT AM_EXPR_STMT_nex(AM_EXPR_STMT self) {
  2337.  return self->next_8;
  2338. }
  2339.  
  2340.  
  2341. TP AM_LOCAL_EXPR_tp_TP(AM_LOCAL_EXPR self) {
  2342.  TP noname8516;
  2343.  return self->tp_at;
  2344. }
  2345.  
  2346.  
  2347. TP AM_BND_CREATE_EX_8517(AM_BND_CREATE_EXPR self) {
  2348.  TP noname8518;
  2349.  return self->tp_at;
  2350. }
  2351.  
  2352.  
  2353. TP AM_GLOBAL_EXPR_tp_TP(AM_GLOBAL_EXPR self) {
  2354.  TP noname8519;
  2355.  return self->tp_at;
  2356. }
  2357.  
  2358.  
  2359. TP AM_STR_CONST_tp_TP(AM_STR_CONST self) {
  2360.  TP noname8520;
  2361.  return self->tp_at;
  2362. }
  2363.  
  2364.  
  2365. TP AM_ARRAY_EXPR_tp_TP(AM_ARRAY_EXPR self) {
  2366.  TP noname8521;
  2367.  return self->tp_at;
  2368. }
  2369.  
  2370.  
  2371. TP AM_IF_EXPR_tp_TP(AM_IF_EXPR self) {
  2372.  TP noname8522;
  2373.  return self->tp_at;
  2374. }
  2375.  
  2376.  
  2377. TP AM_NEW_EXPR_tp_TP(AM_NEW_EXPR self) {
  2378.  TP noname8523;
  2379.  return self->tp_at;
  2380. }
  2381.  
  2382.  
  2383. TP AM_IS_VOID_EXPR__8524(AM_IS_VOID_EXPR self) {
  2384.  TP noname8525;
  2385.  return self->tp_at;
  2386. }
  2387.  
  2388.  
  2389. TP AM_ATTR_EXPR_tp_TP(AM_ATTR_EXPR self) {
  2390.  TP noname8526;
  2391.  return self->tp_at;
  2392. }
  2393.  
  2394.  
  2395. TP AM_ARR_EXPR_tp_TP(AM_ARR_EXPR self) {
  2396.  TP noname8527;
  2397.  return self->tp_at;
  2398. }
  2399.  
  2400.  
  2401. TP AM_EXCEPT_EXPR_tp_TP(AM_EXCEPT_EXPR self) {
  2402.  TP noname8528;
  2403.  return self->tp_at;
  2404. }
  2405.  
  2406.  
  2407. TP AM_VOID_CONST_tp_TP(AM_VOID_CONST self) {
  2408.  TP noname8529;
  2409.  return self->tp_at;
  2410. }
  2411.  
  2412.  
  2413. TP AM_ARR_CONST_tp_TP(AM_ARR_CONST self) {
  2414.  TP noname8530;
  2415.  return self->tp_at;
  2416. }
  2417.  
  2418.  
  2419. TP AM_BOOL_CONST_tp_TP(AM_BOOL_CONST self) {
  2420.  TP noname8531;
  2421.  return self->tp_at;
  2422. }
  2423.  
  2424.  
  2425. TP AM_CHAR_CONST_tp_TP(AM_CHAR_CONST self) {
  2426.  TP noname8532;
  2427.  return self->tp_at;
  2428. }
  2429.  
  2430.  
  2431. TP AM_INT_CONST_tp_TP(AM_INT_CONST self) {
  2432.  TP noname8533;
  2433.  return self->tp_at;
  2434. }
  2435.  
  2436.  
  2437. TP AM_INTI_CONST_tp_TP(AM_INTI_CONST self) {
  2438.  TP noname8534;
  2439.  return self->tp_at;
  2440. }
  2441.  
  2442.  
  2443. TP AM_FLT_CONST_tp_TP(AM_FLT_CONST self) {
  2444.  TP noname8535;
  2445.  return self->tp_at;
  2446. }
  2447.  
  2448.  
  2449. TP AM_FLTD_CONST_tp_TP(AM_FLTD_CONST self) {
  2450.  TP noname8536;
  2451.  return self->tp_at;
  2452. }
  2453.  
  2454.  
  2455. TP AM_FLTX_CONST_tp_TP(AM_FLTX_CONST self) {
  2456.  TP noname8537;
  2457.  return self->tp_at;
  2458. }
  2459.  
  2460.  
  2461. TP AM_FLTDX_CONST_tp_TP(AM_FLTDX_CONST self) {
  2462.  TP noname8538;
  2463.  return self->tp_at;
  2464. }
  2465.  
  2466.  
  2467. TP AM_FLTI_CONST_tp_TP(AM_FLTI_CONST self) {
  2468.  TP noname8539;
  2469.  return self->tp_at;
  2470. }
  2471.  
  2472.  
  2473. TP AM_CONST_tp_TP(AM_CONST_53 self) {
  2474.  TP noname8540;
  2475.  return self->tp_at;
  2476. }
  2477.  
  2478.  
  2479. void TR_INT_LIT_EXPR__8541(TR_INT_LIT_EXPR self, TR_EXPR next_8542) {
  2480.  self->next_8 = next_8542;
  2481. }
  2482.  
  2483.  
  2484. void TR_FLT_LIT_EXPR__8543(TR_FLT_LIT_EXPR self, TR_EXPR next_8544) {
  2485.  self->next_8 = next_8544;
  2486. }
  2487.  
  2488.  
  2489. void TR_CALL_EXPR_nex_8545(TR_CALL_EXPR self, TR_EXPR next_8546) {
  2490.  self->next_8 = next_8546;
  2491. }
  2492.  
  2493.  
  2494. void TR_SELF_EXPR_nex_8547(TR_SELF_EXPR self, TR_EXPR next_8548) {
  2495.  self->next_8 = next_8548;
  2496. }
  2497.  
  2498.  
  2499. void TR_IS_VOID_EXPR__8549(TR_IS_VOID_EXPR self, TR_EXPR next_8550) {
  2500.  self->next_8 = next_8550;
  2501. }
  2502.  
  2503.  
  2504. void TR_VOID_EXPR_nex_8551(TR_VOID_EXPR self, TR_EXPR next_8552) {
  2505.  self->next_8 = next_8552;
  2506. }
  2507.  
  2508.  
  2509. void TR_NEW_EXPR_next_8553(TR_NEW_EXPR self, TR_EXPR next_8554) {
  2510.  self->next_8 = next_8554;
  2511. }
  2512.  
  2513.  
  2514. void TR_BOUND_CREATE__8555(TR_BOUND_CREATE_EXPR self, TR_EXPR next_8556) {
  2515.  self->next_8 = next_8556;
  2516. }
  2517.  
  2518.  
  2519. void TR_UNDERSCORE_AR_8557(TR_UNDERSCORE_ARG self, TR_EXPR next_8558) {
  2520.  self->next_8 = next_8558;
  2521. }
  2522.  
  2523.  
  2524. void TR_CREATE_EXPR_n_8559(TR_CREATE_EXPR self, TR_EXPR next_8560) {
  2525.  self->next_8 = next_8560;
  2526. }
  2527.  
  2528.  
  2529. void TR_ARRAY_EXPR_ne_8561(TR_ARRAY_EXPR self, TR_EXPR next_8562) {
  2530.  self->next_8 = next_8562;
  2531. }
  2532.  
  2533.  
  2534. void TR_EXCEPT_EXPR_n_8563(TR_EXCEPT_EXPR self, TR_EXPR next_8564) {
  2535.  self->next_8 = next_8564;
  2536. }
  2537.  
  2538.  
  2539. void TR_INITIAL_EXPR__8565(TR_INITIAL_EXPR self, TR_EXPR next_8566) {
  2540.  self->next_8 = next_8566;
  2541. }
  2542.  
  2543.  
  2544. void TR_RESULT_EXPR_n_8567(TR_RESULT_EXPR self, TR_EXPR next_8568) {
  2545.  self->next_8 = next_8568;
  2546. }
  2547.  
  2548.  
  2549. void TR_BOOL_LIT_EXPR_8569(TR_BOOL_LIT_EXPR self, TR_EXPR next_8570) {
  2550.  self->next_8 = next_8570;
  2551. }
  2552.  
  2553.  
  2554. void TR_CHAR_LIT_EXPR_8571(TR_CHAR_LIT_EXPR self, TR_EXPR next_8572) {
  2555.  self->next_8 = next_8572;
  2556. }
  2557.  
  2558.  
  2559. void TR_STR_LIT_EXPR__8573(TR_STR_LIT_EXPR self, TR_EXPR next_8574) {
  2560.  self->next_8 = next_8574;
  2561. }
  2562.