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