diff options
Diffstat (limited to 'gcc/ada/s-tasdeb.adb')
| -rw-r--r-- | gcc/ada/s-tasdeb.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/s-tasdeb.adb b/gcc/ada/s-tasdeb.adb index cc431d609e0..f85e229dd70 100644 --- a/gcc/ada/s-tasdeb.adb +++ b/gcc/ada/s-tasdeb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2004 Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -48,7 +48,7 @@ package body System.Tasking.Debug is package STPO renames System.Task_Primitives.Operations; function To_Integer is new - Unchecked_Conversion (Task_ID, System.Address); + Unchecked_Conversion (Task_Id, System.Address); type Trace_Flag_Set is array (Character) of Boolean; @@ -80,7 +80,7 @@ package body System.Tasking.Debug is ---------------- procedure List_Tasks is - C : Task_ID; + C : Task_Id; begin C := All_Tasks_List; @@ -103,9 +103,9 @@ package body System.Tasking.Debug is -- Print_Task_Info -- --------------------- - procedure Print_Task_Info (T : Task_ID) is + procedure Print_Task_Info (T : Task_Id) is Entry_Call : Entry_Call_Link; - Parent : Task_ID; + Parent : Task_Id; begin if T = null then @@ -191,7 +191,7 @@ package body System.Tasking.Debug is ---------------------- procedure Resume_All_Tasks (Thread_Self : OS_Interface.Thread_Id) is - C : Task_ID; + C : Task_Id; Dummy : Boolean; pragma Unreferenced (Dummy); @@ -230,7 +230,7 @@ package body System.Tasking.Debug is ----------------------- procedure Suspend_All_Tasks (Thread_Self : OS_Interface.Thread_Id) is - C : Task_ID; + C : Task_Id; Dummy : Boolean; pragma Unreferenced (Dummy); @@ -273,10 +273,10 @@ package body System.Tasking.Debug is ----------- procedure Trace - (Self_Id : Task_ID; + (Self_Id : Task_Id; Msg : String; Flag : Character; - Other_Id : Task_ID := null) + Other_Id : Task_Id := null) is begin if Trace_On (Flag) then |