re PR ada/49940 (Bootstrapping on x86_64-pc-kfreebsd-gnu fails with "s-taprop.adb...

	PR ada/49940
	* s-osinte-kfreebsd-gnu.ads (lwp_self): New imported function.

From-SVN: r231330

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 848578132022541ea1789ac215fbd49881d4b47a..237022205cb4f94e48902657ff0446019a6b2694 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2015-12-06  Ludovic Brenta  <ludovic@ludovic-brenta.org>
+
+       PR ada/49940
+       * s-osinte-kfreebsd-gnu.ads (lwp_self): New imported function.
+
 2015-12-01  Jan Sommer <soja-lists@aries.uberspace.de>
 
        PR ada/68169

diff --git a/gcc/ada/s-osinte-kfreebsd-gnu.ads b/gcc/ada/s-osinte-kfreebsd-gnu.ads
index be46c2e531e7828532676a7af348c65af98227da..e4c7bd003652041087b4653a754630e365719263 100644 (file)
--- a/gcc/ada/s-osinte-kfreebsd-gnu.ads
+++ b/gcc/ada/s-osinte-kfreebsd-gnu.ads
@@ -7,7 +7,7 @@
 --                                  S p e c                                 --
 --                                                                          --
 --               Copyright (C) 1991-1994, Florida State University          --
---            Copyright (C) 1995-2014, Free Software Foundation, Inc.       --
+--            Copyright (C) 1995-2015, Free Software Foundation, Inc.       --
 --                                                                          --
 -- GNAT 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- --
@@ -236,6 +236,16 @@ package System.OS_Interface is
    function getpid return pid_t;
    pragma Import (C, getpid, "getpid");
 
+   ---------
+   -- LWP --
+   ---------
+
+   function lwp_self return System.Address;
+   --  lwp_self does not exist on this thread library, revert to pthread_self
+   --  which is the closest approximation (with getpid). This function is
+   --  needed to share 7staprop.adb across POSIX-like targets.
+   pragma Import (C, lwp_self, "pthread_self");
+
    -------------
    -- Threads --
    -------------