[unix-history] / usr / src / old / lisp / franz / rlc.c

#ifndef lint
static char *rcsid =
   "$Header: rlc.c,v 1.5 87/12/14 17:19:20 sklower 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;
}
Commit	Line	Data
7f9b3fd7 C	1	#ifndef lint
	2	static char *rcsid =
	3	"$Header: rlc.c,v 1.5 87/12/14 17:19:20 sklower Exp $";
	4	#endif
	5
	6	/* -[Sat Jan 29 13:32:26 1983 by jkf]-
	7	* rlc.c $Locker: $
	8	* relocator for data space
	9	*
	10	* (c) copyright 1982, Regents of the University of California
	11	*/
	12
	13	#define TRUE 1
	14	#include "h/global.h"
	15	#if vax_4_2 \| vax_4_3 \| tahoe_4_3
	16	#define brk(p) syscall(17,p)
	17	#endif
	18	extern char holend[], end[];
	19	extern int usehole;
	20	extern char *curhbeg;
	21
	22	rlc()
	23	{
	24	char cp, dp;
	25
	26	brk(end);
	27	dp = holend;
	28	cp = dp - HOLE;
	29	while (dp < end)
	30	dp++ = cp++;
	31	curhbeg = holend - HOLE; /* set up the hole */
	32	usehole = TRUE;
	33	}