home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / Throwback < prev   
Encoding:
Text File  |  1995-05-08  |  4.2 KB  |  119 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4. #include "CLib.h"
  5. #include "DDEUtils.h"
  6.  
  7. #include "hi.Throwback"
  8.  
  9.  
  10.  
  11. static pOt_BOOLEAN pOt_noerrors_Throwback, pOt_started_Throwback;
  12.  
  13. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  14.   pOt_NIL
  15. }};
  16. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  17.   pOt_NIL
  18. }};
  19.  
  20.  
  21.  
  22.  
  23. extern void pOt_Start_Throwback()
  24. {
  25.   struct pOt__tag_1_CLib pOt_regs;
  26.   struct {void*next;} pOt__gc_ptrs;
  27.   pOt__gc_ptrs.next = pOt__gc_root;
  28.   pOt__init_var((pOt__TypDsc**)&pOt_regs,(pOt__TypDsc*)&pOt__td_1_CLib);
  29.  
  30.   pOt_noerrors_Throwback=(pOt_BOOLEAN)1;
  31.   pOt_started_Throwback=(pOt_BOOLEAN)0;
  32.  
  33. pOt__Epilogue:;
  34.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  35. }
  36.  
  37.  
  38.  
  39.  
  40. extern void pOt_SendError_Throwback
  41. #if pOt__ANSI_C
  42.   (pOt__DynArr *pOt_FName, pOt_LONGINT pOt_lineno, pOt_LONGINT pOt_severety, pOt__DynArr *pOt_Desc)
  43. #else
  44.   (pOt_FName, pOt_lineno, pOt_severety, pOt_Desc)
  45.   pOt__DynArr *pOt_FName;
  46.   pOt_LONGINT pOt_lineno, pOt_severety;
  47.   pOt__DynArr *pOt_Desc;
  48.  
  49. #endif
  50. {
  51.   pOt_LONGINT pOt_i;
  52.   struct pOt__tag_1_CLib pOt_regs;
  53.   struct {void*next;} pOt__gc_ptrs;
  54.   pOt__gc_ptrs.next = pOt__gc_root;
  55.   pOt__init_var((pOt__TypDsc**)&pOt_regs,(pOt__TypDsc*)&pOt__td_1_CLib);
  56.  
  57.   if(pOt_noerrors_Throwback) {
  58.     pOt_noerrors_Throwback=(pOt_BOOLEAN)0;
  59.     pOt_started_Throwback=(KernelSwi((pOt_LONGINT)(271751L),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs+sizeof(pOt__TypDsc*))),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs+sizeof(pOt__TypDsc*))))==((pOt_LONGINT)(0)));
  60.     if(pOt_started_Throwback) {
  61.       pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)]=(pOt_LONGINT)(0);
  62.       pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 2)]=(pOt_LONGINT)(((pOt_LONGINT)&(*((pOt_CHAR*)(((char *)pOt_FName+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_FName))->nofel,0)))))));
  63.       pOt_i=(pOt_LONGINT)(KernelSwi((pOt_LONGINT)(271752L),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)])),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)]))));
  64.     }
  65.   }
  66.   if(pOt_started_Throwback) {
  67.     pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)]=(pOt_LONGINT)(1);
  68.     pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 2)]=(pOt_LONGINT)(((pOt_LONGINT)&(*((pOt_CHAR*)(((char *)pOt_FName+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_FName))->nofel,0)))))));
  69.     pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 3)]=(pOt_LONGINT)(pOt_lineno);
  70.     pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 4)]=(pOt_LONGINT)(pOt_severety);
  71.     pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 5)]=(pOt_LONGINT)(((pOt_LONGINT)&(*((pOt_CHAR*)(((char *)pOt_Desc+sizeof(pOt__ArrTypDsc*)+sizeof(pOt_CHAR)*pOt__inxchk(__FILE__,__LINE__,(*(pOt_Desc))->nofel,0)))))));
  72.     pOt_i=(pOt_LONGINT)(KernelSwi((pOt_LONGINT)(271752L),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)])),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)]))));
  73.   }
  74.  
  75. pOt__Epilogue:;
  76.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  77.   pOt__rm_par((pOt__TypDsc**)pOt_FName);
  78.   pOt__rm_par((pOt__TypDsc**)pOt_Desc);
  79. }
  80.  
  81.  
  82.  
  83.  
  84. extern void pOt_End_Throwback()
  85. {
  86.   pOt_LONGINT pOt_i;
  87.   struct pOt__tag_1_CLib pOt_regs;
  88.   struct {void*next;} pOt__gc_ptrs;
  89.   pOt__gc_ptrs.next = pOt__gc_root;
  90.   pOt__init_var((pOt__TypDsc**)&pOt_regs,(pOt__TypDsc*)&pOt__td_1_CLib);
  91.  
  92.   pOt_noerrors_Throwback=(pOt_BOOLEAN)1;
  93.   pOt_started_Throwback=(pOt_BOOLEAN)0;
  94.   pOt_i=(pOt_LONGINT)(KernelSwi((pOt_LONGINT)(271753L),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)])),(pOt_LONGINT)(((pOt_LONGINT)&pOt_regs.pOt_r.arr[pOt__inxchk(__FILE__,__LINE__,0xA, 0)]))));
  95.  
  96. pOt__Epilogue:;
  97.   pOt__gc_root=(struct pOt__tag_gc_node*)pOt__gc_ptrs.next;
  98. }
  99.  
  100. void pOt_Throwback__body()
  101. {
  102.   static int pOt_Throwback__loaded=0;
  103.   if(!pOt_Throwback__loaded){
  104.     pOt_Throwback__loaded=1;
  105.  
  106.     pOt_CLib__body();
  107.     pOt_DDEUtils__body();
  108.  
  109.     pOt__gc_ptrs.next=pOt__gc_root;
  110.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  111.  
  112.  
  113.     pOt_noerrors_Throwback=(pOt_BOOLEAN)1;
  114.     pOt_started_Throwback=(pOt_BOOLEAN)0;
  115.  
  116.   pOt__Epilogue:;
  117.   }
  118. }
  119.