home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCE < prev    next >
Encoding:
Text File  |  1995-05-06  |  80.8 KB  |  2,352 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "COCS.h"
  5. #include "COCT.h"
  6. #include "COCQ.h"
  7. #include "COCN.h"
  8. #include "COCJ.h"
  9. #include "COCX.h"
  10.  
  11. #include "hi.COCE"
  12.  
  13.  
  14.  
  15. pOt_BOOLEAN pOt_inxchk_COCE, pOt_rngchk_COCE, pOt_nilchk_COCE;
  16. static pOt_LONGINT pOt_MinChar_COCE, pOt_MaxChar_COCE, pOt_MinBool_COCE, pOt_MaxBool_COCE, pOt_MinSInt_COCE, pOt_MaxSInt_COCE, pOt_MinInt_COCE, pOt_MaxInt_COCE, pOt_MinLInt_COCE, pOt_MaxLInt_COCE, pOt_MinSet_COCE, pOt_MaxSet_COCE;
  17. static pOt_LONGREAL pOt_MinReal_COCE, pOt_MaxReal_COCE, pOt_MinLReal_COCE, pOt_MaxLReal_COCE;
  18.  
  19. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  20.   pOt_NIL
  21. }};
  22. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  23.   pOt_NIL
  24. }};
  25.  
  26.  
  27.  
  28.  
  29. extern void pOt_SetIntType_COCE
  30. #if pOt__ANSI_C
  31.   (struct pOt__tag_3_COCT *pOt_x)
  32. #else
  33.   (pOt_x)
  34.   struct pOt__tag_3_COCT *pOt_x;
  35.  
  36. #endif
  37. {
  38.   pOt_LONGINT pOt_v;
  39.   struct {void*next;} pOt__gc_ptrs;
  40.   pOt__gc_ptrs.next = pOt__gc_root;
  41.  
  42.   pOt_v=(pOt_LONGINT)((*pOt_x).pOt_intval);
  43.   if((((pOt_MinSInt_COCE<=pOt_v))&&((pOt_v<=pOt_MaxSInt_COCE)))) {
  44.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_sinttyp_COCT);
  45.   } else if((((pOt_MinInt_COCE<=pOt_v))&&((pOt_v<=pOt_MaxInt_COCE)))) {
  46.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  47.   } else {
  48.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  49.   }
  50.  
  51. pOt__Epilogue:;
  52.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  53. }
  54.  
  55.  
  56.  
  57.  
  58. extern pOt_INTEGER pOt_StartObj_COCE
  59. #if pOt__ANSI_C
  60.   (struct pOt__tag_3_COCT *pOt_x)
  61. #else
  62.   (pOt_x)
  63.   struct pOt__tag_3_COCT *pOt_x;
  64.  
  65. #endif
  66. {
  67.   pOt_INTEGER pOt__retval;
  68.   pOt_INTEGER pOt_qoffs, pOt_np;
  69.   int pOt__gc_enabled_prev;
  70.   pOt__gc_enabled_prev=pOt__gc_enabled;
  71.   pOt__gc_enabled=0;
  72.  
  73.   pOt_qoffs=(pOt_INTEGER)((*pOt_x).pOt_qoffs);
  74.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  75.   pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  76.   pOt__retval =(pOt_INTEGER)(pOt_qoffs);
  77.   goto pOt__Epilogue;
  78.  
  79.   pOt__halt(__FILE__,__LINE__,0x11);
  80. pOt__Epilogue:;
  81.   pOt__gc_enabled=pOt__gc_enabled_prev;
  82.   return pOt__retval;
  83. }
  84.  
  85.  
  86.  
  87.  
  88. extern void pOt_StopObj_COCE
  89. #if pOt__ANSI_C
  90.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_qoffs)
  91. #else
  92.   (pOt_x, pOt_qoffs)
  93.   struct pOt__tag_3_COCT *pOt_x;
  94.   pOt_INTEGER pOt_qoffs;
  95.  
  96. #endif
  97. {
  98.   struct {void*next;} pOt__gc_ptrs;
  99.   pOt__gc_ptrs.next = pOt__gc_root;
  100.  
  101.   if(( (*pOt_x).pOt_mode==3)) {
  102.     pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  103.     (*pOt_x).pOt_mode=1;
  104.   }
  105.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  106.   (*pOt_x).pOt_qoffs=(pOt_INTEGER)(pOt_qoffs);
  107.  
  108. pOt__Epilogue:;
  109.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  110. }
  111.  
  112.  
  113.  
  114.  
  115. extern pOt_INTEGER pOt_StartExpr_COCE
  116. #if pOt__ANSI_C
  117.   (struct pOt__tag_3_COCT *pOt_x)
  118. #else
  119.   (pOt_x)
  120.   struct pOt__tag_3_COCT *pOt_x;
  121.  
  122. #endif
  123. {
  124.   pOt_INTEGER pOt__retval;
  125.   pOt_INTEGER pOt_qoffs;
  126.   int pOt__gc_enabled_prev;
  127.   pOt__gc_enabled_prev=pOt__gc_enabled;
  128.   pOt__gc_enabled=0;
  129.  
  130.   pOt_qoffs=(pOt_INTEGER)((*pOt_x).pOt_qoffs);
  131.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  132.   if(( (*pOt_x).pOt_qoffs==((pOt_INTEGER)(0)))) {
  133.     pOt_Dummy_COCQ();
  134.   }
  135.   pOt__retval =(pOt_INTEGER)(pOt_qoffs);
  136.   goto pOt__Epilogue;
  137.  
  138.   pOt__halt(__FILE__,__LINE__,0x11);
  139. pOt__Epilogue:;
  140.   pOt__gc_enabled=pOt__gc_enabled_prev;
  141.   return pOt__retval;
  142. }
  143.  
  144.  
  145.  
  146.  
  147. extern void pOt_StopExpr_COCE
  148. #if pOt__ANSI_C
  149.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_qoffs)
  150. #else
  151.   (pOt_x, pOt_qoffs)
  152.   struct pOt__tag_3_COCT *pOt_x;
  153.   pOt_INTEGER pOt_qoffs;
  154.  
  155. #endif
  156. {
  157.   pOt_INTEGER pOt_np;
  158.   struct {void*next;} pOt__gc_ptrs;
  159.   pOt__gc_ptrs.next = pOt__gc_root;
  160.  
  161.   if(((((*pOt_x).pOt_mode==8))&&(((*pOt_x).pOt_typ!=pOt_notyp_COCT)))) {
  162.     pOt_Drop_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  163.     pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  164.     pOt_CConstValue_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  165.   }
  166.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  167.   (*pOt_x).pOt_qoffs=(pOt_INTEGER)(pOt_qoffs);
  168.  
  169. pOt__Epilogue:;
  170.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  171. }
  172.  
  173.  
  174.  
  175.  
  176. extern void pOt_StopConstExpr_COCE
  177. #if pOt__ANSI_C
  178.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_qoffs)
  179. #else
  180.   (pOt_x, pOt_qoffs)
  181.   struct pOt__tag_3_COCT *pOt_x;
  182.   pOt_INTEGER pOt_qoffs;
  183.  
  184. #endif
  185. {
  186.   struct {void*next;} pOt__gc_ptrs;
  187.   pOt__gc_ptrs.next = pOt__gc_root;
  188.  
  189.   pOt_Drop_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  190.   (*pOt_x).pOt_qoffs=(pOt_INTEGER)(pOt_qoffs);
  191.  
  192. pOt__Epilogue:;
  193.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  194. }
  195.  
  196.  
  197.  
  198.  
  199. extern void pOt_StopStringExpr_COCE
  200. #if pOt__ANSI_C
  201.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_qoffs, pOt_Struct_COCT pOt_typ)
  202. #else
  203.   (pOt_x, pOt_qoffs, pOt_typ)
  204.   struct pOt__tag_3_COCT *pOt_x;
  205.   pOt_INTEGER pOt_qoffs;
  206.   pOt_Struct_COCT pOt_typ;
  207.  
  208. #endif
  209. {
  210.   pOt_INTEGER pOt_np;
  211.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  212.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  213.   pOt__gc_ptrs.next = pOt__gc_root;
  214.   pOt__gc_strs.next = &pOt__gc_ptrs;
  215.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  216.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  217.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  218.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  219.  
  220.   if(( (*pOt_x).pOt_typ==pOt_stringtyp_COCT)) {
  221.     if(( (pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(256),6)==((pOt_LONGINT)(1)))) {
  222.       pOt_Drop_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  223.       pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  224.       pOt_CConstValue_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  225.     }
  226.     pOt_SetStrTD_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)(pOt_typ));
  227.     pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  228.   }
  229.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  230.   (*pOt_x).pOt_qoffs=(pOt_INTEGER)(pOt_qoffs);
  231.  
  232. pOt__Epilogue:;
  233.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  234. }
  235.  
  236.  
  237.  
  238.  
  239. extern void pOt_SubExprPrefix_COCE()
  240. {
  241.   struct {void*next;} pOt__gc_ptrs;
  242.   pOt__gc_ptrs.next = pOt__gc_root;
  243.  
  244.   pOt_SubExprPrefix_COCX();
  245.  
  246. pOt__Epilogue:;
  247.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  248. }
  249.  
  250.  
  251.  
  252.  
  253. extern void pOt_SubExprSuffix_COCE()
  254. {
  255.   struct {void*next;} pOt__gc_ptrs;
  256.   pOt__gc_ptrs.next = pOt__gc_root;
  257.  
  258.   pOt_SubExprSuffix_COCX();
  259.  
  260. pOt__Epilogue:;
  261.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  262. }
  263.  
  264.  
  265.  
  266.  
  267. extern pOt_INTEGER pOt_HookExpr_COCE
  268. #if pOt__ANSI_C
  269.   (struct pOt__tag_3_COCT *pOt_x)
  270. #else
  271.   (pOt_x)
  272.   struct pOt__tag_3_COCT *pOt_x;
  273.  
  274. #endif
  275. {
  276.   pOt_INTEGER pOt__retval;
  277.   pOt_INTEGER pOt_qoffs;
  278.   int pOt__gc_enabled_prev;
  279.   pOt__gc_enabled_prev=pOt__gc_enabled;
  280.   pOt__gc_enabled=0;
  281.  
  282.   pOt_qoffs=(pOt_INTEGER)((*pOt_x).pOt_qoffs);
  283.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  284.   pOt__retval =(pOt_INTEGER)(pOt_qoffs);
  285.   goto pOt__Epilogue;
  286.  
  287.   pOt__halt(__FILE__,__LINE__,0x11);
  288. pOt__Epilogue:;
  289.   pOt__gc_enabled=pOt__gc_enabled_prev;
  290.   return pOt__retval;
  291. }
  292.  
  293.  
  294.  
  295.  
  296. extern void pOt_IndexPrefix_COCE
  297. #if pOt__ANSI_C
  298.   (struct pOt__tag_3_COCT *pOt_x)
  299. #else
  300.   (pOt_x)
  301.   struct pOt__tag_3_COCT *pOt_x;
  302.  
  303. #endif
  304. {
  305.   struct {void*next;} pOt__gc_ptrs;
  306.   pOt__gc_ptrs.next = pOt__gc_root;
  307.  
  308.   if(( (*pOt_x).pOt_mode>=8)) {
  309.     pOt_Mark_COCS((pOt_INTEGER)(127));
  310.   }
  311.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==15)) {
  312.     if(( (*pOt_x).pOt_mode==3)) {
  313.       pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  314.       (*pOt_x).pOt_mode=1;
  315.     }
  316.     pOt_ArrInxPfx_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_inxchk_COCE);
  317.   } else if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==16)) {
  318.     if(((((*pOt_x).pOt_intval==((pOt_LONGINT)(0))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp))).pOt_form==1)))) {
  319.       pOt_BytArrInxPfx_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_inxchk_COCE);
  320.     } else {
  321.       pOt_DynArrInxPfx_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_inxchk_COCE);
  322.     }
  323.   } else {
  324.     pOt_Mark_COCS((pOt_INTEGER)(82));
  325.   }
  326.  
  327. pOt__Epilogue:;
  328.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  329. }
  330.  
  331.  
  332.  
  333.  
  334. extern void pOt_Index_COCE
  335. #if pOt__ANSI_C
  336.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  337. #else
  338.   (pOt_x, pOt_y)
  339.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  340.  
  341. #endif
  342. {
  343.   pOt_INTEGER pOt_f, pOt_n;
  344.   struct {void*next;} pOt__gc_ptrs;
  345.   pOt__gc_ptrs.next = pOt__gc_root;
  346.  
  347.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form);
  348.   if(!(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form)&(pOt_SET)0x70L)))) {
  349.     pOt_Mark_COCS((pOt_INTEGER)(80));
  350.     (*pOt_y).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  351.   }
  352.   if(( (*pOt_y).pOt_mode>11)) {
  353.     pOt_Mark_COCS((pOt_INTEGER)(126));
  354.   }
  355.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==15)) {
  356.     pOt_ArrInxSfx_COCJ();
  357.     if(((((*pOt_y).pOt_mode==8))&&((((((pOt_LONGINT)(0))>(*pOt_y).pOt_intval))||(((*pOt_y).pOt_intval>=(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_n)))))) {
  358.       pOt_Mark_COCS((pOt_INTEGER)(81));
  359.     }
  360.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  361.     (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  362.   } else if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==16)) {
  363.     if(((((*pOt_x).pOt_intval==((pOt_LONGINT)(0))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp))).pOt_form==1)))) {
  364.       pOt_BytArrInxSfx_COCJ();
  365.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  366.       (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  367.     } else {
  368.       pOt_DynArrInxSfx_COCJ();
  369.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  370.       if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==16)) {
  371.         (*pOt_x).pOt_intval+=(1);
  372.       } else {
  373.         pOt_Cast_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  374.         pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  375.         (*pOt_x).pOt_mode=1;
  376.         (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  377.       }
  378.     }
  379.   }
  380.  
  381. pOt__Epilogue:;
  382.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  383. }
  384.  
  385.  
  386.  
  387.  
  388. extern void pOt_Field_COCE
  389. #if pOt__ANSI_C
  390.   (struct pOt__tag_3_COCT *pOt_x, pOt_Object_COCT pOt_y)
  391. #else
  392.   (pOt_x, pOt_y)
  393.   struct pOt__tag_3_COCT *pOt_x;
  394.   pOt_Object_COCT pOt_y;
  395.  
  396. #endif
  397. {
  398.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  399.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  400.   pOt__gc_ptrs.next = pOt__gc_root;
  401.   pOt__gc_strs.next = &pOt__gc_ptrs;
  402.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  403.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  404.   pOt__gc_ptrs.vars[0x0]=&pOt_y;
  405.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  406.  
  407.   if((((pOt_y!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_y))).pOt_mode==12)))) {
  408.     if(( (*pOt_x).pOt_mode==3)) {
  409.       pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  410.       (*pOt_x).pOt_mode=1;
  411.     } else if(( (*pOt_x).pOt_mode!=1)) {
  412.       pOt_Mark_COCS((pOt_INTEGER)(127));
  413.     }
  414.     pOt_Field_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_1_COCT*)(pOt_y));
  415.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_y))).pOt_typ);
  416.   } else {
  417.     pOt_Mark_COCS((pOt_INTEGER)(83));
  418.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  419.   }
  420.   (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  421.  
  422. pOt__Epilogue:;
  423.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  424. }
  425.  
  426.  
  427.  
  428.  
  429. extern void pOt_DeRef_COCE
  430. #if pOt__ANSI_C
  431.   (struct pOt__tag_3_COCT *pOt_x)
  432. #else
  433.   (pOt_x)
  434.   struct pOt__tag_3_COCT *pOt_x;
  435.  
  436. #endif
  437. {
  438.   struct {void*next;} pOt__gc_ptrs;
  439.   pOt__gc_ptrs.next = pOt__gc_root;
  440.  
  441.   if(( (*pOt_x).pOt_mode>=8)) {
  442.     pOt_Mark_COCS((pOt_INTEGER)(127));
  443.   }
  444.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==13)) {
  445.     if(( (*pOt_x).pOt_mode==1)) {
  446.       (*pOt_x).pOt_mode=3;
  447.     } else {
  448.       pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  449.     }
  450.     if(pOt_nilchk_COCE) {
  451.       pOt_NilPtr_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  452.     }
  453.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  454.     (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_wasderef_COCT);
  455.   } else {
  456.     pOt_Mark_COCS((pOt_INTEGER)(84));
  457.   }
  458.  
  459. pOt__Epilogue:;
  460.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  461. }
  462.  
  463.  
  464.  
  465.  
  466. static void pOt_GTT_COCE
  467. #if pOt__ANSI_C
  468.   (pOt_Struct_COCT pOt_t0, pOt_Struct_COCT pOt_t1)
  469. #else
  470.   (pOt_t0, pOt_t1)
  471.   pOt_Struct_COCT pOt_t0, pOt_t1;
  472.  
  473. #endif
  474. {
  475.   pOt_Struct_COCT pOt_t;
  476.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  477.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  478.   pOt__gc_ptrs.next = pOt__gc_root;
  479.   pOt__gc_strs.next = &pOt__gc_ptrs;
  480.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  481.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  482.   pOt__gc_ptrs.vars[0x2]=&pOt_t0;
  483.   pOt__gc_ptrs.vars[0x1]=&pOt_t1;
  484.   pOt__gc_ptrs.vars[0x0]=&pOt_t;
  485.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  486.   pOt_t=pOt_NIL;
  487.  
  488.   if(( pOt_t0!=pOt_t1)) {
  489.     pOt_t=(struct pOt__tag_2_COCT*)(pOt_t1);
  490.     for(;;) {
  491.       pOt_t=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_t))).pOt_BaseTyp);
  492.       if((((pOt_t==pOt_NIL))||((pOt_t==pOt_t0)))) break;
  493.     }
  494.     if(( pOt_t==pOt_NIL)) {
  495.       pOt_Mark_COCS((pOt_INTEGER)(85));
  496.     }
  497.   }
  498.  
  499. pOt__Epilogue:;
  500.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  501. }
  502.  
  503.  
  504.  
  505.  
  506. extern void pOt_TypGuard_COCE
  507. #if pOt__ANSI_C
  508.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  509. #else
  510.   (pOt_x, pOt_y)
  511.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  512.  
  513. #endif
  514. {
  515.   struct {void*next;} pOt__gc_ptrs;
  516.   pOt__gc_ptrs.next = pOt__gc_root;
  517.  
  518.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==13)) {
  519.     if(( (*pOt_x).pOt_mode==3)) {
  520.       pOt_DeRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  521.       (*pOt_x).pOt_mode=1;
  522.     }
  523.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==13)) {
  524.       pOt_GTT_COCE((struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp),(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_BaseTyp));
  525.       pOt_TypGuard_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_typchk_COCT);
  526.     } else {
  527.       pOt_Mark_COCS((pOt_INTEGER)(86));
  528.     }
  529.   } else if((((((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==17))&&(((*pOt_x).pOt_obj!=pOt_NIL)))&&(((*pOt_x).pOt_obj!=pOt_wasderef_COCT)))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_obj))).pOt_mode==3)))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==17)))) {
  530.     pOt_GTT_COCE((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  531.     pOt_TypGuard_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_typchk_COCT);
  532.   } else {
  533.     pOt_Mark_COCS((pOt_INTEGER)(87));
  534.   }
  535.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ);
  536.  
  537. pOt__Epilogue:;
  538.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  539. }
  540.  
  541.  
  542.  
  543.  
  544. extern void pOt_TypTest_COCE
  545. #if pOt__ANSI_C
  546.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  547. #else
  548.   (pOt_x, pOt_y)
  549.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  550.  
  551. #endif
  552. {
  553.   struct {void*next;} pOt__gc_ptrs;
  554.   pOt__gc_ptrs.next = pOt__gc_root;
  555.  
  556.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==13)) {
  557.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==13)) {
  558.       pOt_GTT_COCE((struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp),(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_BaseTyp));
  559.       pOt_TypTest_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  560.     } else {
  561.       pOt_Mark_COCS((pOt_INTEGER)(86));
  562.     }
  563.   } else if((((((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==17))&&(((*pOt_x).pOt_obj!=pOt_NIL)))&&(((*pOt_x).pOt_obj!=pOt_wasderef_COCT)))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_obj))).pOt_mode==3)))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==17)))) {
  564.     pOt_GTT_COCE((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  565.     pOt_TypTest_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  566.   } else {
  567.     pOt_Mark_COCS((pOt_INTEGER)(87));
  568.   }
  569.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  570.  
  571. pOt__Epilogue:;
  572.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  573. }
  574.  
  575.  
  576.  
  577.  
  578. extern void pOt_Const_COCE
  579. #if pOt__ANSI_C
  580.   (struct pOt__tag_3_COCT *pOt_x)
  581. #else
  582.   (pOt_x)
  583.   struct pOt__tag_3_COCT *pOt_x;
  584.  
  585. #endif
  586. {
  587.   pOt_INTEGER pOt_np;
  588.   struct {void*next;} pOt__gc_ptrs;
  589.   pOt__gc_ptrs.next = pOt__gc_root;
  590.  
  591.   pOt_CConstValue_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  592.  
  593. pOt__Epilogue:;
  594.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  595. }
  596.  
  597.  
  598.  
  599.  
  600. extern void pOt_Set00_COCE
  601. #if pOt__ANSI_C
  602.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  603. #else
  604.   (pOt_x, pOt_y)
  605.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  606.  
  607. #endif
  608. {
  609.   pOt_LONGINT pOt_one;
  610.   struct {void*next;} pOt__gc_ptrs;
  611.   pOt__gc_ptrs.next = pOt__gc_root;
  612.  
  613.   (*pOt_x).pOt_mode=11;
  614.   (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  615.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_settyp_COCT);
  616.   if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form)&(pOt_SET)0x70L))) {
  617.     if(( (*pOt_y).pOt_mode==8)) {
  618.       (*pOt_x).pOt_mode=8;
  619.       if((((pOt_MinSet_COCE<=(*pOt_y).pOt_intval))&&(((*pOt_y).pOt_intval<=pOt_MaxSet_COCE)))) {
  620.         pOt_one=(pOt_LONGINT)(1);
  621.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt__lsh(pOt_one,(*pOt_y).pOt_intval));
  622.       } else {
  623.         pOt_Mark_COCS((pOt_INTEGER)(202));
  624.       }
  625.     }
  626.     pOt_Set00_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  627.   } else {
  628.     pOt_Mark_COCS((pOt_INTEGER)(93));
  629.   }
  630.  
  631. pOt__Epilogue:;
  632.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  633. }
  634.  
  635.  
  636.  
  637.  
  638. extern void pOt_Set10_COCE
  639. #if pOt__ANSI_C
  640.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  641. #else
  642.   (pOt_x, pOt_y)
  643.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  644.  
  645. #endif
  646. {
  647.   pOt_LONGINT pOt_all;
  648.   struct {void*next;} pOt__gc_ptrs;
  649.   pOt__gc_ptrs.next = pOt__gc_root;
  650.  
  651.   (*pOt_x).pOt_mode=11;
  652.   (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  653.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_settyp_COCT);
  654.   if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form)&(pOt_SET)0x70L))) {
  655.     if(( (*pOt_y).pOt_mode==8)) {
  656.       (*pOt_x).pOt_mode=8;
  657.       if((((pOt_MinSet_COCE<=(*pOt_y).pOt_intval))&&(((*pOt_y).pOt_intval<=pOt_MaxSet_COCE)))) {
  658.         pOt_all=(pOt_LONGINT)(-1);
  659.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt__lsh(pOt_all,(*pOt_y).pOt_intval));
  660.       } else {
  661.         pOt_Mark_COCS((pOt_INTEGER)(202));
  662.       }
  663.     }
  664.     pOt_Set10_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  665.   } else {
  666.     pOt_Mark_COCS((pOt_INTEGER)(93));
  667.   }
  668.  
  669. pOt__Epilogue:;
  670.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  671. }
  672.  
  673.  
  674.  
  675.  
  676. extern void pOt_Set11_COCE
  677. #if pOt__ANSI_C
  678.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y, struct pOt__tag_3_COCT *pOt_z)
  679. #else
  680.   (pOt_x, pOt_y, pOt_z)
  681.   struct pOt__tag_3_COCT *pOt_x, *pOt_y, *pOt_z;
  682.  
  683. #endif
  684. {
  685.   pOt_LONGINT pOt_s;
  686.   struct {void*next;} pOt__gc_ptrs;
  687.   pOt__gc_ptrs.next = pOt__gc_root;
  688.  
  689.   if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_z).pOt_typ))).pOt_form)&(pOt_SET)0x70L))) {
  690.     if(( (*pOt_x).pOt_mode==8)) {
  691.       if(( (*pOt_z).pOt_mode==8)) {
  692.         if(((((*pOt_z).pOt_intval>pOt_MaxSet_COCE))||(((*pOt_z).pOt_intval<((pOt_LONGINT)(0)))))) {
  693.           pOt_Mark_COCS((pOt_INTEGER)(202));
  694.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  695.         } else if(( (*pOt_y).pOt_intval<=(*pOt_z).pOt_intval)) {
  696.           pOt_s=(pOt_LONGINT)(-2);
  697.           (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(pOt__lsh(pOt_s,(*pOt_z).pOt_intval)),6));
  698.         } else {
  699.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  700.         }
  701.       } else {
  702.         (*pOt_x).pOt_mode=11;
  703.       }
  704.     } else if(((((*pOt_z).pOt_mode==8))&&((((((pOt_LONGINT)(0))>(*pOt_z).pOt_intval))||(((*pOt_z).pOt_intval>pOt_MaxSet_COCE)))))) {
  705.       pOt_Mark_COCS((pOt_INTEGER)(202));
  706.     }
  707.     pOt_Set11_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  708.   } else {
  709.     pOt_Mark_COCS((pOt_INTEGER)(93));
  710.   }
  711.  
  712. pOt__Epilogue:;
  713.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  714. }
  715.  
  716.  
  717.  
  718.  
  719. extern void pOt_InPrefix_COCE
  720. #if pOt__ANSI_C
  721.   (struct pOt__tag_3_COCT *pOt_x)
  722. #else
  723.   (pOt_x)
  724.   struct pOt__tag_3_COCT *pOt_x;
  725.  
  726. #endif
  727. {
  728.   struct {void*next;} pOt__gc_ptrs;
  729.   pOt__gc_ptrs.next = pOt__gc_root;
  730.  
  731.   if(( (*pOt_x).pOt_mode>11)) {
  732.     pOt_Mark_COCS((pOt_INTEGER)(126));
  733.   }
  734.   if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form)&(pOt_SET)0x70L))) {
  735.     if(( (*pOt_x).pOt_mode==8)) {
  736.       pOt_InPfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_BOOLEAN)0);
  737.       if((((((pOt_LONGINT)(0))>(*pOt_x).pOt_intval))||(((*pOt_x).pOt_intval>pOt_MaxSet_COCE)))) {
  738.         pOt_Mark_COCS((pOt_INTEGER)(202));
  739.       }
  740.     } else {
  741.       pOt_InPfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  742.       (*pOt_x).pOt_mode=11;
  743.     }
  744.   } else {
  745.     pOt_Mark_COCS((pOt_INTEGER)(92));
  746.     (*pOt_x).pOt_mode=11;
  747.   }
  748.  
  749. pOt__Epilogue:;
  750.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  751. }
  752.  
  753.  
  754.  
  755.  
  756. extern void pOt_In_COCE
  757. #if pOt__ANSI_C
  758.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  759. #else
  760.   (pOt_x, pOt_y)
  761.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  762.  
  763. #endif
  764. {
  765.   struct {void*next;} pOt__gc_ptrs;
  766.   pOt__gc_ptrs.next = pOt__gc_root;
  767.  
  768.   if(( (*pOt_y).pOt_mode>11)) {
  769.     pOt_Mark_COCS((pOt_INTEGER)(126));
  770.   }
  771.   if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form)&(pOt_SET)0x70L)))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==9)))) {
  772.     pOt_InSfx_COCX();
  773.     if(((((*pOt_x).pOt_mode==8))&&(((*pOt_y).pOt_mode==8)))) {
  774.       if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*pOt_x).pOt_intval)&((pOt_SET)(pOt_SET)(*pOt_y).pOt_intval)))) {
  775.         (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  776.       } else {
  777.         (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  778.       }
  779.     } else {
  780.       (*pOt_x).pOt_mode=11;
  781.     }
  782.   } else {
  783.     pOt_Mark_COCS((pOt_INTEGER)(92));
  784.     (*pOt_x).pOt_mode=11;
  785.   }
  786.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  787.  
  788. pOt__Epilogue:;
  789.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  790. }
  791.  
  792.  
  793.  
  794.  
  795. extern void pOt_MOp_COCE
  796. #if pOt__ANSI_C
  797.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x)
  798. #else
  799.   (pOt_op, pOt_x)
  800.   pOt_INTEGER pOt_op;
  801.   struct pOt__tag_3_COCT *pOt_x;
  802.  
  803. #endif
  804. {
  805.   pOt_INTEGER pOt_f;
  806.   pOt_LONGINT pOt_a;
  807.   struct {void*next;} pOt__gc_ptrs;
  808.   pOt__gc_ptrs.next = pOt__gc_root;
  809.  
  810.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  811.   if(( (*pOt_x).pOt_mode>11)) {
  812.     pOt_Mark_COCS((pOt_INTEGER)(126));
  813.   }
  814.   switch(pOt_op) {
  815.   case 5:
  816.     if(( pOt_f!=((pOt_INTEGER)(2)))) {
  817.       pOt_Mark_COCS((pOt_INTEGER)(94));
  818.       (*pOt_x).pOt_mode=8;
  819.       (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  820.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  821.     }
  822.   break;
  823.   case 6:
  824.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  825.       pOt_MOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  826.     } else {
  827.       pOt_Mark_COCS((pOt_INTEGER)(96));
  828.       (*pOt_x).pOt_mode=11;
  829.     }
  830.   break;
  831.   case 7:
  832.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  833.       pOt_MOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  834.       if(( (*pOt_x).pOt_mode==8)) {
  835.         if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  836.           (*pOt_x).pOt_intval=(pOt_LONGINT)(-(*pOt_x).pOt_intval);
  837.           pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  838.         } else {
  839.           (*pOt_x).pOt_fltval=(pOt_LONGREAL)(-(*pOt_x).pOt_fltval);
  840.         }
  841.       } else {
  842.         (*pOt_x).pOt_mode=11;
  843.       }
  844.     } else if(( pOt_f==((pOt_INTEGER)(9)))) {
  845.       pOt_MOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  846.       if(( (*pOt_x).pOt_mode==8)) {
  847.         pOt_a=(pOt_LONGINT)(-1);
  848.         (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_a),(pOt_LONGINT)((*pOt_x).pOt_intval),6));
  849.       } else {
  850.         (*pOt_x).pOt_mode=11;
  851.       }
  852.     } else {
  853.       pOt_Mark_COCS((pOt_INTEGER)(97));
  854.       (*pOt_x).pOt_mode=11;
  855.     }
  856.   break;
  857.   case 8:
  858.     if(( pOt_f!=((pOt_INTEGER)(2)))) {
  859.       pOt_Mark_COCS((pOt_INTEGER)(95));
  860.       (*pOt_x).pOt_mode=8;
  861.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  862.       (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  863.     }
  864.   break;
  865.   case 32:
  866.     if(( pOt_f==((pOt_INTEGER)(2)))) {
  867.       pOt_MOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),pOt_rngchk_COCE);
  868.       if(( (*pOt_x).pOt_mode==8)) {
  869.         (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(1),(pOt_LONGINT)((*pOt_x).pOt_intval),6));
  870.       } else {
  871.         (*pOt_x).pOt_mode=11;
  872.       }
  873.     } else {
  874.       pOt_Mark_COCS((pOt_INTEGER)(98));
  875.       (*pOt_x).pOt_mode=11;
  876.     }
  877.   break;
  878.   default:;
  879.     pOt__halt(__FILE__,__LINE__,0x10);
  880.   }
  881.  
  882. pOt__Epilogue:;
  883.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  884. }
  885.  
  886.  
  887.  
  888.  
  889. static void pOt_convertII_COCE
  890. #if pOt__ANSI_C
  891.   (struct pOt__tag_3_COCT *pOt_x, pOt_Struct_COCT pOt_typ)
  892. #else
  893.   (pOt_x, pOt_typ)
  894.   struct pOt__tag_3_COCT *pOt_x;
  895.   pOt_Struct_COCT pOt_typ;
  896.  
  897. #endif
  898. {
  899.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  900.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  901.   pOt__gc_ptrs.next = pOt__gc_root;
  902.   pOt__gc_strs.next = &pOt__gc_ptrs;
  903.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  904.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  905.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  906.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  907.  
  908.   if(( (*pOt_x).pOt_mode<8)) {
  909.     (*pOt_x).pOt_mode=11;
  910.   }
  911.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_typ);
  912.  
  913. pOt__Epilogue:;
  914.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  915. }
  916.  
  917.  
  918.  
  919.  
  920. static void pOt_convertRI_COCE
  921. #if pOt__ANSI_C
  922.   (struct pOt__tag_3_COCT *pOt_x, pOt_Struct_COCT pOt_typ)
  923. #else
  924.   (pOt_x, pOt_typ)
  925.   struct pOt__tag_3_COCT *pOt_x;
  926.   pOt_Struct_COCT pOt_typ;
  927.  
  928. #endif
  929. {
  930.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  931.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  932.   pOt__gc_ptrs.next = pOt__gc_root;
  933.   pOt__gc_strs.next = &pOt__gc_ptrs;
  934.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  935.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  936.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  937.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  938.  
  939.   if(( (*pOt_x).pOt_mode<8)) {
  940.     (*pOt_x).pOt_mode=11;
  941.   }
  942.   if(( (*pOt_x).pOt_mode==8)) {
  943.     (*pOt_x).pOt_fltval=(pOt_LONGREAL)((*pOt_x).pOt_intval);
  944.   }
  945.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_typ);
  946.  
  947. pOt__Epilogue:;
  948.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  949. }
  950.  
  951.  
  952.  
  953.  
  954. static void pOt_convertRR_COCE
  955. #if pOt__ANSI_C
  956.   (struct pOt__tag_3_COCT *pOt_x)
  957. #else
  958.   (pOt_x)
  959.   struct pOt__tag_3_COCT *pOt_x;
  960.  
  961. #endif
  962. {
  963.   struct {void*next;} pOt__gc_ptrs;
  964.   pOt__gc_ptrs.next = pOt__gc_root;
  965.  
  966.   if(( (*pOt_x).pOt_mode<8)) {
  967.     (*pOt_x).pOt_mode=11;
  968.   }
  969.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_lrltyp_COCT);
  970.  
  971. pOt__Epilogue:;
  972.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  973. }
  974.  
  975.  
  976.  
  977. static pOt_INTEGER (*pOt_op_Op_COCE);
  978. static struct pOt__tag_3_COCT *pOt_x_Op_COCE, *pOt_y_Op_COCE;
  979. static pOt_INTEGER (*pOt_f_Op_COCE), (*pOt_g_Op_COCE);
  980. static pOt_Struct_COCT (*pOt_p_Op_COCE), (*pOt_q_Op_COCE), (*pOt_r_Op_COCE);
  981. static pOt_BOOLEAN (*pOt_consts_Op_COCE);
  982. static pOt_SET (*pOt_convert_Op_COCE);
  983.  
  984. extern void pOt_Op_COCE pOt__ARGS((pOt_INTEGER , struct pOt__tag_3_COCT *, struct pOt__tag_3_COCT *));
  985.  
  986.  
  987.  
  988.  
  989. static pOt_BOOLEAN pOt_strings_Op_COCE()
  990. {
  991.   pOt_BOOLEAN pOt__retval;
  992.   pOt_BOOLEAN pOt_first, pOt_second;
  993.   int pOt__gc_enabled_prev;
  994.   pOt__gc_enabled_prev=pOt__gc_enabled;
  995.   pOt__gc_enabled=0;
  996.  
  997.   pOt_first=(((((((((*pOt_f_Op_COCE)==((pOt_INTEGER)(15))))||(((*pOt_f_Op_COCE)==((pOt_INTEGER)(16))))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x_Op_COCE).pOt_typ))).pOt_BaseTyp))).pOt_form==3))))||(((*pOt_f_Op_COCE)==((pOt_INTEGER)(10))))));
  998.   pOt_second=(((((((((*pOt_g_Op_COCE)==((pOt_INTEGER)(15))))||(((*pOt_g_Op_COCE)==((pOt_INTEGER)(16))))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y_Op_COCE).pOt_typ))).pOt_BaseTyp))).pOt_form==3))))||(((*pOt_g_Op_COCE)==((pOt_INTEGER)(10))))));
  999.   pOt__retval =(((pOt_first&&pOt_second)||((pOt_first&&(((*pOt_y_Op_COCE).pOt_mode==8)))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y_Op_COCE).pOt_typ))).pOt_form==3))))||(((((*pOt_x_Op_COCE).pOt_mode==8))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x_Op_COCE).pOt_typ))).pOt_form==3)))&&pOt_second));
  1000.   goto pOt__Epilogue;
  1001.  
  1002.   pOt__halt(__FILE__,__LINE__,0x11);
  1003. pOt__Epilogue:;
  1004.   pOt__gc_enabled=pOt__gc_enabled_prev;
  1005.   return pOt__retval;
  1006. }
  1007.  
  1008. extern void pOt_Op_COCE
  1009. #if pOt__ANSI_C
  1010.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  1011. #else
  1012.   (pOt_op, pOt_x, pOt_y)
  1013.   pOt_INTEGER pOt_op;
  1014.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  1015.  
  1016. #endif
  1017. {
  1018.   pOt_INTEGER (*pOt_op_);
  1019.   struct pOt__tag_3_COCT *pOt_x_, *pOt_y_;
  1020.   pOt_INTEGER pOt_f, (*pOt_f_), pOt_g, (*pOt_g_);
  1021.   pOt_Struct_COCT pOt_p, (*pOt_p_), pOt_q, (*pOt_q_), pOt_r, (*pOt_r_);
  1022.   pOt_BOOLEAN pOt_consts, (*pOt_consts_);
  1023.   pOt_SET pOt_convert, (*pOt_convert_);
  1024.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  1025.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  1026.   pOt__gc_ptrs.next = pOt__gc_root;
  1027.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1028.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  1029.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  1030.   pOt__gc_ptrs.vars[0x2]=&pOt_p;
  1031.   pOt__gc_ptrs.vars[0x1]=&pOt_q;
  1032.   pOt__gc_ptrs.vars[0x0]=&pOt_r;
  1033.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1034.   pOt_op_=pOt_op_Op_COCE;
  1035.   pOt_op_Op_COCE=&pOt_op;
  1036.   pOt_x_=pOt_x_Op_COCE;
  1037.   pOt_x_Op_COCE=pOt_x;
  1038.   pOt_y_=pOt_y_Op_COCE;
  1039.   pOt_y_Op_COCE=pOt_y;
  1040.   pOt_f_=pOt_f_Op_COCE;
  1041.   pOt_f_Op_COCE=&pOt_f;
  1042.   pOt_g_=pOt_g_Op_COCE;
  1043.   pOt_g_Op_COCE=&pOt_g;
  1044.   pOt_p_=pOt_p_Op_COCE;
  1045.   pOt_p_Op_COCE=&pOt_p;
  1046.   pOt_p=pOt_NIL;
  1047.   pOt_q_=pOt_q_Op_COCE;
  1048.   pOt_q_Op_COCE=&pOt_q;
  1049.   pOt_q=pOt_NIL;
  1050.   pOt_r_=pOt_r_Op_COCE;
  1051.   pOt_r_Op_COCE=&pOt_r;
  1052.   pOt_r=pOt_NIL;
  1053.   pOt_consts_=pOt_consts_Op_COCE;
  1054.   pOt_consts_Op_COCE=&pOt_consts;
  1055.   pOt_convert_=pOt_convert_Op_COCE;
  1056.   pOt_convert_Op_COCE=&pOt_convert;
  1057.  
  1058.   if(( (*pOt_x).pOt_mode>11)) {
  1059.     pOt_Mark_COCS((pOt_INTEGER)(126));
  1060.   }
  1061.   if(( (*pOt_y).pOt_mode>11)) {
  1062.     pOt_Mark_COCS((pOt_INTEGER)(126));
  1063.   }
  1064.   pOt_convert=(pOt_SET)0x0L;
  1065.   if(( (*pOt_x).pOt_typ!=(*pOt_y).pOt_typ)) {
  1066.     pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  1067.     pOt_g=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form);
  1068.     switch(pOt_f) {
  1069.     case 0:
  1070.     break;
  1071.     case 4:
  1072.       if(( pOt_g==((pOt_INTEGER)(5)))) {
  1073.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1074.       } else if(( pOt_g==((pOt_INTEGER)(6)))) {
  1075.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1076.       } else if(( pOt_g==((pOt_INTEGER)(7)))) {
  1077.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1078.       } else if(( pOt_g==((pOt_INTEGER)(8)))) {
  1079.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1080.       } else {
  1081.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1082.       }
  1083.     break;
  1084.     case 5:
  1085.       if(( pOt_g==((pOt_INTEGER)(4)))) {
  1086.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1087.       } else if(( pOt_g==((pOt_INTEGER)(6)))) {
  1088.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1089.       } else if(( pOt_g==((pOt_INTEGER)(7)))) {
  1090.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1091.       } else if(( pOt_g==((pOt_INTEGER)(8)))) {
  1092.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1093.       } else {
  1094.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1095.       }
  1096.     break;
  1097.     case 6:
  1098.       if(( pOt_g==((pOt_INTEGER)(4)))) {
  1099.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1100.       } else if(( pOt_g==((pOt_INTEGER)(5)))) {
  1101.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1102.       } else if(( pOt_g==((pOt_INTEGER)(7)))) {
  1103.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1104.       } else if(( pOt_g==((pOt_INTEGER)(8)))) {
  1105.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ));
  1106.       } else {
  1107.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1108.       }
  1109.     break;
  1110.     case 7:
  1111.       if(( pOt_g==((pOt_INTEGER)(4)))) {
  1112.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1113.       } else if(( pOt_g==((pOt_INTEGER)(5)))) {
  1114.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1115.       } else if(( pOt_g==((pOt_INTEGER)(6)))) {
  1116.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1117.       } else if(( pOt_g==((pOt_INTEGER)(8)))) {
  1118.         pOt_convertRR_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1119.       } else {
  1120.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1121.       }
  1122.     break;
  1123.     case 8:
  1124.       if(( pOt_g==((pOt_INTEGER)(4)))) {
  1125.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1126.       } else if(( pOt_g==((pOt_INTEGER)(5)))) {
  1127.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1128.       } else if(( pOt_g==((pOt_INTEGER)(6)))) {
  1129.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ));
  1130.       } else if(( pOt_g==((pOt_INTEGER)(7)))) {
  1131.         pOt_convertRR_COCE((struct pOt__tag_3_COCT*)&(*pOt_y));
  1132.       } else {
  1133.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1134.       }
  1135.     break;
  1136.     case 11:
  1137.       if(( pOt_g!=((pOt_INTEGER)(13)))) {
  1138.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1139.       }
  1140.     break;
  1141.     case 13:
  1142.       if(( pOt_g==((pOt_INTEGER)(13)))) {
  1143.         pOt_p=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  1144.         pOt_q=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_BaseTyp);
  1145.         if(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_p))).pOt_form==17))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_q))).pOt_form==17)))) {
  1146.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_p))).pOt_n<(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_q))).pOt_n)) {
  1147.             pOt_r=(struct pOt__tag_2_COCT*)(pOt_p);
  1148.             pOt_p=(struct pOt__tag_2_COCT*)(pOt_q);
  1149.             pOt_q=(struct pOt__tag_2_COCT*)(pOt_r);
  1150.             pOt_convert|=((unsigned long)1<<(1));
  1151.             (*pOt_y).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ);
  1152.           } else {
  1153.             pOt_convert|=((unsigned long)1<<(0));
  1154.             (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ);
  1155.           }
  1156.           for(;;) {
  1157.             if((((pOt_p!=pOt_q))&&((pOt_p!=pOt_NIL)))); else break;
  1158.             pOt_p=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_p))).pOt_BaseTyp);
  1159.           }
  1160.           if(( pOt_p==pOt_NIL)) {
  1161.             pOt_Mark_COCS((pOt_INTEGER)(100));
  1162.           }
  1163.         } else {
  1164.           pOt_Mark_COCS((pOt_INTEGER)(100));
  1165.         }
  1166.       } else if(( pOt_g!=((pOt_INTEGER)(11)))) {
  1167.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1168.       }
  1169.     break;
  1170.     case 14:
  1171.       if(( pOt_g!=((pOt_INTEGER)(11)))) {
  1172.         pOt_Mark_COCS((pOt_INTEGER)(100));
  1173.       }
  1174.     break;
  1175.     case 15:
  1176.     case 16:
  1177.     case 3:
  1178.     case 10:
  1179.     break;
  1180.     case 1:
  1181.     case 2:
  1182.     case 9:
  1183.     case 12:
  1184.     case 17:
  1185.       pOt_Mark_COCS((pOt_INTEGER)(100));
  1186.     break;
  1187.     default:;
  1188.       pOt__halt(__FILE__,__LINE__,0x10);
  1189.     }
  1190.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  1191.       if(( pOt_f==((pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form)))) {
  1192.         pOt_convert|=((unsigned long)1<<(1));
  1193.       } else {
  1194.         pOt_convert|=((unsigned long)1<<(0));
  1195.       }
  1196.     }
  1197.   }
  1198.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  1199.   pOt_g=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form);
  1200.   pOt_consts=((((*pOt_x).pOt_mode==8))&&(((*pOt_y).pOt_mode==8)));
  1201.   switch(pOt_op) {
  1202.   case 1:
  1203.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  1204.       pOt_NumOp_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_rngchk_COCE);
  1205.       if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,pOt_f)&(pOt_SET)0x70L)))&&pOt_consts)) {
  1206.         (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)((*pOt_y).pOt_intval),6));
  1207.         pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1208.       } else {
  1209.         (*pOt_x).pOt_mode=11;
  1210.       }
  1211.     } else if(( pOt_f==((pOt_INTEGER)(9)))) {
  1212.       pOt_SetOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1213.       if(pOt_consts) {
  1214.         (*pOt_x).pOt_intval=(pOt_LONGINT)(((pOt_LONGINT)(pOt_LONGINT)(((pOt_SET)(pOt_SET)(*pOt_x).pOt_intval)&((pOt_SET)(pOt_SET)(*pOt_y).pOt_intval))));
  1215.       } else {
  1216.         (*pOt_x).pOt_mode=11;
  1217.       }
  1218.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1219.       pOt_Mark_COCS((pOt_INTEGER)(101));
  1220.       (*pOt_x).pOt_mode=11;
  1221.     }
  1222.   break;
  1223.   case 2:
  1224.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  1225.       if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form)&(pOt_SET)0x70L))) {
  1226.         pOt_convert=(pOt_convert|(pOt_SET)0x3L);
  1227.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)(pOt_realtyp_COCT));
  1228.         pOt_convertRI_COCE((struct pOt__tag_3_COCT*)&(*pOt_y),(struct pOt__tag_2_COCT*)(pOt_realtyp_COCT));
  1229.       }
  1230.       pOt_NumOp_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_rngchk_COCE);
  1231.       (*pOt_x).pOt_mode=11;
  1232.     } else if(( pOt_f==((pOt_INTEGER)(9)))) {
  1233.       pOt_SetOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1234.       if(pOt_consts) {
  1235.         (*pOt_x).pOt_intval=(pOt_LONGINT)(((pOt_LONGINT)(pOt_LONGINT)(((pOt_SET)(pOt_SET)(*pOt_x).pOt_intval)^((pOt_SET)(pOt_SET)(*pOt_y).pOt_intval))));
  1236.       } else {
  1237.         (*pOt_x).pOt_mode=11;
  1238.       }
  1239.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1240.       pOt_Mark_COCS((pOt_INTEGER)(102));
  1241.       (*pOt_x).pOt_mode=11;
  1242.     }
  1243.   break;
  1244.   case 3:
  1245.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1246.       pOt_NumOp_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_rngchk_COCE);
  1247.       if(pOt_consts) {
  1248.         if(( (*pOt_y).pOt_intval!=((pOt_LONGINT)(0)))) {
  1249.           (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)((*pOt_y).pOt_intval),6));
  1250.           pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1251.         } else {
  1252.           pOt_Mark_COCS((pOt_INTEGER)(205));
  1253.         }
  1254.       } else {
  1255.         (*pOt_x).pOt_mode=11;
  1256.       }
  1257.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1258.       pOt_Mark_COCS((pOt_INTEGER)(103));
  1259.       (*pOt_x).pOt_mode=11;
  1260.     }
  1261.   break;
  1262.   case 4:
  1263.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1264.       pOt_NumOp_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_rngchk_COCE);
  1265.       if(pOt_consts) {
  1266.         if(( (*pOt_y).pOt_intval!=((pOt_LONGINT)(0)))) {
  1267.           (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)((*pOt_y).pOt_intval),6));
  1268.           (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ);
  1269.         } else {
  1270.           pOt_Mark_COCS((pOt_INTEGER)(205));
  1271.         }
  1272.       } else {
  1273.         (*pOt_x).pOt_mode=11;
  1274.       }
  1275.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1276.       pOt_Mark_COCS((pOt_INTEGER)(104));
  1277.       (*pOt_x).pOt_mode=11;
  1278.     }
  1279.   break;
  1280.   case 5:
  1281.     pOt_BoolOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1282.     if(pOt_consts) {
  1283.       (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)((*pOt_y).pOt_intval),6));
  1284.     } else {
  1285.       (*pOt_x).pOt_mode=11;
  1286.     }
  1287.   break;
  1288.   case 6:
  1289.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  1290.       pOt_NumOp_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_rngchk_COCE);
  1291.       if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,pOt_f)&(pOt_SET)0x70L)))&&pOt_consts)) {
  1292.         (*pOt_x).pOt_intval+=((*pOt_y).pOt_intval);
  1293.         pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1294.       } else {
  1295.         (*pOt_x).pOt_mode=11;
  1296.       }
  1297.     } else if(( pOt_f==((pOt_INTEGER)(9)))) {
  1298.       pOt_SetOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1299.       if(pOt_consts) {
  1300.         (*pOt_x).pOt_intval=(pOt_LONGINT)(((pOt_LONGINT)(pOt_LONGINT)(((pOt_SET)(pOt_SET)(*pOt_x).pOt_intval)|((pOt_SET)(pOt_SET)(*pOt_y).pOt_intval))));
  1301.       } else {
  1302.         (*pOt_x).pOt_mode=11;
  1303.       }
  1304.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1305.       pOt_Mark_COCS((pOt_INTEGER)(105));
  1306.       (*pOt_x).pOt_mode=11;
  1307.     }
  1308.   break;
  1309.   case 7:
  1310.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  1311.       pOt_NumOp_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y),pOt_rngchk_COCE);
  1312.       if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,pOt_f)&(pOt_SET)0x70L)))&&pOt_consts)) {
  1313.         (*pOt_x).pOt_intval-=((*pOt_y).pOt_intval);
  1314.         pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1315.       } else {
  1316.         (*pOt_x).pOt_mode=11;
  1317.       }
  1318.     } else if(( pOt_f==((pOt_INTEGER)(9)))) {
  1319.       pOt_SetOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1320.       if(pOt_consts) {
  1321.         (*pOt_x).pOt_intval=(pOt_LONGINT)(((pOt_LONGINT)(pOt_LONGINT)(((pOt_SET)(pOt_SET)(*pOt_x).pOt_intval)&~((pOt_SET)(pOt_SET)(*pOt_y).pOt_intval))));
  1322.       } else {
  1323.         (*pOt_x).pOt_mode=11;
  1324.       }
  1325.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1326.       pOt_Mark_COCS((pOt_INTEGER)(106));
  1327.       (*pOt_x).pOt_mode=11;
  1328.     }
  1329.   break;
  1330.   case 8:
  1331.     pOt_BoolOp_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1332.     if((pOt_consts&&(((*pOt_x).pOt_intval==((pOt_LONGINT)(0)))))) {
  1333.       (*pOt_x).pOt_intval=(pOt_LONGINT)((*pOt_y).pOt_intval);
  1334.     } else {
  1335.       (*pOt_x).pOt_mode=11;
  1336.     }
  1337.   break;
  1338.   case 9:
  1339.   case 10:
  1340.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x6A74L))) {
  1341.       pOt_NumRel_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1342.       if(pOt_consts) {
  1343.         if(( (((*pOt_x).pOt_intval==(*pOt_y).pOt_intval))==((pOt_op==((pOt_INTEGER)(9)))))) {
  1344.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1345.         } else {
  1346.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1347.         }
  1348.       } else {
  1349.         (*pOt_x).pOt_mode=11;
  1350.       }
  1351.     } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x180L))) {
  1352.       pOt_NumRel_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1353.       (*pOt_x).pOt_mode=11;
  1354.     } else if(pOt_strings_Op_COCE()) {
  1355.       pOt_StrRel_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1356.       (*pOt_x).pOt_mode=11;
  1357.     } else if(( ((pOt_f==((pOt_INTEGER)(3))))!=((pOt_g==((pOt_INTEGER)(3)))))) {
  1358.       pOt_Mark_COCS((pOt_INTEGER)(100));
  1359.       (*pOt_x).pOt_mode=11;
  1360.     } else if(( pOt_f==((pOt_INTEGER)(3)))) {
  1361.       pOt_CharRel_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1362.       if(pOt_consts) {
  1363.         if(( (((*pOt_x).pOt_intval==(*pOt_y).pOt_intval))==((pOt_op==((pOt_INTEGER)(9)))))) {
  1364.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1365.         } else {
  1366.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1367.         }
  1368.       } else {
  1369.         (*pOt_x).pOt_mode=11;
  1370.       }
  1371.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1372.       pOt_Mark_COCS((pOt_INTEGER)(107));
  1373.       (*pOt_x).pOt_mode=11;
  1374.     }
  1375.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  1376.   break;
  1377.   case 11:
  1378.   case 14:
  1379.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1380.       pOt_NumRel_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1381.       if(pOt_consts) {
  1382.         if(( (((*pOt_x).pOt_intval<(*pOt_y).pOt_intval))==((pOt_op==((pOt_INTEGER)(11)))))) {
  1383.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1384.         } else {
  1385.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1386.         }
  1387.       } else {
  1388.         (*pOt_x).pOt_mode=11;
  1389.       }
  1390.     } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x180L))) {
  1391.       pOt_NumRel_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1392.       (*pOt_x).pOt_mode=11;
  1393.     } else if(pOt_strings_Op_COCE()) {
  1394.       pOt_StrRel_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1395.       (*pOt_x).pOt_mode=11;
  1396.     } else if(( ((pOt_f==((pOt_INTEGER)(3))))!=((pOt_g==((pOt_INTEGER)(3)))))) {
  1397.       pOt_Mark_COCS((pOt_INTEGER)(100));
  1398.       (*pOt_x).pOt_mode=11;
  1399.     } else if(( pOt_f==((pOt_INTEGER)(3)))) {
  1400.       pOt_CharRel_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1401.       if(pOt_consts) {
  1402.         if(( (((*pOt_x).pOt_intval<(*pOt_y).pOt_intval))==((pOt_op==((pOt_INTEGER)(11)))))) {
  1403.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1404.         } else {
  1405.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1406.         }
  1407.       } else {
  1408.         (*pOt_x).pOt_mode=11;
  1409.       }
  1410.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1411.       pOt_Mark_COCS((pOt_INTEGER)(108));
  1412.       (*pOt_x).pOt_mode=11;
  1413.     }
  1414.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  1415.   break;
  1416.   case 12:
  1417.   case 13:
  1418.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1419.       pOt_NumRel_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1420.       if(pOt_consts) {
  1421.         if(( (((*pOt_x).pOt_intval<=(*pOt_y).pOt_intval))==((pOt_op==((pOt_INTEGER)(12)))))) {
  1422.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1423.         } else {
  1424.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1425.         }
  1426.       } else {
  1427.         (*pOt_x).pOt_mode=11;
  1428.       }
  1429.     } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x180L))) {
  1430.       pOt_NumRel_COCX((pOt_INTEGER)(pOt_op),pOt_convert,(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1431.       (*pOt_x).pOt_mode=11;
  1432.     } else if(pOt_strings_Op_COCE()) {
  1433.       pOt_StrRel_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1434.       (*pOt_x).pOt_mode=11;
  1435.     } else if(( ((pOt_f==((pOt_INTEGER)(3))))!=((pOt_g==((pOt_INTEGER)(3)))))) {
  1436.       pOt_Mark_COCS((pOt_INTEGER)(100));
  1437.       (*pOt_x).pOt_mode=11;
  1438.     } else if(( pOt_f==((pOt_INTEGER)(3)))) {
  1439.       pOt_CharRel_COCX((pOt_INTEGER)(pOt_op),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&(*pOt_y));
  1440.       if(pOt_consts) {
  1441.         if(( (((*pOt_x).pOt_intval<=(*pOt_y).pOt_intval))==((pOt_op==((pOt_INTEGER)(12)))))) {
  1442.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1443.         } else {
  1444.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1445.         }
  1446.       } else {
  1447.         (*pOt_x).pOt_mode=11;
  1448.       }
  1449.     } else if(( pOt_f!=((pOt_INTEGER)(0)))) {
  1450.       pOt_Mark_COCS((pOt_INTEGER)(108));
  1451.       (*pOt_x).pOt_mode=11;
  1452.     }
  1453.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  1454.   break;
  1455.   default:;
  1456.     pOt__halt(__FILE__,__LINE__,0x10);
  1457.   }
  1458.  
  1459. pOt__Epilogue:;
  1460.   pOt_op_Op_COCE=pOt_op_;
  1461.   pOt_x_Op_COCE=pOt_x_;
  1462.   pOt_y_Op_COCE=pOt_y_;
  1463.   pOt_f_Op_COCE=pOt_f_;
  1464.   pOt_g_Op_COCE=pOt_g_;
  1465.   pOt_p_Op_COCE=pOt_p_;
  1466.   pOt_q_Op_COCE=pOt_q_;
  1467.   pOt_r_Op_COCE=pOt_r_;
  1468.   pOt_consts_Op_COCE=pOt_consts_;
  1469.   pOt_convert_Op_COCE=pOt_convert_;
  1470.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1471. }
  1472.  
  1473.  
  1474.  
  1475.  
  1476. extern void pOt_TkFct_COCE
  1477. #if pOt__ANSI_C
  1478.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno)
  1479. #else
  1480.   (pOt_x, pOt_fctno)
  1481.   struct pOt__tag_3_COCT *pOt_x;
  1482.   pOt_INTEGER pOt_fctno;
  1483.  
  1484. #endif
  1485. {
  1486.   struct {void*next;} pOt__gc_ptrs;
  1487.   pOt__gc_ptrs.next = pOt__gc_root;
  1488.  
  1489.   pOt_StProcPfx_COCX((pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1490.  
  1491. pOt__Epilogue:;
  1492.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1493. }
  1494.  
  1495.  
  1496.  
  1497.  
  1498. extern void pOt_StPar1_COCE
  1499. #if pOt__ANSI_C
  1500.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno)
  1501. #else
  1502.   (pOt_x, pOt_fctno)
  1503.   struct pOt__tag_3_COCT *pOt_x;
  1504.   pOt_INTEGER pOt_fctno;
  1505.  
  1506. #endif
  1507. {
  1508.   pOt_INTEGER pOt_f;
  1509.   pOt_LONGINT pOt_s;
  1510.   struct {void*next;} pOt__gc_ptrs;
  1511.   pOt__gc_ptrs.next = pOt__gc_root;
  1512.  
  1513.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  1514.   switch(pOt_fctno) {
  1515.   case 0:
  1516.     if((((pOt_f==((pOt_INTEGER)(4))))&&(((*pOt_x).pOt_mode==8)))) {
  1517.       if(( (*pOt_x).pOt_intval<((pOt_LONGINT)(32)))) {
  1518.         pOt_Mark_COCS((pOt_INTEGER)(218));
  1519.       } else {
  1520.         pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1521.       }
  1522.     } else {
  1523.       pOt_Mark_COCS((pOt_INTEGER)(217));
  1524.     }
  1525.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  1526.   break;
  1527.   case 1:
  1528.     if(( (*pOt_x).pOt_mode>=8)) {
  1529.       pOt_Mark_COCS((pOt_INTEGER)(112));
  1530.     } else if(( pOt_f==((pOt_INTEGER)(13)))) {
  1531.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  1532.       pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  1533.       if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x28000L))) {
  1534.         pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1535.       } else {
  1536.         pOt_Mark_COCS((pOt_INTEGER)(111));
  1537.       }
  1538.     } else {
  1539.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1540.     }
  1541.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  1542.   break;
  1543.   case 2:
  1544.     if((((pOt_f==((pOt_INTEGER)(4))))&&(((*pOt_x).pOt_mode==8)))) {
  1545.       if((((((pOt_LONGINT)(0))<=(*pOt_x).pOt_intval))&&(((*pOt_x).pOt_intval<((pOt_LONGINT)(16)))))) {
  1546.         pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1547.       } else {
  1548.         pOt_Mark_COCS((pOt_INTEGER)(219));
  1549.       }
  1550.     } else {
  1551.       pOt_Mark_COCS((pOt_INTEGER)(217));
  1552.     }
  1553.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  1554.   break;
  1555.   case 3:
  1556.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  1557.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1558.       if(( (*pOt_x).pOt_mode==8)) {
  1559.         switch(pOt_f) {
  1560.         case 4:
  1561.           if(( (*pOt_x).pOt_intval<((pOt_LONGINT)(0)))) {
  1562.             if(( (*pOt_x).pOt_intval!=pOt_MinSInt_COCE)) {
  1563.               (*pOt_x).pOt_intval=(pOt_LONGINT)(-(*pOt_x).pOt_intval);
  1564.             } else {
  1565.               pOt_Mark_COCS((pOt_INTEGER)(203));
  1566.             }
  1567.           }
  1568.         break;
  1569.         case 5:
  1570.           if(( (*pOt_x).pOt_intval<((pOt_LONGINT)(0)))) {
  1571.             if(( (*pOt_x).pOt_intval!=pOt_MinInt_COCE)) {
  1572.               (*pOt_x).pOt_intval=(pOt_LONGINT)(-(*pOt_x).pOt_intval);
  1573.             } else {
  1574.               pOt_Mark_COCS((pOt_INTEGER)(203));
  1575.             }
  1576.           }
  1577.         break;
  1578.         case 6:
  1579.           if(( (*pOt_x).pOt_intval<((pOt_LONGINT)(0)))) {
  1580.             if(( (*pOt_x).pOt_intval!=pOt_MinLInt_COCE)) {
  1581.               (*pOt_x).pOt_intval=(pOt_LONGINT)(-(*pOt_x).pOt_intval);
  1582.             } else {
  1583.               pOt_Mark_COCS((pOt_INTEGER)(203));
  1584.             }
  1585.           }
  1586.         break;
  1587.         case 7:
  1588.         case 8:
  1589.           if(( (*pOt_x).pOt_fltval<((pOt_LONGREAL)((pOt_REAL)0.0)))) {
  1590.             (*pOt_x).pOt_intval=(pOt_LONGINT)(-(*pOt_x).pOt_intval);
  1591.           }
  1592.         break;
  1593.         default:;
  1594.           pOt__halt(__FILE__,__LINE__,0x10);
  1595.         }
  1596.       } else {
  1597.         if(( (*pOt_x).pOt_mode>11)) {
  1598.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1599.         }
  1600.         (*pOt_x).pOt_mode=11;
  1601.       }
  1602.     } else {
  1603.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1604.       (*pOt_x).pOt_mode=11;
  1605.     }
  1606.   break;
  1607.   case 4:
  1608.     if(( pOt_f==((pOt_INTEGER)(3)))) {
  1609.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1610.       if(( (*pOt_x).pOt_mode==8)) {
  1611.         (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt__cap((unsigned char)(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((*pOt_x).pOt_intval)))));
  1612.       } else {
  1613.         if(( (*pOt_x).pOt_mode>11)) {
  1614.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1615.         }
  1616.         (*pOt_x).pOt_mode=11;
  1617.       }
  1618.     } else {
  1619.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1620.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_chartyp_COCT);
  1621.       (*pOt_x).pOt_mode=11;
  1622.     }
  1623.   break;
  1624.   case 5:
  1625.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0xAL))) {
  1626.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1627.       if(( (*pOt_x).pOt_mode!=8)) {
  1628.         if(( (*pOt_x).pOt_mode>11)) {
  1629.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1630.         }
  1631.         (*pOt_x).pOt_mode=11;
  1632.       }
  1633.     } else {
  1634.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1635.       (*pOt_x).pOt_mode=11;
  1636.     }
  1637.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  1638.   break;
  1639.   case 6:
  1640.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x180L))) {
  1641.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1642.       if(( (*pOt_x).pOt_mode==8)) {
  1643.         if((((((pOt_LONGREAL)(pOt_MinLInt_COCE))<=(*pOt_x).pOt_fltval))&&(((*pOt_x).pOt_fltval<=((pOt_LONGREAL)(pOt_MaxLInt_COCE)))))) {
  1644.           (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt__rngchk_li(__FILE__,__LINE__,(*pOt_x).pOt_fltval));
  1645.         } else {
  1646.           pOt_Mark_COCS((pOt_INTEGER)(203));
  1647.         }
  1648.       } else {
  1649.         if(( (*pOt_x).pOt_mode>11)) {
  1650.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1651.         }
  1652.         (*pOt_x).pOt_mode=11;
  1653.       }
  1654.     } else {
  1655.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1656.       (*pOt_x).pOt_mode=11;
  1657.     }
  1658.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  1659.   break;
  1660.   case 7:
  1661.     if(( (*pOt_x).pOt_mode==13)) {
  1662.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1663.     } else {
  1664.       pOt_Mark_COCS((pOt_INTEGER)(110));
  1665.     }
  1666.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  1667.     (*pOt_x).pOt_mode=11;
  1668.   break;
  1669.   case 8:
  1670.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1671.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1672.       if(( (*pOt_x).pOt_mode==8)) {
  1673.         if((pOt_BOOLEAN)(0x1&((*pOt_x).pOt_intval))) {
  1674.           (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  1675.         } else {
  1676.           (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1677.         }
  1678.       } else {
  1679.         if(( (*pOt_x).pOt_mode>11)) {
  1680.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1681.         }
  1682.         (*pOt_x).pOt_mode=11;
  1683.       }
  1684.     } else {
  1685.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1686.       (*pOt_x).pOt_mode=11;
  1687.     }
  1688.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  1689.   break;
  1690.   case 9:
  1691.     if(( (*pOt_x).pOt_mode<8)) {
  1692.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1693.     } else {
  1694.       pOt_Mark_COCS((pOt_INTEGER)(127));
  1695.     }
  1696.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  1697.     (*pOt_x).pOt_mode=11;
  1698.   break;
  1699.   case 10:
  1700.     if(( (*pOt_x).pOt_mode==13)) {
  1701.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1702.       (*pOt_x).pOt_mode=8;
  1703.       switch(pOt_f) {
  1704.       case 2:
  1705.       case 3:
  1706.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MinChar_COCE);
  1707.       break;
  1708.       case 4:
  1709.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MinSInt_COCE);
  1710.       break;
  1711.       case 5:
  1712.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MinInt_COCE);
  1713.       break;
  1714.       case 6:
  1715.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MinLInt_COCE);
  1716.       break;
  1717.       case 7:
  1718.         (*pOt_x).pOt_fltval=(pOt_LONGREAL)(pOt_MinReal_COCE);
  1719.       break;
  1720.       case 8:
  1721.         (*pOt_x).pOt_fltval=(pOt_LONGREAL)(pOt_MinLReal_COCE);
  1722.       break;
  1723.       case 9:
  1724.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MinSet_COCE);
  1725.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  1726.       break;
  1727.       case 0:
  1728.       case 11:
  1729.       case 12:
  1730.       case 13:
  1731.       case 14:
  1732.       case 15:
  1733.       case 16:
  1734.       case 17:
  1735.         pOt_Mark_COCS((pOt_INTEGER)(111));
  1736.       break;
  1737.       default:;
  1738.         pOt__halt(__FILE__,__LINE__,0x10);
  1739.       }
  1740.     } else {
  1741.       pOt_Mark_COCS((pOt_INTEGER)(110));
  1742.       (*pOt_x).pOt_mode=11;
  1743.     }
  1744.   break;
  1745.   case 11:
  1746.     if(( (*pOt_x).pOt_mode==13)) {
  1747.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1748.       (*pOt_x).pOt_mode=8;
  1749.       switch(pOt_f) {
  1750.       case 2:
  1751.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MaxBool_COCE);
  1752.       break;
  1753.       case 3:
  1754.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MaxChar_COCE);
  1755.       break;
  1756.       case 4:
  1757.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MaxSInt_COCE);
  1758.       break;
  1759.       case 5:
  1760.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MaxInt_COCE);
  1761.       break;
  1762.       case 6:
  1763.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MaxLInt_COCE);
  1764.       break;
  1765.       case 7:
  1766.         (*pOt_x).pOt_fltval=(pOt_LONGREAL)(pOt_MaxReal_COCE);
  1767.       break;
  1768.       case 8:
  1769.         (*pOt_x).pOt_fltval=(pOt_LONGREAL)(pOt_MaxLReal_COCE);
  1770.       break;
  1771.       case 9:
  1772.         (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_MaxSet_COCE);
  1773.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  1774.       break;
  1775.       case 0:
  1776.       case 11:
  1777.       case 12:
  1778.       case 13:
  1779.       case 14:
  1780.       case 15:
  1781.       case 16:
  1782.       case 17:
  1783.         pOt_Mark_COCS((pOt_INTEGER)(111));
  1784.       break;
  1785.       default:;
  1786.         pOt__halt(__FILE__,__LINE__,0x10);
  1787.       }
  1788.     } else {
  1789.       pOt_Mark_COCS((pOt_INTEGER)(110));
  1790.       (*pOt_x).pOt_mode=11;
  1791.     }
  1792.   break;
  1793.   case 12:
  1794.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1795.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1796.       if(( (*pOt_x).pOt_mode==8)) {
  1797.         if((((((pOt_LONGINT)(0))>(*pOt_x).pOt_intval))||(((*pOt_x).pOt_intval>=((pOt_LONGINT)(256)))))) {
  1798.           pOt_Mark_COCS((pOt_INTEGER)(203));
  1799.         }
  1800.       } else {
  1801.         if(( (*pOt_x).pOt_mode>11)) {
  1802.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1803.         }
  1804.         (*pOt_x).pOt_mode=11;
  1805.       }
  1806.     } else {
  1807.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1808.       (*pOt_x).pOt_mode=11;
  1809.     }
  1810.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_chartyp_COCT);
  1811.   break;
  1812.   case 13:
  1813.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x160L))) {
  1814.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1815.       switch(pOt_f) {
  1816.       case 5:
  1817.         if(( (*pOt_x).pOt_mode==8)) {
  1818.           pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1819.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form!=4)) {
  1820.             pOt_Mark_COCS((pOt_INTEGER)(203));
  1821.             (*pOt_x).pOt_mode=11;
  1822.           }
  1823.         } else {
  1824.           if(( (*pOt_x).pOt_mode>11)) {
  1825.             pOt_Mark_COCS((pOt_INTEGER)(126));
  1826.           }
  1827.           (*pOt_x).pOt_mode=11;
  1828.         }
  1829.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_sinttyp_COCT);
  1830.       break;
  1831.       case 6:
  1832.         if(( (*pOt_x).pOt_mode==8)) {
  1833.           pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1834.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==6)) {
  1835.             pOt_Mark_COCS((pOt_INTEGER)(203));
  1836.             (*pOt_x).pOt_mode=11;
  1837.           }
  1838.         } else {
  1839.           if(( (*pOt_x).pOt_mode>11)) {
  1840.             pOt_Mark_COCS((pOt_INTEGER)(126));
  1841.           }
  1842.           (*pOt_x).pOt_mode=11;
  1843.         }
  1844.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  1845.       break;
  1846.       case 8:
  1847.         if(( (*pOt_x).pOt_mode==8)) {
  1848.           if(((((*pOt_x).pOt_fltval>pOt_MaxReal_COCE))||(((*pOt_x).pOt_fltval<pOt_MinReal_COCE)))) {
  1849.             pOt_Mark_COCS((pOt_INTEGER)(203));
  1850.             (*pOt_x).pOt_mode=11;
  1851.           }
  1852.         } else {
  1853.           if(( (*pOt_x).pOt_mode>11)) {
  1854.             pOt_Mark_COCS((pOt_INTEGER)(126));
  1855.           }
  1856.           (*pOt_x).pOt_mode=11;
  1857.         }
  1858.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_realtyp_COCT);
  1859.       break;
  1860.       default:;
  1861.         pOt__halt(__FILE__,__LINE__,0x10);
  1862.       }
  1863.     } else {
  1864.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1865.       (*pOt_x).pOt_mode=11;
  1866.     }
  1867.   break;
  1868.   case 14:
  1869.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0xB0L))) {
  1870.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1871.       if(( (*pOt_x).pOt_mode>11)) {
  1872.         pOt_Mark_COCS((pOt_INTEGER)(126));
  1873.       }
  1874.       switch(pOt_f) {
  1875.       case 4:
  1876.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT));
  1877.       break;
  1878.       case 5:
  1879.         pOt_convertII_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT));
  1880.       break;
  1881.       case 7:
  1882.         pOt_convertRR_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1883.       break;
  1884.       default:;
  1885.         pOt__halt(__FILE__,__LINE__,0x10);
  1886.       }
  1887.     } else {
  1888.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1889.       (*pOt_x).pOt_mode=11;
  1890.     }
  1891.   break;
  1892.   case 15:
  1893.     if((((pOt_f==((pOt_INTEGER)(2))))&&(((*pOt_x).pOt_mode==8)))) {
  1894.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1895.     } else {
  1896.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1897.     }
  1898.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  1899.   break;
  1900.   case 16:
  1901.   case 17:
  1902.     if(( (*pOt_x).pOt_mode>=8)) {
  1903.       pOt_Mark_COCS((pOt_INTEGER)(112));
  1904.     } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1905.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1906.     } else {
  1907.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1908.     }
  1909.   break;
  1910.   case 18:
  1911.   case 19:
  1912.     if(( (*pOt_x).pOt_mode>=8)) {
  1913.       pOt_Mark_COCS((pOt_INTEGER)(112));
  1914.     } else if(( (*pOt_x).pOt_typ==pOt_settyp_COCT)) {
  1915.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1916.     } else {
  1917.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1918.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_settyp_COCT);
  1919.     }
  1920.   break;
  1921.   case 20:
  1922.     if((((pOt_f==((pOt_INTEGER)(16))))||((pOt_f==((pOt_INTEGER)(15)))))) {
  1923.       if(( (*pOt_x).pOt_mode>=8)) {
  1924.         pOt_Mark_COCS((pOt_INTEGER)(127));
  1925.       }
  1926.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1927.     } else {
  1928.       pOt_Mark_COCS((pOt_INTEGER)(131));
  1929.     }
  1930.   break;
  1931.   case 21:
  1932.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1933.       if(( (*pOt_x).pOt_mode>11)) {
  1934.         pOt_Mark_COCS((pOt_INTEGER)(126));
  1935.       }
  1936.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1937.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  1938.     } else {
  1939.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1940.     }
  1941.   break;
  1942.   case 22:
  1943.   case 23:
  1944.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x270L))) {
  1945.       if(( (*pOt_x).pOt_mode>11)) {
  1946.         pOt_Mark_COCS((pOt_INTEGER)(126));
  1947.       }
  1948.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1949.     } else {
  1950.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1951.     }
  1952.   break;
  1953.   case 24:
  1954.   case 25:
  1955.   case 26:
  1956.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1957.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1958.       if(( (*pOt_x).pOt_mode==8)) {
  1959.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  1960.       } else if(( pOt_f==((pOt_INTEGER)(6)))) {
  1961.         if(( (*pOt_x).pOt_mode>11)) {
  1962.           pOt_Mark_COCS((pOt_INTEGER)(126));
  1963.         }
  1964.       } else {
  1965.         pOt_Mark_COCS((pOt_INTEGER)(111));
  1966.       }
  1967.     } else {
  1968.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1969.     }
  1970.   break;
  1971.   case 27:
  1972.     if(( (*pOt_x).pOt_mode==13)) {
  1973.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1974.     } else {
  1975.       pOt_Mark_COCS((pOt_INTEGER)(110));
  1976.     }
  1977.   break;
  1978.   case 28:
  1979.     if(( (*pOt_x).pOt_mode>=8)) {
  1980.       pOt_Mark_COCS((pOt_INTEGER)(112));
  1981.     } else if(( pOt_f==((pOt_INTEGER)(13)))) {
  1982.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1983.     } else {
  1984.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1985.     }
  1986.   break;
  1987.   case 29:
  1988.     if((((((((pOt_f==((pOt_INTEGER)(15))))||((pOt_f==((pOt_INTEGER)(16))))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp))).pOt_form==3))))||((pOt_f==((pOt_INTEGER)(10)))))) {
  1989.       if(( (*pOt_x).pOt_mode>11)) {
  1990.         pOt_Mark_COCS((pOt_INTEGER)(126));
  1991.       }
  1992.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  1993.     } else {
  1994.       pOt_Mark_COCS((pOt_INTEGER)(111));
  1995.     }
  1996.   break;
  1997.   case 30:
  1998.     if(( pOt_f==((pOt_INTEGER)(6)))) {
  1999.       if(( (*pOt_x).pOt_mode>11)) {
  2000.         pOt_Mark_COCS((pOt_INTEGER)(126));
  2001.       }
  2002.       pOt_StPar1Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2003.     } else {
  2004.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2005.     }
  2006.   break;
  2007.   default:;
  2008.     pOt__halt(__FILE__,__LINE__,0x10);
  2009.   }
  2010.  
  2011. pOt__Epilogue:;
  2012.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2013. }
  2014.  
  2015.  
  2016.  
  2017.  
  2018. extern void pOt_StPar2_COCE
  2019. #if pOt__ANSI_C
  2020.   (struct pOt__tag_3_COCT *pOt_p, struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno)
  2021. #else
  2022.   (pOt_p, pOt_x, pOt_fctno)
  2023.   struct pOt__tag_3_COCT *pOt_p, *pOt_x;
  2024.   pOt_INTEGER pOt_fctno;
  2025.  
  2026. #endif
  2027. {
  2028.   pOt_INTEGER pOt_f, pOt_L;
  2029.   struct pOt__tag_3_COCT pOt_y;
  2030.   pOt_Struct_COCT pOt_typ;
  2031.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  2032.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  2033.   pOt__gc_ptrs.next = pOt__gc_root;
  2034.   pOt__gc_strs.next = &pOt__gc_ptrs;
  2035.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  2036.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  2037.   pOt__gc_strs.vars[0x0]=&pOt_y;
  2038.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  2039.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  2040.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  2041.   pOt_typ=pOt_NIL;
  2042.  
  2043.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  2044.   if(( pOt_fctno<((pOt_INTEGER)(16)))) {
  2045.     pOt_Mark_COCS((pOt_INTEGER)(64));
  2046.     goto pOt__Epilogue;
  2047.   }
  2048.   switch(pOt_fctno) {
  2049.   case 16:
  2050.   case 17:
  2051.     if(( (*pOt_x).pOt_typ!=(*pOt_p).pOt_typ)) {
  2052.       if(((((*pOt_x).pOt_mode==8))&&(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form)&(pOt_SET)0x70L))))) {
  2053.         pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2054.         (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_p).pOt_typ);
  2055.       } else {
  2056.         pOt_Mark_COCS((pOt_INTEGER)(111));
  2057.       }
  2058.     } else {
  2059.       if(( (*pOt_x).pOt_mode>11)) {
  2060.         pOt_Mark_COCS((pOt_INTEGER)(126));
  2061.       }
  2062.     }
  2063.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2064.   break;
  2065.   case 18:
  2066.   case 19:
  2067.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  2068.       if(( (*pOt_x).pOt_mode==8)) {
  2069.         if(((((*pOt_x).pOt_intval<((pOt_LONGINT)(0))))||((pOt_MaxSet_COCE<(*pOt_x).pOt_intval)))) {
  2070.           pOt_Mark_COCS((pOt_INTEGER)(202));
  2071.         }
  2072.       } else {
  2073.         if(( (*pOt_x).pOt_mode>11)) {
  2074.           pOt_Mark_COCS((pOt_INTEGER)(126));
  2075.         }
  2076.       }
  2077.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2078.     } else {
  2079.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2080.     }
  2081.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2082.   break;
  2083.   case 20:
  2084.     (*pOt_p).pOt_mode=11;
  2085.     if(((((*pOt_x).pOt_mode==8))&&((pOt_f==((pOt_INTEGER)(4)))))) {
  2086.       pOt_L=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*pOt_x).pOt_intval));
  2087.       pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_p).pOt_typ);
  2088.       for(;;) {
  2089.         if((((pOt_L>((pOt_INTEGER)(0))))&&(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form)&(pOt_SET)0x18000L))))); else break;
  2090.         pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_BaseTyp);
  2091.         pOt_L-=(1);
  2092.       }
  2093.       if((((pOt_L!=((pOt_INTEGER)(0))))||!(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form)&(pOt_SET)0x18000L))))) {
  2094.         pOt_Mark_COCS((pOt_INTEGER)(132));
  2095.       } else {
  2096.         pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2097.         if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form==16)) {
  2098.           (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  2099.         } else {
  2100.           (*pOt_p).pOt_mode=8;
  2101.           (*pOt_p).pOt_intval=(pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n);
  2102.           pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_p));
  2103.         }
  2104.       }
  2105.     } else {
  2106.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2107.     }
  2108.   break;
  2109.   case 21:
  2110.   case 22:
  2111.   case 23:
  2112.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  2113.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2114.       if(((((*pOt_p).pOt_mode==8))&&(((*pOt_x).pOt_mode==8)))) {
  2115.         switch(pOt_fctno) {
  2116.         case 21:
  2117.           (*pOt_p).pOt_intval=(pOt_LONGINT)(pOt__ash((*pOt_p).pOt_intval,(*pOt_x).pOt_intval));
  2118.         break;
  2119.         case 22:
  2120.           (*pOt_p).pOt_intval=(pOt_LONGINT)(pOt__lsh((*pOt_p).pOt_intval,(*pOt_x).pOt_intval));
  2121.         break;
  2122.         case 23:
  2123.           switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_p).pOt_typ))).pOt_form) {
  2124.           case 4:
  2125.             (*pOt_p).pOt_intval=(pOt_LONGINT)(pOt__rot((pOt_INTEGER)pOt__rngchk_si(__FILE__,__LINE__,(pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*pOt_p).pOt_intval)),sizeof(pOt_SHORTINT)*8,(*pOt_x).pOt_intval));
  2126.           break;
  2127.           case 5:
  2128.             (*pOt_p).pOt_intval=(pOt_LONGINT)(pOt__rot((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*pOt_p).pOt_intval),sizeof(pOt_INTEGER)*8,(*pOt_x).pOt_intval));
  2129.           break;
  2130.           case 6:
  2131.           case 9:
  2132.             (*pOt_p).pOt_intval=(pOt_LONGINT)(pOt__rot((*pOt_p).pOt_intval,sizeof(pOt_LONGINT)*8,(*pOt_x).pOt_intval));
  2133.           break;
  2134.           default:;
  2135.             pOt__halt(__FILE__,__LINE__,0x10);
  2136.           }
  2137.         break;
  2138.         default:;
  2139.           pOt__halt(__FILE__,__LINE__,0x10);
  2140.         }
  2141.       } else {
  2142.         if(( (*pOt_x).pOt_mode>11)) {
  2143.           pOt_Mark_COCS((pOt_INTEGER)(126));
  2144.         }
  2145.         (*pOt_p).pOt_mode=11;
  2146.       }
  2147.     } else {
  2148.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2149.       (*pOt_p).pOt_mode=11;
  2150.     }
  2151.   break;
  2152.   case 24:
  2153.   case 25:
  2154.     if(( (*pOt_x).pOt_mode>=8)) {
  2155.       pOt_Mark_COCS((pOt_INTEGER)(127));
  2156.     } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x38000L))) {
  2157.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2158.     } else {
  2159.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2160.     }
  2161.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2162.   break;
  2163.   case 26:
  2164.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  2165.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2166.       if(( (*pOt_x).pOt_mode==8)) {
  2167.         if(((((*pOt_x).pOt_intval<((pOt_LONGINT)(0))))||((((pOt_LONGINT)(7))<(*pOt_x).pOt_intval)))) {
  2168.           pOt_Mark_COCS((pOt_INTEGER)(203));
  2169.         }
  2170.       } else {
  2171.         if(( (*pOt_x).pOt_mode>11)) {
  2172.           pOt_Mark_COCS((pOt_INTEGER)(126));
  2173.         }
  2174.       }
  2175.     } else {
  2176.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2177.     }
  2178.     (*pOt_p).pOt_mode=11;
  2179.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_booltyp_COCT);
  2180.   break;
  2181.   case 27:
  2182.     pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2183.     if(( (*pOt_x).pOt_mode>11)) {
  2184.       pOt_Mark_COCS((pOt_INTEGER)(126));
  2185.     }
  2186.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_p).pOt_typ);
  2187.     (*pOt_x).pOt_qoffs=(pOt_INTEGER)((*pOt_p).pOt_qoffs);
  2188.     pOt__varrec_assign(__FILE__,__LINE__,(pOt__RecTypDsc**)& (*pOt_p),(pOt__RecTypDsc**)&(*pOt_x));
  2189.   break;
  2190.   case 28:
  2191.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  2192.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2193.       if(( (*pOt_x).pOt_mode==8)) {
  2194.       } else {
  2195.         if(( (*pOt_x).pOt_mode>11)) {
  2196.           pOt_Mark_COCS((pOt_INTEGER)(126));
  2197.         }
  2198.       }
  2199.     } else {
  2200.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2201.     }
  2202.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2203.   break;
  2204.   case 29:
  2205.     if((((((pOt_f==((pOt_INTEGER)(15))))||((pOt_f==((pOt_INTEGER)(16))))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp))).pOt_form==3)))) {
  2206.       if(( (*pOt_x).pOt_mode>=8)) {
  2207.         pOt_Mark_COCS((pOt_INTEGER)(112));
  2208.       }
  2209.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2210.     } else {
  2211.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2212.     }
  2213.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2214.   break;
  2215.   case 30:
  2216.     if(( pOt_f==((pOt_INTEGER)(6)))) {
  2217.       if(( (*pOt_x).pOt_mode>11)) {
  2218.         pOt_Mark_COCS((pOt_INTEGER)(126));
  2219.       }
  2220.       pOt_StPar2Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2221.     } else {
  2222.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2223.     }
  2224.   break;
  2225.   default:;
  2226.     pOt__halt(__FILE__,__LINE__,0x10);
  2227.   }
  2228.  
  2229. pOt__Epilogue:;
  2230.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2231. }
  2232.  
  2233.  
  2234.  
  2235.  
  2236. extern void pOt_StPar3_COCE
  2237. #if pOt__ANSI_C
  2238.   (struct pOt__tag_3_COCT *pOt_p, struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno)
  2239. #else
  2240.   (pOt_p, pOt_x, pOt_fctno)
  2241.   struct pOt__tag_3_COCT *pOt_p, *pOt_x;
  2242.   pOt_INTEGER pOt_fctno;
  2243.  
  2244. #endif
  2245. {
  2246.   pOt_INTEGER pOt_f;
  2247.   struct {void*next;} pOt__gc_ptrs;
  2248.   pOt__gc_ptrs.next = pOt__gc_root;
  2249.  
  2250.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  2251.   if(( pOt_fctno==((pOt_INTEGER)(30)))) {
  2252.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  2253.       if(( (*pOt_x).pOt_mode>11)) {
  2254.         pOt_Mark_COCS((pOt_INTEGER)(126));
  2255.       }
  2256.       pOt_StPar3Sfx_COCX((struct pOt__tag_3_COCT*)&(*pOt_p),(pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2257.     } else {
  2258.       pOt_Mark_COCS((pOt_INTEGER)(111));
  2259.     }
  2260.     (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2261.   } else {
  2262.     pOt_Mark_COCS((pOt_INTEGER)(64));
  2263.   }
  2264.  
  2265. pOt__Epilogue:;
  2266.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2267. }
  2268.  
  2269.  
  2270.  
  2271.  
  2272. extern void pOt_StFct_COCE
  2273. #if pOt__ANSI_C
  2274.   (struct pOt__tag_3_COCT *pOt_p, pOt_INTEGER pOt_fctno, pOt_INTEGER pOt_parno)
  2275. #else
  2276.   (pOt_p, pOt_fctno, pOt_parno)
  2277.   struct pOt__tag_3_COCT *pOt_p;
  2278.   pOt_INTEGER pOt_fctno, pOt_parno;
  2279.  
  2280. #endif
  2281. {
  2282.   pOt_INTEGER pOt_np;
  2283.   struct {void*next;} pOt__gc_ptrs;
  2284.   pOt__gc_ptrs.next = pOt__gc_root;
  2285.  
  2286.   if(( pOt_fctno>=((pOt_INTEGER)(16)))) {
  2287.     if((((((pOt_fctno==((pOt_INTEGER)(16))))||((pOt_fctno==((pOt_INTEGER)(17))))))&&((pOt_parno==((pOt_INTEGER)(1)))))) {
  2288.       pOt_StFakeSfx_COCX((pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2289.       (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2290.     } else if((((pOt_fctno==((pOt_INTEGER)(20))))&&((pOt_parno==((pOt_INTEGER)(1)))))) {
  2291.       pOt_StFakeSfx_COCX((pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2292.       if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_p).pOt_typ))).pOt_form==16)) {
  2293.         (*pOt_p).pOt_mode=11;
  2294.         (*pOt_p).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_linttyp_COCT);
  2295.       } else {
  2296.         (*pOt_p).pOt_mode=8;
  2297.         (*pOt_p).pOt_intval=(pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_p).pOt_typ))).pOt_n);
  2298.         pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_p));
  2299.       }
  2300.     } else if((((pOt_parno<((pOt_INTEGER)(2))))||(((pOt_fctno==((pOt_INTEGER)(30))))&&((pOt_parno<((pOt_INTEGER)(3))))))) {
  2301.       pOt_Mark_COCS((pOt_INTEGER)(65));
  2302.     }
  2303.   } else if(( pOt_parno<((pOt_INTEGER)(1)))) {
  2304.     pOt_Mark_COCS((pOt_INTEGER)(65));
  2305.   }
  2306.   pOt_StFctSfx_COCX((pOt_INTEGER)(pOt_fctno),pOt_rngchk_COCE);
  2307.  
  2308. pOt__Epilogue:;
  2309.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2310. }
  2311.  
  2312. void pOt_COCE__body()
  2313. {
  2314.   static int pOt_COCE__loaded=0;
  2315.   if(!pOt_COCE__loaded){
  2316.     pOt_COCE__loaded=1;
  2317.  
  2318.     pOt_COCS__body();
  2319.     pOt_COCT__body();
  2320.     pOt_COCQ__body();
  2321.     pOt_COCN__body();
  2322.     pOt_COCJ__body();
  2323.     pOt_COCX__body();
  2324.  
  2325.     pOt__gc_ptrs.next=pOt__gc_root;
  2326.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  2327.  
  2328.  
  2329.     pOt_inxchk_COCE=(pOt_BOOLEAN)1;
  2330.     pOt_rngchk_COCE=(pOt_BOOLEAN)1;
  2331.     pOt_nilchk_COCE=(pOt_BOOLEAN)1;
  2332.     pOt_MinChar_COCE=(pOt_LONGINT)(0);
  2333.     pOt_MaxChar_COCE=(pOt_LONGINT)(255);
  2334.     pOt_MinBool_COCE=(pOt_LONGINT)(0);
  2335.     pOt_MaxBool_COCE=(pOt_LONGINT)(1);
  2336.     pOt_MinSInt_COCE=(pOt_LONGINT)(-128);
  2337.     pOt_MaxSInt_COCE=(pOt_LONGINT)(127);
  2338.     pOt_MinInt_COCE=(pOt_LONGINT)(-32768);
  2339.     pOt_MaxInt_COCE=(pOt_LONGINT)(32767);
  2340.     pOt_MinLInt_COCE=(pOt_LONGINT)((pOt_LONGINT)0x80000000L);
  2341.     pOt_MaxLInt_COCE=(pOt_LONGINT)(2147483647L);
  2342.     pOt_MinReal_COCE=(pOt_LONGREAL)((pOt_REAL)-3.402823E38);
  2343.     pOt_MaxReal_COCE=(pOt_LONGREAL)((pOt_REAL)3.4028230E38);
  2344.     pOt_MinLReal_COCE=(pOt_LONGREAL)(-1.79769313486231E308);
  2345.     pOt_MaxLReal_COCE=(pOt_LONGREAL)(1.797693134862311E308);
  2346.     pOt_MinSet_COCE=(pOt_LONGINT)(0);
  2347.     pOt_MaxSet_COCE=(pOt_LONGINT)(31);
  2348.  
  2349.   pOt__Epilogue:;
  2350.   }
  2351. }
  2352.