Return to rlc.c CVS log

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

BSD 4.0

static char *sccsid = "@(#)rlc.c	34.2 10/9/80";

#define TRUE 1
extern char holend[], end[];
extern int usehole;
extern char *curhbeg;

rlc()
{
	char *cp, *dp;
	
	brk(end);
	dp = holend;
	cp = dp - HOLE;
	while (dp < end)
		*dp++ = *cp++;
	curhbeg = holend - HOLE;	/* set up the hole */
	usehole = TRUE;
}

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