Copyright (C) 1994, Digital Equipment Corp.
UNSAFE MODULE; IMPORT Cstdlib; PROCEDURE TclC FreeResult (interp: Interp_star) = BEGIN IF interp.freeProc # NIL THEN interp.freeProc (interp.result); interp.freeProc := NIL; END; END FreeResult; BEGIN volatile := LOOPHOLE (-1, FreeProc); static := LOOPHOLE (0, FreeProc); dynamic := LOOPHOLE (Cstdlib.free, FreeProc); END TclC.