package Locking_Objects is
type A_Locking_Object is access all Locking_Object;
LOCK_USE_EXCEPTION : exception;
entry Lock
procedure Unlock;
procedure Delete is new Ada.Unchecked_Deallocation