1: #define MINT struct mint 2: MINT 3: { int len; 4: short *val; 5: }; 6: #define FREE(x) {if(x.len!=0) {free((char *)x.val); x.len=0;}} 7: #ifndef DBG 8: #define shfree(u) free((char *)u) 9: #else 10: #include "stdio.h" 11: #define shfree(u) { if(dbg) fprintf(stderr, "free %o\n", u); free((char *)u);} 12: extern int dbg; 13: #endif 14: struct half 15: { short high; 16: short low; 17: }; 18: extern MINT *itom(); 19: extern short *xalloc(); 20: 21: #ifdef lint 22: extern xv_oid; 23: #define VOID xv_oid = 24: #else 25: #define VOID 26: #endif