home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCC < prev    next >
Encoding:
Text File  |  1995-05-06  |  48.0 KB  |  1,219 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Strings.h"
  5. #include "Files.h"
  6. #include "COCS.h"
  7. #include "COCT.h"
  8. #include "COCD.h"
  9. #include "COCQ.h"
  10. #include "COCN.h"
  11. #include "COCJ.h"
  12. #include "COCO.h"
  13. #include "COCH.h"
  14. #include "COCY.h"
  15.  
  16. #include "hi.COCC"
  17.  
  18.  
  19.  
  20. pOt_BOOLEAN pOt_tempsafe_COCC;
  21.  
  22. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  23.   pOt_NIL
  24. }};
  25. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  26.   pOt_NIL
  27. }};
  28.  
  29.  
  30.  
  31.  
  32. static void pOt_Logo_COCC()
  33. {
  34.   struct {void*next;} pOt__gc_ptrs;
  35.   pOt__gc_ptrs.next = pOt__gc_root;
  36.  
  37.   pOt_PutComment_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1E]))));
  38.   pOt_Wrap_COCO();
  39.  
  40. pOt__Epilogue:;
  41.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  42. }
  43.  
  44.  
  45.  
  46.  
  47. extern void pOt_TermStmt_COCC()
  48. {
  49.   struct {void*next;} pOt__gc_ptrs;
  50.   pOt__gc_ptrs.next = pOt__gc_root;
  51.  
  52.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x24L],&pOt__str_td[0x1]))));
  53.   pOt_Wrap_COCO();
  54.  
  55. pOt__Epilogue:;
  56.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  57. }
  58.  
  59.  
  60.  
  61.  
  62. extern void pOt_OpenScope_COCC()
  63. {
  64.   struct {void*next;} pOt__gc_ptrs;
  65.   pOt__gc_ptrs.next = pOt__gc_root;
  66.  
  67.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2CL],&pOt__str_td[0x1]))));
  68.   pOt_Wrap_COCO();
  69.   pOt_Indent_COCO();
  70.  
  71. pOt__Epilogue:;
  72.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  73. }
  74.  
  75.  
  76.  
  77.  
  78. extern void pOt_CloseScope_COCC()
  79. {
  80.   struct {void*next;} pOt__gc_ptrs;
  81.   pOt__gc_ptrs.next = pOt__gc_root;
  82.  
  83.   pOt_Undent_COCO();
  84.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  85.   pOt_Wrap_COCO();
  86.  
  87. pOt__Epilogue:;
  88.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  89. }
  90.  
  91.  
  92.  
  93.  
  94. static void pOt_InitVar_COCC
  95. #if pOt__ANSI_C
  96.   (struct pOt__tag_3_COCT *pOt_x)
  97. #else
  98.   (pOt_x)
  99.   struct pOt__tag_3_COCT *pOt_x;
  100.  
  101. #endif
  102. {
  103.   pOt_INTEGER pOt_np;
  104.   struct {void*next;} pOt__gc_ptrs;
  105.   pOt__gc_ptrs.next = pOt__gc_root;
  106.  
  107.   if(( (*pOt_x).pOt_typ!=pOt_undftyp_COCT)) {
  108.     pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  109.     pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  110.     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)0x6000L))) {
  111.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  112.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3CL],&pOt__str_td[0x8]))));
  113.       pOt_TermStmt_COCC();
  114.     } 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)0x28000L))) {
  115.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4CL],&pOt__str_td[0x1E]))));
  116.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  117.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x70L],&pOt__str_td[0x10]))));
  118.       pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  119.       pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  120.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  121.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x1]))));
  122.       pOt_TermStmt_COCC();
  123.     } else {
  124.       pOt_Drop_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  125.     }
  126.   }
  127.  
  128. pOt__Epilogue:;
  129.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  130. }
  131.  
  132.  
  133.  
  134.  
  135. extern void pOt_OuterPrologue_COCC
  136. #if pOt__ANSI_C
  137.   (pOt_Object_COCT pOt_proc, pOt_BOOLEAN pOt_big)
  138. #else
  139.   (pOt_proc, pOt_big)
  140.   pOt_Object_COCT pOt_proc;
  141.   pOt_BOOLEAN pOt_big;
  142.  
  143. #endif
  144. {
  145.   pOt_Object_COCT pOt_obj, pOt_firstvar;
  146.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  147.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  148.   pOt__gc_ptrs.next = pOt__gc_root;
  149.   pOt__gc_strs.next = &pOt__gc_ptrs;
  150.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  151.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  152.   pOt__gc_ptrs.vars[0x2]=&pOt_proc;
  153.   pOt__gc_ptrs.vars[0x1]=&pOt_obj;
  154.   pOt__gc_ptrs.vars[0x0]=&pOt_firstvar;
  155.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  156.   pOt_obj=pOt_NIL;
  157.   pOt_firstvar=pOt_NIL;
  158.  
  159.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  160.   pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_NIL);
  161.   for(;;) {
  162.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  163.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==8)) {
  164.       pOt_ConstObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(0));
  165.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  166.     } else if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==13)) {
  167.       pOt_TypeObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj));
  168.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  169.     } else if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=3)) {
  170.       if((pOt_big&&((pOt_firstvar==pOt_NIL)))) {
  171.         pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_obj);
  172.       }
  173.       for(;;) {
  174.         pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  175.         if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode>3)))) break;
  176.       }
  177.     }
  178.   }
  179.   pOt_Wrap_COCO();
  180.   pOt_InitTypDescs_COCD();
  181.   pOt_Wrap_COCO();
  182.   pOt_obj=(struct pOt__tag_1_COCT*)(pOt_firstvar);
  183.   pOt_StartVOList_COCY();
  184.   for(;;) {
  185.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  186.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=3)) {
  187.       for(;;) {
  188.         pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(1));
  189.         pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  190.         if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode>3)))) break;
  191.       }
  192.     } else {
  193.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  194.     }
  195.   }
  196.   pOt_StopVOList_COCY();
  197.   pOt_Wrap_COCO();
  198.   if(pOt_big) {
  199.     pOt_ProcObj_COCY((struct pOt__tag_1_COCT*)(pOt_proc),(pOt_INTEGER)(1));
  200.     pOt_Wrap_COCO();
  201.   }
  202.  
  203. pOt__Epilogue:;
  204.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  205. }
  206.  
  207.  
  208.  
  209.  
  210. extern void pOt_ForwardDeclaration_COCC
  211. #if pOt__ANSI_C
  212.   (pOt_Object_COCT pOt_proc)
  213. #else
  214.   (pOt_proc)
  215.   pOt_Object_COCT pOt_proc;
  216.  
  217. #endif
  218. {
  219.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  220.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  221.   pOt__gc_ptrs.next = pOt__gc_root;
  222.   pOt__gc_strs.next = &pOt__gc_ptrs;
  223.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  224.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  225.   pOt__gc_ptrs.vars[0x0]=&pOt_proc;
  226.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  227.  
  228.   pOt_ProcObj_COCY((struct pOt__tag_1_COCT*)(pOt_proc),(pOt_INTEGER)(1));
  229.   pOt_Wrap_COCO();
  230.  
  231. pOt__Epilogue:;
  232.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  233. }
  234.  
  235.  
  236.  
  237.  
  238. extern void pOt_InnerPrologue_COCC
  239. #if pOt__ANSI_C
  240.   (pOt_Object_COCT pOt_proc, pOt_BOOLEAN pOt_big)
  241. #else
  242.   (pOt_proc, pOt_big)
  243.   pOt_Object_COCT pOt_proc;
  244.   pOt_BOOLEAN pOt_big;
  245.  
  246. #endif
  247. {
  248.   pOt_Object_COCT pOt_firstvar, pOt_obj;
  249.   pOt_INTEGER pOt_np;
  250.   struct pOt__tag_3_COCT pOt_x;
  251.   pOt_INTEGER pOt_nptr, pOt_nstr;
  252.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  253.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  254.   pOt__gc_ptrs.next = pOt__gc_root;
  255.   pOt__gc_strs.next = &pOt__gc_ptrs;
  256.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  257.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  258.   pOt__gc_ptrs.vars[0x2]=&pOt_proc;
  259.   pOt__gc_ptrs.vars[0x1]=&pOt_firstvar;
  260.   pOt__gc_ptrs.vars[0x0]=&pOt_obj;
  261.   pOt__gc_strs.vars[0x0]=&pOt_x;
  262.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  263.   pOt_firstvar=pOt_NIL;
  264.   pOt_obj=pOt_NIL;
  265.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  266.  
  267.   pOt_ProcObj_COCY((struct pOt__tag_1_COCT*)(pOt_proc),(pOt_INTEGER)(0));
  268.   pOt_OpenScope_COCC();
  269.   if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ!=pOt_notyp_COCT)) {
  270.     pOt_RetObj_COCY((struct pOt__tag_1_COCT*)(pOt_proc));
  271.   }
  272.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  273.   pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_NIL);
  274.   pOt_nptr=(pOt_INTEGER)(0);
  275.   pOt_nstr=(pOt_INTEGER)(0);
  276.   pOt_StartVOList_COCY();
  277.   for(;;) {
  278.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  279.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=3)) {
  280.       if(( pOt_firstvar==pOt_NIL)) {
  281.         pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_obj);
  282.       }
  283.       for(;;) {
  284.         if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==1)) {
  285.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_form==13)) {
  286.             pOt_nptr+=(1);
  287.           } else if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_form)&(pOt_SET)0x38000L)))&&pOt_HasPtr_COCT((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ)))) {
  288.             pOt_nstr+=(1);
  289.           }
  290.         }
  291.         if(!pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_obj))) {
  292.           pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(0));
  293.         }
  294.         if(pOt_big) {
  295.           pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(2));
  296.         }
  297.         pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  298.         if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode>3)))) break;
  299.       }
  300.     } else {
  301.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  302.     }
  303.   }
  304.   pOt_StopVOList_COCY();
  305.   if((pOt_tempsafe_COCC&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ!=pOt_notyp_COCT)))) {
  306.     pOt_GCLock_COCY();
  307.   } else {
  308.     pOt_GCNode_COCY((pOt_INTEGER)(pOt_nptr),(pOt_INTEGER)(pOt_nstr),(struct pOt__tag_1_COCT*)(pOt_firstvar));
  309.   }
  310.   if(( pOt_firstvar!=pOt_NIL)) {
  311.     pOt_obj=(struct pOt__tag_1_COCT*)(pOt_firstvar);
  312.     for(;;) {
  313.       if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=3)) {
  314.         for(;;) {
  315.           pOt_ObjToItem_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(struct pOt__tag_3_COCT*)&pOt_x);
  316.           if(pOt_big) {
  317.             pOt_level_COCT-=(1);
  318.             pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  319.             pOt_CObjBaseName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  320.             pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  321.             pOt_level_COCT+=(1);
  322.             pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x1]))));
  323.             pOt_level_COCT+=(1);
  324.             pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  325.             pOt_CObjBaseName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  326.             pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  327.             pOt_level_COCT-=(1);
  328.             pOt_TermStmt_COCC();
  329.             pOt_level_COCT+=(1);
  330.             pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  331.             pOt_CObjBaseName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  332.             pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  333.             pOt_level_COCT-=(1);
  334.             if(( pOt_x.pOt_mode==1)) {
  335.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x98L],&pOt__str_td[0x2]))));
  336.             } else {
  337.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x1]))));
  338.             }
  339.             pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  340.             pOt_CObjBaseName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  341.             pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  342.             pOt_TermStmt_COCC();
  343.           }
  344.           if(!pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_obj))) {
  345.             pOt_InitVar_COCC((struct pOt__tag_3_COCT*)&pOt_x);
  346.           }
  347.           pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  348.           if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode>3)))) break;
  349.         }
  350.       } else {
  351.         pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  352.       }
  353.       if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode>13)))) break;
  354.     }
  355.   }
  356.   pOt_Wrap_COCO();
  357.  
  358. pOt__Epilogue:;
  359.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  360. }
  361.  
  362.  
  363.  
  364.  
  365. extern void pOt_Epilogue_COCC
  366. #if pOt__ANSI_C
  367.   (pOt_Object_COCT pOt_proc, pOt_BOOLEAN pOt_big)
  368. #else
  369.   (pOt_proc, pOt_big)
  370.   pOt_Object_COCT pOt_proc;
  371.   pOt_BOOLEAN pOt_big;
  372.  
  373. #endif
  374. {
  375.   pOt_Object_COCT pOt_obj;
  376.   pOt_INTEGER pOt_np;
  377.   struct pOt__tag_3_COCT pOt_x;
  378.   struct {void *next, *vars[0x3];} pOt__gc_ptrs;
  379.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  380.   pOt__gc_ptrs.next = pOt__gc_root;
  381.   pOt__gc_strs.next = &pOt__gc_ptrs;
  382.   pOt__gc_ptrs.vars[0x2]=pOt_NIL;
  383.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  384.   pOt__gc_ptrs.vars[0x1]=&pOt_proc;
  385.   pOt__gc_ptrs.vars[0x0]=&pOt_obj;
  386.   pOt__gc_strs.vars[0x0]=&pOt_x;
  387.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  388.   pOt_obj=pOt_NIL;
  389.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  390.  
  391.   pOt_Wrap_COCO();
  392.   if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ!=pOt_notyp_COCT)) {
  393.     pOt_Trap_COCH(17);
  394.     pOt_TermStmt_COCC();
  395.   }
  396.   pOt_Undent_COCO();
  397.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA0L],&pOt__str_td[0xE]))));
  398.   pOt_TermStmt_COCC();
  399.   pOt_Indent_COCO();
  400.   if(pOt_big) {
  401.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  402.     for(;;) {
  403.       if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  404.       if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=3)) {
  405.         pOt_ObjToItem_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(struct pOt__tag_3_COCT*)&pOt_x);
  406.         pOt_level_COCT+=(1);
  407.         pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  408.         pOt_CObjBaseName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  409.         pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  410.         pOt_level_COCT-=(1);
  411.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x1]))));
  412.         pOt_level_COCT-=(1);
  413.         pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  414.         pOt_CObjBaseName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  415.         pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  416.         pOt_level_COCT+=(1);
  417.         pOt_TermStmt_COCC();
  418.       }
  419.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  420.     }
  421.   }
  422.   if((pOt_tempsafe_COCC&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ!=pOt_notyp_COCT)))) {
  423.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB4L],&pOt__str_td[0x24]))));
  424.   } else {
  425.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x38]))));
  426.   }
  427.   pOt_TermStmt_COCC();
  428.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  429.   for(;;) {
  430.     if(pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_obj))); else break;
  431.     if(((((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==1))&&(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_form)&(pOt_SET)0x38000L))))) {
  432.       pOt_ObjToItem_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(struct pOt__tag_3_COCT*)&pOt_x);
  433.       pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  434.       pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  435.       if(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_form==16))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_BaseTyp))).pOt_form==1)))) {
  436.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x120L],&pOt__str_td[0x11]))));
  437.       } else {
  438.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x138L],&pOt__str_td[0x1B]))));
  439.       }
  440.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  441.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x1]))));
  442.       pOt_TermStmt_COCC();
  443.     }
  444.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  445.   }
  446.   if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ!=pOt_notyp_COCT)) {
  447.     pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  448.     pOt_CRetName_COCN((pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  449.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x158L],&pOt__str_td[0x6]))));
  450.     pOt_Separate_COCO();
  451.     pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  452.     pOt_TermStmt_COCC();
  453.   }
  454.   pOt_CloseScope_COCC();
  455.   pOt_Wrap_COCO();
  456.  
  457. pOt__Epilogue:;
  458.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  459. }
  460.  
  461.  
  462.  
  463.  
  464. extern void pOt_ModulePrologue_COCC()
  465. {
  466.   pOt_Object_COCT pOt_obj, pOt_firstvar;
  467.   pOt_INTEGER pOt_nptr, pOt_nstr;
  468.   struct {void *next, *vars[0x3];} pOt__gc_ptrs;
  469.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  470.   pOt__gc_ptrs.next = pOt__gc_root;
  471.   pOt__gc_strs.next = &pOt__gc_ptrs;
  472.   pOt__gc_ptrs.vars[0x2]=pOt_NIL;
  473.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  474.   pOt__gc_ptrs.vars[0x1]=&pOt_obj;
  475.   pOt__gc_ptrs.vars[0x0]=&pOt_firstvar;
  476.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  477.   pOt_obj=pOt_NIL;
  478.   pOt_firstvar=pOt_NIL;
  479.  
  480.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  481.   pOt_Logo_COCC();
  482.   pOt_Wrap_COCO();
  483.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x164L],&pOt__str_td[0x13]))));
  484.   pOt_Wrap_COCO();
  485.   for(;;) {
  486.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==19)))); else break;
  487.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mnolev!=((pOt_INTEGER)(0)))) {
  488.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x17CL],&pOt__str_td[0x9]))));
  489.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x1]))));
  490.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_GlbMod_COCT.arr[pOt__inxchk(__FILE__,__LINE__,0x40, (pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mnolev),(pOt_LONGINT)(1),5))]))).pOt_name));
  491.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x194L],&pOt__str_td[0x2]))));
  492.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x1]))));
  493.       pOt_Wrap_COCO();
  494.     }
  495.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  496.   }
  497.   pOt_Wrap_COCO();
  498.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x17CL],&pOt__str_td[0x9]))));
  499.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x1]))));
  500.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x19CL],&pOt__str_td[0x3]))));
  501.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_name));
  502.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x1]))));
  503.   pOt_Wrap_COCO();
  504.   pOt_Wrap_COCO();
  505.   pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_NIL);
  506.   for(;;) {
  507.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  508.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==8)) {
  509.       pOt_ConstObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(0));
  510.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  511.     } else if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==13)) {
  512.       pOt_TypeObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj));
  513.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  514.     } else if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==1)) {
  515.       if(( pOt_firstvar==pOt_NIL)) {
  516.         pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_obj);
  517.       }
  518.       for(;;) {
  519.         pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  520.         if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode!=1)))) break;
  521.       }
  522.     }
  523.   }
  524.   pOt_Wrap_COCO();
  525.   pOt_InitTypDescs_COCD();
  526.   pOt_Wrap_COCO();
  527.   pOt_nptr=(pOt_INTEGER)(0);
  528.   pOt_nstr=(pOt_INTEGER)(0);
  529.   pOt_obj=(struct pOt__tag_1_COCT*)(pOt_firstvar);
  530.   pOt_StartVOList_COCY();
  531.   for(;;) {
  532.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  533.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==1)) {
  534.       if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_form==13)) {
  535.         pOt_nptr+=(1);
  536.       } else if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_form)&(pOt_SET)0x38000L)))&&pOt_HasPtr_COCT((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ)))) {
  537.         pOt_nstr+=(1);
  538.       }
  539.       pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(0));
  540.     }
  541.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  542.   }
  543.   pOt_StopVOList_COCY();
  544.   pOt_Wrap_COCO();
  545.   pOt_GCNode_COCY((pOt_INTEGER)(pOt_nptr),(pOt_INTEGER)(pOt_nstr),(struct pOt__tag_1_COCT*)(pOt_firstvar));
  546.   pOt_Wrap_COCO();
  547.  
  548. pOt__Epilogue:;
  549.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  550. }
  551.  
  552.  
  553.  
  554.  
  555. extern void pOt_BodyPrologue_COCC()
  556. {
  557.   pOt_INTEGER pOt_np;
  558.   struct pOt__tag_3_COCT pOt_x;
  559.   pOt_Object_COCT pOt_obj;
  560.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  561.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  562.   pOt__gc_ptrs.next = pOt__gc_root;
  563.   pOt__gc_strs.next = &pOt__gc_ptrs;
  564.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  565.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  566.   pOt__gc_strs.vars[0x0]=&pOt_x;
  567.   pOt__gc_ptrs.vars[0x0]=&pOt_obj;
  568.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  569.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  570.   pOt_obj=pOt_NIL;
  571.  
  572.   pOt_BodyObj_COCY((struct pOt__tag_1_COCT*)(pOt_topScope_COCT),(pOt_INTEGER)(0));
  573.   pOt_OpenScope_COCC();
  574.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A4L],&pOt__str_td[0xB]))));
  575.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  576.   pOt_CBodyFlagName_COCN((struct pOt__tag_1_COCT*)(pOt_topScope_COCT),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  577.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  578.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B4L],&pOt__str_td[0x3]))));
  579.   pOt_Wrap_COCO();
  580.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1BCL],&pOt__str_td[0x4]))));
  581.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  582.   pOt_CBodyFlagName_COCN((struct pOt__tag_1_COCT*)(pOt_topScope_COCT),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  583.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  584.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x1]))));
  585.   pOt_OpenScope_COCC();
  586.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  587.   pOt_CBodyFlagName_COCN((struct pOt__tag_1_COCT*)(pOt_topScope_COCT),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  588.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  589.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1C8L],&pOt__str_td[0x2]))));
  590.   pOt_TermStmt_COCC();
  591.   pOt_Wrap_COCO();
  592.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  593.   for(;;) {
  594.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==19)))); else break;
  595.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mnolev!=((pOt_INTEGER)(0)))) {
  596.       pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  597.       pOt_CBodyName_COCN((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  598.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  599.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D0L],&pOt__str_td[0x2]))));
  600.       pOt_TermStmt_COCC();
  601.     }
  602.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  603.   }
  604.   pOt_Wrap_COCO();
  605.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1D8L],&pOt__str_td[0x1E]))));
  606.   pOt_TermStmt_COCC();
  607.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1FCL],&pOt__str_td[0x34]))));
  608.   pOt_TermStmt_COCC();
  609.   pOt_Wrap_COCO();
  610.   for(;;) {
  611.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  612.     if(((((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=3))&&!pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_obj)))) {
  613.       pOt_ObjToItem_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(struct pOt__tag_3_COCT*)&pOt_x);
  614.       pOt_InitVar_COCC((struct pOt__tag_3_COCT*)&pOt_x);
  615.     }
  616.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  617.   }
  618.   pOt_Wrap_COCO();
  619.  
  620. pOt__Epilogue:;
  621.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  622. }
  623.  
  624.  
  625.  
  626.  
  627. extern void pOt_BodyEpilogue_COCC()
  628. {
  629.   struct {void*next;} pOt__gc_ptrs;
  630.   pOt__gc_ptrs.next = pOt__gc_root;
  631.  
  632.   pOt_Wrap_COCO();
  633.   pOt_Undent_COCO();
  634.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xA0L],&pOt__str_td[0xE]))));
  635.   pOt_TermStmt_COCC();
  636.   pOt_Indent_COCO();
  637.   pOt_CloseScope_COCC();
  638.   pOt_CloseScope_COCC();
  639.  
  640. pOt__Epilogue:;
  641.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  642. }
  643.  
  644.  
  645.  
  646.  
  647. extern void pOt_Result_COCC
  648. #if pOt__ANSI_C
  649.   (struct pOt__tag_3_COCT *pOt_x)
  650. #else
  651.   (pOt_x)
  652.   struct pOt__tag_3_COCT *pOt_x;
  653.  
  654. #endif
  655. {
  656.   pOt_INTEGER pOt_np;
  657.   struct {void*next;} pOt__gc_ptrs;
  658.   pOt__gc_ptrs.next = pOt__gc_root;
  659.  
  660.   pOt_CRetName_COCN((pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  661.  
  662. pOt__Epilogue:;
  663.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  664. }
  665.  
  666.  
  667.  
  668.  
  669. extern void pOt_Return_COCC()
  670. {
  671.   struct {void*next;} pOt__gc_ptrs;
  672.   pOt__gc_ptrs.next = pOt__gc_root;
  673.  
  674.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x238L],&pOt__str_td[0x12]))));
  675.   pOt_TermStmt_COCC();
  676.  
  677. pOt__Epilogue:;
  678.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  679. }
  680.  
  681.  
  682.  
  683.  
  684. extern void pOt_Loop_COCC()
  685. {
  686.   struct {void*next;} pOt__gc_ptrs;
  687.   pOt__gc_ptrs.next = pOt__gc_root;
  688.  
  689.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x250L],&pOt__str_td[0x7]))));
  690.   pOt_Separate_COCO();
  691.  
  692. pOt__Epilogue:;
  693.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  694. }
  695.  
  696.  
  697.  
  698.  
  699. extern void pOt_LoopCondPfx_COCC()
  700. {
  701.   struct {void*next;} pOt__gc_ptrs;
  702.   pOt__gc_ptrs.next = pOt__gc_root;
  703.  
  704.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x25CL],&pOt__str_td[0x3]))));
  705.  
  706. pOt__Epilogue:;
  707.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  708. }
  709.  
  710.  
  711.  
  712.  
  713. extern void pOt_LoopCondSfx_COCC
  714. #if pOt__ANSI_C
  715.   (pOt_BOOLEAN pOt_cont)
  716. #else
  717.   (pOt_cont)
  718.   pOt_BOOLEAN pOt_cont;
  719.  
  720. #endif
  721. {
  722.   struct {void*next;} pOt__gc_ptrs;
  723.   pOt__gc_ptrs.next = pOt__gc_root;
  724.  
  725.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x1]))));
  726.   if(pOt_cont) {
  727.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x264L],&pOt__str_td[0x6]))));
  728.   }
  729.   pOt_Separate_COCO();
  730.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x270L],&pOt__str_td[0x5]))));
  731.   pOt_TermStmt_COCC();
  732.  
  733. pOt__Epilogue:;
  734.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  735. }
  736.  
  737.  
  738. struct pOt__tag_0_COCC {
  739.   pOt__ArrTypDsc *td;
  740.   pOt_CHAR arr[0x9L];
  741. } ;
  742. static pOt__ArrTypDsc pOt__td_0_COCC= {
  743.   1,
  744.   0x9L, sizeof(pOt_CHAR)
  745. };
  746.  
  747.  
  748. extern void pOt_LoopLabel_COCC
  749. #if pOt__ANSI_C
  750.   (pOt_INTEGER pOt_loopno)
  751. #else
  752.   (pOt_loopno)
  753.   pOt_INTEGER pOt_loopno;
  754.  
  755. #endif
  756. {
  757.   struct pOt__tag_0_COCC pOt_s;
  758.   struct {void*next;} pOt__gc_ptrs;
  759.   pOt__gc_ptrs.next = pOt__gc_root;
  760.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_0_COCC);
  761.  
  762.   pOt_Undent_COCO();
  763.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x27CL],&pOt__str_td[0xF]))));
  764.   pOt_FromLInt_Strings((pOt_LONGINT)(pOt_loopno),16,(pOt__ArrTypDsc**)&pOt_s);
  765.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  766.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x290L],&pOt__str_td[0x1]))));
  767.   pOt_TermStmt_COCC();
  768.   pOt_Indent_COCO();
  769.  
  770. pOt__Epilogue:;
  771.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  772. }
  773.  
  774.  
  775.  
  776.  
  777. extern void pOt_With_COCC
  778. #if pOt__ANSI_C
  779.   (struct pOt__tag_3_COCT *pOt_x, pOt_Object_COCT pOt_wobj)
  780. #else
  781.   (pOt_x, pOt_wobj)
  782.   struct pOt__tag_3_COCT *pOt_x;
  783.   pOt_Object_COCT pOt_wobj;
  784.  
  785. #endif
  786. {
  787.   pOt_INTEGER pOt_np;
  788.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  789.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  790.   pOt__gc_ptrs.next = pOt__gc_root;
  791.   pOt__gc_strs.next = &pOt__gc_ptrs;
  792.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  793.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  794.   pOt__gc_strs.vars[0x0]=pOt_x;
  795.   pOt__gc_ptrs.vars[0x0]=&pOt_wobj;
  796.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  797.  
  798.   pOt_StartVOList_COCY();
  799.   pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_wobj),(pOt_INTEGER)(0));
  800.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x298L],&pOt__str_td[0x2]))));
  801.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  802.   pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  803.   if(( (*pOt_x).pOt_mode==1)) {
  804.     pOt_InRef_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  805.     (*pOt_x).pOt_mode=3;
  806.   }
  807.   pOt_Cast_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x));
  808.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  809.   pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_wobj),(pOt_INTEGER)(0));
  810.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x1]))));
  811.   pOt_ObjToItem_COCY((struct pOt__tag_1_COCT*)(pOt_wobj),(struct pOt__tag_3_COCT*)&(*pOt_x));
  812.   pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  813.   pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  814.   pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  815.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2A0L],&pOt__str_td[0x1]))));
  816.   pOt_StopVOList_COCY();
  817.  
  818. pOt__Epilogue:;
  819.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  820.   pOt__rm_par((pOt__TypDsc**)pOt_x);
  821. }
  822.  
  823.  
  824. struct pOt__tag_1_COCC {
  825.   pOt__ArrTypDsc *td;
  826.   pOt_CHAR arr[0x9L];
  827. } ;
  828. static pOt__ArrTypDsc pOt__td_1_COCC= {
  829.   1,
  830.   0x9L, sizeof(pOt_CHAR)
  831. };
  832.  
  833.  
  834. extern void pOt_Exit_COCC
  835. #if pOt__ANSI_C
  836.   (pOt_INTEGER pOt_loopno)
  837. #else
  838.   (pOt_loopno)
  839.   pOt_INTEGER pOt_loopno;
  840.  
  841. #endif
  842. {
  843.   struct pOt__tag_1_COCC pOt_s;
  844.   struct {void*next;} pOt__gc_ptrs;
  845.   pOt__gc_ptrs.next = pOt__gc_root;
  846.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_1_COCC);
  847.  
  848.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2A8L],&pOt__str_td[0x14]))));
  849.   pOt_FromLInt_Strings((pOt_LONGINT)(pOt_loopno),16,(pOt__ArrTypDsc**)&pOt_s);
  850.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  851.   pOt_TermStmt_COCC();
  852.  
  853. pOt__Epilogue:;
  854.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  855. }
  856.  
  857.  
  858.  
  859.  
  860. extern void pOt_CasePfx_COCC()
  861. {
  862.   struct {void*next;} pOt__gc_ptrs;
  863.   pOt__gc_ptrs.next = pOt__gc_root;
  864.  
  865.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2C4L],&pOt__str_td[0x7]))));
  866.  
  867. pOt__Epilogue:;
  868.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  869. }
  870.  
  871.  
  872.  
  873.  
  874. extern void pOt_CaseSfx_COCC()
  875. {
  876.   struct {void*next;} pOt__gc_ptrs;
  877.   pOt__gc_ptrs.next = pOt__gc_root;
  878.  
  879.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x1]))));
  880.   pOt_Separate_COCO();
  881.  
  882. pOt__Epilogue:;
  883.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  884. }
  885.  
  886.  
  887.  
  888.  
  889. extern void pOt_CaseLabelList_COCC
  890. #if pOt__ANSI_C
  891.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  892. #else
  893.   (pOt_x, pOt_y)
  894.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  895.  
  896. #endif
  897. {
  898.   pOt_LONGINT pOt_first, pOt_last;
  899.   pOt_INTEGER pOt_np;
  900.   struct {void*next;} pOt__gc_ptrs;
  901.   pOt__gc_ptrs.next = pOt__gc_root;
  902.  
  903.   pOt_Undent_COCO();
  904.   pOt_first=(pOt_LONGINT)((*pOt_x).pOt_intval);
  905.   pOt_last=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_y).pOt_intval),(pOt_LONGINT)(1),6));
  906.   for(;;) {
  907.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2D0L],&pOt__str_td[0x4]))));
  908.     pOt_Separate_COCO();
  909.     pOt_Link_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  910.     pOt_CConstValue_COCJ((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  911.     pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&(*pOt_x));
  912.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x290L],&pOt__str_td[0x1]))));
  913.     pOt_Wrap_COCO();
  914.     (*pOt_x).pOt_intval+=(1);
  915.     if(( (*pOt_x).pOt_intval==pOt_last)) break;
  916.   }
  917.   (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_first);
  918.   pOt_Indent_COCO();
  919.  
  920. pOt__Epilogue:;
  921.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  922. }
  923.  
  924.  
  925.  
  926.  
  927. extern void pOt_CaseBar_COCC()
  928. {
  929.   struct {void*next;} pOt__gc_ptrs;
  930.   pOt__gc_ptrs.next = pOt__gc_root;
  931.  
  932.   pOt_Undent_COCO();
  933.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x270L],&pOt__str_td[0x5]))));
  934.   pOt_TermStmt_COCC();
  935.   pOt_Indent_COCO();
  936.  
  937. pOt__Epilogue:;
  938.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  939. }
  940.  
  941.  
  942.  
  943.  
  944. extern void pOt_CaseElse_COCC()
  945. {
  946.   struct {void*next;} pOt__gc_ptrs;
  947.   pOt__gc_ptrs.next = pOt__gc_root;
  948.  
  949.   pOt_Undent_COCO();
  950.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x270L],&pOt__str_td[0x5]))));
  951.   pOt_TermStmt_COCC();
  952.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2DCL],&pOt__str_td[0x8]))));
  953.   pOt_TermStmt_COCC();
  954.   pOt_Indent_COCO();
  955.  
  956. pOt__Epilogue:;
  957.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  958. }
  959.  
  960.  
  961.  
  962.  
  963. extern void pOt_IfPfx_COCC()
  964. {
  965.   struct {void*next;} pOt__gc_ptrs;
  966.   pOt__gc_ptrs.next = pOt__gc_root;
  967.  
  968.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x25CL],&pOt__str_td[0x3]))));
  969.  
  970. pOt__Epilogue:;
  971.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  972. }
  973.  
  974.  
  975.  
  976.  
  977. extern void pOt_IfSfx_COCC()
  978. {
  979.   struct {void*next;} pOt__gc_ptrs;
  980.   pOt__gc_ptrs.next = pOt__gc_root;
  981.  
  982.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x88L],&pOt__str_td[0x1]))));
  983.   pOt_Separate_COCO();
  984.  
  985. pOt__Epilogue:;
  986.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  987. }
  988.  
  989.  
  990.  
  991.  
  992. extern void pOt_Else_COCC()
  993. {
  994.   struct {void*next;} pOt__gc_ptrs;
  995.   pOt__gc_ptrs.next = pOt__gc_root;
  996.  
  997.   pOt_Undent_COCO();
  998.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2ECL],&pOt__str_td[0x6]))));
  999.   pOt_Separate_COCO();
  1000.  
  1001. pOt__Epilogue:;
  1002.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1003. }
  1004.  
  1005.  
  1006.  
  1007.  
  1008. extern void pOt_CExport_COCC()
  1009. {
  1010.   pOt_Object_COCT pOt_obj, pOt_firstvar, pOt_firstproc;
  1011.   pOt_INTEGER pOt_im;
  1012.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  1013.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  1014.   pOt__gc_ptrs.next = pOt__gc_root;
  1015.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1016.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  1017.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  1018.   pOt__gc_ptrs.vars[0x2]=&pOt_obj;
  1019.   pOt__gc_ptrs.vars[0x1]=&pOt_firstvar;
  1020.   pOt__gc_ptrs.vars[0x0]=&pOt_firstproc;
  1021.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1022.   pOt_obj=pOt_NIL;
  1023.   pOt_firstvar=pOt_NIL;
  1024.   pOt_firstproc=pOt_NIL;
  1025.  
  1026.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x2F8L],&pOt__str_td[0xC]))));
  1027.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_name));
  1028.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x30CL],&pOt__str_td[0x5]))));
  1029.   pOt_Wrap_COCO();
  1030.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x318L],&pOt__str_td[0xC]))));
  1031.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_name));
  1032.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x30CL],&pOt__str_td[0x5]))));
  1033.   pOt_Wrap_COCO();
  1034.   pOt_Logo_COCC();
  1035.   pOt_Wrap_COCO();
  1036.   pOt_im=(pOt_INTEGER)(0);
  1037.   for(;;) {
  1038.     if(( pOt_im!=pOt_nofGmod_COCT)); else break;
  1039.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_GlbMod_COCT.arr[pOt__inxchk(__FILE__,__LINE__,0x40, pOt_im)]))).pOt_mode!=0)) {
  1040.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x17CL],&pOt__str_td[0x9]))));
  1041.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x1]))));
  1042.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_GlbMod_COCT.arr[pOt__inxchk(__FILE__,__LINE__,0x40, pOt_im)]))).pOt_name));
  1043.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x194L],&pOt__str_td[0x2]))));
  1044.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18CL],&pOt__str_td[0x1]))));
  1045.       pOt_Wrap_COCO();
  1046.     }
  1047.     pOt_im+=(1);
  1048.   }
  1049.   pOt_Wrap_COCO();
  1050.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  1051.   pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1052.   for(;;) {
  1053.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==19)))); else break;
  1054.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1055.   }
  1056.   for(;;) {
  1057.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  1058.     if(((((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==13))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ))).pOt_ref!=((pOt_INTEGER)(0)))))) {
  1059.       pOt_TypeObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj));
  1060.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1061.     } else if(((((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==8))&&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked)) {
  1062.       pOt_ConstObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(3));
  1063.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1064.     } else if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==1)) {
  1065.       if(( pOt_firstvar==pOt_NIL)) {
  1066.         pOt_firstvar=(struct pOt__tag_1_COCT*)(pOt_obj);
  1067.       }
  1068.       for(;;) {
  1069.         pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1070.         if((((pOt_obj==pOt_NIL))||(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode!=1)))) break;
  1071.       }
  1072.     } else {
  1073.       pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1074.     }
  1075.   }
  1076.   pOt_Wrap_COCO();
  1077.   pOt_firstproc=(struct pOt__tag_1_COCT*)(pOt_obj);
  1078.   pOt_DeclTypDescs_COCD();
  1079.   pOt_Wrap_COCO();
  1080.   pOt_obj=(struct pOt__tag_1_COCT*)(pOt_firstvar);
  1081.   pOt_StartVOList_COCY();
  1082.   for(;;) {
  1083.     if((((pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode<=13)))); else break;
  1084.     if(((((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==1))&&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked)) {
  1085.       pOt_VarObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(3));
  1086.     }
  1087.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1088.   }
  1089.   pOt_StopVOList_COCY();
  1090.   pOt_Wrap_COCO();
  1091.   pOt_obj=(struct pOt__tag_1_COCT*)(pOt_firstproc);
  1092.   for(;;) {
  1093.     if(( pOt_obj!=pOt_NIL)); else break;
  1094.     if(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode)&(pOt_SET)0x68000L)))&&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked)) {
  1095.       pOt_ProcObj_COCY((struct pOt__tag_1_COCT*)(pOt_obj),(pOt_INTEGER)(3));
  1096.     }
  1097.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  1098.   }
  1099.   pOt_BodyObj_COCY((struct pOt__tag_1_COCT*)(pOt_topScope_COCT),(pOt_INTEGER)(3));
  1100.   pOt_Wrap_COCO();
  1101.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x32CL],&pOt__str_td[0x6]))));
  1102.   pOt_Wrap_COCO();
  1103.  
  1104. pOt__Epilogue:;
  1105.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1106. }
  1107.  
  1108.  
  1109.  
  1110.  
  1111. extern void pOt_CommitCExport_COCC
  1112. #if pOt__ANSI_C
  1113.   (pOt__DynArr *pOt_TmpFName, pOt__DynArr *pOt_FName, pOt_BOOLEAN *pOt_newHF)
  1114. #else
  1115.   (pOt_TmpFName, pOt_FName, pOt_newHF)
  1116.   pOt__DynArr *pOt_TmpFName, *pOt_FName;
  1117.   pOt_BOOLEAN *pOt_newHF;
  1118.  
  1119. #endif
  1120. {
  1121.   pOt_File_Files pOt_oldFile, pOt_newFile;
  1122.   struct pOt__tag_2_Files pOt_oldRider, pOt_newRider;
  1123.   pOt_CHAR pOt_ch0, pOt_ch1;
  1124.   pOt_INTEGER pOt_res;
  1125.   struct {void *next, *vars[0x3];} pOt__gc_ptrs;
  1126.   struct {void *next, *vars[0x3];} pOt__gc_strs;
  1127.   pOt__gc_ptrs.next = pOt__gc_root;
  1128.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1129.   pOt__gc_ptrs.vars[0x2]=pOt_NIL;
  1130.   pOt__gc_strs.vars[0x2]=pOt_NIL;
  1131.   pOt__gc_ptrs.vars[0x1]=&pOt_oldFile;
  1132.   pOt__gc_ptrs.vars[0x0]=&pOt_newFile;
  1133.   pOt__gc_strs.vars[0x1]=&pOt_oldRider;
  1134.   pOt__gc_strs.vars[0x0]=&pOt_newRider;
  1135.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1136.   pOt_oldFile=pOt_NIL;
  1137.   pOt_newFile=pOt_NIL;
  1138.   pOt__init_var((pOt__TypDsc**)&pOt_oldRider,(pOt__TypDsc*)&pOt__td_2_Files);
  1139.   pOt__init_var((pOt__TypDsc**)&pOt_newRider,(pOt__TypDsc*)&pOt__td_2_Files);
  1140.  
  1141.   pOt_newFile=(struct pOt__tag_1_Files*)(pOt_Old_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_TmpFName))));
  1142.   pOt_oldFile=(struct pOt__tag_1_Files*)(pOt_Old_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_FName))));
  1143.   if(( pOt_oldFile!=pOt_NIL)) {
  1144.     pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_oldRider,(struct pOt__tag_1_Files*)(pOt_oldFile),(pOt_LONGINT)(0));
  1145.     pOt_Set_Files((struct pOt__tag_2_Files*)&pOt_newRider,(struct pOt__tag_1_Files*)(pOt_newFile),(pOt_LONGINT)(0));
  1146.     for(;;) {
  1147.       pOt_Read_Files((struct pOt__tag_2_Files*)&pOt_oldRider,(pOt_BYTE_SYSTEM*)&pOt_ch0);
  1148.       pOt_Read_Files((struct pOt__tag_2_Files*)&pOt_newRider,(pOt_BYTE_SYSTEM*)&pOt_ch1);
  1149.       if(((((unsigned char)pOt_ch0!=(unsigned char)pOt_ch1))||pOt_newRider.pOt_eof)) break;
  1150.     }
  1151.     if((pOt_oldRider.pOt_eof&&pOt_newRider.pOt_eof)) {
  1152.       (*pOt_newHF)=(pOt_BOOLEAN)0;
  1153.     } else if(!(*pOt_newHF)) {
  1154.       pOt_Mark_COCS((pOt_INTEGER)(156));
  1155.     }
  1156.     pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_oldFile));
  1157.   } else {
  1158.     (*pOt_newHF)=(pOt_BOOLEAN)1;
  1159.   }
  1160.   pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_newFile));
  1161.   if((*pOt_newHF)) {
  1162.     pOt_Delete_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_FName)),&pOt_res);
  1163.     pOt_Rename_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_TmpFName)),pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_FName)),&pOt_res);
  1164.   } else {
  1165.     pOt_Delete_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_TmpFName)),&pOt_res);
  1166.   }
  1167.   if(( pOt_res>((pOt_INTEGER)(1)))) {
  1168.     pOt__halt(__FILE__,__LINE__,33);
  1169.   }
  1170.  
  1171. pOt__Epilogue:;
  1172.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1173. }
  1174.  
  1175.  
  1176.  
  1177.  
  1178. extern void pOt_InitData_COCC()
  1179. {
  1180.   struct {void*next;} pOt__gc_ptrs;
  1181.   pOt__gc_ptrs.next = pOt__gc_root;
  1182.  
  1183.   pOt_Logo_COCC();
  1184.   pOt_Wrap_COCO();
  1185.   pOt_InitStrings_COCD();
  1186.   pOt_Wrap_COCO();
  1187.  
  1188. pOt__Epilogue:;
  1189.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1190. }
  1191.  
  1192. void pOt_COCC__body()
  1193. {
  1194.   static int pOt_COCC__loaded=0;
  1195.   if(!pOt_COCC__loaded){
  1196.     pOt_COCC__loaded=1;
  1197.  
  1198.     pOt_Strings__body();
  1199.     pOt_Files__body();
  1200.     pOt_COCS__body();
  1201.     pOt_COCT__body();
  1202.     pOt_COCD__body();
  1203.     pOt_COCQ__body();
  1204.     pOt_COCN__body();
  1205.     pOt_COCJ__body();
  1206.     pOt_COCO__body();
  1207.     pOt_COCH__body();
  1208.     pOt_COCY__body();
  1209.  
  1210.     pOt__gc_ptrs.next=pOt__gc_root;
  1211.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1212.  
  1213.  
  1214.     pOt_tempsafe_COCC=(pOt_BOOLEAN)1;
  1215.  
  1216.   pOt__Epilogue:;
  1217.   }
  1218. }
  1219.