procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ada: init.c (__gnat_error_handler): Cast msg to const char *.

Browse source 
* env.c [__alpha__ && __osf__] (_BSD): Define.
	* init.c [__alpha__ && __osf__] (__gnat_error_handler): Cast msg
	to const char *.

From-SVN: r151938
This commit is contained in:
Rainer Orth 2009-09-21 18:58:29 +00:00 • committed by Rainer Orth
parent d9334061ea
commit 576891f9a6
3 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/ada/ChangeLog
View file

@ -1,3 +1,9 @@
2009-09-21 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* env.c [__alpha__ && __osf__] (_BSD): Define.
* init.c [__alpha__ && __osf__] (__gnat_error_handler): Cast msg
to const char *.
2009-09-18 Pascal Obry <obry@adacore.com>
* mingw32.h: Activate Unicode support for x86-64 Windows platform.

5
gcc/ada/env.c
View file

@ -29,6 +29,11 @@
* *
****************************************************************************/
/* Tru64 UNIX <stdlib.h> declares unsetenv() only if _BSD. */
#if defined (__alpha__) && defined (__osf__)
#define _BSD
#endif
#ifdef IN_RTS
#include "tconfig.h"
#include "tsystem.h"

2
gcc/ada/init.c
View file

@ -376,7 +376,7 @@ __gnat_error_handler
}
recurse = 0;
Raise_From_Signal_Handler (exception, (char *) msg);
Raise_From_Signal_Handler (exception, (const char *) msg);
}
void