home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / SYSTEM / SYS.C < prev    next >
Text File  |  1995-01-20  |  828b  |  28 lines
  1. #define DETERMINISTIC
  2. #include "GC/gc.h"
  3. #include "header.h"
  4.  
  5. extern BOOL deterministic;
  6.  
  7. /* The void * should be fixed up sometime */
  8.  
  9. INT c_SYS_id_OB_INT(void *s, void* ob) {          /* SYS::id($OB):INT */
  10.     if ((((OB)ob)->header.tag)<0) {
  11.     fprintf(stderr,"Can't call SYS::id($OB):INT on value types.\n");
  12. /*      abort();                                                                -- NLP */
  13.         exit(16);                                                         /*    -- NLP */
  14.     }
  15.     if (deterministic) 
  16.     return ((OB)ob)->header.id;
  17.     else
  18.     return (INT) (((unsigned long)ob)>>2);
  19. }
  20.  
  21. void c_SYS_destroy_OB(void *s, void* ob) {        /* SYS::destroy($OB) */
  22.     GC_free(ob);
  23. }
  24.  
  25. INT c_SYS_tp_OB_INT(void *s, void* ob) {          /* SYS::tp($OB) */
  26.     return ((OB)ob)->header.tag;
  27. }
  28.