Artifact 07c4c09533339034120bb623c441d149fbf5cf12ac8b2ff3f23a142245b32576:

• File psl-1983/3-1/kernel/20/system-gc.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 903) [annotate] [blame] [check-ins using] [more...]

%
% SYSTEM-GC.RED - System dependent before and after GC hooks
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        5 March 1982
% Copyright (c) 1982 University of Utah
%
%  21-May-1983 Mark R. Swanson
%   Unmap old heap space after copying GC has been called, so we don't
%   occupy as much swapping space.

on Syslisp;

CompileTime <<

external WVar
	      OldHeapLast, OldHeapLowerBound, OldHeapUpperBound;

syslsp smacro procedure BeforeGCSystemHook();
    NIL;

syslsp smacro procedure AfterGCSystemHook();
% Unmap all of old heap except first page, which is assumed to be the first
%  page in a section;  else after a savesystem, sections with no pages will
%  not exist (and we don't want to re-create them).

    unmap!-space( OldHeapLowerBound + 1,OldHeapLast+8#1777);

>>;

off Syslisp;

END;