diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-24 12:33:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-24 12:33:02 +0200 |
| commit | e3dd53ec495fe55dfedef9ef3264eeed6bba1776 (patch) | |
| tree | b0b42c85e6cbb2c54328c64b389f0c1c76badb76 | |
| parent | 481f29eb5efa2a11682e4be46842f12ab51cb821 (diff) | |
| download | gcc-e3dd53ec495fe55dfedef9ef3264eeed6bba1776.zip gcc-e3dd53ec495fe55dfedef9ef3264eeed6bba1776.tar.gz gcc-e3dd53ec495fe55dfedef9ef3264eeed6bba1776.tar.bz2 | |
Minor reformatting.
From-SVN: r146697
| -rw-r--r-- | gcc/ada/s-osinte-darwin.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/s-osinte-darwin.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_warn.adb | 8 |
3 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/s-osinte-darwin.adb b/gcc/ada/s-osinte-darwin.adb index f3b8958..ac016d0 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 b62b2c1..66c2ac0 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 ce2288a..50c9d0c 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 |