aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/initialize.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/initialize.c')
-rw-r--r--gcc/ada/initialize.c14
1 files changed, 14 insertions, 0 deletions
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