DataMuseum.dk

top - download

    Length: 2887 (0xb47)
    Types: TextFile
    Names: »B«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Debug_Io;
with Runtime_Ids;

package body Debug_Definitions is

    pragma Suppress (Storage_Check);

    subtype Command_Line     is String (1 .. 256);
    type    Command_Line_Ptr is access Command_Line;
    for Command_Line_Ptr'Storage_Size use 0;

    pragma Suppress (Index_Check, On => Command_Line);
    pragma Suppress (Access_Check); --, On => Command_Line_Ptr);

    Param_Ptr : Command_Line_Ptr;
    pragma Import_Object (Param_Ptr, "__OS_PARAM_PTR");

    Param_Size : Integer;
    pragma Import_Object (Param_Size, "__OS_PARAM_SIZE");


    procedure Scan_Command_Line is
        pragma Routine_Number (Runtime_Ids.Internal);
        Params : Command_Line renames Param_Ptr.all;
    begin
        for I in 1 .. Param_Size loop
            if Params (I) = '-' and then I < Param_Size then
                if Params (I + 1) = 'd' or else Params (I + 1) = 'D' then
                    Debug_Task_Management := True;
                    Debug_Io.Put_Line ("Debug Task Mgmt => True");
                elsif Params (I + 1) = 's' or else Params (I + 1) = 'S' then
                    Debug_Storage_Management := True;
                    Debug_Io.Put_Line ("Debug Storage Mgmt => True");
                elsif Params (I + 1) = 'e' or else Params (I + 1) = 'E' then
                    Debug_Exceptions := True;
                    Debug_Io.Put_Line ("Debug Exceptions => True");
                end if;
            elsif Params (I) = Ascii.Nul then
                exit;
            end if;
        end loop;
    end Scan_Command_Line;

begin
    -- setup defaults
    Safety_Check             := True;
    Debug_Exceptions         := False;
    Debug_Task_Management    := False;
    Debug_Storage_Management := False;
    -- scan for switch settings
    Scan_Command_Line;
end Debug_Definitions;
pragma Export_Elaboration_Procedure ("__DEBUG_DEFS_BODY_ELAB");
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);