(*
    Title: 	Storage - Definitions
    LastEdit:	"Fri Mar  1 11:27:58 1985"
    Author: 	Mick Jordan
		Cambridge University Computer Laboratory
*)
DEFINITION MODULE Storage;

FROM SYSTEM IMPORT ADDRESS;

EXPORT QUALIFIED ALLOCATE, DEALLOCATE, SetMode;

PROCEDURE ALLOCATE(VAR p: ADDRESS; size: CARDINAL);

PROCEDURE DEALLOCATE(VAR p: ADDRESS; size: CARDINAL);

(*  The following procedure is a temporary measure only and
    intended to be removed when exceptions can be trapped.
    It enables a program to attempt to recover from running
    out of space
*)

PROCEDURE SetMode(m: CARDINAL); 
    (* m: 1 = ALLOCATE aborts when not enough free space (default)
          2 = ALLOCATE gives NIL when not enough free space 
    *)

END Storage.

