home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC2.6 / M2DM.MOD < prev    next >
Encoding:
Text File  |  1992-05-29  |  1.1 KB  |  17 lines  |  [TEXT/MEDT]
  1. IMPLEMENTATION MODULE M2DM;  (* NW 20.5.84; WH 19.8.86 *)
  2.  
  3.   FROM SYSTEM   IMPORT ADDRESS, LONG, VAL;
  4.   FROM System   IMPORT Allocate, Deallocate;
  5.   FROM Terminal IMPORT WriteString;
  6.  
  7.   CONST MinHeapSize =  30000D;
  8.         MaxHeapSize = 250000D;
  9.         StepSize    =  10000D;
  10.  
  11.   VAR current, last: ADDRESS; trySize: LONGINT;
  12.  
  13.   PROCEDURE ALLOCATE(VAR a: ADDRESS; n: CARDINAL);
  14.   BEGIN
  15.     a := current; IF ODD(n) THEN INC(n) END;
  16.     current := current + VAL(ADDRESS,LONG(n));
  17.     IF current >= last THEN WriteS