From: charlet Date: Fri, 24 Apr 2009 10:33:02 +0000 (+0000) Subject: Minor reformatting. X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=cc285c23bb3bdcf559391b7a4179bb975f459aa7;p=thirdparty%2Fgcc.git 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 f3b8958119a8..ac016d069276 100644 --- 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 b62b2c108e6d..66c2ac0b92e8 100644 --- 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 ce2288af1707..50c9d0c6da93 100644 --- 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