This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Minor reformatting
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Minor reformatting
- From: bosch at gnat dot com
- Date: Tue, 30 Oct 2001 15:55:44 -0500 (EST)
Applied for Robert.
2001-10-30 Robert Dewar <dewar@gnat.com>
* lib.adb: Minor reformatting
* s-taprop.ads: Minor reformatting
*** lib.adb 2001/06/22 21:01:38 1.97
--- lib.adb 2001/10/16 11:58:17 1.98
***************
*** 792,799 ****
procedure Store_Compilation_Switch (Switch : String) is
begin
Compilation_Switches.Increment_Last;
! Compilation_Switches.Table (Compilation_Switches.Last)
! := new String'(Switch);
end Store_Compilation_Switch;
--------------------------------
--- 792,799 ----
procedure Store_Compilation_Switch (Switch : String) is
begin
Compilation_Switches.Increment_Last;
! Compilation_Switches.Table (Compilation_Switches.Last) :=
! new String'(Switch);
end Store_Compilation_Switch;
--------------------------------
*** s-taprop.ads 2001/10/29 01:53:24 1.41
--- s-taprop.ads 2001/10/29 02:38:37 1.42
***************
*** 449,467 ****
function Suspend_Task
(T : ST.Task_ID;
! Thread_Self : OSI.Thread_Id) return Boolean;
-- Suspend a specific task when the underlying thread library provides
! -- such functionality, unless the thread associated with T is
! -- Thread_Self.
-- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful
function Resume_Task
(T : ST.Task_ID;
! Thread_Self : OSI.Thread_Id) return Boolean;
-- Resume a specific task when the underlying thread library provides
! -- such functionality, unless the thread associated with T is
! -- Thread_Self.
-- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful
--- 449,467 ----
function Suspend_Task
(T : ST.Task_ID;
! Thread_Self : OSI.Thread_Id)
! return Boolean;
-- Suspend a specific task when the underlying thread library provides
! -- such functionality, unless the thread associated with T is Thread_Self.
-- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful
function Resume_Task
(T : ST.Task_ID;
! Thread_Self : OSI.Thread_Id)
! return Boolean;
-- Resume a specific task when the underlying thread library provides
! -- such functionality, unless the thread associated with T is Thread_Self.
-- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful