|
|
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.