home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / POT < prev    next >
Encoding:
Text File  |  1995-05-07  |  104.2 KB  |  2,681 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "OS.h"
  5. #include "Files.h"
  6. #include "Texts.h"
  7. #include "COCS.h"
  8. #include "COCO.h"
  9. #include "COCT.h"
  10. #include "COCE.h"
  11. #include "COCH.h"
  12. #include "COCD.h"
  13. #include "COCC.h"
  14. #include "Throwback.h"
  15.  
  16. #include "hi.POT"
  17.  
  18. typedef struct pOt__tag_0_POT pOt_LabelRange_POT;
  19.  
  20. struct pOt__tag_0_POT {
  21.   pOt__RecTypDsc *td;
  22.   pOt_LONGINT pOt_low, pOt_high;
  23. } ;
  24. struct {
  25.   pOt_INTEGER mode;
  26.   pOt_LONGINT size;
  27.   pOt_INTEGER extlev, nstr, nptr, npro;
  28.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  29. } pOt__td_0_POT= {
  30.   0,
  31.   sizeof(struct pOt__tag_0_POT),
  32.   0x0, 0x0, 0x0, 0x0,
  33.   {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}
  34. };
  35. struct pOt__tag_1_POT {
  36.   pOt__ArrTypDsc *td;
  37.   pOt_CHAR arr[0x100L];
  38. } ;
  39. pOt__ArrTypDsc pOt__td_1_POT= {
  40.   1,
  41.   0x100L, sizeof(pOt_CHAR)
  42. };
  43. struct pOt__tag_2_POT {
  44.   pOt__StrArrTypDsc *td;
  45.   struct pOt__tag_0_POT arr[0x800L];
  46. } ;
  47. pOt__StrArrTypDsc pOt__td_2_POT= {
  48.   4,
  49.   0x800L, sizeof(struct pOt__tag_0_POT),
  50.   (pOt__TypDsc*)&pOt__td_0_POT
  51. };
  52.  
  53. static pOt_LONGINT pOt_MaxArrLen_POT;
  54. static struct pOt__tag_5_Texts pOt_W_POT;
  55. static pOt_INTEGER pOt_sym_POT;
  56. static pOt_BOOLEAN pOt_symchg_POT, pOt_hchg_POT, pOt_newSF_POT, pOt_newHF_POT;
  57. static pOt_INTEGER pOt_LoopLevel_POT, pOt_LoopNo_POT;
  58. static struct pOt__tag_1_POT pOt_TmpFName_POT, pOt_FName_POT;
  59. static struct pOt__tag_2_POT pOt_CaseTab_POT;
  60. static pOt_INTEGER pOt_BofCTab_POT;
  61.  
  62. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  63.   pOt_NIL
  64. }};
  65. static struct {void *next, *vars[0x2];} pOt__gc_strs = {&pOt__gc_ptrs,{
  66.   &pOt_W_POT,
  67.   pOt_NIL
  68. }};
  69.  
  70. extern void pOt_Type_POT pOt__ARGS((pOt_Struct_COCT *));
  71.  
  72. extern void pOt_FormalType_POT pOt__ARGS((pOt_Struct_COCT *));
  73.  
  74. extern void pOt_Expression_POT pOt__ARGS((struct pOt__tag_3_COCT *));
  75.  
  76. extern void pOt_Block_POT pOt__ARGS((pOt_Object_COCT ));
  77.  
  78.  
  79.  
  80.  
  81. static void pOt_CheckSym_POT
  82. #if pOt__ANSI_C
  83.   (pOt_INTEGER pOt_s)
  84. #else
  85.   (pOt_s)
  86.   pOt_INTEGER pOt_s;
  87.  
  88. #endif
  89. {
  90.   struct {void*next;} pOt__gc_ptrs;
  91.   pOt__gc_ptrs.next = pOt__gc_root;
  92.  
  93.   if(( pOt_sym_POT==pOt_s)) {
  94.     pOt_Get_COCS(&pOt_sym_POT);
  95.   } else {
  96.     pOt_Mark_COCS((pOt_INTEGER)(pOt_s));
  97.   }
  98.  
  99. pOt__Epilogue:;
  100.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  101. }
  102.  
  103.  
  104.  
  105.  
  106. static void pOt_qualident_POT
  107. #if pOt__ANSI_C
  108.   (struct pOt__tag_3_COCT *pOt_x)
  109. #else
  110.   (pOt_x)
  111.   struct pOt__tag_3_COCT *pOt_x;
  112.  
  113. #endif
  114. {
  115.   pOt_INTEGER pOt_mnolev;
  116.   pOt_Object_COCT pOt_obj;
  117.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  118.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  119.   pOt__gc_ptrs.next = pOt__gc_root;
  120.   pOt__gc_strs.next = &pOt__gc_ptrs;
  121.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  122.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  123.   pOt__gc_ptrs.vars[0x0]=&pOt_obj;
  124.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  125.   pOt_obj=pOt_NIL;
  126.  
  127.   pOt_Find_COCT(&pOt_obj,&pOt_mnolev);
  128.   pOt_Get_COCS(&pOt_sym_POT);
  129.   if(((((pOt_sym_POT==((pOt_INTEGER)(18))))&&((pOt_obj!=pOt_NIL)))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==19)))) {
  130.     pOt_Get_COCS(&pOt_sym_POT);
  131.     pOt_mnolev=(pOt_INTEGER)(-(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mnolev);
  132.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  133.       pOt_FindImport_COCT((struct pOt__tag_1_COCT*)(pOt_obj),&pOt_obj);
  134.       pOt_Get_COCS(&pOt_sym_POT);
  135.     } else {
  136.       pOt_Mark_COCS((pOt_INTEGER)(10));
  137.       pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  138.     }
  139.   }
  140.   (*pOt_x).pOt_mnolev=(pOt_INTEGER)(pOt_mnolev);
  141.   (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_obj);
  142.   if(( pOt_obj!=pOt_NIL)) {
  143.     (*pOt_x).pOt_mode=(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode;
  144.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ);
  145.     (*pOt_x).pOt_intval=(pOt_LONGINT)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_intval);
  146.     (*pOt_x).pOt_fltval=(pOt_LONGREAL)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_fltval);
  147.     if(( (*pOt_x).pOt_mode<=3)) {
  148.       pOt_VarMode_COCT((struct pOt__tag_3_COCT*)&(*pOt_x));
  149.     }
  150.   } else {
  151.     pOt_Mark_COCS((pOt_INTEGER)(0));
  152.     (*pOt_x).pOt_mode=1;
  153.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  154.     (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  155.   }
  156.  
  157. pOt__Epilogue:;
  158.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  159. }
  160.  
  161.  
  162.  
  163.  
  164. static void pOt_ConstExpression_POT
  165. #if pOt__ANSI_C
  166.   (struct pOt__tag_3_COCT *pOt_x)
  167. #else
  168.   (pOt_x)
  169.   struct pOt__tag_3_COCT *pOt_x;
  170.  
  171. #endif
  172. {
  173.   pOt_INTEGER pOt_qoffs;
  174.   struct {void*next;} pOt__gc_ptrs;
  175.   pOt__gc_ptrs.next = pOt__gc_root;
  176.  
  177.   pOt_qoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  178.   pOt_Expression_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  179.   pOt_StopConstExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs));
  180.   if(( (*pOt_x).pOt_mode!=8)) {
  181.     pOt_Mark_COCS((pOt_INTEGER)(50));
  182.     (*pOt_x).pOt_mode=8;
  183.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  184.     (*pOt_x).pOt_intval=(pOt_LONGINT)(1);
  185.   } else if((((((*pOt_x).pOt_typ==pOt_stringtyp_COCT))&&(((*pOt_x).pOt_obj!=pOt_NIL)))&&(((*pOt_x).pOt_mnolev<((pOt_INTEGER)(0)))))) {
  186.     pOt_Mark_COCS((pOt_INTEGER)(221));
  187.     (*pOt_x).pOt_intval+=(256);
  188.   }
  189.  
  190. pOt__Epilogue:;
  191.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  192. }
  193.  
  194.  
  195. struct pOt__tag_3_POT {
  196.   pOt__ArrTypDsc *td;
  197.   pOt_CHAR arr[0x2L];
  198. } ;
  199. static pOt__ArrTypDsc pOt__td_3_POT= {
  200.   1,
  201.   0x2L, sizeof(pOt_CHAR)
  202. };
  203.  
  204.  
  205. static void pOt_StringExpression_POT
  206. #if pOt__ANSI_C
  207.   (struct pOt__tag_3_COCT *pOt_x, pOt_Struct_COCT pOt_typ)
  208. #else
  209.   (pOt_x, pOt_typ)
  210.   struct pOt__tag_3_COCT *pOt_x;
  211.   pOt_Struct_COCT pOt_typ;
  212.  
  213. #endif
  214. {
  215.   pOt_INTEGER pOt_qoffs;
  216.   struct pOt__tag_3_POT pOt_s;
  217.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  218.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  219.   pOt__gc_ptrs.next = pOt__gc_root;
  220.   pOt__gc_strs.next = &pOt__gc_ptrs;
  221.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  222.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  223.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  224.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  225.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_3_POT);
  226.  
  227.   pOt_qoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  228.   pOt_Expression_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  229.   if(((((*pOt_x).pOt_mode==8))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==3)))) {
  230.     if(( (*pOt_x).pOt_intval<((pOt_LONGINT)(256)))) {
  231.       pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x2, 0)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)((*pOt_x).pOt_intval));
  232.       pOt_s.arr[pOt__inxchk(__FILE__,__LINE__,0x2, 1)]='\0';
  233.       pOt_AllocString_COCD((pOt__ArrTypDsc**)&pOt_s,(struct pOt__tag_3_COCT*)&(*pOt_x));
  234.       if(( (*pOt_x).pOt_obj!=pOt_NIL)) {
  235.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_obj))).pOt_intval=(pOt_LONGINT)((*pOt_x).pOt_intval);
  236.       }
  237.     }
  238.     (*pOt_x).pOt_intval=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_x).pOt_intval),(pOt_LONGINT)(256),6))),6)),(pOt_LONGINT)(1),6));
  239.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_stringtyp_COCT);
  240.   }
  241.   pOt_StopStringExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs),(struct pOt__tag_2_COCT*)(pOt_typ));
  242.  
  243. pOt__Epilogue:;
  244.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  245. }
  246.  
  247.  
  248.  
  249.  
  250. static void pOt_NewStr_POT
  251. #if pOt__ANSI_C
  252.   (pOt_Struct_COCT *pOt_typ, pOt_SHORTINT pOt_form)
  253. #else
  254.   (pOt_typ, pOt_form)
  255.   pOt_Struct_COCT *pOt_typ;
  256.   pOt_SHORTINT pOt_form;
  257.  
  258. #endif
  259. {
  260.   struct {void*next;} pOt__gc_ptrs;
  261.   pOt__gc_ptrs.next = pOt__gc_root;
  262.  
  263.   pOt__new(__FILE__,__LINE__,(pOt__TypDsc***)&(*pOt_typ),(pOt__TypDsc*)&pOt__td_2_COCT);
  264.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_form=pOt_form;
  265.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_mno=(pOt_INTEGER)(0);
  266.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_ref=(pOt_INTEGER)(0);
  267.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  268.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_strobj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  269.  
  270. pOt__Epilogue:;
  271.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  272. }
  273.  
  274.  
  275.  
  276.  
  277. static void pOt_CheckMark_POT
  278. #if pOt__ANSI_C
  279.   (pOt_BOOLEAN *pOt_mk)
  280. #else
  281.   (pOt_mk)
  282.   pOt_BOOLEAN *pOt_mk;
  283.  
  284. #endif
  285. {
  286.   struct {void*next;} pOt__gc_ptrs;
  287.   pOt__gc_ptrs.next = pOt__gc_root;
  288.  
  289.   pOt_Get_COCS(&pOt_sym_POT);
  290.   if(( pOt_sym_POT==((pOt_INTEGER)(1)))) {
  291.     if(( pOt_level_COCT==((pOt_INTEGER)(0)))) {
  292.       (*pOt_mk)=(pOt_BOOLEAN)1;
  293.     } else {
  294.       (*pOt_mk)=(pOt_BOOLEAN)0;
  295.       pOt_Mark_COCS((pOt_INTEGER)(47));
  296.     }
  297.     pOt_Get_COCS(&pOt_sym_POT);
  298.   } else {
  299.     (*pOt_mk)=(pOt_BOOLEAN)0;
  300.   }
  301.  
  302. pOt__Epilogue:;
  303.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  304. }
  305.  
  306.  
  307.  
  308.  
  309. static void pOt_CheckUndefPointerTypes_POT()
  310. {
  311.   pOt_Object_COCT pOt_obj;
  312.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  313.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  314.   pOt__gc_ptrs.next = pOt__gc_root;
  315.   pOt__gc_strs.next = &pOt__gc_ptrs;
  316.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  317.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  318.   pOt__gc_ptrs.vars[0x0]=&pOt_obj;
  319.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  320.   pOt_obj=pOt_NIL;
  321.  
  322.   pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  323.   for(;;) {
  324.     if(( pOt_obj!=pOt_NIL)); else break;
  325.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode==0)) {
  326.       pOt_Mark_COCS((pOt_INTEGER)(48));
  327.     }
  328.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  329.   }
  330.  
  331. pOt__Epilogue:;
  332.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  333. }
  334.  
  335.  
  336. struct pOt__tag_4_POT {
  337.   pOt__ArrTypDsc *td;
  338.   pOt_CHAR arr[0x1L];
  339. } ;
  340. static pOt__ArrTypDsc pOt__td_4_POT= {
  341.   1,
  342.   0x1L, sizeof(pOt_CHAR)
  343. };
  344.  
  345.  
  346. static void pOt_RecordType_POT
  347. #if pOt__ANSI_C
  348.   (pOt_Struct_COCT *pOt_typ)
  349. #else
  350.   (pOt_typ)
  351.   pOt_Struct_COCT *pOt_typ;
  352.  
  353. #endif
  354. {
  355.   pOt_Object_COCT pOt_fld, pOt_fld0, pOt_fld1;
  356.   pOt_Struct_COCT pOt_ftyp;
  357.   struct pOt__tag_3_COCT pOt_base;
  358.   struct pOt__tag_4_POT pOt_name;
  359.   struct {void *next, *vars[0x5];} pOt__gc_ptrs;
  360.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  361.   pOt__gc_ptrs.next = pOt__gc_root;
  362.   pOt__gc_strs.next = &pOt__gc_ptrs;
  363.   pOt__gc_ptrs.vars[0x4]=pOt_NIL;
  364.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  365.   pOt__gc_ptrs.vars[0x3]=&pOt_fld;
  366.   pOt__gc_ptrs.vars[0x2]=&pOt_fld0;
  367.   pOt__gc_ptrs.vars[0x1]=&pOt_fld1;
  368.   pOt__gc_ptrs.vars[0x0]=&pOt_ftyp;
  369.   pOt__gc_strs.vars[0x0]=&pOt_base;
  370.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  371.   pOt_fld=pOt_NIL;
  372.   pOt_fld0=pOt_NIL;
  373.   pOt_fld1=pOt_NIL;
  374.   pOt_ftyp=pOt_NIL;
  375.   pOt__init_var((pOt__TypDsc**)&pOt_base,(pOt__TypDsc*)&pOt__td_3_COCT);
  376.   pOt__init_var((pOt__TypDsc**)&pOt_name,(pOt__TypDsc*)&pOt__td_4_POT);
  377.  
  378.   pOt_NewStr_POT(&(*pOt_typ),17);
  379.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_NIL);
  380.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_n=(pOt_LONGINT)(0);
  381.   if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  382.     pOt_Get_COCS(&pOt_sym_POT);
  383.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  384.       pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_base);
  385.       if((((pOt_base.pOt_mode==13))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_base.pOt_typ))).pOt_form==17)))) {
  386.         (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_base.pOt_typ);
  387.         (*((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__,pOt_base.pOt_typ))).pOt_n),(pOt_LONGINT)(1),6));
  388.       } else {
  389.         pOt_Mark_COCS((pOt_INTEGER)(52));
  390.       }
  391.     } else {
  392.       pOt_Mark_COCS((pOt_INTEGER)(10));
  393.     }
  394.     pOt_CheckSym_POT((pOt_INTEGER)(22));
  395.   }
  396.   pOt__arr_assign((pOt__ArrTypDsc**)& pOt_name,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__td_4_POT)));
  397.   pOt_OpenScope_COCT((pOt_INTEGER)(0),(pOt__ArrTypDsc**)&pOt_name);
  398.   pOt_fld=(struct pOt__tag_1_COCT*)(pOt_NIL);
  399.   pOt_fld1=(struct pOt__tag_1_COCT*)(pOt_topScope_COCT);
  400.   for(;;) {
  401.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  402.       for(;;) {
  403.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  404.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp!=pOt_NIL)) {
  405.             pOt_FindField_COCT((struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp),&pOt_fld0);
  406.             if(( pOt_fld0!=pOt_NIL)) {
  407.               pOt_Mark_COCS((pOt_INTEGER)(1));
  408.             }
  409.           }
  410.           pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_fld);
  411.           pOt_CheckMark_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_marked);
  412.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_mode=12;
  413.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_mnolev=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_n));
  414.         } else {
  415.           pOt_Mark_COCS((pOt_INTEGER)(10));
  416.         }
  417.         if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  418.           pOt_Get_COCS(&pOt_sym_POT);
  419.         } else if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  420.           pOt_Mark_COCS((pOt_INTEGER)(19));
  421.         } else {
  422.           goto pOt__LoopLabel_2;
  423.         }
  424.       }
  425.     pOt__LoopLabel_2:;
  426.       pOt_CheckSym_POT((pOt_INTEGER)(20));
  427.       pOt_Type_POT(&pOt_ftyp);
  428.       for(;;) {
  429.         if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld1))).pOt_next!=pOt_NIL)); else break;
  430.         pOt_fld1=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld1))).pOt_next);
  431.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld1))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_ftyp);
  432.       }
  433.     }
  434.     if(( pOt_sym_POT==((pOt_INTEGER)(38)))) {
  435.       pOt_Get_COCS(&pOt_sym_POT);
  436.     } else if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  437.       pOt_Mark_COCS((pOt_INTEGER)(38));
  438.     } else {
  439.       goto pOt__LoopLabel_1;
  440.     }
  441.   }
  442. pOt__LoopLabel_1:;
  443.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_link=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  444.   pOt_CheckUndefPointerTypes_POT();
  445.   pOt_CloseScope_COCT();
  446.   pOt_AllocTypDesc_COCD((struct pOt__tag_2_COCT*)((*pOt_typ)));
  447.  
  448. pOt__Epilogue:;
  449.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  450. }
  451.  
  452.  
  453.  
  454.  
  455. static void pOt_ArrayType_POT
  456. #if pOt__ANSI_C
  457.   (pOt_Struct_COCT *pOt_typ)
  458. #else
  459.   (pOt_typ)
  460.   pOt_Struct_COCT *pOt_typ;
  461.  
  462. #endif
  463. {
  464.   struct pOt__tag_3_COCT pOt_x;
  465.   pOt_INTEGER pOt_f, pOt_n;
  466.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  467.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  468.   pOt__gc_ptrs.next = pOt__gc_root;
  469.   pOt__gc_strs.next = &pOt__gc_ptrs;
  470.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  471.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  472.   pOt__gc_strs.vars[0x0]=&pOt_x;
  473.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  474.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  475.  
  476.   pOt_NewStr_POT(&(*pOt_typ),15);
  477.   pOt_ConstExpression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  478.   pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_form);
  479.   if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  480.     if((((((pOt_LONGINT)(0))<pOt_x.pOt_intval))&&((pOt_x.pOt_intval<=pOt_MaxArrLen_POT)))) {
  481.       pOt_n=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,pOt_x.pOt_intval));
  482.     } else {
  483.       pOt_n=(pOt_INTEGER)(1);
  484.       pOt_Mark_COCS((pOt_INTEGER)(63));
  485.     }
  486.   } else {
  487.     pOt_Mark_COCS((pOt_INTEGER)(51));
  488.     pOt_n=(pOt_INTEGER)(1);
  489.   }
  490.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_n=(pOt_LONGINT)(pOt_n);
  491.   if(( pOt_sym_POT==((pOt_INTEGER)(25)))) {
  492.     pOt_Get_COCS(&pOt_sym_POT);
  493.     pOt_Type_POT(&(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp);
  494.   } else if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  495.     pOt_Get_COCS(&pOt_sym_POT);
  496.     pOt_ArrayType_POT(&(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp);
  497.   } else {
  498.     pOt_Mark_COCS((pOt_INTEGER)(34));
  499.   }
  500.   pOt_AllocTypDesc_COCD((struct pOt__tag_2_COCT*)((*pOt_typ)));
  501.  
  502. pOt__Epilogue:;
  503.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  504. }
  505.  
  506.  
  507.  
  508.  
  509. static void pOt_FormalParameters_POT
  510. #if pOt__ANSI_C
  511.   (pOt_Struct_COCT *pOt_resTyp)
  512. #else
  513.   (pOt_resTyp)
  514.   pOt_Struct_COCT *pOt_resTyp;
  515.  
  516. #endif
  517. {
  518.   pOt_SHORTINT pOt_mode;
  519.   struct pOt__tag_3_COCT pOt_res;
  520.   pOt_Object_COCT pOt_par, pOt_par1;
  521.   pOt_Struct_COCT pOt_typ;
  522.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  523.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  524.   pOt__gc_ptrs.next = pOt__gc_root;
  525.   pOt__gc_strs.next = &pOt__gc_ptrs;
  526.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  527.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  528.   pOt__gc_strs.vars[0x0]=&pOt_res;
  529.   pOt__gc_ptrs.vars[0x2]=&pOt_par;
  530.   pOt__gc_ptrs.vars[0x1]=&pOt_par1;
  531.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  532.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  533.   pOt__init_var((pOt__TypDsc**)&pOt_res,(pOt__TypDsc*)&pOt__td_3_COCT);
  534.   pOt_par=pOt_NIL;
  535.   pOt_par1=pOt_NIL;
  536.   pOt_typ=pOt_NIL;
  537.  
  538.   pOt_par1=(struct pOt__tag_1_COCT*)(pOt_topScope_COCT);
  539.   if((((pOt_sym_POT==((pOt_INTEGER)(37))))||((pOt_sym_POT==((pOt_INTEGER)(58)))))) {
  540.     for(;;) {
  541.       if(( pOt_sym_POT==((pOt_INTEGER)(58)))) {
  542.         pOt_Get_COCS(&pOt_sym_POT);
  543.         pOt_mode=3;
  544.       } else {
  545.         pOt_mode=1;
  546.       }
  547.       for(;;) {
  548.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  549.           pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_par);
  550.           pOt_Get_COCS(&pOt_sym_POT);
  551.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_par))).pOt_mode=pOt_mode;
  552.         } else {
  553.           pOt_Mark_COCS((pOt_INTEGER)(10));
  554.         }
  555.         if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  556.           pOt_Get_COCS(&pOt_sym_POT);
  557.         } else if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  558.           pOt_Mark_COCS((pOt_INTEGER)(19));
  559.         } else if(( pOt_sym_POT==((pOt_INTEGER)(58)))) {
  560.           pOt_Mark_COCS((pOt_INTEGER)(19));
  561.           pOt_Get_COCS(&pOt_sym_POT);
  562.         } else {
  563.           goto pOt__LoopLabel_2;
  564.         }
  565.       }
  566.     pOt__LoopLabel_2:;
  567.       pOt_CheckSym_POT((pOt_INTEGER)(20));
  568.       pOt_FormalType_POT(&pOt_typ);
  569.       for(;;) {
  570.         if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_par1))).pOt_next!=pOt_NIL)); else break;
  571.         pOt_par1=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_par1))).pOt_next);
  572.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_par1))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_typ);
  573.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_par1))).pOt_intval=(pOt_LONGINT)(1);
  574.       }
  575.       if(( pOt_sym_POT==((pOt_INTEGER)(38)))) {
  576.         pOt_Get_COCS(&pOt_sym_POT);
  577.       } else if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  578.         pOt_Mark_COCS((pOt_INTEGER)(38));
  579.       } else {
  580.         goto pOt__LoopLabel_1;
  581.       }
  582.     }
  583.   pOt__LoopLabel_1:;
  584.   }
  585.   pOt_CheckSym_POT((pOt_INTEGER)(22));
  586.   if(( pOt_sym_POT==((pOt_INTEGER)(20)))) {
  587.     pOt_Get_COCS(&pOt_sym_POT);
  588.     (*pOt_resTyp)=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  589.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  590.       pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_res);
  591.       if(( pOt_res.pOt_mode==13)) {
  592.         if(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_res.pOt_typ))).pOt_form<=14))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_res.pOt_typ))).pOt_form!=12)))) {
  593.           (*pOt_resTyp)=(struct pOt__tag_2_COCT*)(pOt_res.pOt_typ);
  594.         } else {
  595.           pOt_Mark_COCS((pOt_INTEGER)(54));
  596.         }
  597.       } else {
  598.         pOt_Mark_COCS((pOt_INTEGER)(52));
  599.       }
  600.     } else {
  601.       pOt_Mark_COCS((pOt_INTEGER)(10));
  602.     }
  603.   } else {
  604.     (*pOt_resTyp)=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  605.   }
  606.  
  607. pOt__Epilogue:;
  608.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  609. }
  610.  
  611.  
  612. struct pOt__tag_5_POT {
  613.   pOt__ArrTypDsc *td;
  614.   pOt_CHAR arr[0x1L];
  615. } ;
  616. static pOt__ArrTypDsc pOt__td_5_POT= {
  617.   1,
  618.   0x1L, sizeof(pOt_CHAR)
  619. };
  620.  
  621.  
  622. static void pOt_ProcType_POT
  623. #if pOt__ANSI_C
  624.   (pOt_Struct_COCT *pOt_typ)
  625. #else
  626.   (pOt_typ)
  627.   pOt_Struct_COCT *pOt_typ;
  628.  
  629. #endif
  630. {
  631.   struct pOt__tag_5_POT pOt_name;
  632.   struct {void*next;} pOt__gc_ptrs;
  633.   pOt__gc_ptrs.next = pOt__gc_root;
  634.   pOt__init_var((pOt__TypDsc**)&pOt_name,(pOt__TypDsc*)&pOt__td_5_POT);
  635.  
  636.   pOt_NewStr_POT(&(*pOt_typ),14);
  637.   if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  638.     pOt_Get_COCS(&pOt_sym_POT);
  639.     pOt__arr_assign((pOt__ArrTypDsc**)& pOt_name,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__td_5_POT)));
  640.     pOt_OpenScope_COCT((pOt_INTEGER)(pOt_level_COCT),(pOt__ArrTypDsc**)&pOt_name);
  641.     pOt_FormalParameters_POT(&(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp);
  642.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_link=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  643.     pOt_CloseScope_COCT();
  644.   } else {
  645.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  646.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_link=(struct pOt__tag_1_COCT*)(pOt_NIL);
  647.   }
  648.  
  649. pOt__Epilogue:;
  650.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  651. }
  652.  
  653.  
  654.  
  655.  
  656. static void pOt_SetPtrBase_POT
  657. #if pOt__ANSI_C
  658.   (pOt_Struct_COCT pOt_ptyp, pOt_Struct_COCT pOt_btyp)
  659. #else
  660.   (pOt_ptyp, pOt_btyp)
  661.   pOt_Struct_COCT pOt_ptyp, pOt_btyp;
  662.  
  663. #endif
  664. {
  665.   struct {void *next, *vars[0x3];} pOt__gc_ptrs;
  666.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  667.   pOt__gc_ptrs.next = pOt__gc_root;
  668.   pOt__gc_strs.next = &pOt__gc_ptrs;
  669.   pOt__gc_ptrs.vars[0x2]=pOt_NIL;
  670.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  671.   pOt__gc_ptrs.vars[0x1]=&pOt_ptyp;
  672.   pOt__gc_ptrs.vars[0x0]=&pOt_btyp;
  673.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  674.  
  675.   if(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_btyp))).pOt_form==17))||(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_btyp))).pOt_form==15)))) {
  676.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_ptyp))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_btyp);
  677.   } else {
  678.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_ptyp))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  679.     pOt_Mark_COCS((pOt_INTEGER)(57));
  680.   }
  681.  
  682. pOt__Epilogue:;
  683.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  684. }
  685.  
  686.  
  687.  
  688.  
  689. extern void pOt_Type_POT
  690. #if pOt__ANSI_C
  691.   (pOt_Struct_COCT *pOt_typ)
  692. #else
  693.   (pOt_typ)
  694.   pOt_Struct_COCT *pOt_typ;
  695.  
  696. #endif
  697. {
  698.   pOt_INTEGER pOt_lev;
  699.   pOt_Object_COCT pOt_obj;
  700.   struct pOt__tag_3_COCT pOt_x;
  701.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  702.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  703.   pOt__gc_ptrs.next = pOt__gc_root;
  704.   pOt__gc_strs.next = &pOt__gc_ptrs;
  705.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  706.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  707.   pOt__gc_ptrs.vars[0x0]=&pOt_obj;
  708.   pOt__gc_strs.vars[0x0]=&pOt_x;
  709.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  710.   pOt_obj=pOt_NIL;
  711.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  712.  
  713.   (*pOt_typ)=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  714.   if(( pOt_sym_POT<((pOt_INTEGER)(29)))) {
  715.     pOt_Mark_COCS((pOt_INTEGER)(12));
  716.     for(;;) {
  717.       pOt_Get_COCS(&pOt_sym_POT);
  718.       if(( pOt_sym_POT>=((pOt_INTEGER)(29)))) break;
  719.     }
  720.   }
  721.   if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  722.     pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_x);
  723.     if(( pOt_x.pOt_mode==13)) {
  724.       (*pOt_typ)=(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ);
  725.       if(( (*pOt_typ)==pOt_notyp_COCT)) {
  726.         pOt_Mark_COCS((pOt_INTEGER)(58));
  727.       }
  728.     } else {
  729.       pOt_Mark_COCS((pOt_INTEGER)(52));
  730.     }
  731.   } else if(( pOt_sym_POT==((pOt_INTEGER)(52)))) {
  732.     pOt_Get_COCS(&pOt_sym_POT);
  733.     pOt_ArrayType_POT(&(*pOt_typ));
  734.   } else if(( pOt_sym_POT==((pOt_INTEGER)(53)))) {
  735.     pOt_Get_COCS(&pOt_sym_POT);
  736.     pOt_RecordType_POT(&(*pOt_typ));
  737.     pOt_CheckSym_POT((pOt_INTEGER)(40));
  738.   } else if(( pOt_sym_POT==((pOt_INTEGER)(54)))) {
  739.     pOt_Get_COCS(&pOt_sym_POT);
  740.     pOt_NewStr_POT(&(*pOt_typ),13);
  741.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_link=(struct pOt__tag_1_COCT*)(pOt_NIL);
  742.     pOt_CheckSym_POT((pOt_INTEGER)(28));
  743.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  744.       pOt_Find_COCT(&pOt_obj,&pOt_lev);
  745.       if(( pOt_obj==pOt_NIL)) {
  746.         pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_obj);
  747.         (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  748.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode=0;
  749.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)((*pOt_typ));
  750.         pOt_Get_COCS(&pOt_sym_POT);
  751.       } else {
  752.         pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_x);
  753.         if(( pOt_x.pOt_mode==13)) {
  754.           pOt_SetPtrBase_POT((struct pOt__tag_2_COCT*)((*pOt_typ)),(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ));
  755.         } else {
  756.           (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_typ)))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  757.           pOt_Mark_COCS((pOt_INTEGER)(52));
  758.         }
  759.       }
  760.     } else {
  761.       pOt_Type_POT(&pOt_x.pOt_typ);
  762.       pOt_SetPtrBase_POT((struct pOt__tag_2_COCT*)((*pOt_typ)),(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ));
  763.     }
  764.   } else if(( pOt_sym_POT==((pOt_INTEGER)(59)))) {
  765.     pOt_Get_COCS(&pOt_sym_POT);
  766.     pOt_ProcType_POT(&(*pOt_typ));
  767.   } else {
  768.     pOt_Mark_COCS((pOt_INTEGER)(12));
  769.   }
  770.   if((((pOt_sym_POT<((pOt_INTEGER)(38))))||((((pOt_INTEGER)(41))<pOt_sym_POT)))) {
  771.     pOt_Mark_COCS((pOt_INTEGER)(15));
  772.     for(;;) {
  773.       if((((pOt_sym_POT<((pOt_INTEGER)(37))))||(((((pOt_INTEGER)(41))<pOt_sym_POT))&&((pOt_sym_POT<((pOt_INTEGER)(55))))))); else break;
  774.       pOt_Get_COCS(&pOt_sym_POT);
  775.     }
  776.   }
  777.  
  778. pOt__Epilogue:;
  779.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  780. }
  781.  
  782.  
  783.  
  784.  
  785. extern void pOt_FormalType_POT
  786. #if pOt__ANSI_C
  787.   (pOt_Struct_COCT *pOt_typ)
  788. #else
  789.   (pOt_typ)
  790.   pOt_Struct_COCT *pOt_typ;
  791.  
  792. #endif
  793. {
  794.   struct pOt__tag_3_COCT pOt_x;
  795.   pOt_Struct_COCT pOt_typ0;
  796.   pOt_LONGINT pOt_n;
  797.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  798.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  799.   pOt__gc_ptrs.next = pOt__gc_root;
  800.   pOt__gc_strs.next = &pOt__gc_ptrs;
  801.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  802.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  803.   pOt__gc_strs.vars[0x0]=&pOt_x;
  804.   pOt__gc_ptrs.vars[0x0]=&pOt_typ0;
  805.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  806.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  807.   pOt_typ0=pOt_NIL;
  808.  
  809.   (*pOt_typ)=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  810.   pOt_n=(pOt_LONGINT)(0);
  811.   for(;;) {
  812.     if(( pOt_sym_POT==((pOt_INTEGER)(52)))); else break;
  813.     pOt_Get_COCS(&pOt_sym_POT);
  814.     pOt_CheckSym_POT((pOt_INTEGER)(25));
  815.     pOt_n+=(1);
  816.   }
  817.   if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  818.     pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_x);
  819.     if(( pOt_x.pOt_mode==13)) {
  820.       (*pOt_typ)=(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ);
  821.       if(( (*pOt_typ)==pOt_notyp_COCT)) {
  822.         pOt_Mark_COCS((pOt_INTEGER)(58));
  823.       }
  824.     } else {
  825.       pOt_Mark_COCS((pOt_INTEGER)(52));
  826.     }
  827.   } else if(( pOt_sym_POT==((pOt_INTEGER)(59)))) {
  828.     pOt_Get_COCS(&pOt_sym_POT);
  829.     pOt_ProcType_POT(&(*pOt_typ));
  830.   } else {
  831.     pOt_Mark_COCS((pOt_INTEGER)(10));
  832.   }
  833.   for(;;) {
  834.     if(( pOt_n>((pOt_LONGINT)(0)))); else break;
  835.     pOt_NewStr_POT(&pOt_typ0,16);
  836.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ0))).pOt_BaseTyp=(struct pOt__tag_2_COCT*)((*pOt_typ));
  837.     (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ0))).pOt_mno=(pOt_INTEGER)(0);
  838.     (*pOt_typ)=(struct pOt__tag_2_COCT*)(pOt_typ0);
  839.     pOt_n-=(1);
  840.   }
  841.  
  842. pOt__Epilogue:;
  843.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  844. }
  845.  
  846.  
  847.  
  848.  
  849. static void pOt_selector_POT
  850. #if pOt__ANSI_C
  851.   (struct pOt__tag_3_COCT *pOt_x)
  852. #else
  853.   (pOt_x)
  854.   struct pOt__tag_3_COCT *pOt_x;
  855.  
  856. #endif
  857. {
  858.   pOt_Object_COCT pOt_fld;
  859.   struct pOt__tag_3_COCT pOt_y;
  860.   pOt_INTEGER pOt_qoffs;
  861.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  862.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  863.   pOt__gc_ptrs.next = pOt__gc_root;
  864.   pOt__gc_strs.next = &pOt__gc_ptrs;
  865.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  866.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  867.   pOt__gc_ptrs.vars[0x0]=&pOt_fld;
  868.   pOt__gc_strs.vars[0x0]=&pOt_y;
  869.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  870.   pOt_fld=pOt_NIL;
  871.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  872.  
  873.   pOt_qoffs=(pOt_INTEGER)(pOt_StartObj_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  874.   for(;;) {
  875.     if(( pOt_sym_POT==((pOt_INTEGER)(30)))) {
  876.       pOt_Get_COCS(&pOt_sym_POT);
  877.       for(;;) {
  878.         if(((((*pOt_x).pOt_typ!=pOt_NIL))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==13)))) {
  879.           pOt_DeRef_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  880.         }
  881.         pOt_IndexPrefix_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  882.         pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  883.         pOt_Index_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  884.         if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  885.           pOt_Get_COCS(&pOt_sym_POT);
  886.         } else {
  887.           goto pOt__LoopLabel_2;
  888.         }
  889.       }
  890.     pOt__LoopLabel_2:;
  891.       pOt_CheckSym_POT((pOt_INTEGER)(23));
  892.     } else if(( pOt_sym_POT==((pOt_INTEGER)(18)))) {
  893.       pOt_Get_COCS(&pOt_sym_POT);
  894.       if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  895.         if(( (*pOt_x).pOt_typ!=pOt_NIL)) {
  896.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==13)) {
  897.             pOt_DeRef_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  898.           }
  899.           if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form==17)) {
  900.             pOt_FindField_COCT((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),&pOt_fld);
  901.             pOt_Field_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_1_COCT*)(pOt_fld));
  902.           } else {
  903.             pOt_Mark_COCS((pOt_INTEGER)(53));
  904.           }
  905.         } else {
  906.           pOt_Mark_COCS((pOt_INTEGER)(52));
  907.         }
  908.         pOt_Get_COCS(&pOt_sym_POT);
  909.       } else {
  910.         pOt_Mark_COCS((pOt_INTEGER)(10));
  911.       }
  912.     } else if(( pOt_sym_POT==((pOt_INTEGER)(17)))) {
  913.       pOt_Get_COCS(&pOt_sym_POT);
  914.       pOt_DeRef_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  915.     } else if(((((pOt_sym_POT==((pOt_INTEGER)(29))))&&(((*pOt_x).pOt_mode<13)))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form!=14)))) {
  916.       pOt_Get_COCS(&pOt_sym_POT);
  917.       if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  918.         pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_y);
  919.         if(( pOt_y.pOt_mode==13)) {
  920.           pOt_TypGuard_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  921.         } else {
  922.           pOt_Mark_COCS((pOt_INTEGER)(52));
  923.         }
  924.       } else {
  925.         pOt_Mark_COCS((pOt_INTEGER)(10));
  926.       }
  927.       pOt_CheckSym_POT((pOt_INTEGER)(22));
  928.     } else {
  929.       goto pOt__LoopLabel_1;
  930.     }
  931.   }
  932. pOt__LoopLabel_1:;
  933.   pOt_StopObj_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs));
  934.  
  935. pOt__Epilogue:;
  936.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  937. }
  938.  
  939.  
  940.  
  941.  
  942. static void pOt_ActualParameters_POT
  943. #if pOt__ANSI_C
  944.   (pOt_Object_COCT pOt_fpar)
  945. #else
  946.   (pOt_fpar)
  947.   pOt_Object_COCT pOt_fpar;
  948.  
  949. #endif
  950. {
  951.   struct pOt__tag_3_COCT pOt_apar;
  952.   pOt_INTEGER pOt_qoffs;
  953.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  954.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  955.   pOt__gc_ptrs.next = pOt__gc_root;
  956.   pOt__gc_strs.next = &pOt__gc_ptrs;
  957.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  958.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  959.   pOt__gc_ptrs.vars[0x0]=&pOt_fpar;
  960.   pOt__gc_strs.vars[0x0]=&pOt_apar;
  961.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  962.   pOt__init_var((pOt__TypDsc**)&pOt_apar,(pOt__TypDsc*)&pOt__td_3_COCT);
  963.  
  964.   if(( pOt_sym_POT!=((pOt_INTEGER)(22)))) {
  965.     for(;;) {
  966.       if(!pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_fpar))) {
  967.         pOt_Mark_COCS((pOt_INTEGER)(64));
  968.         pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_apar);
  969.       } else {
  970.         pOt_ParamPrefix_COCH((struct pOt__tag_1_COCT*)(pOt_fpar));
  971.         if((((((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fpar))).pOt_mode==1))&&(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fpar))).pOt_typ))).pOt_form==15))||(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fpar))).pOt_typ))).pOt_form==16)))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fpar))).pOt_typ))).pOt_BaseTyp))).pOt_form==3)))) {
  972.           pOt_StringExpression_POT((struct pOt__tag_3_COCT*)&pOt_apar,(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fpar))).pOt_typ));
  973.         } else {
  974.           pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_apar);
  975.         }
  976.         pOt_Param_COCH((struct pOt__tag_3_COCT*)&pOt_apar,(struct pOt__tag_1_COCT*)(pOt_fpar));
  977.         pOt_fpar=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fpar))).pOt_next);
  978.       }
  979.       if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  980.         pOt_Get_COCS(&pOt_sym_POT);
  981.       } else if((((((pOt_INTEGER)(29))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(37)))))) {
  982.         pOt_Mark_COCS((pOt_INTEGER)(19));
  983.       } else {
  984.         goto pOt__LoopLabel_1;
  985.       }
  986.       pOt_NextParam_COCH();
  987.     }
  988.   pOt__LoopLabel_1:;
  989.   }
  990.   if(pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_fpar))) {
  991.     pOt_Mark_COCS((pOt_INTEGER)(65));
  992.   }
  993.  
  994. pOt__Epilogue:;
  995.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  996. }
  997.  
  998.  
  999.  
  1000.  
  1001. static void pOt_StandProcCall_POT
  1002. #if pOt__ANSI_C
  1003.   (struct pOt__tag_3_COCT *pOt_x)
  1004. #else
  1005.   (pOt_x)
  1006.   struct pOt__tag_3_COCT *pOt_x;
  1007.  
  1008. #endif
  1009. {
  1010.   struct pOt__tag_3_COCT pOt_y;
  1011.   pOt_INTEGER pOt_m, pOt_n, pOt_qoffs;
  1012.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1013.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  1014.   pOt__gc_ptrs.next = pOt__gc_root;
  1015.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1016.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1017.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  1018.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1019.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1020.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1021.  
  1022.   pOt_m=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*pOt_x).pOt_intval));
  1023.   pOt_n=(pOt_INTEGER)(0);
  1024.   pOt_qoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1025.   pOt_TkFct_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_m));
  1026.   if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  1027.     pOt_Get_COCS(&pOt_sym_POT);
  1028.     if(( pOt_sym_POT!=((pOt_INTEGER)(22)))) {
  1029.       for(;;) {
  1030.         if(( pOt_n==((pOt_INTEGER)(0)))) {
  1031.           if(( pOt_m==((pOt_INTEGER)(29)))) {
  1032.             pOt_StringExpression_POT((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_2_COCT*)(pOt_NIL));
  1033.           } else {
  1034.             pOt_Expression_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1035.           }
  1036.           pOt_StPar1_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_m));
  1037.           pOt_n=(pOt_INTEGER)(1);
  1038.         } else if(( pOt_n==((pOt_INTEGER)(1)))) {
  1039.           pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1040.           pOt_StPar2_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y,(pOt_INTEGER)(pOt_m));
  1041.           pOt_n=(pOt_INTEGER)(2);
  1042.         } else if(( pOt_n==((pOt_INTEGER)(2)))) {
  1043.           pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1044.           pOt_StPar3_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y,(pOt_INTEGER)(pOt_m));
  1045.           pOt_n=(pOt_INTEGER)(3);
  1046.         } else {
  1047.           pOt_Mark_COCS((pOt_INTEGER)(64));
  1048.           pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1049.         }
  1050.         if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  1051.           pOt_Get_COCS(&pOt_sym_POT);
  1052.         } else if((((((pOt_INTEGER)(29))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(37)))))) {
  1053.           pOt_Mark_COCS((pOt_INTEGER)(19));
  1054.         } else {
  1055.           goto pOt__LoopLabel_1;
  1056.         }
  1057.       }
  1058.     pOt__LoopLabel_1:;
  1059.       pOt_CheckSym_POT((pOt_INTEGER)(22));
  1060.     } else {
  1061.       pOt_Get_COCS(&pOt_sym_POT);
  1062.     }
  1063.   } else {
  1064.     pOt_Mark_COCS((pOt_INTEGER)(29));
  1065.   }
  1066.   pOt_StFct_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_m),(pOt_INTEGER)(pOt_n));
  1067.   pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs));
  1068.  
  1069. pOt__Epilogue:;
  1070.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1071. }
  1072.  
  1073.  
  1074.  
  1075. static struct pOt__tag_3_COCT *pOt_x_Sets_POT, (*pOt_y_Sets_POT);
  1076. static pOt_INTEGER (*pOt_xqoffs_Sets_POT), (*pOt_yqoffs_Sets_POT);
  1077.  
  1078. static void pOt_Sets_POT pOt__ARGS((struct pOt__tag_3_COCT *));
  1079.  
  1080.  
  1081.  
  1082.  
  1083. static void pOt_Element_Sets_POT
  1084. #if pOt__ANSI_C
  1085.   (struct pOt__tag_3_COCT *pOt_x)
  1086. #else
  1087.   (pOt_x)
  1088.   struct pOt__tag_3_COCT *pOt_x;
  1089.  
  1090. #endif
  1091. {
  1092.   struct pOt__tag_3_COCT pOt_e1, pOt_e2;
  1093.   pOt_INTEGER pOt_qoffs;
  1094.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1095.   struct {void *next, *vars[0x3];} pOt__gc_strs;
  1096.   pOt__gc_ptrs.next = pOt__gc_root;
  1097.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1098.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1099.   pOt__gc_strs.vars[0x2]=pOt_NIL;
  1100.   pOt__gc_strs.vars[0x1]=&pOt_e1;
  1101.   pOt__gc_strs.vars[0x0]=&pOt_e2;
  1102.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1103.   pOt__init_var((pOt__TypDsc**)&pOt_e1,(pOt__TypDsc*)&pOt__td_3_COCT);
  1104.   pOt__init_var((pOt__TypDsc**)&pOt_e2,(pOt__TypDsc*)&pOt__td_3_COCT);
  1105.  
  1106.   pOt_qoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1107.   pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_e1);
  1108.   if(( pOt_sym_POT==((pOt_INTEGER)(21)))) {
  1109.     pOt_Get_COCS(&pOt_sym_POT);
  1110.     pOt_Set10_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_e1);
  1111.     pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_e2);
  1112.     pOt_Set11_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_e1,(struct pOt__tag_3_COCT*)&pOt_e2);
  1113.   } else {
  1114.     pOt_Set00_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_e1);
  1115.   }
  1116.   pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs));
  1117.  
  1118. pOt__Epilogue:;
  1119.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1120. }
  1121.  
  1122. static void pOt_Sets_POT
  1123. #if pOt__ANSI_C
  1124.   (struct pOt__tag_3_COCT *pOt_x)
  1125. #else
  1126.   (pOt_x)
  1127.   struct pOt__tag_3_COCT *pOt_x;
  1128.  
  1129. #endif
  1130. {
  1131.   struct pOt__tag_3_COCT *pOt_x_, pOt_y, (*pOt_y_);
  1132.   pOt_INTEGER pOt_xqoffs, (*pOt_xqoffs_), pOt_yqoffs, (*pOt_yqoffs_);
  1133.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1134.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  1135.   pOt__gc_ptrs.next = pOt__gc_root;
  1136.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1137.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1138.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  1139.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1140.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1141.   pOt_x_=pOt_x_Sets_POT;
  1142.   pOt_x_Sets_POT=pOt_x;
  1143.   pOt_y_=pOt_y_Sets_POT;
  1144.   pOt_y_Sets_POT=&pOt_y;
  1145.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1146.   pOt_xqoffs_=pOt_xqoffs_Sets_POT;
  1147.   pOt_xqoffs_Sets_POT=&pOt_xqoffs;
  1148.   pOt_yqoffs_=pOt_yqoffs_Sets_POT;
  1149.   pOt_yqoffs_Sets_POT=&pOt_yqoffs;
  1150.  
  1151.   (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1152.   (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_settyp_COCT);
  1153.   pOt_y.pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1154.   pOt_y.pOt_typ=(struct pOt__tag_2_COCT*)(pOt_settyp_COCT);
  1155.   pOt_xqoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1156.   if(( pOt_sym_POT!=((pOt_INTEGER)(24)))) {
  1157.     pOt_Element_Sets_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1158.     for(;;) {
  1159.       if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  1160.         pOt_Get_COCS(&pOt_sym_POT);
  1161.       } else if((((((pOt_INTEGER)(29))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(37)))))) {
  1162.         pOt_Mark_COCS((pOt_INTEGER)(19));
  1163.       } else {
  1164.         goto pOt__LoopLabel_1;
  1165.       }
  1166.       pOt_yqoffs=(pOt_INTEGER)(pOt_HookExpr_COCE((struct pOt__tag_3_COCT*)&pOt_y));
  1167.       pOt_Element_Sets_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1168.       pOt_Op_COCE((pOt_INTEGER)(6),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  1169.     }
  1170.   pOt__LoopLabel_1:;
  1171.   } else {
  1172.     (*pOt_x).pOt_mode=8;
  1173.     (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1174.   }
  1175.   pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_xqoffs));
  1176.   pOt_CheckSym_POT((pOt_INTEGER)(24));
  1177.  
  1178. pOt__Epilogue:;
  1179.   pOt_x_Sets_POT=pOt_x_;
  1180.   pOt_y_Sets_POT=pOt_y_;
  1181.   pOt_xqoffs_Sets_POT=pOt_xqoffs_;
  1182.   pOt_yqoffs_Sets_POT=pOt_yqoffs_;
  1183.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1184. }
  1185.  
  1186.  
  1187.  
  1188.  
  1189. static void pOt_Factor_POT
  1190. #if pOt__ANSI_C
  1191.   (struct pOt__tag_3_COCT *pOt_x)
  1192. #else
  1193.   (pOt_x)
  1194.   struct pOt__tag_3_COCT *pOt_x;
  1195.  
  1196. #endif
  1197. {
  1198.   pOt_Object_COCT pOt_fpar;
  1199.   pOt_INTEGER pOt_qoffs;
  1200.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  1201.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  1202.   pOt__gc_ptrs.next = pOt__gc_root;
  1203.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1204.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  1205.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  1206.   pOt__gc_ptrs.vars[0x0]=&pOt_fpar;
  1207.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1208.   pOt_fpar=pOt_NIL;
  1209.  
  1210.   if(( pOt_sym_POT<((pOt_INTEGER)(29)))) {
  1211.     pOt_Mark_COCS((pOt_INTEGER)(13));
  1212.     for(;;) {
  1213.       pOt_Get_COCS(&pOt_sym_POT);
  1214.       if(( pOt_sym_POT>=((pOt_INTEGER)(29)))) break;
  1215.     }
  1216.   }
  1217.   if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1218.     pOt_qualident_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1219.     if(( (*pOt_x).pOt_mode==16)) {
  1220.       pOt_StandProcCall_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1221.     } else if(( (*pOt_x).pOt_mode==8)) {
  1222.       pOt_Const_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1223.     } else {
  1224.       pOt_selector_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1225.       if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  1226.         pOt_Get_COCS(&pOt_sym_POT);
  1227.         pOt_qoffs=(pOt_INTEGER)(pOt_PrepCall_COCH((struct pOt__tag_3_COCT*)&(*pOt_x),&pOt_fpar));
  1228.         pOt_ActualParameters_POT((struct pOt__tag_1_COCT*)(pOt_fpar));
  1229.         pOt_Call_COCH((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs));
  1230.         pOt_CheckSym_POT((pOt_INTEGER)(22));
  1231.       }
  1232.     }
  1233.   } else if(( pOt_sym_POT==((pOt_INTEGER)(34)))) {
  1234.     pOt_Get_COCS(&pOt_sym_POT);
  1235.     (*pOt_x).pOt_mode=8;
  1236.     (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1237.     switch(pOt_numtyp_COCS) {
  1238.     case 1:
  1239.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_chartyp_COCT);
  1240.       (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_intval_COCS);
  1241.     break;
  1242.     case 2:
  1243.       (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_intval_COCS);
  1244.       pOt_SetIntType_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1245.     break;
  1246.     case 3:
  1247.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_realtyp_COCT);
  1248.       (*pOt_x).pOt_fltval=(pOt_LONGREAL)(pOt_realval_COCS);
  1249.     break;
  1250.     case 4:
  1251.       (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_lrltyp_COCT);
  1252.       (*pOt_x).pOt_fltval=(pOt_LONGREAL)(pOt_lrlval_COCS);
  1253.     break;
  1254.     default:;
  1255.       pOt__halt(__FILE__,__LINE__,0x10);
  1256.     }
  1257.     pOt_Const_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1258.   } else if(( pOt_sym_POT==((pOt_INTEGER)(36)))) {
  1259.     (*pOt_x).pOt_mode=8;
  1260.     (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1261.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_stringtyp_COCT);
  1262.     (*pOt_x).pOt_intval=(pOt_LONGINT)(pOt_intval_COCS);
  1263.     pOt_AllocString_COCD((pOt__ArrTypDsc**)&pOt_name_COCS,(struct pOt__tag_3_COCT*)&(*pOt_x));
  1264.     pOt_Get_COCS(&pOt_sym_POT);
  1265.     pOt_Const_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1266.   } else if(( pOt_sym_POT==((pOt_INTEGER)(35)))) {
  1267.     pOt_Get_COCS(&pOt_sym_POT);
  1268.     (*pOt_x).pOt_mode=8;
  1269.     (*pOt_x).pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1270.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_niltyp_COCT);
  1271.     (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1272.     pOt_Const_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1273.   } else if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  1274.     pOt_Get_COCS(&pOt_sym_POT);
  1275.     pOt_SubExprPrefix_COCE();
  1276.     pOt_Expression_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1277.     pOt_SubExprSuffix_COCE();
  1278.     pOt_CheckSym_POT((pOt_INTEGER)(22));
  1279.   } else if(( pOt_sym_POT==((pOt_INTEGER)(30)))) {
  1280.     pOt_Get_COCS(&pOt_sym_POT);
  1281.     pOt_Mark_COCS((pOt_INTEGER)(29));
  1282.     pOt_SubExprPrefix_COCE();
  1283.     pOt_Expression_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1284.     pOt_SubExprSuffix_COCE();
  1285.     pOt_CheckSym_POT((pOt_INTEGER)(22));
  1286.   } else if(( pOt_sym_POT==((pOt_INTEGER)(31)))) {
  1287.     pOt_Get_COCS(&pOt_sym_POT);
  1288.     pOt_Sets_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1289.   } else if(( pOt_sym_POT==((pOt_INTEGER)(32)))) {
  1290.     pOt_Get_COCS(&pOt_sym_POT);
  1291.     pOt_qoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1292.     pOt_Factor_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1293.     pOt_MOp_COCE((pOt_INTEGER)(32),(struct pOt__tag_3_COCT*)&(*pOt_x));
  1294.     pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_qoffs));
  1295.   } else {
  1296.     pOt_Mark_COCS((pOt_INTEGER)(13));
  1297.     pOt_Get_COCS(&pOt_sym_POT);
  1298.     (*pOt_x).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  1299.     (*pOt_x).pOt_mode=1;
  1300.     (*pOt_x).pOt_intval=(pOt_LONGINT)(0);
  1301.   }
  1302.  
  1303. pOt__Epilogue:;
  1304.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1305. }
  1306.  
  1307.  
  1308.  
  1309.  
  1310. static void pOt_Term_POT
  1311. #if pOt__ANSI_C
  1312.   (struct pOt__tag_3_COCT *pOt_x)
  1313. #else
  1314.   (pOt_x)
  1315.   struct pOt__tag_3_COCT *pOt_x;
  1316.  
  1317. #endif
  1318. {
  1319.   struct pOt__tag_3_COCT pOt_y;
  1320.   pOt_INTEGER pOt_mulop, pOt_xqoffs, pOt_yqoffs;
  1321.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1322.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  1323.   pOt__gc_ptrs.next = pOt__gc_root;
  1324.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1325.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1326.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  1327.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1328.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1329.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1330.  
  1331.   pOt_xqoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1332.   pOt_Factor_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1333.   for(;;) {
  1334.     if((((((pOt_INTEGER)(1))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(5)))))); else break;
  1335.     pOt_mulop=(pOt_INTEGER)(pOt_sym_POT);
  1336.     pOt_Get_COCS(&pOt_sym_POT);
  1337.     if(( pOt_mulop==((pOt_INTEGER)(5)))) {
  1338.       pOt_MOp_COCE((pOt_INTEGER)(5),(struct pOt__tag_3_COCT*)&(*pOt_x));
  1339.     }
  1340.     pOt_yqoffs=(pOt_INTEGER)(pOt_HookExpr_COCE((struct pOt__tag_3_COCT*)&pOt_y));
  1341.     pOt_Factor_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1342.     pOt_Op_COCE((pOt_INTEGER)(pOt_mulop),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  1343.   }
  1344.   pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_xqoffs));
  1345.  
  1346. pOt__Epilogue:;
  1347.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1348. }
  1349.  
  1350.  
  1351.  
  1352.  
  1353. static void pOt_SimpleExpression_POT
  1354. #if pOt__ANSI_C
  1355.   (struct pOt__tag_3_COCT *pOt_x)
  1356. #else
  1357.   (pOt_x)
  1358.   struct pOt__tag_3_COCT *pOt_x;
  1359.  
  1360. #endif
  1361. {
  1362.   struct pOt__tag_3_COCT pOt_y;
  1363.   pOt_INTEGER pOt_addop, pOt_xqoffs, pOt_yqoffs;
  1364.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1365.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  1366.   pOt__gc_ptrs.next = pOt__gc_root;
  1367.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1368.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1369.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  1370.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1371.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1372.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1373.  
  1374.   pOt_xqoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1375.   if(( pOt_sym_POT==((pOt_INTEGER)(7)))) {
  1376.     pOt_Get_COCS(&pOt_sym_POT);
  1377.     pOt_Term_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1378.     pOt_MOp_COCE((pOt_INTEGER)(7),(struct pOt__tag_3_COCT*)&(*pOt_x));
  1379.   } else if(( pOt_sym_POT==((pOt_INTEGER)(6)))) {
  1380.     pOt_Get_COCS(&pOt_sym_POT);
  1381.     pOt_Term_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1382.     pOt_MOp_COCE((pOt_INTEGER)(6),(struct pOt__tag_3_COCT*)&(*pOt_x));
  1383.   } else {
  1384.     pOt_Term_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1385.   }
  1386.   for(;;) {
  1387.     if((((((pOt_INTEGER)(6))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(8)))))); else break;
  1388.     pOt_addop=(pOt_INTEGER)(pOt_sym_POT);
  1389.     pOt_Get_COCS(&pOt_sym_POT);
  1390.     if(( pOt_addop==((pOt_INTEGER)(8)))) {
  1391.       pOt_MOp_COCE((pOt_INTEGER)(8),(struct pOt__tag_3_COCT*)&(*pOt_x));
  1392.     }
  1393.     pOt_yqoffs=(pOt_INTEGER)(pOt_HookExpr_COCE((struct pOt__tag_3_COCT*)&pOt_y));
  1394.     pOt_Term_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1395.     pOt_Op_COCE((pOt_INTEGER)(pOt_addop),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  1396.   }
  1397.   pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_xqoffs));
  1398.  
  1399. pOt__Epilogue:;
  1400.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1401. }
  1402.  
  1403.  
  1404.  
  1405.  
  1406. extern void pOt_Expression_POT
  1407. #if pOt__ANSI_C
  1408.   (struct pOt__tag_3_COCT *pOt_x)
  1409. #else
  1410.   (pOt_x)
  1411.   struct pOt__tag_3_COCT *pOt_x;
  1412.  
  1413. #endif
  1414. {
  1415.   struct pOt__tag_3_COCT pOt_y;
  1416.   pOt_INTEGER pOt_relation, pOt_xqoffs, pOt_yqoffs;
  1417.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1418.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  1419.   pOt__gc_ptrs.next = pOt__gc_root;
  1420.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1421.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1422.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  1423.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1424.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1425.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1426.  
  1427.   pOt_xqoffs=(pOt_INTEGER)(pOt_StartExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x)));
  1428.   pOt_SimpleExpression_POT((struct pOt__tag_3_COCT*)&(*pOt_x));
  1429.   if((((((pOt_INTEGER)(9))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(14)))))) {
  1430.     pOt_relation=(pOt_INTEGER)(pOt_sym_POT);
  1431.     pOt_Get_COCS(&pOt_sym_POT);
  1432.     pOt_yqoffs=(pOt_INTEGER)(pOt_HookExpr_COCE((struct pOt__tag_3_COCT*)&pOt_y));
  1433.     pOt_SimpleExpression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1434.     pOt_Op_COCE((pOt_INTEGER)(pOt_relation),(struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  1435.   } else if(( pOt_sym_POT==((pOt_INTEGER)(15)))) {
  1436.     pOt_Get_COCS(&pOt_sym_POT);
  1437.     pOt_InPrefix_COCE((struct pOt__tag_3_COCT*)&(*pOt_x));
  1438.     pOt_yqoffs=(pOt_INTEGER)(pOt_HookExpr_COCE((struct pOt__tag_3_COCT*)&pOt_y));
  1439.     pOt_SimpleExpression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1440.     pOt_In_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  1441.   } else if(( pOt_sym_POT==((pOt_INTEGER)(16)))) {
  1442.     if(( (*pOt_x).pOt_mode>=13)) {
  1443.       pOt_Mark_COCS((pOt_INTEGER)(112));
  1444.     }
  1445.     pOt_Get_COCS(&pOt_sym_POT);
  1446.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1447.       pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1448.       if(( pOt_y.pOt_mode==13)) {
  1449.         pOt_TypTest_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(struct pOt__tag_3_COCT*)&pOt_y);
  1450.       } else {
  1451.         pOt_Mark_COCS((pOt_INTEGER)(52));
  1452.       }
  1453.     } else {
  1454.       pOt_Mark_COCS((pOt_INTEGER)(10));
  1455.     }
  1456.   }
  1457.   pOt_StopExpr_COCE((struct pOt__tag_3_COCT*)&(*pOt_x),(pOt_INTEGER)(pOt_xqoffs));
  1458.  
  1459. pOt__Epilogue:;
  1460.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1461. }
  1462.  
  1463.  
  1464.  
  1465.  
  1466. static void pOt_ProcedureDeclaration_POT()
  1467. {
  1468.   pOt_Object_COCT pOt_proc, pOt_proc1, pOt_par;
  1469.   pOt_INTEGER pOt_L1;
  1470.   pOt_SHORTINT pOt_mode;
  1471.   pOt_BOOLEAN pOt_body;
  1472.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  1473.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  1474.   pOt__gc_ptrs.next = pOt__gc_root;
  1475.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1476.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  1477.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  1478.   pOt__gc_ptrs.vars[0x2]=&pOt_proc;
  1479.   pOt__gc_ptrs.vars[0x1]=&pOt_proc1;
  1480.   pOt__gc_ptrs.vars[0x0]=&pOt_par;
  1481.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1482.   pOt_proc=pOt_NIL;
  1483.   pOt_proc1=pOt_NIL;
  1484.   pOt_par=pOt_NIL;
  1485.  
  1486.   pOt_proc=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1487.   pOt_body=(pOt_BOOLEAN)1;
  1488.   if((((pOt_sym_POT!=((pOt_INTEGER)(37))))&&((pOt_level_COCT==((pOt_INTEGER)(0)))))) {
  1489.     if(( pOt_sym_POT==((pOt_INTEGER)(1)))) {
  1490.       pOt_mode=15;
  1491.     } else if(( pOt_sym_POT==((pOt_INTEGER)(17)))) {
  1492.       pOt_mode=15;
  1493.       pOt_body=(pOt_BOOLEAN)0;
  1494.     } else if(( pOt_sym_POT==((pOt_INTEGER)(6)))) {
  1495.       pOt_mode=18;
  1496.     } else if(( pOt_sym_POT==((pOt_INTEGER)(7)))) {
  1497.       pOt_mode=17;
  1498.       pOt_body=(pOt_BOOLEAN)0;
  1499.     } else {
  1500.       pOt_mode=14;
  1501.       pOt_Mark_COCS((pOt_INTEGER)(10));
  1502.     }
  1503.     pOt_Get_COCS(&pOt_sym_POT);
  1504.   } else {
  1505.     pOt_mode=14;
  1506.   }
  1507.   if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1508.     if(( pOt_level_COCT==((pOt_INTEGER)(0)))) {
  1509.       pOt_Find_COCT(&pOt_proc1,&pOt_L1);
  1510.     } else {
  1511.       pOt_proc1=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1512.     }
  1513.     if(((((pOt_proc1!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc1))).pOt_mode==15)))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc1))).pOt_intval==((pOt_LONGINT)(0)))))) {
  1514.       pOt_Remove_COCT((struct pOt__tag_1_COCT*)(pOt_proc1));
  1515.       pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_proc);
  1516.       pOt_CheckMark_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_marked);
  1517.       pOt_mode=15;
  1518.     } else {
  1519.       if(( pOt_proc1!=pOt_NIL)) {
  1520.         pOt_Mark_COCS((pOt_INTEGER)(1));
  1521.         pOt_proc1=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1522.       }
  1523.       pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_proc);
  1524.       pOt_CheckMark_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_marked);
  1525.       (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_intval=(pOt_LONGINT)(0);
  1526.       if(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_marked&&((pOt_mode==14)))) {
  1527.         pOt_mode=15;
  1528.       }
  1529.     }
  1530.     (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_mode=pOt_mode;
  1531.     (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  1532.     (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_dsc=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1533.     pOt_level_COCT+=(1);
  1534.     pOt_OpenScope_COCT((pOt_INTEGER)(pOt_level_COCT),(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_name);
  1535.     if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  1536.       pOt_Get_COCS(&pOt_sym_POT);
  1537.       pOt_FormalParameters_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ);
  1538.       (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_dsc=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  1539.     }
  1540.     if(( pOt_proc1!=pOt_NIL)) {
  1541.       pOt_CompareParLists_COCH((struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_dsc),(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc1))).pOt_dsc));
  1542.       if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ!=(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc1))).pOt_typ)) {
  1543.         pOt_Mark_COCS((pOt_INTEGER)(118));
  1544.       }
  1545.     }
  1546.     if(( pOt_mode==17)) {
  1547.       if(( pOt_sym_POT==((pOt_INTEGER)(34)))) {
  1548.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_intval=(pOt_LONGINT)(pOt_intval_COCS);
  1549.         pOt_Get_COCS(&pOt_sym_POT);
  1550.       } else {
  1551.         pOt_Mark_COCS((pOt_INTEGER)(17));
  1552.       }
  1553.     }
  1554.     if(pOt_body) {
  1555.       pOt_CheckSym_POT((pOt_INTEGER)(38));
  1556.       (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_typ);
  1557.       (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_intval=(pOt_LONGINT)(1);
  1558.       pOt_par=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_dsc);
  1559.       pOt_Block_POT((struct pOt__tag_1_COCT*)(pOt_proc));
  1560.       (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_dsc=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_next);
  1561.       if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1562.         if(pOt__cmpss((pOt_CHAR*)& pOt_name_COCS,(pOt_CHAR*)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_proc))).pOt_name,0xA)) {
  1563.           pOt_Mark_COCS((pOt_INTEGER)(4));
  1564.         }
  1565.         pOt_Get_COCS(&pOt_sym_POT);
  1566.       } else {
  1567.         pOt_Mark_COCS((pOt_INTEGER)(10));
  1568.       }
  1569.     } else {
  1570.       pOt_ForwardDeclaration_COCC((struct pOt__tag_1_COCT*)(pOt_proc));
  1571.     }
  1572.     pOt_level_COCT-=(1);
  1573.     pOt_CloseScope_COCT();
  1574.   }
  1575.  
  1576. pOt__Epilogue:;
  1577.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1578. }
  1579.  
  1580.  
  1581.  
  1582.  
  1583. static void pOt_CaseLabelList_POT
  1584. #if pOt__ANSI_C
  1585.   (pOt_INTEGER pOt_LabelForm, pOt_INTEGER *pOt_n)
  1586. #else
  1587.   (pOt_LabelForm, pOt_n)
  1588.   pOt_INTEGER pOt_LabelForm, *pOt_n;
  1589.  
  1590. #endif
  1591. {
  1592.   struct pOt__tag_3_COCT pOt_x, pOt_y;
  1593.   pOt_INTEGER pOt_i, pOt_f;
  1594.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1595.   struct {void *next, *vars[0x3];} pOt__gc_strs;
  1596.   pOt__gc_ptrs.next = pOt__gc_root;
  1597.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1598.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1599.   pOt__gc_strs.vars[0x2]=pOt_NIL;
  1600.   pOt__gc_strs.vars[0x1]=&pOt_x;
  1601.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1602.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1603.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  1604.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1605.  
  1606.   if(!(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,pOt_LabelForm)&(pOt_SET)0x78L)))) {
  1607.     pOt_Mark_COCS((pOt_INTEGER)(61));
  1608.   }
  1609.   for(;;) {
  1610.     pOt_ConstExpression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1611.     pOt_f=(pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_form);
  1612.     if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, pOt_f)&(pOt_SET)0x70L))) {
  1613.       if(( pOt_LabelForm<pOt_f)) {
  1614.         pOt_Mark_COCS((pOt_INTEGER)(60));
  1615.       }
  1616.     } else if(( pOt_f!=pOt_LabelForm)) {
  1617.       pOt_Mark_COCS((pOt_INTEGER)(60));
  1618.     }
  1619.     if(( pOt_sym_POT==((pOt_INTEGER)(21)))) {
  1620.       pOt_Get_COCS(&pOt_sym_POT);
  1621.       pOt_ConstExpression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1622.       if((((((pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_y.pOt_typ))).pOt_form))!=pOt_f))&&(!(((((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,pOt_f)&(pOt_SET)0x70L)))&&(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_y.pOt_typ))).pOt_form)&(pOt_SET)0x70L)))))))) {
  1623.         pOt_Mark_COCS((pOt_INTEGER)(60));
  1624.       }
  1625.       if(( pOt_y.pOt_intval<pOt_x.pOt_intval)) {
  1626.         pOt_Mark_COCS((pOt_INTEGER)(63));
  1627.         pOt_y.pOt_intval=(pOt_LONGINT)(pOt_x.pOt_intval);
  1628.       }
  1629.     } else {
  1630.       pOt__rec_assign((pOt__RecTypDsc**)& pOt_y,(pOt__RecTypDsc**)&pOt_x);
  1631.     }
  1632.     pOt_CaseLabelList_COCC((struct pOt__tag_3_COCT*)&pOt_x,(struct pOt__tag_3_COCT*)&pOt_y);
  1633.     pOt_i=(pOt_INTEGER)((*pOt_n));
  1634.     if(( pOt_i<2048)) {
  1635.       for(;;) {
  1636.         if(( pOt_i==pOt_BofCTab_POT)) {
  1637.           goto pOt__LoopLabel_2;
  1638.         }
  1639.         if(( pOt_CaseTab_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x800, (pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))].pOt_low<=pOt_y.pOt_intval)) {
  1640.           if(( pOt_CaseTab_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x800, (pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))].pOt_high>=pOt_x.pOt_intval)) {
  1641.             pOt_Mark_COCS((pOt_INTEGER)(62));
  1642.           }
  1643.           goto pOt__LoopLabel_2;
  1644.         }
  1645.         pOt__rec_assign((pOt__RecTypDsc**)& pOt_CaseTab_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x800, pOt_i)],(pOt__RecTypDsc**)&pOt_CaseTab_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x800, (pOt_INTEGER)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))]);
  1646.         pOt_i-=(1);
  1647.       }
  1648.     pOt__LoopLabel_2:;
  1649.       pOt_CaseTab_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x800, pOt_i)].pOt_low=(pOt_LONGINT)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,pOt_x.pOt_intval));
  1650.       pOt_CaseTab_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x800, pOt_i)].pOt_high=(pOt_LONGINT)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,pOt_y.pOt_intval));
  1651.       (*pOt_n)+=(1);
  1652.     } else {
  1653.       pOt_Mark_COCS((pOt_INTEGER)(213));
  1654.     }
  1655.     if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  1656.       pOt_Get_COCS(&pOt_sym_POT);
  1657.     } else if((((pOt_sym_POT==((pOt_INTEGER)(34))))||((pOt_sym_POT==((pOt_INTEGER)(37)))))) {
  1658.       pOt_Mark_COCS((pOt_INTEGER)(19));
  1659.     } else {
  1660.       goto pOt__LoopLabel_1;
  1661.     }
  1662.   }
  1663. pOt__LoopLabel_1:;
  1664.  
  1665. pOt__Epilogue:;
  1666.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1667. }
  1668.  
  1669.  
  1670.  
  1671. static pOt_INTEGER (*pOt_thisloop_StatSeq_POT);
  1672. static pOt_Object_COCT (*pOt_fpar_StatSeq_POT), (*pOt_wobj_StatSeq_POT);
  1673. static pOt_Struct_COCT (*pOt_xtyp_StatSeq_POT);
  1674. static struct pOt__tag_3_COCT (*pOt_x_StatSeq_POT), (*pOt_y_StatSeq_POT);
  1675. static pOt_INTEGER (*pOt_nextloop_StatSeq_POT), (*pOt_qoffs_StatSeq_POT);
  1676.  
  1677. static void pOt_StatSeq_POT pOt__ARGS((pOt_INTEGER ));
  1678.  
  1679.  
  1680.  
  1681.  
  1682. static void pOt_CasePart_StatSeq_POT()
  1683. {
  1684.   struct pOt__tag_3_COCT pOt_x;
  1685.   pOt_INTEGER pOt_prev, pOt_n;
  1686.   struct {void *next, *vars[0x1];} pOt__gc_ptrs;
  1687.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  1688.   pOt__gc_ptrs.next = pOt__gc_root;
  1689.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1690.   pOt__gc_ptrs.vars[0x0]=pOt_NIL;
  1691.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  1692.   pOt__gc_strs.vars[0x0]=&pOt_x;
  1693.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1694.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  1695.  
  1696.   pOt_n=(pOt_INTEGER)(pOt_BofCTab_POT);
  1697.   pOt_prev=(pOt_INTEGER)(pOt_BofCTab_POT);
  1698.   pOt_CasePfx_COCC();
  1699.   pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1700.   pOt_CaseSfx_COCC();
  1701.   pOt_CheckSym_POT((pOt_INTEGER)(25));
  1702.   pOt_OpenScope_COCC();
  1703.   for(;;) {
  1704.     if(( pOt_sym_POT<((pOt_INTEGER)(39)))) {
  1705.       pOt_CaseLabelList_POT((pOt_INTEGER)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_form),&pOt_n);
  1706.       pOt_BofCTab_POT=(pOt_INTEGER)(pOt_n);
  1707.       pOt_CheckSym_POT((pOt_INTEGER)(20));
  1708.       pOt_StatSeq_POT((pOt_INTEGER)((*pOt_thisloop_StatSeq_POT)));
  1709.       pOt_BofCTab_POT=(pOt_INTEGER)(pOt_prev);
  1710.     }
  1711.     if(( pOt_sym_POT==((pOt_INTEGER)(39)))) {
  1712.       pOt_CaseBar_COCC();
  1713.       pOt_Get_COCS(&pOt_sym_POT);
  1714.     } else {
  1715.       goto pOt__LoopLabel_1;
  1716.     }
  1717.   }
  1718. pOt__LoopLabel_1:;
  1719.   pOt_CaseElse_COCC();
  1720.   if(( pOt_sym_POT==((pOt_INTEGER)(41)))) {
  1721.     pOt_Get_COCS(&pOt_sym_POT);
  1722.     pOt_StatSeq_POT((pOt_INTEGER)((*pOt_thisloop_StatSeq_POT)));
  1723.   } else {
  1724.     pOt_Trap_COCH(16);
  1725.     pOt_TermStmt_COCC();
  1726.   }
  1727.   pOt_CloseScope_COCC();
  1728.  
  1729. pOt__Epilogue:;
  1730.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  1731. }
  1732.  
  1733. static void pOt_StatSeq_POT
  1734. #if pOt__ANSI_C
  1735.   (pOt_INTEGER pOt_thisloop)
  1736. #else
  1737.   (pOt_thisloop)
  1738.   pOt_INTEGER pOt_thisloop;
  1739.  
  1740. #endif
  1741. {
  1742.   pOt_INTEGER (*pOt_thisloop_);
  1743.   pOt_Object_COCT pOt_fpar, (*pOt_fpar_), pOt_wobj, (*pOt_wobj_);
  1744.   pOt_Struct_COCT pOt_xtyp, (*pOt_xtyp_);
  1745.   struct pOt__tag_3_COCT pOt_x, (*pOt_x_), pOt_y, (*pOt_y_);
  1746.   pOt_INTEGER pOt_nextloop, (*pOt_nextloop_), pOt_qoffs, (*pOt_qoffs_);
  1747.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  1748.   struct {void *next, *vars[0x3];} pOt__gc_strs;
  1749.   pOt__gc_ptrs.next = pOt__gc_root;
  1750.   pOt__gc_strs.next = &pOt__gc_ptrs;
  1751.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  1752.   pOt__gc_strs.vars[0x2]=pOt_NIL;
  1753.   pOt__gc_ptrs.vars[0x2]=&pOt_fpar;
  1754.   pOt__gc_ptrs.vars[0x1]=&pOt_wobj;
  1755.   pOt__gc_ptrs.vars[0x0]=&pOt_xtyp;
  1756.   pOt__gc_strs.vars[0x1]=&pOt_x;
  1757.   pOt__gc_strs.vars[0x0]=&pOt_y;
  1758.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  1759.   pOt_thisloop_=pOt_thisloop_StatSeq_POT;
  1760.   pOt_thisloop_StatSeq_POT=&pOt_thisloop;
  1761.   pOt_fpar_=pOt_fpar_StatSeq_POT;
  1762.   pOt_fpar_StatSeq_POT=&pOt_fpar;
  1763.   pOt_fpar=pOt_NIL;
  1764.   pOt_wobj_=pOt_wobj_StatSeq_POT;
  1765.   pOt_wobj_StatSeq_POT=&pOt_wobj;
  1766.   pOt_wobj=pOt_NIL;
  1767.   pOt_xtyp_=pOt_xtyp_StatSeq_POT;
  1768.   pOt_xtyp_StatSeq_POT=&pOt_xtyp;
  1769.   pOt_xtyp=pOt_NIL;
  1770.   pOt_x_=pOt_x_StatSeq_POT;
  1771.   pOt_x_StatSeq_POT=&pOt_x;
  1772.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  1773.   pOt_y_=pOt_y_StatSeq_POT;
  1774.   pOt_y_StatSeq_POT=&pOt_y;
  1775.   pOt__init_var((pOt__TypDsc**)&pOt_y,(pOt__TypDsc*)&pOt__td_3_COCT);
  1776.   pOt_nextloop_=pOt_nextloop_StatSeq_POT;
  1777.   pOt_nextloop_StatSeq_POT=&pOt_nextloop;
  1778.   pOt_qoffs_=pOt_qoffs_StatSeq_POT;
  1779.   pOt_qoffs_StatSeq_POT=&pOt_qoffs;
  1780.  
  1781.   for(;;) {
  1782.     if(( pOt_sym_POT<((pOt_INTEGER)(37)))) {
  1783.       pOt_Mark_COCS((pOt_INTEGER)(14));
  1784.       for(;;) {
  1785.         pOt_Get_COCS(&pOt_sym_POT);
  1786.         if(( pOt_sym_POT>=((pOt_INTEGER)(37)))) break;
  1787.       }
  1788.     }
  1789.     if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1790.       pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1791.       if(( pOt_x.pOt_mode==16)) {
  1792.         pOt_StandProcCall_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1793.         if(( pOt_x.pOt_typ!=pOt_notyp_COCT)) {
  1794.           pOt_Mark_COCS((pOt_INTEGER)(55));
  1795.         }
  1796.       } else {
  1797.         pOt_qoffs=(pOt_INTEGER)(pOt_StartLinStmt_COCH((struct pOt__tag_3_COCT*)&pOt_x));
  1798.         pOt_selector_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1799.         if(( pOt_sym_POT==((pOt_INTEGER)(9)))) {
  1800.           pOt_Mark_COCS((pOt_INTEGER)(33));
  1801.           pOt_sym_POT=(pOt_INTEGER)(33);
  1802.         }
  1803.         if(( pOt_sym_POT==((pOt_INTEGER)(33)))) {
  1804.           pOt_Get_COCS(&pOt_sym_POT);
  1805.           pOt_AssignPrefix_COCH((struct pOt__tag_3_COCT*)&pOt_x);
  1806.           if(((((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_form==15))||(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_form==16))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_BaseTyp))).pOt_form==3)))) {
  1807.             pOt_StringExpression_POT((struct pOt__tag_3_COCT*)&pOt_y,(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ));
  1808.           } else {
  1809.             pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1810.           }
  1811.           pOt_Assign_COCH((struct pOt__tag_3_COCT*)&pOt_x,(struct pOt__tag_3_COCT*)&pOt_y);
  1812.           pOt_StopLinStmt_COCH((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_qoffs));
  1813.         } else {
  1814.           pOt_StopLinStmt_COCH((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_qoffs));
  1815.           pOt_qoffs=(pOt_INTEGER)(pOt_PrepCall_COCH((struct pOt__tag_3_COCT*)&pOt_x,&pOt_fpar));
  1816.           if(( pOt_sym_POT==((pOt_INTEGER)(29)))) {
  1817.             pOt_Get_COCS(&pOt_sym_POT);
  1818.             pOt_ActualParameters_POT((struct pOt__tag_1_COCT*)(pOt_fpar));
  1819.             pOt_CheckSym_POT((pOt_INTEGER)(22));
  1820.           } else if(pOt_IsParam_COCT((struct pOt__tag_1_COCT*)(pOt_fpar))) {
  1821.             pOt_Mark_COCS((pOt_INTEGER)(65));
  1822.           }
  1823.           pOt_Call_COCH((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_qoffs));
  1824.           if(( pOt_x.pOt_typ!=pOt_notyp_COCT)) {
  1825.             pOt_Mark_COCS((pOt_INTEGER)(55));
  1826.           }
  1827.         }
  1828.       }
  1829.       pOt_TermStmt_COCC();
  1830.     } else if(( pOt_sym_POT==((pOt_INTEGER)(44)))) {
  1831.       pOt_Get_COCS(&pOt_sym_POT);
  1832.       pOt_IfPfx_COCC();
  1833.       pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1834.       if(( pOt_x.pOt_typ!=pOt_booltyp_COCT)) {
  1835.         pOt_Mark_COCS((pOt_INTEGER)(120));
  1836.       }
  1837.       pOt_IfSfx_COCC();
  1838.       pOt_CheckSym_POT((pOt_INTEGER)(26));
  1839.       pOt_OpenScope_COCC();
  1840.       pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1841.       for(;;) {
  1842.         if(( pOt_sym_POT==((pOt_INTEGER)(42)))); else break;
  1843.         pOt_Get_COCS(&pOt_sym_POT);
  1844.         pOt_Else_COCC();
  1845.         pOt_IfPfx_COCC();
  1846.         pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1847.         if(( pOt_x.pOt_typ!=pOt_booltyp_COCT)) {
  1848.           pOt_Mark_COCS((pOt_INTEGER)(120));
  1849.         }
  1850.         pOt_IfSfx_COCC();
  1851.         pOt_CheckSym_POT((pOt_INTEGER)(26));
  1852.         pOt_OpenScope_COCC();
  1853.         pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1854.       }
  1855.       if(( pOt_sym_POT==((pOt_INTEGER)(41)))) {
  1856.         pOt_Get_COCS(&pOt_sym_POT);
  1857.         pOt_Else_COCC();
  1858.         pOt_OpenScope_COCC();
  1859.         pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1860.       }
  1861.       pOt_CloseScope_COCC();
  1862.       pOt_CheckSym_POT((pOt_INTEGER)(40));
  1863.     } else if(( pOt_sym_POT==((pOt_INTEGER)(45)))) {
  1864.       pOt_Get_COCS(&pOt_sym_POT);
  1865.       pOt_CasePart_StatSeq_POT();
  1866.       pOt_CheckSym_POT((pOt_INTEGER)(40));
  1867.     } else if(( pOt_sym_POT==((pOt_INTEGER)(46)))) {
  1868.       pOt_Get_COCS(&pOt_sym_POT);
  1869.       pOt_Loop_COCC();
  1870.       pOt_OpenScope_COCC();
  1871.       pOt_LoopCondPfx_COCC();
  1872.       pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1873.       if(( pOt_x.pOt_typ!=pOt_booltyp_COCT)) {
  1874.         pOt_Mark_COCS((pOt_INTEGER)(120));
  1875.       }
  1876.       pOt_LoopCondSfx_COCC((pOt_BOOLEAN)1);
  1877.       pOt_CheckSym_POT((pOt_INTEGER)(27));
  1878.       pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1879.       pOt_CloseScope_COCC();
  1880.       pOt_CheckSym_POT((pOt_INTEGER)(40));
  1881.     } else if(( pOt_sym_POT==((pOt_INTEGER)(47)))) {
  1882.       pOt_Get_COCS(&pOt_sym_POT);
  1883.       pOt_Loop_COCC();
  1884.       pOt_OpenScope_COCC();
  1885.       pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1886.       if(( pOt_sym_POT==((pOt_INTEGER)(43)))) {
  1887.         pOt_Get_COCS(&pOt_sym_POT);
  1888.         pOt_LoopCondPfx_COCC();
  1889.         pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1890.         if(( pOt_x.pOt_typ!=pOt_booltyp_COCT)) {
  1891.           pOt_Mark_COCS((pOt_INTEGER)(120));
  1892.         }
  1893.         pOt_LoopCondSfx_COCC((pOt_BOOLEAN)0);
  1894.       } else {
  1895.         pOt_Mark_COCS((pOt_INTEGER)(43));
  1896.       }
  1897.       pOt_CloseScope_COCC();
  1898.     } else if(( pOt_sym_POT==((pOt_INTEGER)(48)))) {
  1899.       pOt_Get_COCS(&pOt_sym_POT);
  1900.       pOt_LoopNo_POT+=(1);
  1901.       pOt_nextloop=(pOt_INTEGER)(pOt_LoopNo_POT);
  1902.       pOt_LoopLevel_POT+=(1);
  1903.       pOt_Loop_COCC();
  1904.       pOt_OpenScope_COCC();
  1905.       pOt_StatSeq_POT((pOt_INTEGER)(pOt_nextloop));
  1906.       pOt_CloseScope_COCC();
  1907.       pOt_LoopLabel_COCC((pOt_INTEGER)(pOt_nextloop));
  1908.       pOt_LoopLevel_POT-=(1);
  1909.       pOt_CheckSym_POT((pOt_INTEGER)(40));
  1910.     } else if(( pOt_sym_POT==((pOt_INTEGER)(49)))) {
  1911.       pOt_Get_COCS(&pOt_sym_POT);
  1912.       pOt_x.pOt_obj=(struct pOt__tag_1_COCT*)(pOt_NIL);
  1913.       pOt_xtyp=(struct pOt__tag_2_COCT*)(pOt_NIL);
  1914.       if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1915.         pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1916.         pOt_CheckSym_POT((pOt_INTEGER)(20));
  1917.         pOt_qoffs=(pOt_INTEGER)(pOt_StartObj_COCE((struct pOt__tag_3_COCT*)&pOt_x));
  1918.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  1919.           pOt_qualident_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1920.           if(( pOt_y.pOt_mode==13)) {
  1921.             if(( pOt_x.pOt_obj!=pOt_NIL)) {
  1922.               if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_typ))).pOt_form==13)) {
  1923.                 pOt_Mark_COCS((pOt_INTEGER)(-2));
  1924.               }
  1925.               pOt_xtyp=(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ);
  1926.               pOt_TypGuard_COCE((struct pOt__tag_3_COCT*)&pOt_x,(struct pOt__tag_3_COCT*)&pOt_y);
  1927.               (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ);
  1928.             } else {
  1929.               pOt_Mark_COCS((pOt_INTEGER)(130));
  1930.             }
  1931.           } else {
  1932.             pOt_Mark_COCS((pOt_INTEGER)(52));
  1933.           }
  1934.         } else {
  1935.           pOt_Mark_COCS((pOt_INTEGER)(10));
  1936.         }
  1937.         pOt_StopObj_COCE((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_qoffs));
  1938.         pOt_TermStmt_COCC();
  1939.       } else {
  1940.         pOt_Mark_COCS((pOt_INTEGER)(10));
  1941.       }
  1942.       pOt_CheckSym_POT((pOt_INTEGER)(27));
  1943.       if(( pOt_x.pOt_obj!=pOt_NIL)) {
  1944.         pOt_OpenScope_COCT((pOt_INTEGER)(pOt_level_COCT),(pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_name);
  1945.         pOt_Insert_COCT((pOt__ArrTypDsc**)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_obj))).pOt_name,&pOt_wobj);
  1946.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_wobj))).pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_obj))).pOt_typ);
  1947.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_wobj))).pOt_mode=3;
  1948.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_wobj))).pOt_intval=(pOt_LONGINT)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_obj))).pOt_intval);
  1949.         pOt_OpenScope_COCC();
  1950.         pOt_With_COCC((struct pOt__tag_3_COCT*)pOt__dup_rec(__FILE__,__LINE__,(pOt__RecTypDsc**)&pOt_x,(pOt__RecTypDsc*)&pOt__td_3_COCT),(struct pOt__tag_1_COCT*)(pOt_wobj));
  1951.         pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1952.         pOt_CloseScope_COCC();
  1953.         pOt_CloseScope_COCT();
  1954.       } else {
  1955.         pOt_StatSeq_POT((pOt_INTEGER)(pOt_thisloop));
  1956.       }
  1957.       pOt_CheckSym_POT((pOt_INTEGER)(40));
  1958.       if(( pOt_xtyp!=pOt_NIL)) {
  1959.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_x.pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_xtyp);
  1960.       }
  1961.     } else if(( pOt_sym_POT==((pOt_INTEGER)(50)))) {
  1962.       pOt_Get_COCS(&pOt_sym_POT);
  1963.       if(( pOt_LoopLevel_POT==((pOt_INTEGER)(0)))) {
  1964.         pOt_Mark_COCS((pOt_INTEGER)(45));
  1965.       } else {
  1966.         pOt_Exit_COCC((pOt_INTEGER)(pOt_thisloop));
  1967.       }
  1968.     } else if(( pOt_sym_POT==((pOt_INTEGER)(51)))) {
  1969.       pOt_Get_COCS(&pOt_sym_POT);
  1970.       if(( pOt_level_COCT>((pOt_INTEGER)(0)))) {
  1971.         if(( pOt_sym_POT<((pOt_INTEGER)(38)))) {
  1972.           pOt_x.pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_typ);
  1973.           pOt_x.pOt_mode=1;
  1974.           pOt_x.pOt_mnolev=(pOt_INTEGER)(pOt_level_COCT);
  1975.           pOt_qoffs=(pOt_INTEGER)(pOt_StartLinStmt_COCH((struct pOt__tag_3_COCT*)&pOt_x));
  1976.           pOt_Result_COCC((struct pOt__tag_3_COCT*)&pOt_x);
  1977.           pOt_AssignPrefix_COCH((struct pOt__tag_3_COCT*)&pOt_x);
  1978.           pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_y);
  1979.           pOt_Assign_COCH((struct pOt__tag_3_COCT*)&pOt_x,(struct pOt__tag_3_COCT*)&pOt_y);
  1980.           pOt_StopLinStmt_COCH((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_qoffs));
  1981.           pOt_TermStmt_COCC();
  1982.         } else if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_topScope_COCT))).pOt_typ!=pOt_notyp_COCT)) {
  1983.           pOt_Mark_COCS((pOt_INTEGER)(124));
  1984.         }
  1985.         pOt_Return_COCC();
  1986.       } else {
  1987.         if(( pOt_sym_POT<((pOt_INTEGER)(38)))) {
  1988.           pOt_Expression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  1989.           pOt_Mark_COCS((pOt_INTEGER)(124));
  1990.         }
  1991.         pOt_Return_COCC();
  1992.       }
  1993.     }
  1994.     if(( pOt_sym_POT==((pOt_INTEGER)(38)))) {
  1995.       pOt_Get_COCS(&pOt_sym_POT);
  1996.     } else if((((pOt_sym_POT<=((pOt_INTEGER)(37))))||(((((pOt_INTEGER)(44))<=pOt_sym_POT))&&((pOt_sym_POT<=((pOt_INTEGER)(51))))))) {
  1997.       pOt_Mark_COCS((pOt_INTEGER)(38));
  1998.     } else {
  1999.       goto pOt__LoopLabel_1;
  2000.     }
  2001.   }
  2002. pOt__LoopLabel_1:;
  2003.  
  2004. pOt__Epilogue:;
  2005.   pOt_thisloop_StatSeq_POT=pOt_thisloop_;
  2006.   pOt_fpar_StatSeq_POT=pOt_fpar_;
  2007.   pOt_wobj_StatSeq_POT=pOt_wobj_;
  2008.   pOt_xtyp_StatSeq_POT=pOt_xtyp_;
  2009.   pOt_x_StatSeq_POT=pOt_x_;
  2010.   pOt_y_StatSeq_POT=pOt_y_;
  2011.   pOt_nextloop_StatSeq_POT=pOt_nextloop_;
  2012.   pOt_qoffs_StatSeq_POT=pOt_qoffs_;
  2013.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2014. }
  2015.  
  2016.  
  2017. struct pOt__tag_6_POT {
  2018.   pOt__ArrTypDsc *td;
  2019.   pOt_CHAR arr[0x20L];
  2020. } ;
  2021. static pOt__ArrTypDsc pOt__td_6_POT= {
  2022.   1,
  2023.   0x20L, sizeof(pOt_CHAR)
  2024. };
  2025.  
  2026.  
  2027. extern void pOt_Block_POT
  2028. #if pOt__ANSI_C
  2029.   (pOt_Object_COCT pOt_proc)
  2030. #else
  2031.   (pOt_proc)
  2032.   pOt_Object_COCT pOt_proc;
  2033.  
  2034. #endif
  2035. {
  2036.   pOt_Struct_COCT pOt_typ, pOt_forward;
  2037.   pOt_Object_COCT pOt_obj, pOt_first;
  2038.   struct pOt__tag_3_COCT pOt_x;
  2039.   pOt_INTEGER pOt_L0;
  2040.   pOt_BOOLEAN pOt_mk;
  2041.   struct pOt__tag_6_POT pOt_id0;
  2042.   pOt_BOOLEAN pOt_big;
  2043.   struct {void *next, *vars[0x6];} pOt__gc_ptrs;
  2044.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  2045.   pOt__gc_ptrs.next = pOt__gc_root;
  2046.   pOt__gc_strs.next = &pOt__gc_ptrs;
  2047.   pOt__gc_ptrs.vars[0x5]=pOt_NIL;
  2048.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  2049.   pOt__gc_ptrs.vars[0x4]=&pOt_proc;
  2050.   pOt__gc_ptrs.vars[0x3]=&pOt_typ;
  2051.   pOt__gc_ptrs.vars[0x2]=&pOt_forward;
  2052.   pOt__gc_ptrs.vars[0x1]=&pOt_obj;
  2053.   pOt__gc_ptrs.vars[0x0]=&pOt_first;
  2054.   pOt__gc_strs.vars[0x0]=&pOt_x;
  2055.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  2056.   pOt_typ=pOt_NIL;
  2057.   pOt_forward=pOt_NIL;
  2058.   pOt_obj=pOt_NIL;
  2059.   pOt_first=pOt_NIL;
  2060.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  2061.   pOt__init_var((pOt__TypDsc**)&pOt_id0,(pOt__TypDsc*)&pOt__td_6_POT);
  2062.  
  2063.   pOt_obj=(struct pOt__tag_1_COCT*)(pOt_topScope_COCT);
  2064.   for(;;) {
  2065.     if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next!=pOt_NIL)); else break;
  2066.     pOt_obj=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_next);
  2067.   }
  2068.   for(;;) {
  2069.     if(( pOt_sym_POT==((pOt_INTEGER)(56)))) {
  2070.       pOt_Get_COCS(&pOt_sym_POT);
  2071.       for(;;) {
  2072.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))); else break;
  2073.         pOt__copychk(__FILE__,__LINE__,(pOt_CHAR*)&pOt_name_COCS,(pOt_CHAR*)&pOt_id0);
  2074.         pOt_CheckMark_POT(&pOt_mk);
  2075.         if(( pOt_sym_POT==((pOt_INTEGER)(9)))) {
  2076.           pOt_Get_COCS(&pOt_sym_POT);
  2077.           pOt_ConstExpression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  2078.         } else if(( pOt_sym_POT==((pOt_INTEGER)(33)))) {
  2079.           pOt_Mark_COCS((pOt_INTEGER)(9));
  2080.           pOt_Get_COCS(&pOt_sym_POT);
  2081.           pOt_ConstExpression_POT((struct pOt__tag_3_COCT*)&pOt_x);
  2082.         } else {
  2083.           pOt_Mark_COCS((pOt_INTEGER)(9));
  2084.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode=8;
  2085.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_inttyp_COCT);
  2086.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_intval=(pOt_LONGINT)(0);
  2087.         }
  2088.         pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_id0,&pOt_obj);
  2089.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode=pOt_x.pOt_mode;
  2090.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_x.pOt_typ);
  2091.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_intval=(pOt_LONGINT)(pOt_x.pOt_intval);
  2092.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_fltval=(pOt_LONGREAL)(pOt_x.pOt_fltval);
  2093.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked=pOt_mk;
  2094.         pOt_CheckSym_POT((pOt_INTEGER)(38));
  2095.       }
  2096.     }
  2097.     if(( pOt_sym_POT==((pOt_INTEGER)(57)))) {
  2098.       pOt_Get_COCS(&pOt_sym_POT);
  2099.       for(;;) {
  2100.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))); else break;
  2101.         pOt_typ=(struct pOt__tag_2_COCT*)(pOt_undftyp_COCT);
  2102.         pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_obj);
  2103.         pOt_forward=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ);
  2104.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode=13;
  2105.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_notyp_COCT);
  2106.         pOt_CheckMark_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked);
  2107.         if(( pOt_sym_POT==((pOt_INTEGER)(9)))) {
  2108.           pOt_Get_COCS(&pOt_sym_POT);
  2109.           pOt_Type_POT(&pOt_typ);
  2110.         } else if((((pOt_sym_POT==((pOt_INTEGER)(33))))||((pOt_sym_POT==((pOt_INTEGER)(20)))))) {
  2111.           pOt_Mark_COCS((pOt_INTEGER)(9));
  2112.           pOt_Get_COCS(&pOt_sym_POT);
  2113.           pOt_Type_POT(&pOt_typ);
  2114.         } else {
  2115.           pOt_Mark_COCS((pOt_INTEGER)(9));
  2116.         }
  2117.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_typ);
  2118.         if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_strobj==pOt_NIL)) {
  2119.           (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_strobj=(struct pOt__tag_1_COCT*)(pOt_obj);
  2120.         }
  2121.         if(( pOt_forward!=pOt_NIL)) {
  2122.           pOt_SetPtrBase_POT((struct pOt__tag_2_COCT*)(pOt_forward),(struct pOt__tag_2_COCT*)(pOt_typ));
  2123.         }
  2124.         pOt_CheckSym_POT((pOt_INTEGER)(38));
  2125.       }
  2126.     }
  2127.     if(( pOt_sym_POT==((pOt_INTEGER)(58)))) {
  2128.       pOt_Get_COCS(&pOt_sym_POT);
  2129.       for(;;) {
  2130.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))); else break;
  2131.         pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_obj);
  2132.         pOt_first=(struct pOt__tag_1_COCT*)(pOt_obj);
  2133.         pOt_CheckMark_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked);
  2134.         (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode=1;
  2135.         for(;;) {
  2136.           if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  2137.             pOt_Get_COCS(&pOt_sym_POT);
  2138.           } else if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2139.             pOt_Mark_COCS((pOt_INTEGER)(19));
  2140.           } else {
  2141.             goto pOt__LoopLabel_2;
  2142.           }
  2143.           if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2144.             pOt_Insert_COCT((pOt__ArrTypDsc**)&pOt_name_COCS,&pOt_obj);
  2145.             pOt_CheckMark_POT(&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_marked);
  2146.             (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_obj))).pOt_mode=1;
  2147.           } else {
  2148.             pOt_Mark_COCS((pOt_INTEGER)(10));
  2149.           }
  2150.         }
  2151.       pOt__LoopLabel_2:;
  2152.         pOt_CheckSym_POT((pOt_INTEGER)(20));
  2153.         pOt_Type_POT(&pOt_typ);
  2154.         for(;;) {
  2155.           if(( pOt_first!=pOt_NIL)); else break;
  2156.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_first))).pOt_typ=(struct pOt__tag_2_COCT*)(pOt_typ);
  2157.           (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_first))).pOt_intval=(pOt_LONGINT)(0);
  2158.           pOt_first=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_first))).pOt_next);
  2159.         }
  2160.         pOt_CheckSym_POT((pOt_INTEGER)(38));
  2161.       }
  2162.     }
  2163.     if((((pOt_sym_POT<((pOt_INTEGER)(56))))||((pOt_sym_POT>((pOt_INTEGER)(58)))))) {
  2164.       goto pOt__LoopLabel_1;
  2165.     }
  2166.   }
  2167. pOt__LoopLabel_1:;
  2168.   pOt_CheckUndefPointerTypes_POT();
  2169.   if(( pOt_level_COCT==((pOt_INTEGER)(0)))) {
  2170.     pOt_ModulePrologue_COCC();
  2171.   } else {
  2172.     pOt_big=(pOt_sym_POT==((pOt_INTEGER)(59)));
  2173.     pOt_OuterPrologue_COCC((struct pOt__tag_1_COCT*)(pOt_proc),pOt_big);
  2174.   }
  2175.   for(;;) {
  2176.     if(( pOt_sym_POT==((pOt_INTEGER)(59)))); else break;
  2177.     pOt_Get_COCS(&pOt_sym_POT);
  2178.     pOt_ProcedureDeclaration_POT();
  2179.     pOt_CheckSym_POT((pOt_INTEGER)(38));
  2180.   }
  2181.   if(( pOt_level_COCT==((pOt_INTEGER)(0)))) {
  2182.     pOt_BodyPrologue_COCC();
  2183.   } else {
  2184.     pOt_InnerPrologue_COCC((struct pOt__tag_1_COCT*)(pOt_proc),pOt_big);
  2185.   }
  2186.   if(( pOt_sym_POT==((pOt_INTEGER)(55)))) {
  2187.     pOt_Get_COCS(&pOt_sym_POT);
  2188.     pOt_LoopLevel_POT=(pOt_INTEGER)(0);
  2189.     pOt_LoopNo_POT=(pOt_INTEGER)(0);
  2190.     pOt_BofCTab_POT=(pOt_INTEGER)(0);
  2191.     pOt_StatSeq_POT((pOt_INTEGER)(0));
  2192.   }
  2193.   pOt_CheckSym_POT((pOt_INTEGER)(40));
  2194.   if(( pOt_level_COCT==((pOt_INTEGER)(0)))) {
  2195.     pOt_BodyEpilogue_COCC();
  2196.   } else {
  2197.     pOt_Epilogue_COCC((struct pOt__tag_1_COCT*)(pOt_proc),pOt_big);
  2198.   }
  2199.  
  2200. pOt__Epilogue:;
  2201.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2202. }
  2203.  
  2204.  
  2205. struct pOt__tag_7_POT {
  2206.   pOt__ArrTypDsc *td;
  2207.   pOt_CHAR arr[0x20L];
  2208. } ;
  2209. static pOt__ArrTypDsc pOt__td_7_POT= {
  2210.   1,
  2211.   0x20L, sizeof(pOt_CHAR)
  2212. };
  2213. struct pOt__tag_8_POT {
  2214.   pOt__ArrTypDsc *td;
  2215.   pOt_CHAR arr[0x20L];
  2216. } ;
  2217. static pOt__ArrTypDsc pOt__td_8_POT= {
  2218.   1,
  2219.   0x20L, sizeof(pOt_CHAR)
  2220. };
  2221.  
  2222. static pOt__DynArr *pOt_SrcName_CompilationUnit_POT;
  2223. static pOt_INTEGER (*pOt_L0_CompilationUnit_POT);
  2224. static pOt_CHAR (*pOt_ch_CompilationUnit_POT);
  2225. static pOt_LONGINT (*pOt_time_CompilationUnit_POT), (*pOt_date_CompilationUnit_POT), (*pOt_key_CompilationUnit_POT), (*pOt_tm_CompilationUnit_POT);
  2226. static struct pOt__tag_7_POT (*pOt_modid_CompilationUnit_POT), (*pOt_impid_CompilationUnit_POT);
  2227. static pOt_BOOLEAN (*pOt_linenum_CompilationUnit_POT);
  2228. static pOt_INTEGER (*pOt_res_CompilationUnit_POT);
  2229. static struct pOt__tag_8_POT (*pOt_basename_CompilationUnit_POT);
  2230. static pOt_File_Files (*pOt_trysymfile_CompilationUnit_POT);
  2231.  
  2232. static void pOt_CompilationUnit_POT pOt__ARGS((pOt__DynArr *));
  2233.  
  2234.  
  2235.  
  2236.  
  2237. static void pOt_MakeFileName_CompilationUnit_POT
  2238. #if pOt__ANSI_C
  2239.   (pOt__DynArr *pOt_path, pOt__DynArr *pOt_name, pOt__DynArr *pOt_FName, pOt__DynArr *pOt_ext)
  2240. #else
  2241.   (pOt_path, pOt_name, pOt_FName, pOt_ext)
  2242.   pOt__DynArr *pOt_path;
  2243.   pOt__DynArr *pOt_name, *pOt_FName;
  2244.   pOt__DynArr *pOt_ext;
  2245.  
  2246. #endif
  2247. {
  2248.   pOt_INTEGER pOt_i, pOt_j;
  2249.   pOt_CHAR pOt_ch;
  2250.   struct {void*next;} pOt__gc_ptrs;
  2251.   pOt__gc_ptrs.next = pOt__gc_root;
  2252.  
  2253.   pOt_i=(pOt_INTEGER)(0);
  2254.   pOt_j=(pOt_INTEGER)(0);
  2255.   for(;;) {
  2256.     pOt_ch=(*((pOt_CHAR*)(((char *)pOt_path+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_path))->nofel,pOt_j)))));
  2257.     if(((unsigned char) pOt_ch==(unsigned char)'\0')) {
  2258.       goto pOt__LoopLabel_1;
  2259.     }
  2260.     (*((pOt_CHAR*)(((char *)pOt_FName+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_FName))->nofel,pOt_i)))))=pOt_ch;
  2261.     if(( pOt_i!=255)) {
  2262.       pOt_i+=(1);
  2263.     }
  2264.     pOt_j+=(1);
  2265.   }
  2266. pOt__LoopLabel_1:;
  2267.   pOt_j=(pOt_INTEGER)(0);
  2268.   for(;;) {
  2269.     pOt_ch=(*((pOt_CHAR*)(((char *)pOt_ext+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_ext))->nofel,pOt_j)))));
  2270.     if(((unsigned char) pOt_ch==(unsigned char)'\0')) {
  2271.       goto pOt__LoopLabel_2;
  2272.     }
  2273.     (*((pOt_CHAR*)(((char *)pOt_FName+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_FName))->nofel,pOt_i)))))=pOt_ch;
  2274.     if(( pOt_i!=255)) {
  2275.       pOt_i+=(1);
  2276.     }
  2277.     pOt_j+=(1);
  2278.   }
  2279. pOt__LoopLabel_2:;
  2280.   pOt_j=(pOt_INTEGER)(0);
  2281.   for(;;) {
  2282.     pOt_ch=(*((pOt_CHAR*)(((char *)pOt_name+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_name))->nofel,pOt_j)))));
  2283.     (*((pOt_CHAR*)(((char *)pOt_FName+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_FName))->nofel,pOt_i)))))=pOt_ch;
  2284.     if(( pOt_i!=255)) {
  2285.       pOt_i+=(1);
  2286.     }
  2287.     pOt_j+=(1);
  2288.     if(((unsigned char) pOt_ch==(unsigned char)'\0')) break;
  2289.   }
  2290.  
  2291. pOt__Epilogue:;
  2292.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2293.   pOt__rm_par((pOt__TypDsc**)pOt_path);
  2294.   pOt__rm_par((pOt__TypDsc**)pOt_ext);
  2295. }
  2296.  
  2297. static void pOt_CompilationUnit_POT
  2298. #if pOt__ANSI_C
  2299.   (pOt__DynArr *pOt_SrcName)
  2300. #else
  2301.   (pOt_SrcName)
  2302.   pOt__DynArr *pOt_SrcName;
  2303.  
  2304. #endif
  2305. {
  2306.   pOt__DynArr *pOt_SrcName_;
  2307.   pOt_INTEGER pOt_L0, (*pOt_L0_);
  2308.   pOt_CHAR pOt_ch, (*pOt_ch_);
  2309.   pOt_LONGINT pOt_time, (*pOt_time_), pOt_date, (*pOt_date_), pOt_key, (*pOt_key_), pOt_tm, (*pOt_tm_);
  2310.   struct pOt__tag_7_POT pOt_modid, (*pOt_modid_), pOt_impid, (*pOt_impid_);
  2311.   pOt_BOOLEAN pOt_linenum, (*pOt_linenum_);
  2312.   pOt_INTEGER pOt_res, (*pOt_res_);
  2313.   struct pOt__tag_8_POT pOt_basename, (*pOt_basename_);
  2314.   pOt_File_Files pOt_trysymfile, (*pOt_trysymfile_);
  2315.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  2316.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  2317.   pOt__gc_ptrs.next = pOt__gc_root;
  2318.   pOt__gc_strs.next = &pOt__gc_ptrs;
  2319.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  2320.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  2321.   pOt__gc_ptrs.vars[0x0]=&pOt_trysymfile;
  2322.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  2323.   pOt_SrcName_=pOt_SrcName_CompilationUnit_POT;
  2324.   pOt_SrcName_CompilationUnit_POT=pOt_SrcName;
  2325.   pOt_L0_=pOt_L0_CompilationUnit_POT;
  2326.   pOt_L0_CompilationUnit_POT=&pOt_L0;
  2327.   pOt_ch_=pOt_ch_CompilationUnit_POT;
  2328.   pOt_ch_CompilationUnit_POT=&pOt_ch;
  2329.   pOt_time_=pOt_time_CompilationUnit_POT;
  2330.   pOt_time_CompilationUnit_POT=&pOt_time;
  2331.   pOt_date_=pOt_date_CompilationUnit_POT;
  2332.   pOt_date_CompilationUnit_POT=&pOt_date;
  2333.   pOt_key_=pOt_key_CompilationUnit_POT;
  2334.   pOt_key_CompilationUnit_POT=&pOt_key;
  2335.   pOt_tm_=pOt_tm_CompilationUnit_POT;
  2336.   pOt_tm_CompilationUnit_POT=&pOt_tm;
  2337.   pOt_modid_=pOt_modid_CompilationUnit_POT;
  2338.   pOt_modid_CompilationUnit_POT=&pOt_modid;
  2339.   pOt__init_var((pOt__TypDsc**)&pOt_modid,(pOt__TypDsc*)&pOt__td_7_POT);
  2340.   pOt_impid_=pOt_impid_CompilationUnit_POT;
  2341.   pOt_impid_CompilationUnit_POT=&pOt_impid;
  2342.   pOt__init_var((pOt__TypDsc**)&pOt_impid,(pOt__TypDsc*)&pOt__td_7_POT);
  2343.   pOt_linenum_=pOt_linenum_CompilationUnit_POT;
  2344.   pOt_linenum_CompilationUnit_POT=&pOt_linenum;
  2345.   pOt_res_=pOt_res_CompilationUnit_POT;
  2346.   pOt_res_CompilationUnit_POT=&pOt_res;
  2347.   pOt_basename_=pOt_basename_CompilationUnit_POT;
  2348.   pOt_basename_CompilationUnit_POT=&pOt_basename;
  2349.   pOt__init_var((pOt__TypDsc**)&pOt_basename,(pOt__TypDsc*)&pOt__td_8_POT);
  2350.   pOt_trysymfile_=pOt_trysymfile_CompilationUnit_POT;
  2351.   pOt_trysymfile_CompilationUnit_POT=&pOt_trysymfile;
  2352.   pOt_trysymfile=pOt_NIL;
  2353.  
  2354.   pOt_tm=(pOt_LONGINT)(pOt_Time_OS());
  2355.   pOt_Init_COCD();
  2356.   pOt_Init_COCT();
  2357.   pOt_GC_OS();
  2358.   pOt_Open_COCS(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_SrcName)));
  2359.   pOt_Get_COCS(&pOt_sym_POT);
  2360.   pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0xC]))));
  2361.   if(( pOt_sym_POT==((pOt_INTEGER)(61)))) {
  2362.     pOt_Get_COCS(&pOt_sym_POT);
  2363.   } else {
  2364.     pOt_Mark_COCS((pOt_INTEGER)(16));
  2365.   }
  2366.   if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2367.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_name_COCS));
  2368.     pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2369.     pOt_L0=(pOt_INTEGER)(0);
  2370.     pOt_ch=pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, 0)];
  2371.     for(;;) {
  2372.       if(((((unsigned char)pOt_ch!=(unsigned char)'\0'))&&((pOt_L0!=((pOt_INTEGER)(31)))))); else break;
  2373.       pOt_modid.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_L0)]=pOt_ch;
  2374.       pOt_L0+=(1);
  2375.       pOt_ch=pOt_name_COCS.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_L0)];
  2376.     }
  2377.     pOt_modid.arr[pOt__inxchk(__FILE__,__LINE__,0x20, pOt_L0)]='\0';
  2378.     if(((unsigned char) pOt_ch!=(unsigned char)'\0')) {
  2379.       pOt_Mark_COCS((pOt_INTEGER)(228));
  2380.     }
  2381.     pOt_OpenScope_COCT((pOt_INTEGER)(0),(pOt__ArrTypDsc**)&pOt_modid);
  2382.     pOt_Get_COCS(&pOt_sym_POT);
  2383.     pOt_CheckSym_POT((pOt_INTEGER)(38));
  2384.     if(( pOt_sym_POT==((pOt_INTEGER)(60)))) {
  2385.       pOt_Get_COCS(&pOt_sym_POT);
  2386.       for(;;) {
  2387.         if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2388.           pOt__copychk(__FILE__,__LINE__,(pOt_CHAR*)&pOt_name_COCS,(pOt_CHAR*)&pOt_impid);
  2389.           pOt_Get_COCS(&pOt_sym_POT);
  2390.           if(( pOt_sym_POT==((pOt_INTEGER)(33)))) {
  2391.             pOt_Get_COCS(&pOt_sym_POT);
  2392.             if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2393.               pOt__copychk(__FILE__,__LINE__,(pOt_CHAR*)&pOt_name_COCS,(pOt_CHAR*)&pOt_basename);
  2394.               pOt_Get_COCS(&pOt_sym_POT);
  2395.             } else {
  2396.               pOt_Mark_COCS((pOt_INTEGER)(10));
  2397.             }
  2398.           } else {
  2399.             pOt__copychk(__FILE__,__LINE__,(pOt_CHAR*)&pOt_impid,(pOt_CHAR*)&pOt_basename);
  2400.           }
  2401.           pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_basename,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1CL],&pOt__str_td[0x4]))));
  2402.           if(pOt__cmpss((pOt_CHAR*)& pOt_basename,&pOt__strcon_buf[0x28L],0xA)) {
  2403.             pOt_trysymfile=(struct pOt__tag_1_Files*)(pOt_Old_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT)));
  2404.             if(( pOt_trysymfile==pOt_NIL)) {
  2405.               pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x8]))),(pOt__ArrTypDsc**)&pOt_basename,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1CL],&pOt__str_td[0x4]))));
  2406.             } else {
  2407.               pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_trysymfile));
  2408.             }
  2409.           }
  2410.           pOt_Import_COCT((pOt__ArrTypDsc**)&pOt_impid,(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT);
  2411.         } else {
  2412.           pOt_Mark_COCS((pOt_INTEGER)(10));
  2413.         }
  2414.         if(( pOt_sym_POT==((pOt_INTEGER)(19)))) {
  2415.           pOt_Get_COCS(&pOt_sym_POT);
  2416.         } else if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2417.           pOt_Mark_COCS((pOt_INTEGER)(19));
  2418.         } else {
  2419.           goto pOt__LoopLabel_1;
  2420.         }
  2421.       }
  2422.     pOt__LoopLabel_1:;
  2423.       pOt_CheckSym_POT((pOt_INTEGER)(38));
  2424.     }
  2425.     if(!pOt_scanerr_COCS) {
  2426.       pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x44L],&pOt__str_td[0x2]))));
  2427.       pOt_Open_COCO((pOt__ArrTypDsc**)&pOt_FName_POT);
  2428.       pOt_Block_POT((struct pOt__tag_1_COCT*)(pOt_NIL));
  2429.       if(( pOt_sym_POT==((pOt_INTEGER)(37)))) {
  2430.         if(pOt__cmpss((pOt_CHAR*)& pOt_name_COCS,(pOt_CHAR*)&pOt_modid,0xA)) {
  2431.           pOt_Mark_COCS((pOt_INTEGER)(4));
  2432.         }
  2433.         pOt_Get_COCS(&pOt_sym_POT);
  2434.       } else {
  2435.         pOt_Mark_COCS((pOt_INTEGER)(10));
  2436.       }
  2437.       if(( pOt_sym_POT!=((pOt_INTEGER)(18)))) {
  2438.         pOt_Mark_COCS((pOt_INTEGER)(18));
  2439.       }
  2440.       if(!pOt_scanerr_COCS) {
  2441.         pOt_Write_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,' ');
  2442.         pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,(pOt_LONGINT)(pOt_Size_COCO()),(pOt_LONGINT)(6));
  2443.         pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2444.         pOt_Close_COCO();
  2445.         pOt_linenum=pOt_linenum_COCO;
  2446.         pOt_linenum_COCO=(pOt_BOOLEAN)0;
  2447.         pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4CL],&pOt__str_td[0x3]))));
  2448.         pOt_Open_COCO((pOt__ArrTypDsc**)&pOt_FName_POT);
  2449.         pOt_InitData_COCC();
  2450.         pOt_Write_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,' ');
  2451.         pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,(pOt_LONGINT)(pOt_Size_COCO()),(pOt_LONGINT)(6));
  2452.         pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2453.         pOt_Close_COCO();
  2454.         pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_TmpFName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x54L],&pOt__str_td[0x4]))));
  2455.         pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1CL],&pOt__str_td[0x4]))));
  2456.         pOt_newSF_POT=pOt_symchg_POT;
  2457.         pOt_GetClock_OS(&pOt_time,&pOt_date);
  2458.         pOt_key=(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_date),(pOt_LONGINT)(16384),6))),(pOt_LONGINT)(131072L),6)),(pOt_LONGINT)(pOt_time),6));
  2459.         pOt_Export_COCT((pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_TmpFName_POT,(pOt__ArrTypDsc**)&pOt_FName_POT,&pOt_newSF_POT,&pOt_key);
  2460.         if(!pOt_scanerr_COCS) {
  2461.           if(pOt_newSF_POT) {
  2462.             pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x60L],&pOt__str_td[0x10]))));
  2463.             pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2464.           }
  2465.           pOt_Open_COCO((pOt__ArrTypDsc**)&pOt_TmpFName_POT);
  2466.           pOt_CExport_COCC();
  2467.           pOt_Write_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,' ');
  2468.           pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,(pOt_LONGINT)(pOt_Size_COCO()),(pOt_LONGINT)(6));
  2469.           pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2470.           pOt_Close_COCO();
  2471.           pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x78L],&pOt__str_td[0x2]))));
  2472.           pOt_newHF_POT=pOt_hchg_POT;
  2473.           pOt_CommitCExport_COCC((pOt__ArrTypDsc**)&pOt_TmpFName_POT,(pOt__ArrTypDsc**)&pOt_FName_POT,&pOt_newHF_POT);
  2474.           if(!pOt_scanerr_COCS) {
  2475.             if(pOt_newHF_POT) {
  2476.               pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x80L],&pOt__str_td[0xB]))));
  2477.               pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2478.             }
  2479.             pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x90L],&pOt__str_td[0x1]))));
  2480.             pOt_WriteInt_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,(pOt_LONGINT)((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_Time_OS()),(pOt_LONGINT)(pOt_tm),6)),(pOt_LONGINT)(6));
  2481.             pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT);
  2482.             pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2483.           }
  2484.         }
  2485.         if(pOt_scanerr_COCS) {
  2486.           pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4CL],&pOt__str_td[0x3]))));
  2487.           pOt_Delete_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT),&pOt_res);
  2488.           pOt_MakeFileName_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x0]))),(pOt__ArrTypDsc**)&pOt_modid,(pOt__ArrTypDsc**)&pOt_FName_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x44L],&pOt__str_td[0x2]))));
  2489.           pOt_Delete_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT),&pOt_res);
  2490.         }
  2491.         pOt_linenum_COCO=pOt_linenum;
  2492.       } else {
  2493.         pOt_Purge_COCO();
  2494.       }
  2495.     }
  2496.     pOt_CloseScope_COCT();
  2497.   } else {
  2498.     pOt_Mark_COCS((pOt_INTEGER)(10));
  2499.   }
  2500.   pOt_Close_COCS();
  2501.   pOt_Close_COCT();
  2502.  
  2503. pOt__Epilogue:;
  2504.   pOt_SrcName_CompilationUnit_POT=pOt_SrcName_;
  2505.   pOt_L0_CompilationUnit_POT=pOt_L0_;
  2506.   pOt_ch_CompilationUnit_POT=pOt_ch_;
  2507.   pOt_time_CompilationUnit_POT=pOt_time_;
  2508.   pOt_date_CompilationUnit_POT=pOt_date_;
  2509.   pOt_key_CompilationUnit_POT=pOt_key_;
  2510.   pOt_tm_CompilationUnit_POT=pOt_tm_;
  2511.   pOt_modid_CompilationUnit_POT=pOt_modid_;
  2512.   pOt_impid_CompilationUnit_POT=pOt_impid_;
  2513.   pOt_linenum_CompilationUnit_POT=pOt_linenum_;
  2514.   pOt_res_CompilationUnit_POT=pOt_res_;
  2515.   pOt_basename_CompilationUnit_POT=pOt_basename_;
  2516.   pOt_trysymfile_CompilationUnit_POT=pOt_trysymfile_;
  2517.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2518.   pOt__rm_par((pOt__TypDsc**)pOt_SrcName);
  2519. }
  2520.  
  2521.  
  2522.  
  2523.  
  2524. extern void pOt_Compile_POT()
  2525. {
  2526.   pOt_File_Files pOt_parfile, pOt_srcfile;
  2527.   struct pOt__tag_2_Texts pOt_Par;
  2528.   pOt_INTEGER pOt_i;
  2529.   pOt_CHAR pOt_ch;
  2530.   struct {void *next, *vars[0x3];} pOt__gc_ptrs;
  2531.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  2532.   pOt__gc_ptrs.next = pOt__gc_root;
  2533.   pOt__gc_strs.next = &pOt__gc_ptrs;
  2534.   pOt__gc_ptrs.vars[0x2]=pOt_NIL;
  2535.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  2536.   pOt__gc_ptrs.vars[0x1]=&pOt_parfile;
  2537.   pOt__gc_ptrs.vars[0x0]=&pOt_srcfile;
  2538.   pOt__gc_strs.vars[0x0]=&pOt_Par;
  2539.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  2540.   pOt_parfile=pOt_NIL;
  2541.   pOt_srcfile=pOt_NIL;
  2542.   pOt__init_var((pOt__TypDsc**)&pOt_Par,(pOt__TypDsc*)&pOt__td_2_Texts);
  2543.  
  2544.   pOt_GetParFile_OS((pOt__ArrTypDsc**)&pOt_FName_POT);
  2545.   pOt_Open_Texts(&pOt_parfile,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT));
  2546.   pOt_OpenReader_Texts((struct pOt__tag_2_Texts*)&pOt_Par,(struct pOt__tag_1_Files*)(pOt_parfile),(pOt_LONGINT)(0));
  2547.   pOt_Read_Texts((struct pOt__tag_2_Texts*)&pOt_Par,&pOt_ch);
  2548.   for(;;) {
  2549.     if(((unsigned char) pOt_ch!=(unsigned char)'\0')); else break;
  2550.     if(((unsigned char) pOt_ch==(unsigned char)'-')) {
  2551.       pOt_Read_Texts((struct pOt__tag_2_Texts*)&pOt_Par,&pOt_ch);
  2552.       for(;;) {
  2553.         switch(pOt__cap((unsigned char)pOt_ch)) {
  2554.         case 'F':
  2555.           pOt_fold_COCO=((unsigned char)pOt_ch==(unsigned char)'F');
  2556.         break;
  2557.         case 'H':
  2558.           pOt_hchg_POT=((unsigned char)pOt_ch==(unsigned char)'H');
  2559.         break;
  2560.         case 'I':
  2561.           pOt_inxchk_COCE=((unsigned char)pOt_ch==(unsigned char)'I');
  2562.         break;
  2563.         case 'L':
  2564.           pOt_linecol_COCS=((unsigned char)pOt_ch==(unsigned char)'L');
  2565.         break;
  2566.         case 'M':
  2567.           pOt_macwrap_COCO=((unsigned char)pOt_ch==(unsigned char)'M');
  2568.         break;
  2569.         case 'N':
  2570.           pOt_linenum_COCO=((unsigned char)pOt_ch==(unsigned char)'N');
  2571.         break;
  2572.         case 'O':
  2573.           pOt_nilchk_COCE=((unsigned char)pOt_ch==(unsigned char)'O');
  2574.         break;
  2575.         case 'P':
  2576.           pOt_tempsafe_COCC=((unsigned char)pOt_ch==(unsigned char)'P');
  2577.         break;
  2578.         case 'R':
  2579.           pOt_rngchk_COCE=((unsigned char)pOt_ch==(unsigned char)'R');
  2580.         break;
  2581.         case 'S':
  2582.           pOt_symchg_POT=((unsigned char)pOt_ch==(unsigned char)'S');
  2583.         break;
  2584.         case 'T':
  2585.           pOt_typchk_COCT=((unsigned char)pOt_ch==(unsigned char)'T');
  2586.         break;
  2587.         case 'U':
  2588.           pOt_unxwrap_COCO=((unsigned char)pOt_ch==(unsigned char)'U');
  2589.         break;
  2590.         default:;
  2591.           if(((unsigned char) pOt_ch>(unsigned char)' ')) {
  2592.             pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x98L],&pOt__str_td[0x11]))));
  2593.             pOt_Write_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt_ch);
  2594.             pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT);
  2595.             pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2596.           } else {
  2597.             goto pOt__LoopLabel_1;
  2598.           }
  2599.         }
  2600.         pOt_Read_Texts((struct pOt__tag_2_Texts*)&pOt_Par,&pOt_ch);
  2601.       }
  2602.     pOt__LoopLabel_1:;
  2603.     } else if(((unsigned char) pOt_ch>(unsigned char)' ')) {
  2604.       pOt_i=(pOt_INTEGER)(0);
  2605.       for(;;) {
  2606.         if(( pOt_i==255)) {
  2607.           for(;;) {
  2608.             pOt_Read_Texts((struct pOt__tag_2_Texts*)&pOt_Par,&pOt_ch);
  2609.             if(((unsigned char) pOt_ch<=(unsigned char)' ')) break;
  2610.           }
  2611.           goto pOt__LoopLabel_2;
  2612.         }
  2613.         pOt_FName_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x100, pOt_i)]=pOt_ch;
  2614.         pOt_i+=(1);
  2615.         pOt_Read_Texts((struct pOt__tag_2_Texts*)&pOt_Par,&pOt_ch);
  2616.         if(((unsigned char) pOt_ch<=(unsigned char)' ')) {
  2617.           goto pOt__LoopLabel_2;
  2618.         }
  2619.       }
  2620.     pOt__LoopLabel_2:;
  2621.       pOt_FName_POT.arr[pOt__inxchk(__FILE__,__LINE__,0x100, pOt_i)]='\0';
  2622.       pOt_srcfile=(struct pOt__tag_1_Files*)(pOt_Old_Files(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT)));
  2623.       if(( pOt_srcfile!=pOt_NIL)) {
  2624.         pOt_Close_Files((struct pOt__tag_1_Files*)(pOt_srcfile));
  2625.         pOt_Start_Throwback();
  2626.         pOt_CompilationUnit_POT(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT));
  2627.         pOt_End_Throwback();
  2628.       } else {
  2629.         pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_FName_POT));
  2630.         pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB0L],&pOt__str_td[0xA]))));
  2631.         pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT);
  2632.         pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2633.       }
  2634.     } else {
  2635.       pOt_Read_Texts((struct pOt__tag_2_Texts*)&pOt_Par,&pOt_ch);
  2636.     }
  2637.   }
  2638.   pOt_Close_Texts((struct pOt__tag_1_Files*)(pOt_parfile));
  2639.  
  2640. pOt__Epilogue:;
  2641.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  2642. }
  2643.  
  2644. void pOt_POT__body()
  2645. {
  2646.   static int pOt_POT__loaded=0;
  2647.   if(!pOt_POT__loaded){
  2648.     pOt_POT__loaded=1;
  2649.  
  2650.     pOt_OS__body();
  2651.     pOt_Files__body();
  2652.     pOt_Texts__body();
  2653.     pOt_COCS__body();
  2654.     pOt_COCO__body();
  2655.     pOt_COCT__body();
  2656.     pOt_COCE__body();
  2657.     pOt_COCH__body();
  2658.     pOt_COCD__body();
  2659.     pOt_COCC__body();
  2660.     pOt_Throwback__body();
  2661.  
  2662.     pOt__gc_ptrs.next=pOt__gc_root;
  2663.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  2664.  
  2665.     pOt__init_var((pOt__TypDsc**)&pOt_W_POT,(pOt__TypDsc*)&pOt__td_5_Texts);
  2666.     pOt__init_var((pOt__TypDsc**)&pOt_TmpFName_POT,(pOt__TypDsc*)&pOt__td_1_POT);
  2667.     pOt__init_var((pOt__TypDsc**)&pOt_FName_POT,(pOt__TypDsc*)&pOt__td_1_POT);
  2668.     pOt__init_var((pOt__TypDsc**)&pOt_CaseTab_POT,(pOt__TypDsc*)&pOt__td_2_POT);
  2669.  
  2670.     pOt_MaxArrLen_POT=(pOt_LONGINT)(2147483647L);
  2671.     pOt_symchg_POT=(pOt_BOOLEAN)0;
  2672.     pOt_hchg_POT=(pOt_BOOLEAN)0;
  2673.     pOt_OpenWriter_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT);
  2674.     pOt_WriteString_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT,pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC0L],&pOt__str_td[0x7C]))));
  2675.     pOt_WriteLn_Texts((struct pOt__tag_5_Texts*)&pOt_W_POT);
  2676.     pOt_Append_Texts((struct pOt__tag_1_Files*)(pOt_StdOut_Files),&pOt_W_POT.pOt_buf);
  2677.  
  2678.   pOt__Epilogue:;
  2679.   }
  2680. }
  2681.