home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCX < prev    next >
Encoding:
Text File  |  1995-05-06  |  45.2 KB  |  1,131 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Strings.h"
  5. #include "COCT.h"
  6. #include "COCQ.h"
  7. #include "COCN.h"
  8. #include "COCJ.h"
  9.  
  10. #include "hi.COCX"
  11.  
  12.  
  13.  
  14.  
  15. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  16.   pOt_NIL
  17. }};
  18. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  19.   pOt_NIL
  20. }};
  21.  
  22.  
  23.  
  24.  
  25. extern void pOt_SubExprPrefix_COCX()
  26. {
  27.   struct {void*next;} pOt__gc_ptrs;
  28.   pOt__gc_ptrs.next = pOt__gc_root;
  29.  
  30.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  31.  
  32. pOt__Epilogue:;
  33.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  34. }
  35.  
  36.  
  37.  
  38.  
  39. extern void pOt_SubExprSuffix_COCX()
  40. {
  41.   struct {void*next;} pOt__gc_ptrs;
  42.   pOt__gc_ptrs.next = pOt__gc_root;
  43.  
  44.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  45.  
  46. pOt__Epilogue:;
  47.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  48. }
  49.  
  50.  
  51.  
  52.  
  53. extern void pOt_Set00_COCX
  54. #if pOt__ANSI_C
  55.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_rngchk)
  56. #else
  57.   (pOt_x, pOt_rngchk)
  58.   struct pOt__tag_3_COCT *pOt_x;
  59.   pOt_BOOLEAN pOt_rngchk;
  60.  
  61. #endif
  62. {
  63.   pOt_INTEGER pOt_np;
  64.   struct {void*next;} pOt__gc_ptrs;
  65.   pOt__gc_ptrs.next = pOt__gc_root;
  66.  
  67.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x13]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  68.   if(pOt_rngchk) {
  69.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x28L],&pOt__str_td[0x21]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  70.   } else {
  71.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  72.   }
  73.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x50L],&pOt__str_td[0x2]))));
  74.  
  75. pOt__Epilogue:;
  76.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  77. }
  78.  
  79.  
  80.  
  81.  
  82. extern void pOt_Set10_COCX
  83. #if pOt__ANSI_C
  84.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_rngchk)
  85. #else
  86.   (pOt_x, pOt_rngchk)
  87.   struct pOt__tag_3_COCT *pOt_x;
  88.   pOt_BOOLEAN pOt_rngchk;
  89.  
  90. #endif
  91. {
  92.   pOt_INTEGER pOt_np;
  93.   struct {void*next;} pOt__gc_ptrs;
  94.   pOt__gc_ptrs.next = pOt__gc_root;
  95.  
  96.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x58L],&pOt__str_td[0x15]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  97.   if(pOt_rngchk) {
  98.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x28L],&pOt__str_td[0x21]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  99.   } else {
  100.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  101.   }
  102.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x74L],&pOt__str_td[0x19]))));
  103.   if(pOt_rngchk) {
  104.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x28L],&pOt__str_td[0x21]))));
  105.   } else {
  106.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  107.   }
  108.  
  109. pOt__Epilogue:;
  110.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  111. }
  112.  
  113.  
  114.  
  115.  
  116. extern void pOt_Set11_COCX
  117. #if pOt__ANSI_C
  118.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_rngchk)
  119. #else
  120.   (pOt_x, pOt_rngchk)
  121.   struct pOt__tag_3_COCT *pOt_x;
  122.   pOt_BOOLEAN pOt_rngchk;
  123.  
  124. #endif
  125. {
  126.   struct {void*next;} pOt__gc_ptrs;
  127.   pOt__gc_ptrs.next = pOt__gc_root;
  128.  
  129.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x94L],&pOt__str_td[0x4]))));
  130.  
  131. pOt__Epilogue:;
  132.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  133. }
  134.  
  135.  
  136.  
  137.  
  138. extern void pOt_InPfx_COCX
  139. #if pOt__ANSI_C
  140.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_rngchk)
  141. #else
  142.   (pOt_x, pOt_rngchk)
  143.   struct pOt__tag_3_COCT *pOt_x;
  144.   pOt_BOOLEAN pOt_rngchk;
  145.  
  146. #endif
  147. {
  148.   pOt_INTEGER pOt_np;
  149.   struct {void*next;} pOt__gc_ptrs;
  150.   pOt__gc_ptrs.next = pOt__gc_root;
  151.  
  152.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA0L],&pOt__str_td[0x26]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  153.   if(pOt_rngchk) {
  154.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x28L],&pOt__str_td[0x21]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  155.   } else {
  156.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  157.   }
  158.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCCL],&pOt__str_td[0x2]))));
  159.  
  160. pOt__Epilogue:;
  161.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  162. }
  163.  
  164.  
  165.  
  166.  
  167. extern void pOt_InSfx_COCX()
  168. {
  169.   struct {void*next;} pOt__gc_ptrs;
  170.   pOt__gc_ptrs.next = pOt__gc_root;
  171.  
  172.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x50L],&pOt__str_td[0x2]))));
  173.  
  174. pOt__Epilogue:;
  175.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  176. }
  177.  
  178.  
  179. struct pOt__tag_0_COCX {
  180.   pOt__ArrTypDsc *td;
  181.   pOt_CHAR arr[0x9L];
  182. } ;
  183. static pOt__ArrTypDsc pOt__td_0_COCX= {
  184.   1,
  185.   0x9L, sizeof(pOt_CHAR)
  186. };
  187.  
  188.  
  189. extern void pOt_TypTest_COCX
  190. #if pOt__ANSI_C
  191.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  192. #else
  193.   (pOt_x, pOt_y)
  194.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  195.  
  196. #endif
  197. {
  198.   pOt_INTEGER pOt_np;
  199.   struct pOt__tag_0_COCX pOt_s;
  200.   struct {void*next;} pOt__gc_ptrs;
  201.   pOt__gc_ptrs.next = pOt__gc_root;
  202.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_0_COCX);
  203.  
  204.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD4L],&pOt__str_td[0x1F]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  205.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xF8L],&pOt__str_td[0x13]))));
  206.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==17)) {
  207.     pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  208.   } else {
  209.     pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_BaseTyp),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  210.   }
  211.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x110L],&pOt__str_td[0x3]))));
  212.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==17)) {
  213.     pOt_FromLInt_Strings((pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_n),16,(pOt__ArrTypDsc**)&pOt_s);
  214.   } else {
  215.     pOt_FromLInt_Strings((pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_BaseTyp))).pOt_n),16,(pOt__ArrTypDsc**)&pOt_s);
  216.   }
  217.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  218.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x118L],&pOt__str_td[0x2]))));
  219.  
  220. pOt__Epilogue:;
  221.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  222. }
  223.  
  224.  
  225.  
  226.  
  227. extern void pOt_MOp_COCX
  228. #if pOt__ANSI_C
  229.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_rngchk)
  230. #else
  231.   (pOt_op, pOt_x, pOt_rngchk)
  232.   pOt_INTEGER pOt_op;
  233.   struct pOt__tag_3_COCT *pOt_x;
  234.   pOt_BOOLEAN pOt_rngchk;
  235.  
  236. #endif
  237. {
  238.   pOt_INTEGER pOt_np, pOt_f;
  239.   struct {void*next;} pOt__gc_ptrs;
  240.   pOt__gc_ptrs.next = pOt__gc_root;
  241.  
  242.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form);
  243.   switch(pOt_op) {
  244.   case 6:
  245.   break;
  246.   case 7:
  247.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x1F0L))) {
  248.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x120L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  249.     } else if(( pOt_f==((pOt_INTEGER)(9)))) {
  250.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x128L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  251.     }
  252.   break;
  253.   case 32:
  254.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x130L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  255.   break;
  256.   default:;
  257.     pOt__halt(__FILE__,__LINE__,0x10);
  258.   }
  259.  
  260. pOt__Epilogue:;
  261.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  262. }
  263.  
  264.  
  265. struct pOt__tag_1_COCX {
  266.   pOt__ArrTypDsc *td;
  267.   pOt_CHAR arr[0x4L];
  268. } ;
  269. static pOt__ArrTypDsc pOt__td_1_COCX= {
  270.   1,
  271.   0x4L, sizeof(pOt_CHAR)
  272. };
  273.  
  274. static pOt_INTEGER (*pOt_op_NumOp_COCX);
  275. static pOt_SET (*pOt_convert_NumOp_COCX);
  276. static struct pOt__tag_3_COCT *pOt_x_NumOp_COCX, *pOt_y_NumOp_COCX;
  277. static pOt_BOOLEAN (*pOt_rngchk_NumOp_COCX);
  278. static pOt_INTEGER (*pOt_np_NumOp_COCX);
  279. static struct pOt__tag_1_COCX (*pOt_s_NumOp_COCX);
  280.  
  281. extern void pOt_NumOp_COCX pOt__ARGS((pOt_INTEGER , pOt_SET , struct pOt__tag_3_COCT *, struct pOt__tag_3_COCT *, pOt_BOOLEAN ));
  282.  
  283.  
  284.  
  285.  
  286. static void pOt_CastX_NumOp_COCX()
  287. {
  288.   struct {void*next;} pOt__gc_ptrs;
  289.   pOt__gc_ptrs.next = pOt__gc_root;
  290.  
  291.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x50L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y_NumOp_COCX).pOt_qoffs),&(*pOt_np_NumOp_COCX));
  292.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x138L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x_NumOp_COCX).pOt_qoffs),&(*pOt_np_NumOp_COCX));
  293.   pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x_NumOp_COCX).pOt_typ),(pOt_INTEGER)((*pOt_np_NumOp_COCX)),&(*pOt_np_NumOp_COCX));
  294.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_np_NumOp_COCX)),&(*pOt_np_NumOp_COCX));
  295.  
  296. pOt__Epilogue:;
  297.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  298. }
  299.  
  300. extern void pOt_NumOp_COCX
  301. #if pOt__ANSI_C
  302.   (pOt_INTEGER pOt_op, pOt_SET pOt_convert, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y, pOt_BOOLEAN pOt_rngchk)
  303. #else
  304.   (pOt_op, pOt_convert, pOt_x, pOt_y, pOt_rngchk)
  305.   pOt_INTEGER pOt_op;
  306.   pOt_SET pOt_convert;
  307.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  308.   pOt_BOOLEAN pOt_rngchk;
  309.  
  310. #endif
  311. {
  312.   pOt_INTEGER (*pOt_op_);
  313.   pOt_SET (*pOt_convert_);
  314.   struct pOt__tag_3_COCT *pOt_x_, *pOt_y_;
  315.   pOt_BOOLEAN (*pOt_rngchk_);
  316.   pOt_INTEGER pOt_np, (*pOt_np_);
  317.   struct pOt__tag_1_COCX pOt_s, (*pOt_s_);
  318.   struct {void*next;} pOt__gc_ptrs;
  319.   pOt__gc_ptrs.next = pOt__gc_root;
  320.   pOt_op_=pOt_op_NumOp_COCX;
  321.   pOt_op_NumOp_COCX=&pOt_op;
  322.   pOt_convert_=pOt_convert_NumOp_COCX;
  323.   pOt_convert_NumOp_COCX=&pOt_convert;
  324.   pOt_x_=pOt_x_NumOp_COCX;
  325.   pOt_x_NumOp_COCX=pOt_x;
  326.   pOt_y_=pOt_y_NumOp_COCX;
  327.   pOt_y_NumOp_COCX=pOt_y;
  328.   pOt_rngchk_=pOt_rngchk_NumOp_COCX;
  329.   pOt_rngchk_NumOp_COCX=&pOt_rngchk;
  330.   pOt_np_=pOt_np_NumOp_COCX;
  331.   pOt_np_NumOp_COCX=&pOt_np;
  332.   pOt_s_=pOt_s_NumOp_COCX;
  333.   pOt_s_NumOp_COCX=&pOt_s;
  334.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_1_COCX);
  335.  
  336.   if(((pOt_rngchk&&(((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))))&&((pOt_op!=((pOt_INTEGER)(2)))))) {
  337.     pOt_FromLInt_Strings((pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form),10,(pOt__ArrTypDsc**)&pOt_s);
  338.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x148L],&pOt__str_td[0x2]))));
  339.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  340.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  341.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x150L],&pOt__str_td[0x10]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  342.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x168L],&pOt__str_td[0x24]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  343.     switch(pOt_op) {
  344.     case 1:
  345.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x194L],&pOt__str_td[0x3]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  346.     break;
  347.     case 3:
  348.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x19CL],&pOt__str_td[0x3]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  349.     break;
  350.     case 4:
  351.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A4L],&pOt__str_td[0x3]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  352.     break;
  353.     case 6:
  354.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1ACL],&pOt__str_td[0x3]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  355.     break;
  356.     case 7:
  357.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B4L],&pOt__str_td[0x3]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  358.     break;
  359.     default:;
  360.       pOt__halt(__FILE__,__LINE__,0x10);
  361.     }
  362.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  363.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  364.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1BCL],&pOt__str_td[0x6]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  365.   } else {
  366.     if(((unsigned long)0!=((unsigned long)1<<( 1)&pOt_convert))) {
  367.       pOt_Cast_COCJ((struct pOt__tag_3_COCT*)&(*pOt_y));
  368.     }
  369.     switch(pOt_op) {
  370.     case 1:
  371.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1C8L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  372.       if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  373.         pOt_CastX_NumOp_COCX();
  374.       }
  375.     break;
  376.     case 2:
  377.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  378.       if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  379.         pOt_CastX_NumOp_COCX();
  380.       }
  381.     break;
  382.     case 3:
  383.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  384.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  385.       if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  386.         pOt_CastX_NumOp_COCX();
  387.       }
  388.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  389.       pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  390.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1E0L],&pOt__str_td[0xA]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  391.     break;
  392.     case 4:
  393.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  394.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  395.       if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  396.         pOt_CastX_NumOp_COCX();
  397.       }
  398.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  399.       pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  400.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1F0L],&pOt__str_td[0xA]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  401.     break;
  402.     case 6:
  403.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x200L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  404.       if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  405.         pOt_CastX_NumOp_COCX();
  406.       }
  407.     break;
  408.     case 7:
  409.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x120L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  410.       if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  411.         pOt_CastX_NumOp_COCX();
  412.       }
  413.     break;
  414.     default:;
  415.       pOt__halt(__FILE__,__LINE__,0x10);
  416.     }
  417.   }
  418.  
  419. pOt__Epilogue:;
  420.   pOt_op_NumOp_COCX=pOt_op_;
  421.   pOt_convert_NumOp_COCX=pOt_convert_;
  422.   pOt_x_NumOp_COCX=pOt_x_;
  423.   pOt_y_NumOp_COCX=pOt_y_;
  424.   pOt_rngchk_NumOp_COCX=pOt_rngchk_;
  425.   pOt_np_NumOp_COCX=pOt_np_;
  426.   pOt_s_NumOp_COCX=pOt_s_;
  427.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  428. }
  429.  
  430.  
  431.  
  432.  
  433. extern void pOt_SetOp_COCX
  434. #if pOt__ANSI_C
  435.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  436. #else
  437.   (pOt_op, pOt_x, pOt_y)
  438.   pOt_INTEGER pOt_op;
  439.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  440.  
  441. #endif
  442. {
  443.   pOt_INTEGER pOt_np;
  444.   struct {void*next;} pOt__gc_ptrs;
  445.   pOt__gc_ptrs.next = pOt__gc_root;
  446.  
  447.   switch(pOt_op) {
  448.   case 1:
  449.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x208L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  450.   break;
  451.   case 2:
  452.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x210L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  453.   break;
  454.   case 6:
  455.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x218L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  456.   break;
  457.   case 7:
  458.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x220L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  459.   break;
  460.   default:;
  461.     pOt__halt(__FILE__,__LINE__,0x10);
  462.   }
  463.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  464.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  465.  
  466. pOt__Epilogue:;
  467.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  468. }
  469.  
  470.  
  471.  
  472.  
  473. extern void pOt_BoolOp_COCX
  474. #if pOt__ANSI_C
  475.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  476. #else
  477.   (pOt_op, pOt_x, pOt_y)
  478.   pOt_INTEGER pOt_op;
  479.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  480.  
  481. #endif
  482. {
  483.   pOt_INTEGER pOt_np;
  484.   struct {void*next;} pOt__gc_ptrs;
  485.   pOt__gc_ptrs.next = pOt__gc_root;
  486.  
  487.   switch(pOt_op) {
  488.   case 5:
  489.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x228L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  490.   break;
  491.   case 8:
  492.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x230L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  493.   break;
  494.   default:;
  495.     pOt__halt(__FILE__,__LINE__,0x10);
  496.   }
  497.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  498.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  499.  
  500. pOt__Epilogue:;
  501.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  502. }
  503.  
  504.  
  505.  
  506. static pOt_INTEGER (*pOt_op_NumRel_COCX);
  507. static pOt_SET (*pOt_convert_NumRel_COCX);
  508. static struct pOt__tag_3_COCT *pOt_x_NumRel_COCX, *pOt_y_NumRel_COCX;
  509. static pOt_INTEGER (*pOt_np_NumRel_COCX);
  510.  
  511. extern void pOt_NumRel_COCX pOt__ARGS((pOt_INTEGER , pOt_SET , struct pOt__tag_3_COCT *, struct pOt__tag_3_COCT *));
  512.  
  513.  
  514.  
  515.  
  516. static void pOt_CastX_NumRel_COCX()
  517. {
  518.   struct {void*next;} pOt__gc_ptrs;
  519.   pOt__gc_ptrs.next = pOt__gc_root;
  520.  
  521.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x50L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y_NumRel_COCX).pOt_qoffs),&(*pOt_np_NumRel_COCX));
  522.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x138L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x_NumRel_COCX).pOt_qoffs),&(*pOt_np_NumRel_COCX));
  523.   pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x_NumRel_COCX).pOt_typ),(pOt_INTEGER)((*pOt_np_NumRel_COCX)),&(*pOt_np_NumRel_COCX));
  524.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_np_NumRel_COCX)),&(*pOt_np_NumRel_COCX));
  525.  
  526. pOt__Epilogue:;
  527.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  528. }
  529.  
  530. extern void pOt_NumRel_COCX
  531. #if pOt__ANSI_C
  532.   (pOt_INTEGER pOt_op, pOt_SET pOt_convert, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  533. #else
  534.   (pOt_op, pOt_convert, pOt_x, pOt_y)
  535.   pOt_INTEGER pOt_op;
  536.   pOt_SET pOt_convert;
  537.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  538.  
  539. #endif
  540. {
  541.   pOt_INTEGER (*pOt_op_);
  542.   pOt_SET (*pOt_convert_);
  543.   struct pOt__tag_3_COCT *pOt_x_, *pOt_y_;
  544.   pOt_INTEGER pOt_np, (*pOt_np_);
  545.   struct {void*next;} pOt__gc_ptrs;
  546.   pOt__gc_ptrs.next = pOt__gc_root;
  547.   pOt_op_=pOt_op_NumRel_COCX;
  548.   pOt_op_NumRel_COCX=&pOt_op;
  549.   pOt_convert_=pOt_convert_NumRel_COCX;
  550.   pOt_convert_NumRel_COCX=&pOt_convert;
  551.   pOt_x_=pOt_x_NumRel_COCX;
  552.   pOt_x_NumRel_COCX=pOt_x;
  553.   pOt_y_=pOt_y_NumRel_COCX;
  554.   pOt_y_NumRel_COCX=pOt_y;
  555.   pOt_np_=pOt_np_NumRel_COCX;
  556.   pOt_np_NumRel_COCX=&pOt_np;
  557.  
  558.   if(((unsigned long)0!=((unsigned long)1<<( 1)&pOt_convert))) {
  559.     pOt_Cast_COCJ((struct pOt__tag_3_COCT*)&(*pOt_y));
  560.   }
  561.   switch(pOt_op) {
  562.   case 9:
  563.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x238L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  564.   break;
  565.   case 10:
  566.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x240L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  567.   break;
  568.   case 11:
  569.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x248L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  570.   break;
  571.   case 12:
  572.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x250L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  573.   break;
  574.   case 13:
  575.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x258L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  576.   break;
  577.   case 14:
  578.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x260L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  579.   break;
  580.   default:;
  581.     pOt__halt(__FILE__,__LINE__,0x10);
  582.   }
  583.   if(((unsigned long)0!=((unsigned long)1<<( 0)&pOt_convert))) {
  584.     pOt_CastX_NumRel_COCX();
  585.   }
  586.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  587.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  588.  
  589. pOt__Epilogue:;
  590.   pOt_op_NumRel_COCX=pOt_op_;
  591.   pOt_convert_NumRel_COCX=pOt_convert_;
  592.   pOt_x_NumRel_COCX=pOt_x_;
  593.   pOt_y_NumRel_COCX=pOt_y_;
  594.   pOt_np_NumRel_COCX=pOt_np_;
  595.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  596. }
  597.  
  598.  
  599. struct pOt__tag_2_COCX {
  600.   pOt__ArrTypDsc *td;
  601.   pOt_CHAR arr[0x9L];
  602. } ;
  603. static pOt__ArrTypDsc pOt__td_2_COCX= {
  604.   1,
  605.   0x9L, sizeof(pOt_CHAR)
  606. };
  607.  
  608.  
  609. extern void pOt_StrRel_COCX
  610. #if pOt__ANSI_C
  611.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  612. #else
  613.   (pOt_op, pOt_x, pOt_y)
  614.   pOt_INTEGER pOt_op;
  615.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  616.  
  617. #endif
  618. {
  619.   pOt_INTEGER pOt_np;
  620.   struct pOt__tag_2_COCX pOt_s;
  621.   struct {void*next;} pOt__gc_ptrs;
  622.   pOt__gc_ptrs.next = pOt__gc_root;
  623.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_2_COCX);
  624.  
  625.   pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x9, 0)]='s';
  626.   pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x9, 1)]='s';
  627.   pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x9, 2)]='\0';
  628.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  629.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==3)) {
  630.     pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x9, 1)]='c';
  631.   } else {
  632.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form!=10)) {
  633.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x268L],&pOt__str_td[0xC]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  634.     }
  635.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==3)) {
  636.       pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x9, 0)]='c';
  637.     } else if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form!=10)) {
  638.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x268L],&pOt__str_td[0xC]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  639.     }
  640.   }
  641.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x27CL],&pOt__str_td[0x8]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  642.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s),(pOt_INTEGER)(pOt_np),&pOt_np);
  643.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  644.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x110L],&pOt__str_td[0x3]))));
  645.   pOt_FromLInt_Strings((pOt_LONGINT)((pOt_INTEGER)(pOt_op)),16,(pOt__ArrTypDsc**)&pOt_s);
  646.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  647.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  648.  
  649. pOt__Epilogue:;
  650.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  651. }
  652.  
  653.  
  654.  
  655.  
  656. extern void pOt_CharRel_COCX
  657. #if pOt__ANSI_C
  658.   (pOt_INTEGER pOt_op, struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  659. #else
  660.   (pOt_op, pOt_x, pOt_y)
  661.   pOt_INTEGER pOt_op;
  662.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  663.  
  664. #endif
  665. {
  666.   pOt_INTEGER pOt_np;
  667.   struct {void*next;} pOt__gc_ptrs;
  668.   pOt__gc_ptrs.next = pOt__gc_root;
  669.  
  670.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x28CL],&pOt__str_td[0xF]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  671.   switch(pOt_op) {
  672.   case 9:
  673.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x238L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  674.   break;
  675.   case 10:
  676.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x240L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  677.   break;
  678.   case 11:
  679.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x248L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  680.   break;
  681.   case 12:
  682.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x250L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  683.   break;
  684.   case 13:
  685.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x258L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  686.   break;
  687.   case 14:
  688.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x260L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_y).pOt_qoffs),&pOt_np);
  689.   break;
  690.   default:;
  691.     pOt__halt(__FILE__,__LINE__,0x10);
  692.   }
  693.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2A0L],&pOt__str_td[0x10]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  694.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  695.  
  696. pOt__Epilogue:;
  697.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  698. }
  699.  
  700.  
  701.  
  702.  
  703. extern void pOt_StProcPfx_COCX
  704. #if pOt__ANSI_C
  705.   (pOt_INTEGER pOt_fctno, pOt_BOOLEAN pOt_rngchk)
  706. #else
  707.   (pOt_fctno, pOt_rngchk)
  708.   pOt_INTEGER pOt_fctno;
  709.   pOt_BOOLEAN pOt_rngchk;
  710.  
  711. #endif
  712. {
  713.   struct {void*next;} pOt__gc_ptrs;
  714.   pOt__gc_ptrs.next = pOt__gc_root;
  715.  
  716.   switch(pOt_fctno) {
  717.   case 0:
  718.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2B8L],&pOt__str_td[0x1C]))));
  719.   break;
  720.   case 1:
  721.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2DCL],&pOt__str_td[0x2C]))));
  722.   break;
  723.   case 2:
  724.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  725.   break;
  726.   case 3:
  727.   break;
  728.   case 4:
  729.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x310L],&pOt__str_td[0x18]))));
  730.   break;
  731.   case 5:
  732.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x330L],&pOt__str_td[0x1D]))));
  733.   break;
  734.   case 6:
  735.     if(pOt_rngchk) {
  736.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x354L],&pOt__str_td[0x21]))));
  737.     } else {
  738.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x37CL],&pOt__str_td[0xC]))));
  739.     }
  740.   break;
  741.   case 7:
  742.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x390L],&pOt__str_td[0x15]))));
  743.   break;
  744.   case 8:
  745.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3ACL],&pOt__str_td[0x13]))));
  746.   break;
  747.   case 9:
  748.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3C4L],&pOt__str_td[0xF]))));
  749.   break;
  750.   case 10:
  751.   case 11:
  752.   break;
  753.   case 12:
  754.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3D8L],&pOt__str_td[0xA]))));
  755.     if(pOt_rngchk) {
  756.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3E8L],&pOt__str_td[0x21]))));
  757.     }
  758.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x410L],&pOt__str_td[0x10]))));
  759.   break;
  760.   case 13:
  761.   case 14:
  762.   break;
  763.   case 15:
  764.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  765.   break;
  766.   case 16:
  767.   case 17:
  768.   case 18:
  769.   case 19:
  770.   break;
  771.   case 20:
  772.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x428L],&pOt__str_td[0x16]))));
  773.   break;
  774.   case 21:
  775.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x444L],&pOt__str_td[0x9]))));
  776.   break;
  777.   case 22:
  778.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x454L],&pOt__str_td[0x9]))));
  779.   break;
  780.   case 23:
  781.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x464L],&pOt__str_td[0x9]))));
  782.   break;
  783.   case 24:
  784.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x474L],&pOt__str_td[0x1B]))));
  785.   break;
  786.   case 25:
  787.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x494L],&pOt__str_td[0x1B]))));
  788.   break;
  789.   case 26:
  790.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4B4L],&pOt__str_td[0x16]))));
  791.   break;
  792.   case 27:
  793.   break;
  794.   case 28:
  795.   break;
  796.   case 29:
  797.     if(pOt_rngchk) {
  798.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4D0L],&pOt__str_td[0x2B]))));
  799.     } else {
  800.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x500L],&pOt__str_td[0x16]))));
  801.     }
  802.   break;
  803.   case 30:
  804.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x51CL],&pOt__str_td[0x1C]))));
  805.   break;
  806.   default:;
  807.     pOt__halt(__FILE__,__LINE__,0x10);
  808.   }
  809.  
  810. pOt__Epilogue:;
  811.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  812. }
  813.  
  814.  
  815.  
  816.  
  817. extern void pOt_StPar1Sfx_COCX
  818. #if pOt__ANSI_C
  819.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno, pOt_BOOLEAN pOt_rngchk)
  820. #else
  821.   (pOt_x, pOt_fctno, pOt_rngchk)
  822.   struct pOt__tag_3_COCT *pOt_x;
  823.   pOt_INTEGER pOt_fctno;
  824.   pOt_BOOLEAN pOt_rngchk;
  825.  
  826. #endif
  827. {
  828.   pOt_INTEGER pOt_np;
  829.   struct {void*next;} pOt__gc_ptrs;
  830.   pOt__gc_ptrs.next = pOt__gc_root;
  831.  
  832.   switch(pOt_fctno) {
  833.   case 0:
  834.   break;
  835.   case 1:
  836.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x540L],&pOt__str_td[0x10]))));
  837.     pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  838.   break;
  839.   case 2:
  840.   break;
  841.   case 3:
  842.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  843.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  844.     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))) {
  845.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x558L],&pOt__str_td[0xA]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  846.     } else 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)0x180L))) {
  847.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x568L],&pOt__str_td[0xB]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  848.     }
  849.   break;
  850.   case 4:
  851.   case 5:
  852.   case 6:
  853.   break;
  854.   case 7:
  855.     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)0x38000L))) {
  856.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x578L],&pOt__str_td[0x16]))));
  857.     } else {
  858.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  859.     }
  860.   break;
  861.   case 8:
  862.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  863.   break;
  864.   case 9:
  865.     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)0x38000L))) {
  866.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x594L],&pOt__str_td[0x15]))));
  867.     }
  868.   break;
  869.   case 10:
  870.   case 11:
  871.   break;
  872.   case 12:
  873.     if(pOt_rngchk) {
  874.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  875.     }
  876.   break;
  877.   case 13:
  878.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  879.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  880.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  881.     if(pOt_rngchk) {
  882.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5B0L],&pOt__str_td[0xC]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  883.       switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form) {
  884.       case 5:
  885.         pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5C4L],&pOt__str_td[0x2]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  886.       break;
  887.       case 6:
  888.         pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5CCL],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  889.       break;
  890.       case 8:
  891.         pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5D4L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  892.       break;
  893.       default:;
  894.         pOt__halt(__FILE__,__LINE__,0x10);
  895.       }
  896.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5DCL],&pOt__str_td[0x13]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  897.     } else {
  898.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  899.     }
  900.   break;
  901.   case 14:
  902.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  903.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  904.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x2]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  905.   break;
  906.   case 15:
  907.   break;
  908.   case 16:
  909.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5F4L],&pOt__str_td[0x3]))));
  910.   break;
  911.   case 17:
  912.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5FCL],&pOt__str_td[0x3]))));
  913.   break;
  914.   case 18:
  915.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x604L],&pOt__str_td[0x16]))));
  916.   break;
  917.   case 19:
  918.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x620L],&pOt__str_td[0x17]))));
  919.   break;
  920.   case 20:
  921.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x200L],&pOt__str_td[0x1]))));
  922.   break;
  923.   case 21:
  924.   case 22:
  925.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))));
  926.   break;
  927.   case 23:
  928.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))));
  929.     pOt_CTSize_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  930.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x63CL],&pOt__str_td[0x3]))));
  931.   break;
  932.   case 24:
  933.   case 25:
  934.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x644L],&pOt__str_td[0x14]))));
  935.   break;
  936.   case 26:
  937.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xCCL],&pOt__str_td[0x2]))));
  938.     if(pOt_rngchk) {
  939.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x660L],&pOt__str_td[0x25]))));
  940.     } else {
  941.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x68CL],&pOt__str_td[0x5]))));
  942.     }
  943.   break;
  944.   case 27:
  945.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x138L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  946.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  947.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x2]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  948.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  949.   break;
  950.   case 28:
  951.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x698L],&pOt__str_td[0x2]))));
  952.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  953.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6A0L],&pOt__str_td[0x1E]))));
  954.   break;
  955.   case 29:
  956.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6C4L],&pOt__str_td[0xD]))));
  957.   break;
  958.   case 30:
  959.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6D8L],&pOt__str_td[0x13]))));
  960.   break;
  961.   default:;
  962.     pOt__halt(__FILE__,__LINE__,0x10);
  963.   }
  964.  
  965. pOt__Epilogue:;
  966.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  967. }
  968.  
  969.  
  970.  
  971.  
  972. extern void pOt_StPar2Sfx_COCX
  973. #if pOt__ANSI_C
  974.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno, pOt_BOOLEAN pOt_rngchk)
  975. #else
  976.   (pOt_x, pOt_fctno, pOt_rngchk)
  977.   struct pOt__tag_3_COCT *pOt_x;
  978.   pOt_INTEGER pOt_fctno;
  979.   pOt_BOOLEAN pOt_rngchk;
  980.  
  981. #endif
  982. {
  983.   pOt_INTEGER pOt_np;
  984.   struct {void*next;} pOt__gc_ptrs;
  985.   pOt__gc_ptrs.next = pOt__gc_root;
  986.  
  987.   switch(pOt_fctno) {
  988.   case 16:
  989.   case 17:
  990.   break;
  991.   case 18:
  992.   case 19:
  993.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  994.   break;
  995.   case 20:
  996.   case 21:
  997.   case 22:
  998.   case 23:
  999.   break;
  1000.   case 24:
  1001.   case 25:
  1002.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))));
  1003.     pOt_CTSize_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  1004.   break;
  1005.   case 26:
  1006.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x50L],&pOt__str_td[0x2]))));
  1007.   break;
  1008.   case 27:
  1009.   case 28:
  1010.   case 29:
  1011.   break;
  1012.   case 30:
  1013.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1]))));
  1014.   break;
  1015.   default:;
  1016.     pOt__halt(__FILE__,__LINE__,0x10);
  1017.   }
  1018.  
  1019. pOt__Epilogue:;
  1020.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1021. }
  1022.  
  1023.  
  1024.  
  1025.  
  1026. extern void pOt_StPar3Sfx_COCX
  1027. #if pOt__ANSI_C
  1028.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_fctno, pOt_BOOLEAN pOt_rngchk)
  1029. #else
  1030.   (pOt_x, pOt_fctno, pOt_rngchk)
  1031.   struct pOt__tag_3_COCT *pOt_x;
  1032.   pOt_INTEGER pOt_fctno;
  1033.   pOt_BOOLEAN pOt_rngchk;
  1034.  
  1035. #endif
  1036. {
  1037.   pOt_INTEGER pOt_np;
  1038.   struct {void*next;} pOt__gc_ptrs;
  1039.   pOt__gc_ptrs.next = pOt__gc_root;
  1040.  
  1041.   switch(pOt_fctno) {
  1042.   case 30:
  1043.   break;
  1044.   default:;
  1045.     pOt__halt(__FILE__,__LINE__,0x10);
  1046.   }
  1047.  
  1048. pOt__Epilogue:;
  1049.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1050. }
  1051.  
  1052.  
  1053.  
  1054.  
  1055. extern void pOt_StFakeSfx_COCX
  1056. #if pOt__ANSI_C
  1057.   (pOt_INTEGER pOt_fctno, pOt_BOOLEAN pOt_rngchk)
  1058. #else
  1059.   (pOt_fctno, pOt_rngchk)
  1060.   pOt_INTEGER pOt_fctno;
  1061.   pOt_BOOLEAN pOt_rngchk;
  1062.  
  1063. #endif
  1064. {
  1065.   struct {void*next;} pOt__gc_ptrs;
  1066.   pOt__gc_ptrs.next = pOt__gc_root;
  1067.  
  1068.   switch(pOt_fctno) {
  1069.   case 16:
  1070.   case 17:
  1071.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6F0L],&pOt__str_td[0x1]))));
  1072.   break;
  1073.   case 20:
  1074.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6F8L],&pOt__str_td[0x1]))));
  1075.   break;
  1076.   default:;
  1077.     pOt__halt(__FILE__,__LINE__,0x10);
  1078.   }
  1079.  
  1080. pOt__Epilogue:;
  1081.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1082. }
  1083.  
  1084.  
  1085.  
  1086.  
  1087. extern void pOt_StFctSfx_COCX
  1088. #if pOt__ANSI_C
  1089.   (pOt_INTEGER pOt_fctno, pOt_BOOLEAN pOt_rngchk)
  1090. #else
  1091.   (pOt_fctno, pOt_rngchk)
  1092.   pOt_INTEGER pOt_fctno;
  1093.   pOt_BOOLEAN pOt_rngchk;
  1094.  
  1095. #endif
  1096. {
  1097.   struct {void*next;} pOt__gc_ptrs;
  1098.   pOt__gc_ptrs.next = pOt__gc_root;
  1099.  
  1100.   if((((pOt_fctno==((pOt_INTEGER)(10))))||((pOt_fctno==((pOt_INTEGER)(11)))))) {
  1101.   } else if(( pOt_fctno==((pOt_INTEGER)(20)))) {
  1102.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x700L],&pOt__str_td[0x9]))));
  1103.   } else {
  1104.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  1105.   }
  1106.  
  1107. pOt__Epilogue:;
  1108.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1109. }
  1110.  
  1111. void pOt_COCX__body()
  1112. {
  1113.   static int pOt_COCX__loaded=0;
  1114.   if(!pOt_COCX__loaded){
  1115.     pOt_COCX__loaded=1;
  1116.  
  1117.     pOt_Strings__body();
  1118.     pOt_COCT__body();
  1119.     pOt_COCQ__body();
  1120.     pOt_COCN__body();
  1121.     pOt_COCJ__body();
  1122.  
  1123.     pOt__gc_ptrs.next=pOt__gc_root;
  1124.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1125.  
  1126.  
  1127.  
  1128.   pOt__Epilogue:;
  1129.   }
  1130. }
  1131.