-- GriffinMemoryFns.mesa
--m.stone October 7, 1980  3:12 PM
--Tiberi December 11, 1979  12:46 AM
--Maureen Stone January 19, 1983 6:53 pm
-- Last Edited by: Pier, February 13, 1984 5:51:31 pm PST

DIRECTORY
    GriffinMemoryDefs: FROM "GriffinMemoryDefs",
    UnsafeStorage USING [GetSystemUZone, NewUObject],
    SafeStorage USING [GetPermanentZone];

GriffinMemoryFns: PROGRAM
    IMPORTS UnsafeStorage, SafeStorage
    EXPORTS GriffinMemoryDefs =
BEGIN

CZone: PUBLIC ZONE;
UCZone: PUBLIC UNCOUNTED ZONE;

Allocate: PUBLIC PROCEDURE[nwords: CARDINAL] RETURNS[LONG POINTER] =
BEGIN
RETURN[UnsafeStorage.NewUObject[nwords,UCZone]];
END;

Free: PUBLIC PROCEDURE[ptr: LONG POINTER]  ={ IF ptr#NIL THEN UCZone.FREE[@ptr]; };

Initialize: PUBLIC PROC = {
    UCZone _ UnsafeStorage.GetSystemUZone[];
    CZone _ SafeStorage.GetPermanentZone[];
    };

END.