<> <> <> <> <> DIRECTORY Allocator USING [PUZone]; UnsafeStoragePrivate: DEFINITIONS = BEGIN InitializeTransientPageZone: PROC[]; NewTransientPageObject: PROC[self: Allocator.PUZone, size: CARDINAL] RETURNS[p: LONG POINTER]; FreeTransientPageObject: PROC[self: Allocator.PUZone, object: LONG POINTER]; END.