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