<> <> UnsafeStorage: DEFINITIONS = BEGIN <<>> NewUObject: PROC[size: CARDINAL--words--, zone: UNCOUNTED ZONE] RETURNS [LONG POINTER]; <> NewUZone: PROC[initialSize: INT _ 0--words--] RETURNS[UNCOUNTED ZONE]; FreeUZone: PROC[uz: UNCOUNTED ZONE]; <> ExtendUZone: UZoneFullProc; UZoneFullProc: TYPE = PROC[zone: UNCOUNTED ZONE, size: INT--words--]; <> SetUZoneFullProc: PROC[zone: UNCOUNTED ZONE, proc: UZoneFullProc] RETURNS[oldProc: UZoneFullProc]; <> TrimUZone: PROC[zone: UNCOUNTED ZONE]; <> IsUZoneEmpty: PROC[zone: UNCOUNTED ZONE] RETURNS[BOOL]; <> <<>> GetSystemUZone: PROC RETURNS[UNCOUNTED ZONE]; <> <<>> <<>> <> InvalidPointer: ERROR[ptr: LONG POINTER]; -- Raised by FREE END.