Return to rlc.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / lisp / franz

BSD 4.3reno

#ifndef lint
static char *rcsid =
   "$Header: /var/lib/cvsd/repos/CSRG/43BSDReno/pgrm/lisp/franz/rlc.c,v 1.1.1.1 2018/04/24 16:12:57 root Exp $";
#endif

/*					-[Sat Jan 29 13:32:26 1983 by jkf]-
 * 	rlc.c				$Locker:  $
 * relocator for data space 
 *
 * (c) copyright 1982, Regents of the University of California
 */

#define TRUE 1
#include "h/global.h"
#if vax_4_2 | vax_4_3 | tahoe_4_3
#define brk(p) syscall(17,p)
#endif
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.