-- --
-- 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- --
return 0;
end sched_yield;
+ --------------
+ -- lwp_self --
+ --------------
+
+ 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;
+
------------------
-- pthread_init --
------------------