Return to prunei.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / lisp / franz / tahoe

Annotation of 43BSDTahoe/ucb/lisp/franz/tahoe/prunei.c, revision 1.1

1.1     ! root        1: #include "global.h"
        !             2: #include "structs.h"
        !             3: 
        !             4: prunei(what)
        !             5: register lispval what;
        !             6: {
        !             7:        extern struct types int_str;
        !             8:        int gstart();
        !             9:        
        !            10:        if(((long)what) > ((long) gstart)) {
        !            11:                --(int_items->i);
        !            12:                what->i = (long) int_str.next_free;
        !            13:                int_str.next_free = (char *) what;
        !            14:        }
        !            15: }

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