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.  ‚  UnsafeStorage.Mesalast edited May 10, 1983 10:26 am by Paul Rovneruse this instead of uz.NEW if explicit control of the size arg is requiredreleases all storage associeated with the zone. Beware of dangling pointers!a uzone's fullProc is called when there is insufficient VM assigned to the uzone to satisfy a request (via NEW) to allocate an object of "size" words.  After the fullProc returns another allocation attempt is made.the default UZoneFullProc for a uzone is ExtendUZonereturns free VM pages to the operating systemTRUE if no VM pages are assigned to itAccess to a pre-defined UNCOUNTED ZONESIGNALs and ERRORs Êµ  ˜ Jšœ™Jšœ0™0˜ JšœÏk˜Jšœ˜J™ šÏn
œœÏc
œ	œœ˜?šœœœ˜JšœJ™J——J˜ JšžœœœŸ	œœ	œœ˜FJ˜ šž	œœ	œœ˜$JšœL™L—J˜ šÏbœ˜Jšœœœ	œœŸ	œ˜EJšœÖ™Ö—J˜ šžœœ	œœ˜AJšœ˜ Jšœ4™4—J˜ šž	œœ	œœ˜&J™-—J˜ šžœœ	œœœœ˜7Jšœ&™&—J™ š
žœœœ	œœ˜-Jšœ&™&—J™ J™ Jšœ™J˜ JšœœœœŸ˜<J˜ Jšœ˜—J˜ — …—    †  ½  