Re: ada/9961: [3.4:cygwin] gcc/ada/raise.c:640: warning

[Olivier Hainque <hainque@ACT-Europe.FR>]

The following reply was made to PR ada/9961; it has been noted by GNATS.

From: Olivier Hainque <hainque@ACT-Europe.FR>
To: David.Billinghurst@riotinto.com
Cc: gcc-gnats@gcc.gnu.org, hainque@ACT-Europe.FR, bosch@gnat.com
Subject: Re: ada/9961: [3.4:cygwin] gcc/ada/raise.c:640: warning
Date: Wed, 5 Mar 2003 11:25:41 +0100

 Hello David,
 
 David.Billinghurst@riotinto.com wrote:
 > [...]The patch for ada/9911 results in
 > 
 > stage1/xgcc.exe [...] /local/src/gcc/gcc/ada/raise.c
 > /usr/local/src/gcc/gcc/ada/raise.c:640:
 >  warning: function declaration isn't a prototype
 
 Oh, I can see that, sorry for the inconvenience. Weired it did not prevent the
 bootstrap on hpux yesterday.
 
 The patch below fixes it for me. Bootstrapped on i686-pc-linux-gnu, where the
 build log does not show the warning anymore.
 
 Could you please confirm if it helps on your side ?
 
 Thanks in advance,
 
 Kind Regards,
 
 Olivier
 
 
 
 2003-03-05  Olivier Hainque <hainque@act-europe.fr>
 
 	ada/9961
 	* raise.c (__gnat_Unwind_RaiseException): Add prototype to avoid
 	warning, and fix return type for the IN_RTS && !SJLJ case.
 
 
 *** raise.c.ori	Wed Mar  5 09:26:55 2003
 --- raise.c	Wed Mar  5 11:17:42 2003
 *************** __gnat_unhandled_terminate ()
 *** 88,97 ****
   }
   
   /* Below is the code related to the integration of the GCC mechanism for
 !    exception handling.  */
   
   #include "unwind.h"
   
   /* Exception Handling personality routine for Ada.
   
      ??? It is currently inspired from the one for C++, needs cleanups and
 --- 88,107 ----
   }
   
   /* Below is the code related to the integration of the GCC mechanism for
 !    exception handling. Still work in progress. */
   
   #include "unwind.h"
   
 + /* If the underlying GCC scheme for exception handling is SJLJ, the standard
 +    propagation routine (_Unwind_RaiseException) is actually renamed using a
 +    #define directive (see unwing-sjlj.c). We need a consistently named
 +    interface to import from a-except, so stubs are defined here, at the end
 +    of this file.  */
 + 
 + _Unwind_Reason_Code
 + __gnat_Unwind_RaiseException PARAMS ((struct _Unwind_Exception *));
 + 
 + 
   /* Exception Handling personality routine for Ada.
   
      ??? It is currently inspired from the one for C++, needs cleanups and
 *************** __gnat_eh_personality (version, actions,
 *** 597,606 ****
   }
   
   
 ! /* If the underlying GCC scheme for exception handling is SJLJ, the standard
 !    propagation routine (_Unwind_RaiseException) is actually renamed using a
 !    #define directive (see unwing-sjlj.c). We need a consistently named
 !    interface to import from a-except, so stubs are defined here.  */
   
   #ifdef __USING_SJLJ_EXCEPTIONS__
   
 --- 607,613 ----
   }
   
   
 ! /* Stubs for the libgcc unwinding interface, to be imported by a-except.  */ 
   
   #ifdef __USING_SJLJ_EXCEPTIONS__
   
 *************** __gnat_Unwind_RaiseException (e)
 *** 614,620 ****
   #else
   /* __USING_SJLJ_EXCEPTIONS__ not defined */
   
 ! void
   __gnat_Unwind_RaiseException (e)
        struct _Unwind_Exception *e;
   {
 --- 621,627 ----
   #else
   /* __USING_SJLJ_EXCEPTIONS__ not defined */
   
 ! _Unwind_Reason_Code
   __gnat_Unwind_RaiseException (e)
        struct _Unwind_Exception *e;
   {