aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorJohn David Anglin <dave.anglin@nrc-cnrc.gc.ca>2006-02-04 00:44:53 +0000
committerJohn David Anglin <danglin@gcc.gnu.org>2006-02-04 00:44:53 +0000
commit3df6582b4758a45cec6fbf55917e63030a2c598f (patch)
tree3da1d8792c133e6dc8356c5b0c6e85b93756432d /gcc/ada
parent74a88f62d13fd952202dec580cfa243b4a419798 (diff)
downloadgcc-3df6582b4758a45cec6fbf55917e63030a2c598f.zip
gcc-3df6582b4758a45cec6fbf55917e63030a2c598f.tar.gz
gcc-3df6582b4758a45cec6fbf55917e63030a2c598f.tar.bz2
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
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog6
-rw-r--r--gcc/ada/initialize.c14
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index df731eb..04e522d 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-03 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
+
+ PR target/25926
+ * initialize.c (__gnat_initialize): Provide HP-UX 10 host and target
+ implementation that calls __main.
+
2006-01-25 Peter O'Gorman <peter@pogma.com>
PR bootstrap/25859
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