home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / CLib < prev    next >
Encoding:
Text File  |  1995-05-08  |  1.3 KB  |  62 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4.  
  5. #include "hi.CLib"
  6.  
  7. typedef struct pOt__tag_1_CLib pOt_SwiRegs_CLib;
  8.  
  9. struct pOt__tag_0_CLib {
  10.   pOt__ArrTypDsc *td;
  11.   pOt_LONGINT arr[0xAL];
  12. } ;
  13. pOt__ArrTypDsc pOt__td_0_CLib= {
  14.   1,
  15.   0xAL, sizeof(pOt_LONGINT)
  16. };
  17. struct pOt__tag_1_CLib {
  18.   pOt__RecTypDsc *td;
  19.   struct pOt__tag_0_CLib pOt_r;
  20. } ;
  21. struct {
  22.   pOt_INTEGER mode;
  23.   pOt_LONGINT size;
  24.   pOt_INTEGER extlev, nstr, nptr, npro;
  25.   pOt__RecTypDsc *base_td[pOt__MaxExts];
  26.   struct {pOt_LONGINT poffs; pOt__TypDsc *fld_td;} tab[0x1];
  27. } pOt__td_1_CLib= {
  28.   0,
  29.   sizeof(struct pOt__tag_1_CLib),
  30.   0x0, 0x1, 0x0, 0x0,
  31.   {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},
  32.   {
  33.     {(pOt_LONGINT)&((struct pOt__tag_1_CLib*)0)->pOt_r, (pOt__TypDsc*)&pOt__td_0_CLib}
  34.   }
  35. };
  36.  
  37.  
  38. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  39.   pOt_NIL
  40. }};
  41. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  42.   pOt_NIL
  43. }};
  44.  
  45. pOt_LONGINT KernelSwi pOt__ARGS((pOt_LONGINT , pOt_LONGINT , pOt_LONGINT ));
  46.  
  47. void pOt_CLib__body()
  48. {
  49.   static int pOt_CLib__loaded=0;
  50.   if(!pOt_CLib__loaded){
  51.     pOt_CLib__loaded=1;
  52.  
  53.  
  54.     pOt__gc_ptrs.next=pOt__gc_root;
  55.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  56.  
  57.  
  58.  
  59.   pOt__Epilogue:;
  60.   }
  61. }
  62.