-- $Header: /commtar/monoBANK/RTS/udealloc.ada,v 1.2 85/11/07 17:41:03 stt Exp $
-- $Source: /commtar/monoBANK/RTS/udealloc.ada,v $
-- $Revision: 1.2 $ -- $Date: 85/11/07 17:41:03 $ -- $Author: stt $

generic
    type Object is limited private;
    type Name   is access  Object;
procedure Unchecked_Deallocation (X : in out Name);
-- $Cprt start$
--  
-- Copyright (C) 1988 by Intermetrics, Inc. 
--  
--     This material may be used duplicated or disclosed by or for the 
-- U.S. Government pursuant to the copyright license under DAR clause 
-- 7-104.9(a) (May 1981). 
--  
--     This project was spnsored by the STARS Foundation 
--     Naval Research Laboratory, Washington DC 
--  
-- $Cprt end$