Minor reformatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146697 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/s-osinte-darwin.adb b/gcc/ada/s-osinte-darwin.adb
index f3b8958119a8efebea5cf9638fab3bda6f56efd1..ac016d06927601adc360153428f632abca7d1544 100644 (file)
--- a/gcc/ada/s-osinte-darwin.adb
+++ b/gcc/ada/s-osinte-darwin.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---           Copyright (C) 1999-2009 Free Software Foundation, Inc.         --
+--          Copyright (C) 1999-2009, 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- --
@@ -156,7 +156,6 @@ package body System.OS_Interface is
    function lwp_self return Address is
       function pthread_mach_thread_np (thread : pthread_t) return Address;
       pragma Import (C, pthread_mach_thread_np, "pthread_mach_thread_np");
-
    begin
       return pthread_mach_thread_np (pthread_self);
    end lwp_self;

diff --git a/gcc/ada/s-osinte-darwin.ads b/gcc/ada/s-osinte-darwin.ads
index b62b2c108e6d977827bdc3e7967ec6a200b8dc34..66c2ac0b92e83ae663bc256c680a660230fb4556 100644 (file)
--- a/gcc/ada/s-osinte-darwin.ads
+++ b/gcc/ada/s-osinte-darwin.ads
@@ -7,7 +7,7 @@
 --                                  S p e c                                 --
 --                                                                          --
 --             Copyright (C) 1991-1994, Florida State University            --
---          Copyright (C) 1995-2008, Free Software Foundation, Inc.         --
+--          Copyright (C) 1995-2009, 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- --

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index ce2288af1707ae06c0889f31652c4388b1ca3d2a..50c9d0c6da93873d8be2a7f998b887a0fb4c9bfd 100644 (file)
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -212,11 +212,17 @@ package body Sem_Warn is
       end if;
 
       --  Check multiple code statements in a row
-      --  Note : the following code is now unreachable, because Asm statements
+
+      --  Note: the following code is now unreachable, because Asm statements
       --  are procedure calls whose actuals are concatenations, and as a result
       --  of a recent stack usage optimization each such call has its own
       --  block.
 
+      --  Are they always concatenations??? if so why not remove this code???
+
+      --  And indeed if we are really losing this warning, that's really bad
+      --  and we need to put it back ???
+
       if Is_List_Member (N)
         and then Present (Prev (N))
         and then Nkind (Prev (N)) = N_Code_Statement