From e3dd53ec495fe55dfedef9ef3264eeed6bba1776 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 24 Apr 2009 12:33:02 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r146697 --- gcc/ada/s-osinte-darwin.adb | 3 +-- gcc/ada/s-osinte-darwin.ads | 2 +- 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 -- 2.7.4