Minor reformatting.

From-SVN: r146697

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;

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- --

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