home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / oberon / potsrc / src / c / DDEUtils < prev    next >
Encoding:
Text File  |  1995-05-08  |  498 b   |  32 lines
  1. /* This code is generated by pOt. */
  2.  
  3. #include <pOtRTL.h>
  4.  
  5. #include "hi.DDEUtils"
  6.  
  7.  
  8.  
  9.  
  10. static struct {void *next, *vars[0x1];} pOt__gc_ptrs = {pOt_NIL,{
  11.   pOt_NIL
  12. }};
  13. static struct {void *next, *vars[0x1];} pOt__gc_strs = {&pOt__gc_ptrs,{
  14.   pOt_NIL
  15. }};
  16.  
  17. void pOt_DDEUtils__body()
  18. {
  19.   static int pOt_DDEUtils__loaded=0;
  20.   if(!pOt_DDEUtils__loaded){
  21.     pOt_DDEUtils__loaded=1;
  22.  
  23.  
  24.     pOt__gc_ptrs.next=pOt__gc_root;
  25.     pOt__gc_root=(struct pOt__tag_gc_node*)&pOt__gc_strs;
  26.  
  27.  
  28.  
  29.   pOt__Epilogue:;
  30.   }
  31. }
  32.