Return to rlc.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / lisp

Annotation of 40BSD/cmd/lisp/rlc.c, revision 1.1.1.1

1.1       root        1: static char *sccsid = "@(#)rlc.c       34.2 10/9/80";
                      2: 
                      3: #define TRUE 1
                      4: extern char holend[], end[];
                      5: extern int usehole;
                      6: extern char *curhbeg;
                      7: 
                      8: rlc()
                      9: {
                     10:        char *cp, *dp;
                     11:        
                     12:        brk(end);
                     13:        dp = holend;
                     14:        cp = dp - HOLE;
                     15:        while (dp < end)
                     16:                *dp++ = *cp++;
                     17:        curhbeg = holend - HOLE;        /* set up the hole */
                     18:        usehole = TRUE;
                     19: }

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