* 1aexcept.adb, 1aexcept.ads, 1ic.ads, 1ssecsta.adb,

[pf3gnuchains/gcc-fork.git] / gcc / ada / 5aosinte.ads

diff --git a/gcc/ada/5aosinte.ads b/gcc/ada/5aosinte.ads
index 815c5ac..2573382 100644 (file)
--- a/gcc/ada/5aosinte.ads
+++ b/gcc/ada/5aosinte.ads
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---                                                                          --
---           Copyright (C) 1998-2001 Free Software Foundation, Inc.         --
+--           Copyright (C) 1998-2002 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- --
@@ -437,7 +436,7 @@ package System.OS_Interface is
    pragma Import (C, pthread_exit, "__pthread_exit");
 
    function pthread_self return pthread_t;
-   pragma Import (C, pthread_self, "__pthread_self");
+   pragma Inline (pthread_self);
 
    --------------------------
    -- POSIX.1c  Section 17 --