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

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

From-SVN: r151938

gcc/ada/ChangeLog

+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.

gcc/ada/env.c

@@ -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"

gcc/ada/init.c

@@ -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