]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
re PR ada/17527 (Ada Bootstrap problem because of -Werror)
authorArnaud Charlet <charlet@gcc.gnu.org>
Mon, 3 Jan 2005 15:38:54 +0000 (16:38 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 3 Jan 2005 15:38:54 +0000 (16:38 +0100)
PR ada/17527
* init.c: Fix warnings on Free BSD section.

From-SVN: r92841

gcc/ada/init.c

index ee0919297de9a13c909255c7224281ab9a2d406f..7858a2bec5cb114f2b6678215ae9c7586898ce73 100644 (file)
@@ -6,7 +6,7 @@
  *                                                                          *
  *                          C Implementation File                           *
  *                                                                          *
- *          Copyright (C) 1992-2004 Free Software Foundation, Inc.          *
+ *          Copyright (C) 1992-2005 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- *
@@ -1577,14 +1577,14 @@ __gnat_initialize(void)
 #include <signal.h>
 #include <unistd.h>
 
+static void __gnat_error_handler (int, int, struct sigcontext *);
+
 static void
-__gnat_error_handler (sig, code, sc)
-     int sig;
-     int code;
-     struct sigcontext *sc;
+__gnat_error_handler (int sig, int code __attribute__ ((unused)),
+                     struct sigcontext *sc __attribute__ ((unused)))
 {
   struct Exception_Data *exception;
-  char *msg;
+  const char *msg;
 
   switch (sig)
     {
@@ -1635,8 +1635,6 @@ __gnat_install_handler ()
   (void) sigaction (SIGBUS,  &act, NULL);
 }
 
-void __gnat_init_float ();
-
 void
 __gnat_initialize ()
 {