DataMuseum.dk

top - download

    Length: 6147 (0x1803)
    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;

separate (Task_Management)  
package body Debugging is

    pragma Suppress_All;

    procedure Put_Message (Msg : String) is  
        pragma Routine_Number (Runtime_Ids.Internal);
    begin  
        Debug_Io.Put_Line
           ('[' & Integer'Image (Process_Ops.Current_Process_Id) & "] " & Msg);  
    end Put_Message;

    -- function Name (For_Task : Task_Id) return Integer is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     if For_Task = null then
    --         return 0;
    --     else
    --         return To_Integer (For_Task.all'Address);
    --     end if;
    -- end Name;

    -- procedure Put_Name (For_Task : Task_Id) is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     Debug_Io.Put (Name (For_Task), In_Hex => True);
    -- end Put_Name;

    -- function Name (For_Layer : Layer_Id) return Integer is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     if For_Layer = null then
    --         return 0;
    --     else
    --         return To_Integer (For_Layer.all'Address);
    --     end if;
    -- end Name;
    --
    -- procedure Put_Name (For_Layer : Layer_Id) is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     Debug_Io.Put (Name (For_Layer), In_Hex => True);
    -- end Put_Name;
    --

    -- procedure Put_Layer (Layer : Layer_Id) is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     Debug_Io.Put ("Layer owned by ");
    --     Put_Name (Layer.Master_Task);
    --     Debug_Io.Put (" is " & Coldness_Value'Image (Layer.Coldness));
    -- Debug_Io.New_Line;
    -- Debug_Io.Put ("  Number of Nonterminated dependents is");
    -- Debug_Io.Put (Layer.Non_Terminated);
    -- Debug_Io.New_Line;
    -- Debug_Io.Put ("  Number of Nonterminable dependents is");
    -- Debug_Io.Put (Layer.Non_Terminable);
    -- Debug_Io.New_Line;
    -- Debug_Io.Put ("  First dependent task is ");
    -- Put_Name (Layer.Dependent_Task_List.Next);
    -- Debug_Io.New_Line;
    -- Debug_Io.Put ("  Next layer is ");
    -- Put_Name (Layer.Layer_Link);
    -- Debug_Io.New_Line;
    -- Debug_Io.New_Line;
    -- end Put_Layer;

    -- procedure Put_Message_Queue (Id : Mq.Id) is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     Debug_Io.Put ("  Message queue id: ");
    --     Debug_Io.Put (Integer (Id.Upper), In_Hex => True, Width => 4);
    --     Debug_Io.Put (Integer (Id.Lower), In_Hex => True);
    --     -- might want to also put out queue length here
    --     Debug_Io.New_Line;
    -- end Put_Message_Queue;

    -- procedure Put_Message_Id (Id : Mq.Message_Id) is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    --     -- type Message_Id_Representation is range 0 .. 2 ** 16 - 1;
    --     -- function Convert is new Unchecked_Conversion
    --     --                            (Mq.Message_Id, Message_Id_Representation);
    --     -- The_Id : Message_Id_Representation := Convert (Id);
    -- begin
    --     null;
    --     -- Debug_Io.Put ("  Message id: ");
    --     -- Debug_Io.Put (Integer (The_Id), In_Hex => True, Width => 4);
    --     -- Debug_Io.New_Line;
    -- end Put_Message_Id;

    -- procedure Put_Tcb (The_Task : Task_Id) is
    --     pragma Routine_Number (Runtime_Ids.Internal);
    -- begin
    --     Debug_Io.Put ("TCB for task ");
    --     Put_Name (The_Task);
    --     Debug_Io.New_Line;
    --     -- if The_Task.Exception_Id /= null then
    --     --     Debug_Io.Put_Line ("  Exception id:  ");
    --     --     -- need image for exceptions.name
    --     -- end if;
    --     -- Debug_Io.Put ("  Stack top,size:  ");
    --     -- Debug_Io.Put (To_Integer (The_Task.Stack_Bounds.First), In_Hex => True);
    --     -- Debug_Io.Put (", ");
    --     -- Debug_Io.Put (The_Task.Stack_Bounds.Size, In_Hex => True);
    --     -- Debug_Io.New_Line;
    --     Debug_Io.Put ("  Suspension_State:  " &
    --                   Suspension_Reason'Image (The_Task.Suspension_State));
    --     Debug_Io.New_Line;
    --     Debug_Io.Put ("  Action State:  ");
    --     declare
    --         A : Action := Action'First;
    --     begin
    --         --for A in Action loop
    --         loop
    --             if The_Task.Action_State (A) then
    --                 Debug_Io.Put (Action'Image (A));
    --                 Debug_Io.Put (", ");
    --             end if;
    --             exit when A = Action'Last;
    --             A := Action'Succ (A);
    --         end loop;
    --     end;
    --     -- Debug_Io.New_Line;
    --     -- Debug_Io.Put ("  Entry_Count: ");
    --     -- Debug_Io.Put (Integer (The_Task.Queues.Wait_List.List'Last));
    --     -- Debug_Io.New_Line;
    --     -- Debug_Io.Put ("  Code_Start: ");
    --     -- Debug_Io.Put (To_Integer (The_Task.Code_Start_Ref.all), In_Hex => True);
    --     -- Debug_Io.New_Line;
    --     -- Debug_Io.Put ("  Priority: ");
    --     -- Debug_Io.Put (Integer (The_Task.Current_Priority));
    --     -- Debug_Io.New_Line;
    -- end Put_Tcb;

end Debugging;  
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);