4.3BSD - /usr/src/ucb/lisp/franz/rlc.c

   1: #ifndef lint
   2: static char *rcsid =
   3:    "$Header: rlc.c,v 1.4 85/05/22 07:53:51 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
  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: }

Defined functions

Defined variables

Defined macros