File psl-1983/3-1/tests/mini-gc.red artifact 47687fbb7b part of check-in 255e9d69e6


% MINI-RECLAIM.RED - RECLAIM stubs for TEST series

on syslisp;

External Wvar HeapLowerBound,
	      HeapUpperBound,
	      HeapLast;

Procedure !%Reclaim();
 <<Prin2 '" *** Dummy !%RECLAIM: ";
   HeapInfo()>>;

Procedure Reclaim();
 <<Prin2 '"*** Dummy RECLAIM: ";
   HeapInfo()>>;

Procedure HeapInfo();
<< Prin1 ((HeapLast-HeapLowerBound)/AddressingUnitsPerItem);
   Prin2 '" Items used, ";
   Prin1 ((HeapUpperBound -HeapLast)/AddressingUnitsPerItem);
   Prin2t '" Items left.";
  0>>;

off syslisp;

End;


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]