Return to refstore.c CVS log

Up to [Research Unix] / researchv10no / cmd / tsort

Annotation of researchv10no/cmd/tsort/refstore.c, revision 1.1

1.1     ! root        1: /* On machines that address memory in segments, reffetch and refstore
        !             2:  * can be rewritten to save and store data in a different segment than
        !             3:  * the rest of the program uses.
        !             4:  */
        !             5: 
        !             6: #define XINC 8000
        !             7: #include "ts.h"
        !             8: 
        !             9: static unsigned XMAX = 0;
        !            10: static struct refc *x = 0;
        !            11: char *malloc(), *realloc();
        !            12: 
        !            13: reffetch(i, rc)
        !            14: unsigned i;
        !            15: struct refc *rc;
        !            16: {
        !            17:        struct refc *xi;
        !            18: 
        !            19:        if (i >= XMAX) scream("i too big in reffetch\n");
        !            20:        xi = x + i;
        !            21:        rc->rcnext = xi->rcnext;
        !            22:        rc->rcref = xi->rcref;
        !            23:        }
        !            24: 
        !            25: refstore(i, rc)
        !            26: unsigned i;
        !            27: struct refc *rc;
        !            28: {
        !            29:        struct refc *xi;
        !            30: 
        !            31:        if (i >= XMAX) {
        !            32:                XMAX += XINC;
        !            33:                if (!x) x = (struct refc *) malloc(XINC*sizeof(struct refc));
        !            34:                else x = (struct refc *) realloc(x, XMAX*sizeof(struct refc));
        !            35:                if (!x) scream("not enough memory for refstore!");
        !            36:                }
        !            37:        if (i >= XMAX) scream("i too big in refstore\n");
        !            38:        xi = x + i;
        !            39:        xi->rcnext = rc->rcnext;
        !            40:        xi->rcref = rc->rcref;
        !            41:        }

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