From: Robert Dewar Date: Tue, 30 Oct 2001 20:56:09 +0000 (+0000) Subject: lib.adb: Minor reformatting X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f5e44987a6f7e1028e5b959935fd33768548357f;p=gcc.git lib.adb: Minor reformatting * lib.adb: Minor reformatting * s-taprop.ads: Minor reformatting From-SVN: r46651 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 6e62b39ed09..c15d1490d0d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2001-10-30 Robert Dewar + + * lib.adb: Minor reformatting + + * s-taprop.ads: Minor reformatting + 2001-10-29 Laurent Guerby * init.c: diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index 53e74f5459b..5b3ed4b0ce5 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.97 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- -- -- @@ -792,8 +792,8 @@ package body Lib is procedure Store_Compilation_Switch (Switch : String) is begin Compilation_Switches.Increment_Last; - Compilation_Switches.Table (Compilation_Switches.Last) - := new String'(Switch); + Compilation_Switches.Table (Compilation_Switches.Last) := + new String'(Switch); end Store_Compilation_Switch; -------------------------------- diff --git a/gcc/ada/s-taprop.ads b/gcc/ada/s-taprop.ads index 8271648db46..df22279115e 100644 --- a/gcc/ada/s-taprop.ads +++ b/gcc/ada/s-taprop.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.1 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -449,19 +449,19 @@ package System.Task_Primitives.Operations is function Suspend_Task (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 - -- such functionality, unless the thread associated with T is - -- Thread_Self. + -- 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; + 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, 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