-- RefCounts.mesa
-- Last Edited by: Paul Rovner, February 24, 1983 1:32 pm

RefCounts: DEFINITIONS
= BEGIN

GetCount: PROC[ref: LONG POINTER--loopholed REF--]
RETURNS[count: NAT, markedAsOnStack: BOOL];

-- BEWARE Enumerate is UNSAFE. See Paul Rovner before using it.
Enumerate: PROC[proc: PROC[ref: REF ANY, count: NAT, markedAsOnStack: BOOL]
RETURNS[stop: BOOL]]
RETURNS[ref: REF ANY, count: NAT, markedAsOnStack: BOOL];
-- (ref = NIL) => not stopped

END.