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 6e62b39ed098c91b5ce087eda87ff0fc132ba908..c15d1490d0dea0425674c57869a277092d31097b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -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>
        
        * init.c:

diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb
index 53e74f5459b7ddba3d369da96afc8d83d903e3e6..5b3ed4b0ce5a67395360c346c0786b1f0641ec14 100644 (file)
--- 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 8271648db4680ff2b31bd30ba9c527c5fef5ac1d..df22279115e7efb692321dda464a4ca26488588c 100644 (file)
--- 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