Return to gc.h CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / src / iconx

Annotation of researchv10dc/cmd/icon/src/iconx/gc.h, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Definitions and declarations used for storage management.
                      3:  */
                      4: 
                      5: #define F_Mark         0100000         /* high-order bit for gc marking */
                      6: #define Sqlinc             128         /* increment for qualifier pointer space */
                      7: 
                      8: /*
                      9:  * External definitions.
                     10:  */
                     11: 
                     12: extern char *currend;                  /* current end of memory region */
                     13: extern uword blkneed;                  /* stated need for block space */
                     14: extern uword strneed;                  /* stated need for string space */
                     15: extern uword statneed;
                     16: extern struct descrip *globals;        /* start of global variables */
                     17: extern struct descrip *eglobals;       /* end of global variables */
                     18: extern struct descrip *gnames;         /* start of global variable names */
                     19: extern struct descrip *egnames;        /* end of global variable names */
                     20: extern struct descrip *statics;        /* start of static variables */
                     21: extern struct descrip *estatics;       /* end of static variables */
                     22: extern struct descrip tended[];        /* tended descriptors, used by doasgn */
                     23: extern struct descrip etended[];       /* end of tended descriptors */
                     24: extern struct descrip **quallist;      /* beginning of qualifier list */
                     25: extern struct descrip **qualfree;      /* qualifier list free pointer */
                     26: extern struct descrip **equallist;     /* end of qualifier list */
                     27: 
                     28: /*
                     29:  * Get type of block pointed at by x.
                     30:  */
                     31: #define BlkType(x)   (*(word *)x)
                     32: 
                     33: /*
                     34:  * BlkSize(x) takes the block pointed to by x and if the size of
                     35:  *  the block as indicated by bsizes[] is non-zero it returns the
                     36:  *  indicated size, otherwise it returns the second word in the
                     37:  *  block which should be the size.
                     38:  */
                     39: #define BlkSize(x) (bsizes[*(word *)x & ~F_Mark] ? \
                     40:                     bsizes[*(word *)x & ~F_Mark] : *((word *)x + 1))
                     41: 
                     42: /*
                     43:  * If memory monitoring is not enabled, redefine function calls
                     44:  * to do nothing.
                     45:  */
                     46: #ifndef MemMon
                     47: #define MMAlc(n)
                     48: #define MMBGC()
                     49: #define MMEGC()
                     50: #define MMInit()
                     51: #define MMMark(b,t)
                     52: #define MMStr(n)
                     53: #define MMSMark(a,n)
                     54: #define MMType(t)
                     55: #endif MemMon

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.