<> <> <> <> <> UnsafeStorage: DEFINITIONS = BEGIN <<>> NewUObject: PROC [size: CARDINAL, zone: UNCOUNTED ZONE] RETURNS [LONG POINTER]; <<... allocates a new object with given # of words from the given zone. Use this instead of uz.NEW if explicit control of the size arg is required.>> <<>> GetSystemUZone: PROC RETURNS[UNCOUNTED ZONE]; <> <<>> GetTransientPageUZone: PROC RETURNS[UNCOUNTED ZONE]; <> <> <> <<>> <> <<>> <<>> InvalidPointer: ERROR[ptr: LONG POINTER]; -- Raised by FREE END.