From 3df6582b4758a45cec6fbf55917e63030a2c598f Mon Sep 17 00:00:00 2001 From: John David Anglin Date: Sat, 4 Feb 2006 00:44:53 +0000 Subject: re PR target/25926 (A87B59A SIGABRT) PR target/25926 * ada/initialize.c (__gnat_initialize): Provide HP-UX 10 host and target implementation that calls __main. * pa/x-ada (X_ADA_CFLAGS): Define _X_HPUX10 on HP-UX 10. * pa/t-pa (TARGET_LIBGCC2_CFLAGS): Define _T_HPUX10 on HP-UX 10. From-SVN: r110580 --- gcc/ada/initialize.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'gcc/ada/initialize.c') diff --git a/gcc/ada/initialize.c b/gcc/ada/initialize.c index 9d00698..58d8ca8 100644 --- a/gcc/ada/initialize.c +++ b/gcc/ada/initialize.c @@ -170,6 +170,20 @@ __gnat_initialize (void *eh) #endif } +#elif defined(_T_HPUX10) || (!defined(IN_RTS) && defined(_X_HPUX10)) + +/************************************************/ +/* __gnat_initialize (PA-RISC HP-UX 10 Version) */ +/************************************************/ + +extern void __main (void); + +void +__gnat_initialize (void *eh ATTRIBUTE_UNUSED) +{ + __main (); +} + #else /* For all other versions of GNAT, the initialize routine and handler -- cgit v1.1