MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

lib.adb: Minor reformatting

Browse Source 
* lib.adb: Minor reformatting

	* s-taprop.ads: Minor reformatting

From-SVN: r46651
This commit is contained in:
Robert Dewar 2001-10-30 20:56:09 +00:00 committed by Geert Bosch
parent e717524703
commit f5e44987a6
3 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2001-10-30 Robert Dewar <dewar@gnat.com>
* lib.adb: Minor reformatting
* s-taprop.ads: Minor reformatting
2001-10-29 Laurent Guerby <guerby@acm.org> 2001-10-29 Laurent Guerby <guerby@acm.org>
* init.c: * init.c:

6
gcc/ada/lib.adb
View File

@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision: 1.97 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- -- -- --
@ -792,8 +792,8 @@ package body Lib is
procedure Store_Compilation_Switch (Switch : String) is procedure Store_Compilation_Switch (Switch : String) is
begin begin
Compilation_Switches.Increment_Last; Compilation_Switches.Increment_Last;
Compilation_Switches.Table (Compilation_Switches.Last) Compilation_Switches.Table (Compilation_Switches.Last) :=
:= new String'(Switch); new String'(Switch);
end Store_Compilation_Switch; end Store_Compilation_Switch;
-------------------------------- --------------------------------

14
gcc/ada/s-taprop.ads
View File

@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- $Revision: 1.1 $ -- $Revision$
-- -- -- --
-- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. --
-- -- -- --
@ -449,19 +449,19 @@ package System.Task_Primitives.Operations is
function Suspend_Task function Suspend_Task
(T : ST.Task_ID; (T : ST.Task_ID;
Thread_Self : OSI.Thread_Id) return Boolean; Thread_Self : OSI.Thread_Id)
return Boolean;
-- Suspend a specific task when the underlying thread library provides -- Suspend a specific task when the underlying thread library provides
-- such functionality, unless the thread associated with T is -- such functionality, unless the thread associated with T is Thread_Self.
-- Thread_Self.
-- Such functionality is needed by gdb on some targets (e.g VxWorks) -- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful -- Return True is the operation is successful
function Resume_Task function Resume_Task
(T : ST.Task_ID; (T : ST.Task_ID;
Thread_Self : OSI.Thread_Id) return Boolean; Thread_Self : OSI.Thread_Id)
return Boolean;
-- Resume a specific task when the underlying thread library provides -- Resume a specific task when the underlying thread library provides
-- such functionality, unless the thread associated with T is -- such functionality, unless the thread associated with T is Thread_Self.
-- Thread_Self.
-- Such functionality is needed by gdb on some targets (e.g VxWorks) -- Such functionality is needed by gdb on some targets (e.g VxWorks)
-- Return True is the operation is successful -- Return True is the operation is successful