Return to gc.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / h

Annotation of 43BSD/contrib/icon/h/gc.h, revision 1.1

1.1     ! root        1: /*
        !             2:  * Definitions and declarations used for storage management.
        !             3:  */
        !             4: 
        !             5: #define MARK           0100000         /* high-order bit for gc marking */
        !             6: #define SQLINC             128         /* increment for s. q. list space */
        !             7: 
        !             8: /*
        !             9:  * External definitions.
        !            10:  */
        !            11: 
        !            12: extern unsigned heapneed;              /* stated need for heap space */
        !            13: extern unsigned strneed;               /* stated need for string space */
        !            14: extern int *boundary;                  /* Icon/C stack boundary address */
        !            15: extern struct descrip *globals;                /* start of global variables */
        !            16: extern struct descrip *eglobals;       /* end of global variables */
        !            17: extern struct descrip *gnames;         /* start of global variable names */
        !            18: extern struct descrip *egnames;                /* end of global variable names */
        !            19: extern struct descrip *statics;                /* start of static variables */
        !            20: extern struct descrip *estatics;       /* end of static variables */
        !            21: extern struct descrip tended[];                /* tended descriptors, used by lib routines */
        !            22: extern struct descrip etended[];       /* end of tended descriptors */
        !            23: extern struct descrip **sqlist;                /* beginning of string qualifier list */
        !            24: extern struct descrip **sqfree;                /* string qualifier list free pointer */
        !            25: extern struct descrip **esqlist;       /* end of string qualifier list */
        !            26: 
        !            27: /*
        !            28:  * Test if *x is a pointer.
        !            29:  */
        !            30: #define isptr(x)     ((!QUAL(*x)) && (VAR(*x) || POINTER(*x))) 
        !            31: /*
        !            32:  * Get type of block pointed at by x.
        !            33:  */
        !            34: #define blktype(x)   (*(int *)x) 
        !            35: /*
        !            36:  * getsize(x) takes the block pointed to by x and if the size of
        !            37:  *  the block as indicated by bsizes[] is non-zero it returns the
        !            38:  *  indicated size, otherwise it returns the second word in the
        !            39:  *  block which should be the size.
        !            40:  */
        !            41: #define getsize(x) (bsizes[*(int *)x & ~MARK] ? \
        !            42:                     bsizes[*(int *)x & ~MARK] : *((int *)x + 1))

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