home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / potland / Sources / src / c / COCJ < prev    next >
Encoding:
Text File  |  1995-05-06  |  30.7 KB  |  770 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Strings.h"
  5. #include "Reals.h"
  6. #include "COCT.h"
  7. #include "COCQ.h"
  8. #include "COCN.h"
  9.  
  10. #include "hi.COCJ"
  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_DeRef_COCJ
  26. #if pOt__ANSI_C
  27.   (struct pOt__tag_3_COCT *pOt_x)
  28. #else
  29.   (pOt_x)
  30.   struct pOt__tag_3_COCT *pOt_x;
  31.  
  32. #endif
  33. {
  34.   pOt_INTEGER pOt_np;
  35.   struct {void*next;} pOt__gc_ptrs;
  36.   pOt__gc_ptrs.next = pOt__gc_root;
  37.  
  38.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  39.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  40.  
  41. pOt__Epilogue:;
  42.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  43. }
  44.  
  45.  
  46.  
  47.  
  48. extern void pOt_NilPtr_COCJ
  49. #if pOt__ANSI_C
  50.   (struct pOt__tag_3_COCT *pOt_x)
  51. #else
  52.   (pOt_x)
  53.   struct pOt__tag_3_COCT *pOt_x;
  54.  
  55. #endif
  56. {
  57.   pOt_INTEGER pOt_np;
  58.   struct {void*next;} pOt__gc_ptrs;
  59.   pOt__gc_ptrs.next = pOt__gc_root;
  60.  
  61.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  62.   pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  63.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18L],&pOt__str_td[0x1F]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  64.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3CL],&pOt__str_td[0x2]))));
  65.  
  66. pOt__Epilogue:;
  67.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  68. }
  69.  
  70.  
  71.  
  72.  
  73. extern void pOt_InRef_COCJ
  74. #if pOt__ANSI_C
  75.   (struct pOt__tag_3_COCT *pOt_x)
  76. #else
  77.   (pOt_x)
  78.   struct pOt__tag_3_COCT *pOt_x;
  79.  
  80. #endif
  81. {
  82.   pOt_INTEGER pOt_np;
  83.   struct {void*next;} pOt__gc_ptrs;
  84.   pOt__gc_ptrs.next = pOt__gc_root;
  85.  
  86.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x44L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  87.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  88.  
  89. pOt__Epilogue:;
  90.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  91. }
  92.  
  93.  
  94.  
  95.  
  96. extern void pOt_Cast_COCJ
  97. #if pOt__ANSI_C
  98.   (struct pOt__tag_3_COCT *pOt_x)
  99. #else
  100.   (pOt_x)
  101.   struct pOt__tag_3_COCT *pOt_x;
  102.  
  103. #endif
  104. {
  105.   pOt_INTEGER pOt_np;
  106.   struct {void*next;} pOt__gc_ptrs;
  107.   pOt__gc_ptrs.next = pOt__gc_root;
  108.  
  109.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  110.   pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_np),&pOt_np);
  111.   if(( (*pOt_x).pOt_mode==3)) {
  112.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4CL],&pOt__str_td[0x3]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  113.   } else {
  114.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x54L],&pOt__str_td[0x2]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  115.   }
  116.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3CL],&pOt__str_td[0x2]))));
  117.  
  118. pOt__Epilogue:;
  119.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  120. }
  121.  
  122.  
  123. struct pOt__tag_0_COCJ {
  124.   pOt__ArrTypDsc *td;
  125.   pOt_CHAR arr[0x9L];
  126. } ;
  127. static pOt__ArrTypDsc pOt__td_0_COCJ= {
  128.   1,
  129.   0x9L, sizeof(pOt_CHAR)
  130. };
  131.  
  132.  
  133. extern void pOt_ArrInxPfx_COCJ
  134. #if pOt__ANSI_C
  135.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_inxchk)
  136. #else
  137.   (pOt_x, pOt_inxchk)
  138.   struct pOt__tag_3_COCT *pOt_x;
  139.   pOt_BOOLEAN pOt_inxchk;
  140.  
  141. #endif
  142. {
  143.   pOt_LONGINT pOt_len;
  144.   struct pOt__tag_0_COCJ pOt_s;
  145.   struct {void*next;} pOt__gc_ptrs;
  146.   pOt__gc_ptrs.next = pOt__gc_root;
  147.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_0_COCJ);
  148.  
  149.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5CL],&pOt__str_td[0x5]))));
  150.   if(pOt_inxchk) {
  151.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x68L],&pOt__str_td[0x20]))));
  152.     pOt_FromLInt_Strings((pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_n),16,(pOt__ArrTypDsc**)&pOt_s);
  153.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  154.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x2]))));
  155.   } else {
  156.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x98L],&pOt__str_td[0x1]))));
  157.   }
  158.  
  159. pOt__Epilogue:;
  160.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  161. }
  162.  
  163.  
  164.  
  165.  
  166. extern void pOt_ArrInxSfx_COCJ()
  167. {
  168.   struct {void*next;} pOt__gc_ptrs;
  169.   pOt__gc_ptrs.next = pOt__gc_root;
  170.  
  171.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA0L],&pOt__str_td[0x2]))));
  172.  
  173. pOt__Epilogue:;
  174.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  175. }
  176.  
  177.  
  178. struct pOt__tag_1_COCJ {
  179.   pOt__ArrTypDsc *td;
  180.   pOt_CHAR arr[0x9L];
  181. } ;
  182. static pOt__ArrTypDsc pOt__td_1_COCJ= {
  183.   1,
  184.   0x9L, sizeof(pOt_CHAR)
  185. };
  186.  
  187.  
  188. extern void pOt_DynArrInxPfx_COCJ
  189. #if pOt__ANSI_C
  190.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_inxchk)
  191. #else
  192.   (pOt_x, pOt_inxchk)
  193.   struct pOt__tag_3_COCT *pOt_x;
  194.   pOt_BOOLEAN pOt_inxchk;
  195.  
  196. #endif
  197. {
  198.   pOt_INTEGER pOt_np;
  199.   struct pOt__tag_1_COCJ pOt_s;
  200.   pOt_Struct_COCT pOt_btyp;
  201.   struct pOt__tag_3_COCT pOt_y;
  202.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  203.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  204.   pOt__gc_ptrs.next = pOt__gc_root;
  205.   pOt__gc_strs.next = &pOt__gc_ptrs;
  206.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  207.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  208.   pOt__gc_ptrs.vars[0x0]=&pOt_btyp;
  209.   pOt__gc_strs.vars[0x0]=&pOt_y;
  210.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  211.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_1_COCJ);
  212.   pOt_btyp=pOt_NIL;
  213.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  214.  
  215.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x98L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  216.   if(( (*pOt_x).pOt_intval==((pOt_LONGINT)(0)))) {
  217.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA8L],&pOt__str_td[0x8]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  218.   }
  219.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB8L],&pOt__str_td[0x19]))));
  220.   pOt_btyp=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_BaseTyp);
  221.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_btyp))).pOt_form==16)) {
  222.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD8L],&pOt__str_td[0x3]))));
  223.     pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  224.     if(( (*pOt_x).pOt_intval!=((pOt_LONGINT)(0)))) {
  225.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x3]))));
  226.       pOt_FromLInt_Strings((pOt_LONGINT)((*pOt_x).pOt_intval),16,(pOt__ArrTypDsc**)&pOt_s);
  227.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x1]))));
  228.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  229.     }
  230.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xF0L],&pOt__str_td[0xA]))));
  231.   } else {
  232.     pOt_CTSize_COCN((struct pOt__tag_2_COCT*)(pOt_btyp),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  233.   }
  234.   if(pOt_inxchk) {
  235.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x100L],&pOt__str_td[0x22]))));
  236.     pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  237.     if(( (*pOt_x).pOt_intval!=((pOt_LONGINT)(0)))) {
  238.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x3]))));
  239.       pOt_FromLInt_Strings((pOt_LONGINT)((*pOt_x).pOt_intval),16,(pOt__ArrTypDsc**)&pOt_s);
  240.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  241.     }
  242.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x128L],&pOt__str_td[0xA]))));
  243.   } else {
  244.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x138L],&pOt__str_td[0x2]))));
  245.   }
  246.  
  247. pOt__Epilogue:;
  248.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  249. }
  250.  
  251.  
  252.  
  253.  
  254. extern void pOt_DynArrInxSfx_COCJ()
  255. {
  256.   struct {void*next;} pOt__gc_ptrs;
  257.   pOt__gc_ptrs.next = pOt__gc_root;
  258.  
  259.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3CL],&pOt__str_td[0x2]))));
  260.  
  261. pOt__Epilogue:;
  262.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  263. }
  264.  
  265.  
  266.  
  267.  
  268. extern void pOt_BytArrInxPfx_COCJ
  269. #if pOt__ANSI_C
  270.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_inxchk)
  271. #else
  272.   (pOt_x, pOt_inxchk)
  273.   struct pOt__tag_3_COCT *pOt_x;
  274.   pOt_BOOLEAN pOt_inxchk;
  275.  
  276. #endif
  277. {
  278.   pOt_INTEGER pOt_np;
  279.   struct {void*next;} pOt__gc_ptrs;
  280.   pOt__gc_ptrs.next = pOt__gc_root;
  281.  
  282.   if(pOt_inxchk) {
  283.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x24]))));
  284.     pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  285.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x16CL],&pOt__str_td[0x5]))));
  286.   } else {
  287.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x178L],&pOt__str_td[0x7]))));
  288.   }
  289.  
  290. pOt__Epilogue:;
  291.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  292. }
  293.  
  294.  
  295.  
  296.  
  297. extern void pOt_BytArrInxSfx_COCJ()
  298. {
  299.   struct {void*next;} pOt__gc_ptrs;
  300.   pOt__gc_ptrs.next = pOt__gc_root;
  301.  
  302.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  303.  
  304. pOt__Epilogue:;
  305.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  306. }
  307.  
  308.  
  309.  
  310.  
  311. extern void pOt_Field_COCJ
  312. #if pOt__ANSI_C
  313.   (struct pOt__tag_3_COCT *pOt_x, pOt_Object_COCT pOt_y)
  314. #else
  315.   (pOt_x, pOt_y)
  316.   struct pOt__tag_3_COCT *pOt_x;
  317.   pOt_Object_COCT pOt_y;
  318.  
  319. #endif
  320. {
  321.   pOt_INTEGER pOt_np, pOt_ix;
  322.   struct pOt__tag_3_COCT pOt_z;
  323.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  324.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  325.   pOt__gc_ptrs.next = pOt__gc_root;
  326.   pOt__gc_strs.next = &pOt__gc_ptrs;
  327.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  328.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  329.   pOt__gc_ptrs.vars[0x0]=&pOt_y;
  330.   pOt__gc_strs.vars[0x0]=&pOt_z;
  331.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  332.   pOt__init_var((pOt__TypDsc**)&pOt_z,(pOt__TypDsc*)&pOt__td_3_COCT);
  333.  
  334.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x184L],&pOt__str_td[0x1]))));
  335.   pOt_ix=(pOt_INTEGER)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_y))).pOt_mnolev);
  336.   for(;;) {
  337.     if((((pOt_LONGINT)( pOt_ix))!=(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_n)); else break;
  338.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x5]))));
  339.     pOt_ix+=(1);
  340.   }
  341.   pOt_z.pOt_mode=12;
  342.   pOt_z.pOt_obj=(struct pOt__tag_1_COCT*)(pOt_y);
  343.   pOt_z.pOt_mnolev=(pOt_INTEGER)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_y))).pOt_mnolev);
  344.   pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&pOt_z,(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  345.  
  346. pOt__Epilogue:;
  347.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  348. }
  349.  
  350.  
  351. struct pOt__tag_2_COCJ {
  352.   pOt__ArrTypDsc *td;
  353.   pOt_CHAR arr[0x9L];
  354. } ;
  355. static pOt__ArrTypDsc pOt__td_2_COCJ= {
  356.   1,
  357.   0x9L, sizeof(pOt_CHAR)
  358. };
  359.  
  360.  
  361. extern void pOt_TypGuard_COCJ
  362. #if pOt__ANSI_C
  363.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y, pOt_BOOLEAN pOt_typchk)
  364. #else
  365.   (pOt_x, pOt_y, pOt_typchk)
  366.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  367.   pOt_BOOLEAN pOt_typchk;
  368.  
  369. #endif
  370. {
  371.   pOt_INTEGER pOt_np;
  372.   struct pOt__tag_2_COCJ pOt_s;
  373.   struct {void*next;} pOt__gc_ptrs;
  374.   pOt__gc_ptrs.next = pOt__gc_root;
  375.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_2_COCJ);
  376.  
  377.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  378.   pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_y),(pOt_INTEGER)(pOt_np),&pOt_np);
  379.   if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==17)) {
  380.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x198L],&pOt__str_td[0x2]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  381.   } else {
  382.     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);
  383.   }
  384.   if(pOt_typchk) {
  385.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A0L],&pOt__str_td[0x30]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  386.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x13]))));
  387.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==17)) {
  388.       pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*pOt_y).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  389.     } else {
  390.       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);
  391.     }
  392.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1F0L],&pOt__str_td[0x3]))));
  393.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_y).pOt_typ))).pOt_form==17)) {
  394.       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);
  395.     } else {
  396.       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);
  397.     }
  398.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  399.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x1]))));
  400.   } else {
  401.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x98L],&pOt__str_td[0x1]))),(pOt_INTEGER)(pOt_np),&pOt_np);
  402.   }
  403.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3CL],&pOt__str_td[0x2]))));
  404.  
  405. pOt__Epilogue:;
  406.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  407. }
  408.  
  409.  
  410. struct pOt__tag_3_COCJ {
  411.   pOt__ArrTypDsc *td;
  412.   pOt_CHAR arr[0x80L];
  413. } ;
  414. static pOt__ArrTypDsc pOt__td_3_COCJ= {
  415.   1,
  416.   0x80L, sizeof(pOt_CHAR)
  417. };
  418.  
  419. static struct pOt__tag_3_COCT *pOt_x_CConstValue_COCJ;
  420. static pOt_INTEGER (*pOt_pos_CConstValue_COCJ), *pOt_nextpos_CConstValue_COCJ;
  421. static struct pOt__tag_3_COCJ (*pOt_CConstBuf_CConstValue_COCJ);
  422.  
  423. extern void pOt_CConstValue_COCJ pOt__ARGS((struct pOt__tag_3_COCT *, pOt_INTEGER , pOt_INTEGER *));
  424.  
  425.  
  426.  
  427.  
  428. static void pOt_WriteChar_CConstValue_COCJ
  429. #if pOt__ANSI_C
  430.   (pOt_CHAR pOt_c)
  431. #else
  432.   (pOt_c)
  433.   pOt_CHAR pOt_c;
  434.  
  435. #endif
  436. {
  437.   pOt_INTEGER pOt_i;
  438.   struct {void*next;} pOt__gc_ptrs;
  439.   pOt__gc_ptrs.next = pOt__gc_root;
  440.  
  441.   (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, 0)]='\'';
  442.   if((((((unsigned char)pOt_c==(unsigned char)'\\'))||(((unsigned char)pOt_c==(unsigned char)'\'')))||(((unsigned char)pOt_c==(unsigned char)'\"')))) {
  443.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, 1)]='\\';
  444.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, 2)]=pOt_c;
  445.     pOt_i=(pOt_INTEGER)(3);
  446.   } else if((((((unsigned char)'\0'<=(unsigned char)pOt_c))&&(((unsigned char)pOt_c<=(unsigned char)'\37')))||((((unsigned char)'\177'<=(unsigned char)pOt_c))&&(((unsigned char)pOt_c<=(unsigned char)'\377'))))) {
  447.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, 1)]='\\';
  448.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, 2)]='\0';
  449.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  450.     pOt_FromLInt_Strings((pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_c)),8,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ));
  451.     pOt_i=(pOt_INTEGER)(0);
  452.     for(;;) {
  453.       if(((unsigned char) (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]!=(unsigned char)'\0')); else break;
  454.       pOt_i+=(1);
  455.     }
  456.   } else {
  457.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, 1)]=pOt_c;
  458.     pOt_i=(pOt_INTEGER)(2);
  459.   }
  460.   (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]='\'';
  461.   (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, (pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))]='\0';
  462.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  463.  
  464. pOt__Epilogue:;
  465.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  466. }
  467.  
  468.  
  469.  
  470.  
  471. static void pOt_WriteLInt_CConstValue_COCJ
  472. #if pOt__ANSI_C
  473.   (pOt_INTEGER pOt_form, pOt_LONGINT pOt_li)
  474. #else
  475.   (pOt_form, pOt_li)
  476.   pOt_INTEGER pOt_form;
  477.   pOt_LONGINT pOt_li;
  478.  
  479. #endif
  480. {
  481.   struct {void*next;} pOt__gc_ptrs;
  482.   pOt__gc_ptrs.next = pOt__gc_root;
  483.  
  484.   if(( pOt_form==((pOt_INTEGER)(2)))) {
  485.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1F8L],&pOt__str_td[0xD]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  486.   } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_form)&(pOt_SET)0x6000L))) {
  487.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x20CL],&pOt__str_td[0x7]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  488.   }
  489.   if(( pOt_li!=(pOt_LONGINT)0x80000000L)) {
  490.     pOt_FromLInt_Strings((pOt_LONGINT)(pOt_li),10,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ));
  491.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  492.     if(( pOt_form==((pOt_INTEGER)(6)))) {
  493.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  494.     }
  495.   } else {
  496.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x218L],&pOt__str_td[0xD]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  497.     pOt_FromLInt_Strings((pOt_LONGINT)(pOt_li),16,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ));
  498.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x22CL],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  499.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  500.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  501.   }
  502.  
  503. pOt__Epilogue:;
  504.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  505. }
  506.  
  507.  
  508.  
  509.  
  510. static void pOt_WriteLReal_CConstValue_COCJ
  511. #if pOt__ANSI_C
  512.   (pOt_INTEGER pOt_form, pOt_LONGREAL pOt_lr)
  513. #else
  514.   (pOt_form, pOt_lr)
  515.   pOt_INTEGER pOt_form;
  516.   pOt_LONGREAL pOt_lr;
  517.  
  518. #endif
  519. {
  520.   pOt_INTEGER pOt_expo;
  521.   pOt_LONGINT pOt_mant;
  522.   pOt_INTEGER pOt_i, pOt_len;
  523.   struct {void*next;} pOt__gc_ptrs;
  524.   pOt__gc_ptrs.next = pOt__gc_root;
  525.  
  526.   switch(pOt_form) {
  527.   case 7:
  528.     pOt_len=(pOt_INTEGER)(9);
  529.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x234L],&pOt__str_td[0xA]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  530.   break;
  531.   case 8:
  532.     pOt_len=(pOt_INTEGER)(17);
  533.   break;
  534.   default:;
  535.     pOt__halt(__FILE__,__LINE__,0x10);
  536.   }
  537.   if(( pOt_lr!=((pOt_LONGREAL)(0)))) {
  538.     pOt_i=(pOt_INTEGER)(0);
  539.     if(( pOt_lr<((pOt_LONGREAL)((pOt_REAL)0.0)))) {
  540.       (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]='-';
  541.       pOt_i+=(1);
  542.       pOt_lr=(pOt_LONGREAL)(-pOt_lr);
  543.     }
  544.     pOt_expo=(pOt_INTEGER)(0);
  545.     if(( pOt_lr>((pOt_LONGREAL)((pOt_REAL)1.0000000)))) {
  546.       for(;;) {
  547.         if(( pOt_lr>=((pOt_LONGREAL)((pOt_REAL)1.0000000E1)))); else break;
  548.         pOt_lr=(pOt_LONGREAL)(pOt_lr/((pOt_LONGREAL)((pOt_REAL)1.0000000E1)));
  549.         pOt_expo+=(1);
  550.       }
  551.     } else {
  552.       for(;;) {
  553.         if(( pOt_lr<((pOt_LONGREAL)((pOt_REAL)1.0000000)))); else break;
  554.         pOt_lr=(pOt_LONGREAL)(pOt_lr*((pOt_LONGREAL)((pOt_REAL)1.0000000E1)));
  555.         pOt_expo-=(1);
  556.       }
  557.     }
  558.     pOt_mant=(pOt_LONGINT)(pOt__rngchk_li(__FILE__,__LINE__,pOt_lr));
  559.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_mant),(pOt_LONGINT)(48),6)));
  560.     pOt_i+=(1);
  561.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]='.';
  562.     pOt_i+=(1);
  563.     for(;;) {
  564.       if(( pOt_i!=pOt_len)); else break;
  565.       pOt_lr=(pOt_LONGREAL)((pOt_lr-((pOt_LONGREAL)(pOt_mant)))*((pOt_LONGREAL)((pOt_REAL)1.0000000E1)));
  566.       pOt_mant=(pOt_LONGINT)(pOt__rngchk_li(__FILE__,__LINE__,pOt_lr));
  567.       (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_mant),(pOt_LONGINT)(48),6)));
  568.       pOt_i+=(1);
  569.     }
  570.     (*pOt_CConstBuf_CConstValue_COCJ).arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_i)]='\0';
  571.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  572.     if(( pOt_expo!=((pOt_INTEGER)(0)))) {
  573.       pOt_FromLInt_Strings((pOt_LONGINT)(pOt_expo),10,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ));
  574.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x244L],&pOt__str_td[0x1]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  575.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  576.     }
  577.   } else {
  578.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x24CL],&pOt__str_td[0x3]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  579.   }
  580.  
  581. pOt__Epilogue:;
  582.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  583. }
  584.  
  585.  
  586.  
  587.  
  588. static void pOt_WriteSet_CConstValue_COCJ
  589. #if pOt__ANSI_C
  590.   (pOt_LONGINT pOt_s)
  591. #else
  592.   (pOt_s)
  593.   pOt_LONGINT pOt_s;
  594.  
  595. #endif
  596. {
  597.   struct {void*next;} pOt__gc_ptrs;
  598.   pOt__gc_ptrs.next = pOt__gc_root;
  599.  
  600.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x254L],&pOt__str_td[0xB]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  601.   pOt_FromLInt_Strings((pOt_LONGINT)(pOt_s),16,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ));
  602.   pOt_Append_Strings((pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x1]))));
  603.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  604.  
  605. pOt__Epilogue:;
  606.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  607. }
  608.  
  609.  
  610.  
  611.  
  612. static void pOt_WriteString_CConstValue_COCJ
  613. #if pOt__ANSI_C
  614.   (pOt_LONGINT pOt_inx)
  615. #else
  616.   (pOt_inx)
  617.   pOt_LONGINT pOt_inx;
  618.  
  619. #endif
  620. {
  621.   struct {void*next;} pOt__gc_ptrs;
  622.   pOt__gc_ptrs.next = pOt__gc_root;
  623.  
  624.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x264L],&pOt__str_td[0x13]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  625.   pOt_FromLInt_Strings((pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_inx),(pOt_LONGINT)(1),6)),16,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ));
  626.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_CConstBuf_CConstValue_COCJ)),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  627.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x27CL],&pOt__str_td[0x2]))),(pOt_INTEGER)((*pOt_nextpos_CConstValue_COCJ)),&(*pOt_nextpos_CConstValue_COCJ));
  628.  
  629. pOt__Epilogue:;
  630.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  631. }
  632.  
  633. extern void pOt_CConstValue_COCJ
  634. #if pOt__ANSI_C
  635.   (struct pOt__tag_3_COCT *pOt_x, pOt_INTEGER pOt_pos, pOt_INTEGER *pOt_nextpos)
  636. #else
  637.   (pOt_x, pOt_pos, pOt_nextpos)
  638.   struct pOt__tag_3_COCT *pOt_x;
  639.   pOt_INTEGER pOt_pos, *pOt_nextpos;
  640.  
  641. #endif
  642. {
  643.   struct pOt__tag_3_COCT *pOt_x_;
  644.   pOt_INTEGER (*pOt_pos_), *pOt_nextpos_;
  645.   struct pOt__tag_3_COCJ pOt_CConstBuf, (*pOt_CConstBuf_);
  646.   struct {void*next;} pOt__gc_ptrs;
  647.   pOt__gc_ptrs.next = pOt__gc_root;
  648.   pOt_x_=pOt_x_CConstValue_COCJ;
  649.   pOt_x_CConstValue_COCJ=pOt_x;
  650.   pOt_pos_=pOt_pos_CConstValue_COCJ;
  651.   pOt_pos_CConstValue_COCJ=&pOt_pos;
  652.   pOt_nextpos_=pOt_nextpos_CConstValue_COCJ;
  653.   pOt_nextpos_CConstValue_COCJ=pOt_nextpos;
  654.   pOt_CConstBuf_=pOt_CConstBuf_CConstValue_COCJ;
  655.   pOt_CConstBuf_CConstValue_COCJ=&pOt_CConstBuf;
  656.   pOt__init_var((pOt__TypDsc**)&pOt_CConstBuf,(pOt__TypDsc*)&pOt__td_3_COCJ);
  657.  
  658.   (*pOt_nextpos)=(pOt_INTEGER)(pOt_pos);
  659.   switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form) {
  660.   break;
  661.   case 3:
  662.     pOt_WriteChar_CConstValue_COCJ((pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(256),6))));
  663.   break;
  664.   case 2:
  665.   case 4:
  666.   case 5:
  667.   case 6:
  668.   case 13:
  669.   case 14:
  670.     pOt_WriteLInt_CConstValue_COCJ((pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form),(pOt_LONGINT)((*pOt_x).pOt_intval));
  671.   break;
  672.   case 7:
  673.   case 8:
  674.     pOt_WriteLReal_CConstValue_COCJ((pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form),(pOt_LONGREAL)((*pOt_x).pOt_fltval));
  675.   break;
  676.   case 9:
  677.     pOt_WriteSet_CConstValue_COCJ((pOt_LONGINT)((*pOt_x).pOt_intval));
  678.   break;
  679.   case 10:
  680.     if(( ((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(256),6))==((pOt_LONGINT)(0)))) {
  681.       pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_nextpos)),&(*pOt_nextpos));
  682.     } else {
  683.       pOt_WriteString_CConstValue_COCJ((pOt_LONGINT)((pOt_LONGINT)pOt__divchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(256),6)));
  684.     }
  685.   break;
  686.   case 11:
  687.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x284L],&pOt__str_td[0x7]))),(pOt_INTEGER)((*pOt_nextpos)),&(*pOt_nextpos));
  688.   break;
  689.   default:;
  690.     pOt__halt(__FILE__,__LINE__,0x10);
  691.   }
  692.  
  693. pOt__Epilogue:;
  694.   pOt_x_CConstValue_COCJ=pOt_x_;
  695.   pOt_pos_CConstValue_COCJ=pOt_pos_;
  696.   pOt_nextpos_CConstValue_COCJ=pOt_nextpos_;
  697.   pOt_CConstBuf_CConstValue_COCJ=pOt_CConstBuf_;
  698.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  699. }
  700.  
  701.  
  702. struct pOt__tag_4_COCJ {
  703.   pOt__ArrTypDsc *td;
  704.   pOt_CHAR arr[0x5L];
  705. } ;
  706. static pOt__ArrTypDsc pOt__td_4_COCJ= {
  707.   1,
  708.   0x5L, sizeof(pOt_CHAR)
  709. };
  710.  
  711.  
  712. extern void pOt_SetStrTD_COCJ
  713. #if pOt__ANSI_C
  714.   (struct pOt__tag_3_COCT *pOt_x, pOt_Struct_COCT pOt_typ)
  715. #else
  716.   (pOt_x, pOt_typ)
  717.   struct pOt__tag_3_COCT *pOt_x;
  718.   pOt_Struct_COCT pOt_typ;
  719.  
  720. #endif
  721. {
  722.   pOt_INTEGER pOt_np;
  723.   struct pOt__tag_4_COCJ pOt_s;
  724.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  725.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  726.   pOt__gc_ptrs.next = pOt__gc_root;
  727.   pOt__gc_strs.next = &pOt__gc_ptrs;
  728.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  729.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  730.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  731.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  732.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_4_COCJ);
  733.  
  734.   pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x290L],&pOt__str_td[0x10]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  735.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2A8L],&pOt__str_td[0x2]))));
  736.   if((((pOt_typ!=pOt_NIL))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form==15)))) {
  737.     pOt_CTDName_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  738.   } else {
  739.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2B0L],&pOt__str_td[0xE]))));
  740.     pOt_FromLInt_Strings((pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(256),6)),16,(pOt__ArrTypDsc**)&pOt_s);
  741.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  742.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2C4L],&pOt__str_td[0x1]))));
  743.   }
  744.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x1]))));
  745.  
  746. pOt__Epilogue:;
  747.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  748. }
  749.  
  750. void pOt_COCJ__body()
  751. {
  752.   static int pOt_COCJ__loaded=0;
  753.   if(!pOt_COCJ__loaded){
  754.     pOt_COCJ__loaded=1;
  755.  
  756.     pOt_Strings__body();
  757.     pOt_Reals__body();
  758.     pOt_COCT__body();
  759.     pOt_COCQ__body();
  760.     pOt_COCN__body();
  761.  
  762.     pOt__gc_ptrs.next=pOt__gc_root;
  763.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  764.  
  765.  
  766.  
  767.   pOt__Epilogue:;
  768.   }
  769. }
  770.