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

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.