home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCD < prev    next >
Encoding:
Text File  |  1995-05-06  |  36.6 KB  |  786 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Strings.h"
  5. #include "COCS.h"
  6. #include "COCT.h"
  7. #include "COCQ.h"
  8. #include "COCN.h"
  9. #include "COCY.h"
  10. #include "COCO.h"
  11.  
  12. #include "hi.COCD"
  13.  
  14.  
  15. struct pOt__tag_0_COCD {
  16.   pOt__ArrTypDsc *td;
  17.   pOt_CHAR arr[0x4000L];
  18. } ;
  19. pOt__ArrTypDsc pOt__td_0_COCD= {
  20.   1,
  21.   0x4000L, sizeof(pOt_CHAR)
  22. };
  23. struct pOt__tag_1_COCD {
  24.   pOt__PtrArrTypDsc *td;
  25.   pOt_Struct_COCT arr[0x80L];
  26. } ;
  27. pOt__PtrArrTypDsc pOt__td_1_COCD= {
  28.   2,
  29.   0x80L, sizeof(struct pOt__tag_2_COCT*)
  30. };
  31.  
  32. static pOt_LONGINT pOt_PtrSize_COCD;
  33. static struct pOt__tag_0_COCD pOt_constant_COCD;
  34. static struct pOt__tag_1_COCD pOt_RecTab_COCD;
  35. static pOt_LONGINT pOt_conx_COCD;
  36. static pOt_INTEGER pOt_bofrec_COCD, pOt_nofrec_COCD, pOt_recnum_COCD;
  37.  
  38. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  39.   pOt_NIL
  40. }};
  41. static struct {void *next, *vars[0x2];} pOt__gc_strs = {&pOt__gc_ptrs,{
  42.   &pOt_RecTab_COCD,
  43.   pOt_NIL
  44. }};
  45.  
  46.  
  47.  
  48.  
  49. extern void pOt_Init_COCD()
  50. {
  51.   pOt_INTEGER pOt_iofrec;
  52.   struct {void*next;} pOt__gc_ptrs;
  53.   pOt__gc_ptrs.next = pOt__gc_root;
  54.  
  55.   pOt_conx_COCD=(pOt_LONGINT)(0);
  56.   pOt_bofrec_COCD=(pOt_INTEGER)(0);
  57.   pOt_nofrec_COCD=(pOt_INTEGER)(0);
  58.   pOt_recnum_COCD=(pOt_INTEGER)(0);
  59.   pOt_iofrec=(pOt_INTEGER)(0);
  60.   for(;;) {
  61.     if(( pOt_iofrec!=128)); else break;
  62.     pOt_RecTab_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_iofrec)]=(struct pOt__tag_2_COCT*)(pOt_NIL);
  63.     pOt_iofrec+=(1);
  64.   }
  65.  
  66. pOt__Epilogue:;
  67.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  68. }
  69.  
  70.  
  71.  
  72. static pOt__DynArr *pOt_s_AllocString_COCD;
  73. static struct pOt__tag_3_COCT *pOt_x_AllocString_COCD;
  74. static pOt_LONGINT (*pOt_start_AllocString_COCD), (*pOt_rem_AllocString_COCD);
  75. static pOt_INTEGER (*pOt_i_AllocString_COCD);
  76. static pOt_CHAR (*pOt_ch_AllocString_COCD);
  77.  
  78. extern void pOt_AllocString_COCD pOt__ARGS((pOt__DynArr *, struct pOt__tag_3_COCT *));
  79.  
  80.  
  81.  
  82.  
  83. static void pOt_FindString_AllocString_COCD()
  84. {
  85.   pOt_INTEGER pOt_slen, pOt_clen, pOt_i;
  86.   struct {void*next;} pOt__gc_ptrs;
  87.   pOt__gc_ptrs.next = pOt__gc_root;
  88.  
  89.   (*pOt_start_AllocString_COCD)=(pOt_LONGINT)(0);
  90.   pOt_slen=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,pOt_Length_Strings(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_s_AllocString_COCD)))));
  91.   for(;;) {
  92.     if(( (*pOt_start_AllocString_COCD)==pOt_conx_COCD)) {
  93.       goto pOt__LoopLabel_1;
  94.     }
  95.     pOt_clen=(pOt_INTEGER)((pOt_INTEGER)((unsigned char)pOt_constant_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x4000, (*pOt_start_AllocString_COCD))]));
  96.     if(( pOt_slen==pOt_clen)) {
  97.       pOt_i=(pOt_INTEGER)(pOt_slen);
  98.       for(;;) {
  99.         pOt_i-=(1);
  100.         if(( pOt_i==((pOt_INTEGER)(-1)))) {
  101.           goto pOt__LoopLabel_2;
  102.         }
  103.         if(((unsigned char) pOt_constant_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x4000, (pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_start_AllocString_COCD)),(pOt_LONGINT)(pOt_PtrSize_COCD),6)),(pOt_LONGINT)(pOt_i),6))]!=(unsigned char)(*((pOt_CHAR*)(((char *)pOt_s_AllocString_COCD+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s_AllocString_COCD))->nofel,pOt_i))))))) {
  104.           goto pOt__LoopLabel_2;
  105.         }
  106.       }
  107.     pOt__LoopLabel_2:;
  108.       if(( pOt_i==((pOt_INTEGER)(-1)))) {
  109.         goto pOt__LoopLabel_1;
  110.       }
  111.     }
  112.     (*pOt_start_AllocString_COCD)+=((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_PtrSize_COCD),(pOt_LONGINT)(pOt_clen),6)),(pOt_LONGINT)(1),6));
  113.     (*pOt_rem_AllocString_COCD)=(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)((*pOt_start_AllocString_COCD)),(pOt_LONGINT)(pOt_PtrSize_COCD),6));
  114.     if(( (*pOt_rem_AllocString_COCD)!=((pOt_LONGINT)(0)))) {
  115.       (*pOt_start_AllocString_COCD)+=((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_PtrSize_COCD),(pOt_LONGINT)((*pOt_rem_AllocString_COCD)),6));
  116.     }
  117.   }
  118. pOt__LoopLabel_1:;
  119.  
  120. pOt__Epilogue:;
  121.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  122. }
  123.  
  124. extern void pOt_AllocString_COCD
  125. #if pOt__ANSI_C
  126.   (pOt__DynArr *pOt_s, struct pOt__tag_3_COCT *pOt_x)
  127. #else
  128.   (pOt_s, pOt_x)
  129.   pOt__DynArr *pOt_s;
  130.   struct pOt__tag_3_COCT *pOt_x;
  131.  
  132. #endif
  133. {
  134.   pOt__DynArr *pOt_s_;
  135.   struct pOt__tag_3_COCT *pOt_x_;
  136.   pOt_LONGINT pOt_start, (*pOt_start_), pOt_rem, (*pOt_rem_);
  137.   pOt_INTEGER pOt_i, (*pOt_i_);
  138.   pOt_CHAR pOt_ch, (*pOt_ch_);
  139.   struct {void*next;} pOt__gc_ptrs;
  140.   pOt__gc_ptrs.next = pOt__gc_root;
  141.   pOt_s_=pOt_s_AllocString_COCD;
  142.   pOt_s_AllocString_COCD=pOt_s;
  143.   pOt_x_=pOt_x_AllocString_COCD;
  144.   pOt_x_AllocString_COCD=pOt_x;
  145.   pOt_start_=pOt_start_AllocString_COCD;
  146.   pOt_start_AllocString_COCD=&pOt_start;
  147.   pOt_rem_=pOt_rem_AllocString_COCD;
  148.   pOt_rem_AllocString_COCD=&pOt_rem;
  149.   pOt_i_=pOt_i_AllocString_COCD;
  150.   pOt_i_AllocString_COCD=&pOt_i;
  151.   pOt_ch_=pOt_ch_AllocString_COCD;
  152.   pOt_ch_AllocString_COCD=&pOt_ch;
  153.  
  154.   pOt_FindString_AllocString_COCD();
  155.   (*pOt_x).pOt_intval+=((pOt_LONGINT)pOt__mulchk(__FILE__,__LINE__,(pOt_LONGINT)(((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_start),(pOt_LONGINT)(1),6))),(pOt_LONGINT)(256),6));
  156.   if(( pOt_start==pOt_conx_COCD)) {
  157.     pOt_i=(pOt_INTEGER)(-1);
  158.     pOt_conx_COCD+=(pOt_PtrSize_COCD);
  159.     for(;;) {
  160.       pOt_i+=(1);
  161.       pOt_ch=(*((pOt_CHAR*)(((char *)pOt_s+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_s))->nofel,pOt_i)))));
  162.       if(( pOt_conx_COCD>=((pOt_LONGINT)(16384)))) {
  163.         pOt_Mark_COCS((pOt_INTEGER)(230));
  164.         pOt_conx_COCD=(pOt_LONGINT)(0);
  165.       }
  166.       pOt_constant_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x4000, pOt_conx_COCD)]=pOt_ch;
  167.       pOt_conx_COCD+=(1);
  168.       if(((unsigned char) pOt_ch==(unsigned char)'\0')) break;
  169.     }
  170.     pOt_rem=(pOt_LONGINT)((pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_conx_COCD),(pOt_LONGINT)(pOt_PtrSize_COCD),6));
  171.     if(( pOt_rem!=((pOt_LONGINT)(0)))) {
  172.       pOt_conx_COCD+=((pOt_LONGINT)pOt__subchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_PtrSize_COCD),(pOt_LONGINT)(pOt_rem),6));
  173.       if(( pOt_conx_COCD>=((pOt_LONGINT)(16384)))) {
  174.         pOt_Mark_COCS((pOt_INTEGER)(230));
  175.         pOt_conx_COCD=(pOt_LONGINT)(0);
  176.       }
  177.     }
  178.     pOt_constant_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x4000, pOt_start)]=(pOt_CHAR)pOt__rngchk_cn(__FILE__,__LINE__,(unsigned char)(pOt_i));
  179.   }
  180.  
  181. pOt__Epilogue:;
  182.   pOt_s_AllocString_COCD=pOt_s_;
  183.   pOt_x_AllocString_COCD=pOt_x_;
  184.   pOt_start_AllocString_COCD=pOt_start_;
  185.   pOt_rem_AllocString_COCD=pOt_rem_;
  186.   pOt_i_AllocString_COCD=pOt_i_;
  187.   pOt_ch_AllocString_COCD=pOt_ch_;
  188.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  189. }
  190.  
  191.  
  192. struct pOt__tag_2_COCD {
  193.   pOt__ArrTypDsc *td;
  194.   pOt_CHAR arr[0x9L];
  195. } ;
  196. static pOt__ArrTypDsc pOt__td_2_COCD= {
  197.   1,
  198.   0x9L, sizeof(pOt_CHAR)
  199. };
  200.  
  201. static struct pOt__tag_2_COCD (*pOt_s_InitStrings_COCD);
  202. static pOt_LONGINT (*pOt_i_InitStrings_COCD);
  203.  
  204. extern void pOt_InitStrings_COCD pOt__ARGS((void));
  205.  
  206.  
  207.  
  208.  
  209. static void pOt_WriteChar_InitStrings_COCD
  210. #if pOt__ANSI_C
  211.   (pOt_CHAR pOt_c)
  212. #else
  213.   (pOt_c)
  214.   pOt_CHAR pOt_c;
  215.  
  216. #endif
  217. {
  218.   pOt_INTEGER pOt_i;
  219.   struct {void*next;} pOt__gc_ptrs;
  220.   pOt__gc_ptrs.next = pOt__gc_root;
  221.  
  222.   (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, 0)]='\'';
  223.   if((((((unsigned char)pOt_c==(unsigned char)'\\'))||(((unsigned char)pOt_c==(unsigned char)'\'')))||(((unsigned char)pOt_c==(unsigned char)'\"')))) {
  224.     (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, 1)]='\\';
  225.     (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, 2)]=pOt_c;
  226.     pOt_i=(pOt_INTEGER)(3);
  227.   } else if((((((unsigned char)'\0'<=(unsigned char)pOt_c))&&(((unsigned char)pOt_c<=(unsigned char)'\37')))||((((unsigned char)'\177'<=(unsigned char)pOt_c))&&(((unsigned char)pOt_c<=(unsigned char)'\377'))))) {
  228.     (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, 1)]='\\';
  229.     (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, 2)]='\0';
  230.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_s_InitStrings_COCD)));
  231.     pOt_FromLInt_Strings((pOt_LONGINT)((pOt_INTEGER)((unsigned char)pOt_c)),8,(pOt__ArrTypDsc**)&(*pOt_s_InitStrings_COCD));
  232.     pOt_i=(pOt_INTEGER)(0);
  233.     for(;;) {
  234.       if(((unsigned char) (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, pOt_i)]!=(unsigned char)'\0')); else break;
  235.       pOt_i+=(1);
  236.     }
  237.   } else {
  238.     (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, 1)]=pOt_c;
  239.     pOt_i=(pOt_INTEGER)(2);
  240.   }
  241.   (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, pOt_i)]='\'';
  242.   (*pOt_s_InitStrings_COCD).arr[pOt__inxchk(__FILE__,__LINE__,0x9, (pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(1),5))]='\0';
  243.   pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt_s_InitStrings_COCD)));
  244.  
  245. pOt__Epilogue:;
  246.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  247. }
  248.  
  249. extern void pOt_InitStrings_COCD()
  250. {
  251.   struct pOt__tag_2_COCD pOt_s, (*pOt_s_);
  252.   pOt_LONGINT pOt_i, (*pOt_i_);
  253.   struct {void*next;} pOt__gc_ptrs;
  254.   pOt__gc_ptrs.next = pOt__gc_root;
  255.   pOt_s_=pOt_s_InitStrings_COCD;
  256.   pOt_s_InitStrings_COCD=&pOt_s;
  257.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_2_COCD);
  258.   pOt_i_=pOt_i_InitStrings_COCD;
  259.   pOt_i_InitStrings_COCD=&pOt_i;
  260.  
  261.   if(( pOt_conx_COCD!=((pOt_LONGINT)(0)))) {
  262.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x22]))));
  263.     pOt_FromLInt_Strings((pOt_LONGINT)((pOt_LONGINT)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_conx_COCD),(pOt_LONGINT)(2048),6)),16,(pOt__ArrTypDsc**)&pOt_s);
  264.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  265.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x28L],&pOt__str_td[0x4]))));
  266.     pOt_Wrap_COCO();
  267.     pOt_Indent_COCO();
  268.     pOt_i=(pOt_LONGINT)(0);
  269.     for(;;) {
  270.       if(( pOt_i!=pOt_conx_COCD)); else break;
  271.       pOt_WriteChar_InitStrings_COCD(pOt_constant_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x4000, pOt_i)]);
  272.       pOt_i+=(1);
  273.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  274.       if(( (pOt_LONGINT)pOt__modchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_i),(pOt_LONGINT)(16),6)==((pOt_LONGINT)(0)))) {
  275.         pOt_Wrap_COCO();
  276.       }
  277.     }
  278.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x3CL],&pOt__str_td[0x1]))));
  279.     pOt_Wrap_COCO();
  280.     pOt_Undent_COCO();
  281.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x44L],&pOt__str_td[0x2]))));
  282.     pOt_Wrap_COCO();
  283.   }
  284.  
  285. pOt__Epilogue:;
  286.   pOt_s_InitStrings_COCD=pOt_s_;
  287.   pOt_i_InitStrings_COCD=pOt_i_;
  288.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  289. }
  290.  
  291.  
  292.  
  293.  
  294. extern void pOt_AllocTypDesc_COCD
  295. #if pOt__ANSI_C
  296.   (pOt_Struct_COCT pOt_typ)
  297. #else
  298.   (pOt_typ)
  299.   pOt_Struct_COCT pOt_typ;
  300.  
  301. #endif
  302. {
  303.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  304.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  305.   pOt__gc_ptrs.next = pOt__gc_root;
  306.   pOt__gc_strs.next = &pOt__gc_ptrs;
  307.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  308.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  309.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  310.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  311.  
  312.   (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_descr=(pOt_INTEGER)(pOt_recnum_COCD);
  313.   pOt_recnum_COCD+=(1);
  314.   if(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form==17))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n>((pOt_LONGINT)(16)))))) {
  315.     pOt_Mark_COCS((pOt_INTEGER)(233));
  316.   } else if(( pOt_nofrec_COCD<128)) {
  317.     pOt_RecTab_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_nofrec_COCD)]=(struct pOt__tag_2_COCT*)(pOt_typ);
  318.     pOt_nofrec_COCD+=(1);
  319.   } else {
  320.     pOt_Mark_COCS((pOt_INTEGER)(223));
  321.   }
  322.  
  323. pOt__Epilogue:;
  324.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  325. }
  326.  
  327.  
  328.  
  329.  
  330. extern void pOt_DeclTypDescs_COCD()
  331. {
  332.   pOt_INTEGER pOt_iofrec;
  333.   pOt_Struct_COCT pOt_typ;
  334.   pOt_INTEGER pOt_np;
  335.   struct pOt__tag_3_COCT pOt_x;
  336.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  337.   struct {void *next, *vars[0x2];} pOt__gc_strs;
  338.   pOt__gc_ptrs.next = pOt__gc_root;
  339.   pOt__gc_strs.next = &pOt__gc_ptrs;
  340.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  341.   pOt__gc_strs.vars[0x1]=pOt_NIL;
  342.   pOt__gc_ptrs.vars[0x0]=&pOt_typ;
  343.   pOt__gc_strs.vars[0x0]=&pOt_x;
  344.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  345.   pOt_typ=pOt_NIL;
  346.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  347.  
  348.   pOt_iofrec=(pOt_INTEGER)(0);
  349.   for(;;) {
  350.     if(( pOt_iofrec!=pOt_nofrec_COCD)); else break;
  351.     pOt_typ=(struct pOt__tag_2_COCT*)(pOt_RecTab_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_iofrec)]);
  352.     if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_ref!=((pOt_INTEGER)(0)))) {
  353.       pOt_Struct_COCY((struct pOt__tag_2_COCT*)(pOt_typ));
  354.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x4CL],&pOt__str_td[0x6]))));
  355.       pOt_Separate_COCO();
  356.       switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form) {
  357.       case 15:
  358.         switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_BaseTyp))).pOt_form) {
  359.         case 0:
  360.         case 1:
  361.         case 2:
  362.         case 3:
  363.         case 4:
  364.         case 5:
  365.         case 6:
  366.         case 7:
  367.         case 8:
  368.         case 9:
  369.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x58L],&pOt__str_td[0xE]))));
  370.         break;
  371.         case 13:
  372.         case 14:
  373.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6CL],&pOt__str_td[0x11]))));
  374.         break;
  375.         case 10:
  376.         case 11:
  377.         case 12:
  378.         break;
  379.         case 15:
  380.         case 17:
  381.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x84L],&pOt__str_td[0x11]))));
  382.         break;
  383.         case 16:
  384.         break;
  385.         default:;
  386.           pOt__halt(__FILE__,__LINE__,0x10);
  387.         }
  388.       break;
  389.       case 17:
  390.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x9CL],&pOt__str_td[0xE]))));
  391.       break;
  392.       default:;
  393.         pOt__halt(__FILE__,__LINE__,0x10);
  394.       }
  395.       pOt_Separate_COCO();
  396.       pOt_Mark_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  397.       pOt_CTDName_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  398.       pOt_Release_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  399.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB0L],&pOt__str_td[0x1]))));
  400.       pOt_Wrap_COCO();
  401.     }
  402.     pOt_iofrec+=(1);
  403.   }
  404.  
  405. pOt__Epilogue:;
  406.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  407. }
  408.  
  409.  
  410. struct pOt__tag_3_COCD {
  411.   pOt__ArrTypDsc *td;
  412.   pOt_CHAR arr[0x9L];
  413. } ;
  414. static pOt__ArrTypDsc pOt__td_3_COCD= {
  415.   1,
  416.   0x9L, sizeof(pOt_CHAR)
  417. };
  418. struct pOt__tag_4_COCD {
  419.   pOt__PtrArrTypDsc *td;
  420.   pOt_Struct_COCT arr[0x10L];
  421. } ;
  422. static pOt__PtrArrTypDsc pOt__td_4_COCD= {
  423.   2,
  424.   0x10L, sizeof(struct pOt__tag_2_COCT*)
  425. };
  426.  
  427.  
  428. extern void pOt_InitTypDescs_COCD()
  429. {
  430.   pOt_INTEGER pOt_iofrec;
  431.   pOt_Struct_COCT pOt_typ;
  432.   pOt_INTEGER pOt_np;
  433.   struct pOt__tag_3_COCT pOt_x;
  434.   struct pOt__tag_3_COCD pOt_s;
  435.   pOt_INTEGER pOt_mode, pOt_nstr, pOt_nptr, pOt_npro, pOt_ifld, pOt_nfld;
  436.   pOt_Object_COCT pOt_fld;
  437.   pOt_INTEGER pOt_iext;
  438.   pOt_Struct_COCT pOt_base;
  439.   struct pOt__tag_4_COCD pOt_basetyps;
  440.   struct {void *next, *vars[0x4];} pOt__gc_ptrs;
  441.   struct {void *next, *vars[0x3];} pOt__gc_strs;
  442.   pOt__gc_ptrs.next = pOt__gc_root;
  443.   pOt__gc_strs.next = &pOt__gc_ptrs;
  444.   pOt__gc_ptrs.vars[0x3]=pOt_NIL;
  445.   pOt__gc_strs.vars[0x2]=pOt_NIL;
  446.   pOt__gc_ptrs.vars[0x2]=&pOt_typ;
  447.   pOt__gc_strs.vars[0x1]=&pOt_x;
  448.   pOt__gc_ptrs.vars[0x1]=&pOt_fld;
  449.   pOt__gc_ptrs.vars[0x0]=&pOt_base;
  450.   pOt__gc_strs.vars[0x0]=&pOt_basetyps;
  451.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  452.   pOt_typ=pOt_NIL;
  453.   pOt__init_var((pOt__TypDsc**)&pOt_x,(pOt__TypDsc*)&pOt__td_3_COCT);
  454.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_3_COCD);
  455.   pOt_fld=pOt_NIL;
  456.   pOt_base=pOt_NIL;
  457.   pOt__init_var((pOt__TypDsc**)&pOt_basetyps,(pOt__TypDsc*)&pOt__td_4_COCD);
  458.  
  459.   pOt_iofrec=(pOt_INTEGER)(pOt_bofrec_COCD);
  460.   for(;;) {
  461.     if(( pOt_iofrec!=pOt_nofrec_COCD)); else break;
  462.     pOt_typ=(struct pOt__tag_2_COCT*)(pOt_RecTab_COCD.arr[pOt__inxchk(__FILE__,__LINE__,0x80, pOt_iofrec)]);
  463.     pOt_Struct_COCY((struct pOt__tag_2_COCT*)(pOt_typ));
  464.     if(( pOt_level_COCT!=((pOt_INTEGER)(0)))) {
  465.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB8L],&pOt__str_td[0x6]))));
  466.       pOt_Separate_COCO();
  467.     }
  468.     switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form) {
  469.     case 15:
  470.       switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_BaseTyp))).pOt_form) {
  471.       case 0:
  472.       case 1:
  473.       case 2:
  474.       case 3:
  475.       case 4:
  476.       case 5:
  477.       case 6:
  478.       case 7:
  479.       case 8:
  480.       case 9:
  481.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x58L],&pOt__str_td[0xE]))));
  482.         pOt_mode=(pOt_INTEGER)(1);
  483.       break;
  484.       case 13:
  485.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6CL],&pOt__str_td[0x11]))));
  486.         pOt_mode=(pOt_INTEGER)(2);
  487.       break;
  488.       case 14:
  489.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x6CL],&pOt__str_td[0x11]))));
  490.         pOt_mode=(pOt_INTEGER)(3);
  491.       break;
  492.       case 10:
  493.       case 11:
  494.       case 12:
  495.       break;
  496.       case 15:
  497.       case 17:
  498.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x84L],&pOt__str_td[0x11]))));
  499.         pOt_mode=(pOt_INTEGER)(4);
  500.       break;
  501.       case 16:
  502.       break;
  503.       default:;
  504.         pOt__halt(__FILE__,__LINE__,0x10);
  505.       }
  506.     break;
  507.     case 17:
  508.       pOt_mode=(pOt_INTEGER)(0);
  509.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xC4L],&pOt__str_td[0x8]))));
  510.       pOt_Wrap_COCO();
  511.       pOt_Indent_COCO();
  512.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xD4L],&pOt__str_td[0x11]))));
  513.       pOt_Wrap_COCO();
  514.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xECL],&pOt__str_td[0x11]))));
  515.       pOt_Wrap_COCO();
  516.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x104L],&pOt__str_td[0x25]))));
  517.       pOt_Wrap_COCO();
  518.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x130L],&pOt__str_td[0x26]))));
  519.       pOt_Wrap_COCO();
  520.       pOt_nstr=(pOt_INTEGER)(0);
  521.       pOt_nptr=(pOt_INTEGER)(0);
  522.       pOt_npro=(pOt_INTEGER)(0);
  523.       pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_link);
  524.       for(;;) {
  525.         if(( pOt_fld!=pOt_NIL)); else break;
  526.         if(pOt__cmpss((pOt_CHAR*)& (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_name,&pOt__strcon_buf[0x15CL],0xA)) {
  527.           if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ))).pOt_form)&(pOt_SET)0x28000L))) {
  528.             pOt_nstr+=(1);
  529.           } else if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ))).pOt_form==13)) {
  530.             pOt_nptr+=(1);
  531.           } else if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ))).pOt_form==14)) {
  532.             pOt_npro+=(1);
  533.           }
  534.         }
  535.         pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_next);
  536.       }
  537.       pOt_nfld=(pOt_INTEGER)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_nstr),(pOt_LONGINT)(pOt_nptr),5)),(pOt_LONGINT)(pOt_npro),5));
  538.       if(( pOt_nfld!=((pOt_INTEGER)(0)))) {
  539.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x164L],&pOt__str_td[0x37]))));
  540.         pOt_FromLInt_Strings((pOt_LONGINT)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)((pOt_INTEGER)pOt__addchk(__FILE__,__LINE__,(pOt_LONGINT)(pOt_nstr),(pOt_LONGINT)(pOt_nptr),5)),(pOt_LONGINT)(pOt_npro),5)),16,(pOt__ArrTypDsc**)&pOt_s);
  541.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  542.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A0L],&pOt__str_td[0x2]))));
  543.         pOt_Wrap_COCO();
  544.       }
  545.       pOt_Undent_COCO();
  546.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A8L],&pOt__str_td[0x1]))));
  547.     break;
  548.     default:;
  549.       pOt__halt(__FILE__,__LINE__,0x10);
  550.     }
  551.     pOt_Separate_COCO();
  552.     pOt_Mark_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  553.     pOt_CTDName_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  554.     pOt_Release_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  555.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B0L],&pOt__str_td[0x3]))));
  556.     pOt_Wrap_COCO();
  557.     pOt_Indent_COCO();
  558.     pOt_FromLInt_Strings((pOt_LONGINT)(pOt_mode),10,(pOt__ArrTypDsc**)&pOt_s);
  559.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  560.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  561.     pOt_Wrap_COCO();
  562.     switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_form) {
  563.     case 15:
  564.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B8L],&pOt__str_td[0x2]))));
  565.       pOt_FromLInt_Strings((pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n),16,(pOt__ArrTypDsc**)&pOt_s);
  566.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  567.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1C0L],&pOt__str_td[0x3]))));
  568.       pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  569.       pOt_CTSize_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_BaseTyp),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  570.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  571.       if(( pOt_mode==((pOt_INTEGER)(4)))) {
  572.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  573.         pOt_Wrap_COCO();
  574.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1C8L],&pOt__str_td[0xF]))));
  575.         pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  576.         pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_BaseTyp),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  577.         pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  578.       }
  579.       pOt_Wrap_COCO();
  580.     break;
  581.     case 17:
  582.       pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  583.       pOt_CTSize_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  584.       pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  585.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  586.       pOt_Wrap_COCO();
  587.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B8L],&pOt__str_td[0x2]))));
  588.       pOt_FromLInt_Strings((pOt_LONGINT)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n),16,(pOt__ArrTypDsc**)&pOt_s);
  589.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  590.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1DCL],&pOt__str_td[0x2]))));
  591.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B8L],&pOt__str_td[0x2]))));
  592.       pOt_FromLInt_Strings((pOt_LONGINT)(pOt_nstr),16,(pOt__ArrTypDsc**)&pOt_s);
  593.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  594.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1DCL],&pOt__str_td[0x2]))));
  595.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B8L],&pOt__str_td[0x2]))));
  596.       pOt_FromLInt_Strings((pOt_LONGINT)(pOt_nptr),16,(pOt__ArrTypDsc**)&pOt_s);
  597.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  598.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1DCL],&pOt__str_td[0x2]))));
  599.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1B8L],&pOt__str_td[0x2]))));
  600.       pOt_FromLInt_Strings((pOt_LONGINT)(pOt_npro),16,(pOt__ArrTypDsc**)&pOt_s);
  601.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  602.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  603.       pOt_Wrap_COCO();
  604.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1E4L],&pOt__str_td[0x1]))));
  605.       pOt_iext=(pOt_INTEGER)((pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n));
  606.       pOt_base=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_BaseTyp);
  607.       for(;;) {
  608.         if(( pOt_iext!=((pOt_INTEGER)(0)))); else break;
  609.         pOt_iext-=(1);
  610.         pOt_basetyps.arr[pOt__inxchk(__FILE__,__LINE__,0x10, pOt_iext)]=(struct pOt__tag_2_COCT*)(pOt_base);
  611.         pOt_base=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_base))).pOt_BaseTyp);
  612.       }
  613.       if(( (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n!=((pOt_LONGINT)(0)))) {
  614.         for(;;) {
  615.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1ECL],&pOt__str_td[0x12]))));
  616.           pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  617.           pOt_CTDName_COCN((struct pOt__tag_2_COCT*)(pOt_basetyps.arr[pOt__inxchk(__FILE__,__LINE__,0x10, pOt_iext)]),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  618.           pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  619.           pOt_iext+=(1);
  620.           if(( pOt_iext==(pOt_LONGINT)pOt__rngchk_i(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_n))) {
  621.             goto pOt__LoopLabel_1;
  622.           }
  623.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1DCL],&pOt__str_td[0x2]))));
  624.         }
  625.       pOt__LoopLabel_1:;
  626.       }
  627.       if(( pOt_iext!=((pOt_INTEGER)(16)))) {
  628.         if(( pOt_iext==((pOt_INTEGER)(0)))) {
  629.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x204L],&pOt__str_td[0x7]))));
  630.           pOt_iext+=(1);
  631.         }
  632.         for(;;) {
  633.           if(( pOt_iext!=((pOt_INTEGER)(16)))); else break;
  634.           pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x210L],&pOt__str_td[0x9]))));
  635.           pOt_iext+=(1);
  636.         }
  637.       }
  638.       pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A8L],&pOt__str_td[0x1]))));
  639.       if(( pOt_nfld!=((pOt_INTEGER)(0)))) {
  640.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  641.         pOt_Wrap_COCO();
  642.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1E4L],&pOt__str_td[0x1]))));
  643.         pOt_Wrap_COCO();
  644.         pOt_Indent_COCO();
  645.         pOt_x.pOt_mode=12;
  646.         pOt_x.pOt_mnolev=(pOt_INTEGER)(0);
  647.         pOt_ifld=(pOt_INTEGER)(0);
  648.         if(( pOt_nstr!=((pOt_INTEGER)(0)))) {
  649.           pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_link);
  650.           for(;;) {
  651.             if(((pOt__cmpss((pOt_CHAR*)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_name,&pOt__strcon_buf[0x15CL],0xA))&&(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ))).pOt_form)&(pOt_SET)0x28000L))))) {
  652.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x220L],&pOt__str_td[0x11]))));
  653.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  654.               pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  655.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  656.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x238L],&pOt__str_td[0x6]))));
  657.               pOt_x.pOt_obj=(struct pOt__tag_1_COCT*)(pOt_fld);
  658.               pOt_x.pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ);
  659.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  660.               pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  661.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  662.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x244L],&pOt__str_td[0x11]))));
  663.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  664.               pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  665.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  666.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A8L],&pOt__str_td[0x1]))));
  667.               pOt_ifld+=(1);
  668.               if(( pOt_ifld!=pOt_nfld)) {
  669.                 pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  670.               }
  671.             }
  672.             if(( pOt_ifld==pOt_nstr)) {
  673.               goto pOt__LoopLabel_2;
  674.             }
  675.             pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_next);
  676.           }
  677.         pOt__LoopLabel_2:;
  678.           pOt_Wrap_COCO();
  679.         }
  680.         if(( pOt_nptr!=((pOt_INTEGER)(0)))) {
  681.           pOt_nptr+=(pOt_nstr);
  682.           pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_link);
  683.           for(;;) {
  684.             if(((pOt__cmpss((pOt_CHAR*)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_name,&pOt__strcon_buf[0x15CL],0xA))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ))).pOt_form==13)))) {
  685.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x220L],&pOt__str_td[0x11]))));
  686.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  687.               pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  688.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  689.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x238L],&pOt__str_td[0x6]))));
  690.               pOt_x.pOt_obj=(struct pOt__tag_1_COCT*)(pOt_fld);
  691.               pOt_x.pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ);
  692.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  693.               pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  694.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  695.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x25CL],&pOt__str_td[0xA]))));
  696.               pOt_ifld+=(1);
  697.               if(( pOt_ifld!=pOt_nfld)) {
  698.                 pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  699.               }
  700.             }
  701.             if(( pOt_ifld==pOt_nptr)) {
  702.               goto pOt__LoopLabel_3;
  703.             }
  704.             pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_next);
  705.           }
  706.         pOt__LoopLabel_3:;
  707.           pOt_Wrap_COCO();
  708.         }
  709.         if(( pOt_npro!=((pOt_INTEGER)(0)))) {
  710.           pOt_npro+=(pOt_nptr);
  711.           pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_typ))).pOt_link);
  712.           for(;;) {
  713.             if(((pOt__cmpss((pOt_CHAR*)&(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_name,&pOt__strcon_buf[0x15CL],0xA))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ))).pOt_form==14)))) {
  714.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x220L],&pOt__str_td[0x11]))));
  715.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  716.               pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)(pOt_typ),(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  717.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  718.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x238L],&pOt__str_td[0x6]))));
  719.               pOt_x.pOt_obj=(struct pOt__tag_1_COCT*)(pOt_fld);
  720.               pOt_x.pOt_typ=(struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_typ);
  721.               pOt_Link_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  722.               pOt_CObjName_COCN((struct pOt__tag_3_COCT*)&pOt_x,(pOt_INTEGER)(pOt_x.pOt_qoffs),&pOt_np);
  723.               pOt_Unlink_COCQ((struct pOt__tag_3_COCT*)&pOt_x);
  724.               pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x25CL],&pOt__str_td[0xA]))));
  725.               pOt_ifld+=(1);
  726.               if(( pOt_ifld!=pOt_nfld)) {
  727.                 pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x34L],&pOt__str_td[0x1]))));
  728.               }
  729.             }
  730.             if(( pOt_ifld==pOt_npro)) {
  731.               goto pOt__LoopLabel_4;
  732.             }
  733.             pOt_fld=(struct pOt__tag_1_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_fld))).pOt_next);
  734.           }
  735.         pOt__LoopLabel_4:;
  736.           pOt_Wrap_COCO();
  737.         }
  738.         pOt_Undent_COCO();
  739.         pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1A8L],&pOt__str_td[0x1]))));
  740.       }
  741.       pOt_Wrap_COCO();
  742.     break;
  743.     default:;
  744.       pOt__halt(__FILE__,__LINE__,0x10);
  745.     }
  746.     pOt_Undent_COCO();
  747.     pOt_PutSeq_COCO(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x44L],&pOt__str_td[0x2]))));
  748.     pOt_Wrap_COCO();
  749.     pOt_iofrec+=(1);
  750.   }
  751.   if(( pOt_level_COCT==((pOt_INTEGER)(0)))) {
  752.     pOt_bofrec_COCD=(pOt_INTEGER)(pOt_nofrec_COCD);
  753.   } else {
  754.     pOt_nofrec_COCD=(pOt_INTEGER)(pOt_bofrec_COCD);
  755.   }
  756.  
  757. pOt__Epilogue:;
  758.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  759. }
  760.  
  761. void pOt_COCD__body()
  762. {
  763.   static int pOt_COCD__loaded=0;
  764.   if(!pOt_COCD__loaded){
  765.     pOt_COCD__loaded=1;
  766.  
  767.     pOt_Strings__body();
  768.     pOt_COCS__body();
  769.     pOt_COCT__body();
  770.     pOt_COCQ__body();
  771.     pOt_COCN__body();
  772.     pOt_COCY__body();
  773.     pOt_COCO__body();
  774.  
  775.     pOt__gc_ptrs.next=pOt__gc_root;
  776.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  777.  
  778.     pOt__init_var((pOt__TypDsc**)&pOt_constant_COCD,(pOt__TypDsc*)&pOt__td_0_COCD);
  779.     pOt__init_var((pOt__TypDsc**)&pOt_RecTab_COCD,(pOt__TypDsc*)&pOt__td_1_COCD);
  780.  
  781.     pOt_PtrSize_COCD=(pOt_LONGINT)(4);
  782.  
  783.   pOt__Epilogue:;
  784.   }
  785. }
  786.