home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / COCP < prev    next >
Encoding:
Text File  |  1995-05-06  |  16.8 KB  |  480 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "Strings.h"
  5. #include "COCT.h"
  6. #include "COCQ.h"
  7. #include "COCN.h"
  8.  
  9. #include "hi.COCP"
  10.  
  11.  
  12.  
  13.  
  14. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  15.   pOt_NIL
  16. }};
  17. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  18.   pOt_NIL
  19. }};
  20.  
  21.  
  22.  
  23.  
  24. extern void pOt_AssignPfx_COCP
  25. #if pOt__ANSI_C
  26.   (struct pOt__tag_3_COCT *pOt_x, pOt_BOOLEAN pOt_typchk)
  27. #else
  28.   (pOt_x, pOt_typchk)
  29.   struct pOt__tag_3_COCT *pOt_x;
  30.   pOt_BOOLEAN pOt_typchk;
  31.  
  32. #endif
  33. {
  34.   pOt_INTEGER pOt_np;
  35.   struct {void*next;} pOt__gc_ptrs;
  36.   pOt__gc_ptrs.next = pOt__gc_root;
  37.  
  38.   switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form) {
  39.   case 0:
  40.   break;
  41.   case 1:
  42.   case 2:
  43.   case 3:
  44.   case 4:
  45.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  46.   break;
  47.   case 5:
  48.   case 6:
  49.   case 7:
  50.   case 8:
  51.   case 13:
  52.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x8L],&pOt__str_td[0x2]))));
  53.     pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*pOt_x).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  54.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x2]))));
  55.   break;
  56.   case 9:
  57.   case 14:
  58.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x0L],&pOt__str_td[0x1]))));
  59.   break;
  60.   case 10:
  61.   case 11:
  62.   case 12:
  63.   break;
  64.   case 15:
  65.     pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x18L],&pOt__str_td[0x23]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  66.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x40L],&pOt__str_td[0x14]))));
  67.   break;
  68.   case 16:
  69.   break;
  70.   case 17:
  71.     if((pOt_typchk&&(((((*pOt_x).pOt_obj==pOt_wasderef_COCT))||((((*pOt_x).pOt_obj!=pOt_NIL))&&(((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_obj))).pOt_mode==3))))))) {
  72.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x5CL],&pOt__str_td[0x38]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  73.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x9CL],&pOt__str_td[0x14]))));
  74.     } else {
  75.       pOt_Prepend_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xB8L],&pOt__str_td[0x23]))),(pOt_INTEGER)((*pOt_x).pOt_qoffs),&pOt_np);
  76.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x9CL],&pOt__str_td[0x14]))));
  77.     }
  78.   break;
  79.   default:;
  80.     pOt__halt(__FILE__,__LINE__,0x10);
  81.   }
  82.  
  83. pOt__Epilogue:;
  84.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  85. }
  86.  
  87.  
  88.  
  89.  
  90. extern void pOt_AssignSfx_COCP
  91. #if pOt__ANSI_C
  92.   (struct pOt__tag_3_COCT *pOt_x, struct pOt__tag_3_COCT *pOt_y)
  93. #else
  94.   (pOt_x, pOt_y)
  95.   struct pOt__tag_3_COCT *pOt_x, *pOt_y;
  96.  
  97. #endif
  98. {
  99.   struct {void*next;} pOt__gc_ptrs;
  100.   pOt__gc_ptrs.next = pOt__gc_root;
  101.  
  102.   switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_x).pOt_typ))).pOt_form) {
  103.   case 0:
  104.   break;
  105.   case 1:
  106.   case 2:
  107.   case 3:
  108.   case 4:
  109.   break;
  110.   case 5:
  111.   case 6:
  112.   case 7:
  113.   case 8:
  114.   case 13:
  115.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  116.   break;
  117.   case 9:
  118.   case 14:
  119.   break;
  120.   case 10:
  121.   case 11:
  122.   case 12:
  123.   break;
  124.   case 15:
  125.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  126.   break;
  127.   case 16:
  128.   break;
  129.   case 17:
  130.     pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  131.   break;
  132.   default:;
  133.     pOt__halt(__FILE__,__LINE__,0x10);
  134.   }
  135.  
  136. pOt__Epilogue:;
  137.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  138. }
  139.  
  140.  
  141.  
  142.  
  143. extern void pOt_ParamPfx_COCP
  144. #if pOt__ANSI_C
  145.   (pOt_Object_COCT pOt_f)
  146. #else
  147.   (pOt_f)
  148.   pOt_Object_COCT pOt_f;
  149.  
  150. #endif
  151. {
  152.   pOt_INTEGER pOt_np;
  153.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  154.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  155.   pOt__gc_ptrs.next = pOt__gc_root;
  156.   pOt__gc_strs.next = &pOt__gc_ptrs;
  157.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  158.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  159.   pOt__gc_ptrs.vars[0x0]=&pOt_f;
  160.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  161.  
  162.   if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_mode==3)) {
  163.     switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ))).pOt_form) {
  164.     case 0:
  165.     break;
  166.     case 1:
  167.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE8L],&pOt__str_td[0x13]))));
  168.     break;
  169.     case 2:
  170.     case 3:
  171.     case 4:
  172.     case 5:
  173.     case 6:
  174.     case 7:
  175.     case 8:
  176.     case 9:
  177.     case 10:
  178.     case 11:
  179.     case 12:
  180.     case 13:
  181.     case 14:
  182.     case 15:
  183.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x100L],&pOt__str_td[0x1]))));
  184.     break;
  185.     case 16:
  186.       if(( (*((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_f))).pOt_typ))).pOt_BaseTyp))).pOt_form==1)) {
  187.         pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x108L],&pOt__str_td[0x1B]))));
  188.       } else {
  189.         pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x128L],&pOt__str_td[0x13]))));
  190.       }
  191.     break;
  192.     case 17:
  193.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x1]))));
  194.       pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  195.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x148L],&pOt__str_td[0x3]))));
  196.     break;
  197.     default:;
  198.       pOt__halt(__FILE__,__LINE__,0x10);
  199.     }
  200.   } else {
  201.     switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ))).pOt_form) {
  202.     case 0:
  203.     case 1:
  204.     case 2:
  205.     case 3:
  206.     case 4:
  207.     break;
  208.     case 5:
  209.     case 6:
  210.     case 7:
  211.     case 8:
  212.     case 13:
  213.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x1]))));
  214.       pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  215.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x10L],&pOt__str_td[0x2]))));
  216.     break;
  217.     case 9:
  218.     case 14:
  219.     break;
  220.     case 10:
  221.     case 11:
  222.     case 12:
  223.     break;
  224.     case 15:
  225.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x1]))));
  226.       pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  227.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x150L],&pOt__str_td[0x2]))));
  228.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x158L],&pOt__str_td[0x32]))));
  229.     break;
  230.     case 16:
  231.       if(( (*((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_f))).pOt_typ))).pOt_BaseTyp))).pOt_form==1)) {
  232.         pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x190L],&pOt__str_td[0x2C]))));
  233.       } else {
  234.         pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x158L],&pOt__str_td[0x32]))));
  235.       }
  236.     break;
  237.     case 17:
  238.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x1]))));
  239.       pOt_CTDenoter_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  240.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x150L],&pOt__str_td[0x2]))));
  241.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1C4L],&pOt__str_td[0x32]))));
  242.     break;
  243.     default:;
  244.       pOt__halt(__FILE__,__LINE__,0x10);
  245.     }
  246.   }
  247.  
  248. pOt__Epilogue:;
  249.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  250. }
  251.  
  252.  
  253.  
  254.  
  255. extern void pOt_ParamSfx_COCP
  256. #if pOt__ANSI_C
  257.   (struct pOt__tag_3_COCT *pOt_ap, pOt_Object_COCT pOt_f)
  258. #else
  259.   (pOt_ap, pOt_f)
  260.   struct pOt__tag_3_COCT *pOt_ap;
  261.   pOt_Object_COCT pOt_f;
  262.  
  263. #endif
  264. {
  265.   pOt_INTEGER pOt_np;
  266.   struct {void *next, *vars[0x2];} pOt__gc_ptrs;
  267.   struct {void *next, *vars[0x1];} pOt__gc_strs;
  268.   pOt__gc_ptrs.next = pOt__gc_root;
  269.   pOt__gc_strs.next = &pOt__gc_ptrs;
  270.   pOt__gc_ptrs.vars[0x1]=pOt_NIL;
  271.   pOt__gc_strs.vars[0x0]=pOt_NIL;
  272.   pOt__gc_ptrs.vars[0x0]=&pOt_f;
  273.   pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  274.  
  275.   if(( (*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_mode==3)) {
  276.     switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ))).pOt_form) {
  277.     case 0:
  278.     case 1:
  279.     break;
  280.     case 2:
  281.     case 3:
  282.     case 4:
  283.     case 5:
  284.     case 6:
  285.     case 7:
  286.     case 8:
  287.     case 9:
  288.     case 10:
  289.     case 11:
  290.     case 12:
  291.     case 13:
  292.     case 14:
  293.     case 15:
  294.     break;
  295.     case 16:
  296.       if(( (*((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_f))).pOt_typ))).pOt_BaseTyp))).pOt_form==1)) {
  297.         pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1FCL],&pOt__str_td[0x1]))));
  298.         switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_ap).pOt_typ))).pOt_form) {
  299.         case 1:
  300.         case 2:
  301.         case 3:
  302.         case 4:
  303.         case 5:
  304.         case 6:
  305.         case 7:
  306.         case 8:
  307.         case 9:
  308.           pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x204L],&pOt__str_td[0x2]))));
  309.           pOt_CTSize_COCN((struct pOt__tag_2_COCT*)((*pOt_ap).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  310.           pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  311.         break;
  312.         case 15:
  313.         case 16:
  314.           if((((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_ap).pOt_typ))).pOt_form==16))&&(((*pOt_ap).pOt_intval==((pOt_LONGINT)(0)))))&&(((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_ap).pOt_typ))).pOt_BaseTyp))).pOt_form==1)))) {
  315.             pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x20CL],&pOt__str_td[0x4]))));
  316.           } else if(((unsigned long)0!=((unsigned long)1<<pOt__rngchk_se(__FILE__,__LINE__, (*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_ap).pOt_typ))).pOt_BaseTyp))).pOt_form)&(pOt_SET)0x1EL))) {
  317.             pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x218L],&pOt__str_td[0x4]))));
  318.           } else {
  319.             pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x224L],&pOt__str_td[0x4]))));
  320.           }
  321.         break;
  322.         case 17:
  323.           pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x230L],&pOt__str_td[0x4]))));
  324.         break;
  325.         default:;
  326.           pOt__halt(__FILE__,__LINE__,0x10);
  327.         }
  328.       }
  329.     break;
  330.     case 17:
  331.     break;
  332.     default:;
  333.       pOt__halt(__FILE__,__LINE__,0x10);
  334.     }
  335.   } else {
  336.     switch((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ))).pOt_form) {
  337.     case 0:
  338.     case 1:
  339.     case 2:
  340.     case 3:
  341.     case 4:
  342.     break;
  343.     case 5:
  344.     case 6:
  345.     case 7:
  346.     case 8:
  347.     case 13:
  348.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  349.     break;
  350.     case 9:
  351.     case 14:
  352.     break;
  353.     case 10:
  354.     case 11:
  355.     case 12:
  356.     break;
  357.     case 15:
  358.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  359.     break;
  360.     case 16:
  361.       if(( (*((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_f))).pOt_typ))).pOt_BaseTyp))).pOt_form==1)) {
  362.         if(((((*((struct pOt__tag_2_COCT*)pOt__nilchk(__FILE__,__LINE__,(*pOt_ap).pOt_typ))).pOt_form==16))&&(((*pOt_ap).pOt_intval==((pOt_LONGINT)(0)))))) {
  363.           pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x23CL],&pOt__str_td[0x3]))));
  364.         } else {
  365.           pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x244L],&pOt__str_td[0x3]))));
  366.         }
  367.       } else {
  368.         pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  369.       }
  370.     break;
  371.     case 17:
  372.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x24CL],&pOt__str_td[0x13]))));
  373.       pOt_CTDName_COCN((struct pOt__tag_2_COCT*)((*((struct pOt__tag_1_COCT*)pOt__nilchk(__FILE__,__LINE__,pOt_f))).pOt_typ),(pOt_INTEGER)(pOt_cslen_COCQ),&pOt_np);
  374.       pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  375.     break;
  376.     default:;
  377.       pOt__halt(__FILE__,__LINE__,0x10);
  378.     }
  379.   }
  380.  
  381. pOt__Epilogue:;
  382.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  383. }
  384.  
  385.  
  386.  
  387.  
  388. extern void pOt_ParamListPfx_COCP()
  389. {
  390.   struct {void*next;} pOt__gc_ptrs;
  391.   pOt__gc_ptrs.next = pOt__gc_root;
  392.  
  393.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x140L],&pOt__str_td[0x1]))));
  394.  
  395. pOt__Epilogue:;
  396.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  397. }
  398.  
  399.  
  400.  
  401.  
  402. extern void pOt_NextParam_COCP()
  403. {
  404.   struct {void*next;} pOt__gc_ptrs;
  405.   pOt__gc_ptrs.next = pOt__gc_root;
  406.  
  407.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x1FCL],&pOt__str_td[0x1]))));
  408.  
  409. pOt__Epilogue:;
  410.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  411. }
  412.  
  413.  
  414.  
  415.  
  416. extern void pOt_ParamListSfx_COCP()
  417. {
  418.   struct {void*next;} pOt__gc_ptrs;
  419.   pOt__gc_ptrs.next = pOt__gc_root;
  420.  
  421.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  422.  
  423. pOt__Epilogue:;
  424.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  425. }
  426.  
  427.  
  428. struct pOt__tag_0_COCP {
  429.   pOt__ArrTypDsc *td;
  430.   pOt_CHAR arr[0x9L];
  431. } ;
  432. static pOt__ArrTypDsc pOt__td_0_COCP= {
  433.   1,
  434.   0x9L, sizeof(pOt_CHAR)
  435. };
  436.  
  437.  
  438. extern void pOt_Trap_COCP
  439. #if pOt__ANSI_C
  440.   (struct pOt__tag_3_COCT *pOt_x)
  441. #else
  442.   (pOt_x)
  443.   struct pOt__tag_3_COCT *pOt_x;
  444.  
  445. #endif
  446. {
  447.   struct pOt__tag_0_COCP pOt_s;
  448.   struct {void*next;} pOt__gc_ptrs;
  449.   pOt__gc_ptrs.next = pOt__gc_root;
  450.   pOt__init_var((pOt__TypDsc**)&pOt_s,(pOt__TypDsc*)&pOt__td_0_COCP);
  451.  
  452.   pOt_FromLInt_Strings((pOt_LONGINT)((*pOt_x).pOt_intval),16,(pOt__ArrTypDsc**)&pOt_s);
  453.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0x264L],&pOt__str_td[0x1E]))));
  454.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&pOt_s));
  455.   pOt_Append_COCQ(pOt__dup_arr(__FILE__,__LINE__,(pOt__ArrTypDsc**)&(*pOt__set_str_td(&pOt__strcon_buf[0xE0L],&pOt__str_td[0x1]))));
  456.  
  457. pOt__Epilogue:;
  458.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  459. }
  460.  
  461. void pOt_COCP__body()
  462. {
  463.   static int pOt_COCP__loaded=0;
  464.   if(!pOt_COCP__loaded){
  465.     pOt_COCP__loaded=1;
  466.  
  467.     pOt_Strings__body();
  468.     pOt_COCT__body();
  469.     pOt_COCQ__body();
  470.     pOt_COCN__body();
  471.  
  472.     pOt__gc_ptrs.next=pOt__gc_root;
  473.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  474.  
  475.  
  476.  
  477.   pOt__Epilogue:;
  478.   }
  479. }
  480.