* dwarf2out.c (lower_bound_default): For DW_LANG_Python return

[pf3gnuchains/gcc-fork.git] / gcc / gthr-gnat.c

diff --git a/gcc/gthr-gnat.c b/gcc/gthr-gnat.c
index 9620135..4730bd3 100644 (file)
--- a/gcc/gthr-gnat.c
+++ b/gcc/gthr-gnat.c
@@ -1,12 +1,12 @@
 /* Threads compatibility routines for libgcc2.  */
 /* Compile this one with gcc.  */
-/* Copyright (C) 2003 Free Software Foundation, Inc.
+/* Copyright (C) 2003, 2004, 2009 Free Software Foundation, Inc.
 
 This file is part of GCC.
 
 GCC is free software; you can redistribute it and/or modify it under
 the terms of the GNU General Public License as published by the Free
-Software Foundation; either version 2, or (at your option) any later
+Software Foundation; either version 3, or (at your option) any later
 version.
 
 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
@@ -14,27 +14,30 @@ WARRANTY; without even the implied warranty of MERCHANTABILITY or
 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 for more details.
 
-You should have received a copy of the GNU General Public License
-along with GCC; see the file COPYING.  If not, write to the Free
-Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.  */
-
-/* As a special exception, if you link this library with other files,
-   some of which are compiled with GCC, to produce an executable,
-   this library does not by itself cause the resulting executable
-   to be covered by the GNU General Public License.
-   This exception does not however invalidate any other reasons why
-   the executable file might be covered by the GNU General Public License.  */
+Under Section 7 of GPL version 3, you are granted additional
+permissions described in the GCC Runtime Library Exception, version
+3.1, as published by the Free Software Foundation.
 
+You should have received a copy of the GNU General Public License and
+a copy of the GCC Runtime Library Exception along with this program;
+see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
+<http://www.gnu.org/licenses/>.  */
 
 #include "gthr-gnat.h"
 
+#ifndef HIDE_EXPORTS
+#pragma GCC visibility push(default)
+#endif
+
 #ifdef __cplusplus
 #define UNUSED(x)
 #else
 #define UNUSED(x) x __attribute__((unused))
 #endif
 
+void __gnat_default_lock (void);
+void __gnat_default_unlock (void);
+
 void
 __gnat_default_lock (void)
 {
@@ -47,17 +50,14 @@ __gnat_default_unlock (void)
   return;
 }
 
-static void (*__gnat_task_lock) () = *__gnat_default_lock;
-static void (*__gnat_task_unlock) () = *__gnat_default_unlock;
+static void (*__gnat_task_lock) (void) = *__gnat_default_lock;
+static void (*__gnat_task_unlock) (void) = *__gnat_default_unlock;
 
  void
-__gnat_install_locks (lock, unlock)
-     void (*lock) ();
-     void (*unlock) ();
+__gnat_install_locks (void (*lock) (void), void (*unlock) (void))
 {
   __gnat_task_lock = lock;
   __gnat_task_unlock = unlock;
-
 }
 
 int
@@ -80,5 +80,6 @@ __gthread_mutex_unlock (__gthread_mutex_t * UNUSED (mutex))
   return 0;
 }
 
-#undef UNUSED
-
+#ifndef HIDE_EXPORTS
+#pragma GCC visibility pop
+#endif