|
|
1.1 ! root 1: #include "../h/rt.h" ! 2: #ifdef AZ ! 3: /* ! 4: * collect(i) - explicit call to garbage collector. ! 5: */ ! 6: ! 7: Xcollect(nargs, arg1, arg0) ! 8: int nargs; ! 9: struct descrip arg1, arg0; ! 10: { ! 11: defshort(&arg1, 0); ! 12: gcollect(INTVAL(arg1)); ! 13: arg0 = nulldesc; ! 14: } ! 15: ! 16: Procblock(collect,1) ! 17: #else AZ ! 18: char junk; /* prevent empty object module */ ! 19: #endif AZ
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.