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