-- $Source: /commtar/monoBANK/RTS/tAdbg.dat,v $
-- $Revision: 1.3 $ $Date: 88/03/04 18:23:50 $ $Author: rac $
with RTS_Parameters;
use RTS_Parameters;
pragma Elaborate(RTS_Parameters);
package RTS_TGT_Debug_Pkg is
    
    -- To eliminate ALL debugging code from the RTS, make the booleans
    -- all constant and false
    
    Tasks_Debug  : boolean := PickBoolean("Tasks_Debug", false);
    Delay_Debug  : boolean := PickBoolean("Delay_Debug", false);
    Abort_debug  : boolean := PickBoolean("Abort_Debug", false);
    Swap_Debug   : boolean := PickBoolean("Swap_Debug", false);
    Virtual_Time : boolean := PickBoolean("Virtual_Time", false);
    Calen_Debug  : boolean := PickBoolean("Calen_Debug", false);
    
end RTS_TGT_Debug_Pkg;
-- $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$