From c00e272ed3f6c7cb31b9f6777a9f0753ed414340 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Thu, 8 Apr 2004 17:54:03 +0000 Subject: re PR ada/14538 (*-rtems broken for gnat) 2004-04-08 Joel Sherrill PR ada/14538 * ada/5rosinte.adb: Remove fake mprotect() body. * ada/5rosinte.ads: Add SA_SIGINFO. * ada/5rtpopsp.adb: Rewrite to use new interface. * ada/init.c: Reorder so the simple single OS conditional __rtems__ is tested before more complex ones which mix UNIX and embedded systems in the conditional. From-SVN: r80517 --- gcc/ada/init.c | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'gcc/ada/init.c') diff --git a/gcc/ada/init.c b/gcc/ada/init.c index e627a8b..efc1a25 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -359,6 +359,22 @@ __gnat_initialize (void) { } +/***************************************/ +/* __gnat_initialize (RTEMS version) */ +/***************************************/ + +#elif defined(__rtems__) + +extern void __gnat_install_handler (void); + +/* For RTEMS, each bsp will provide a custom __gnat_install_handler (). */ + +void +__gnat_initialize (void) +{ + __gnat_install_handler (); +} + /****************************************/ /* __gnat_initialize (Dec Unix Version) */ /****************************************/ @@ -1887,22 +1903,6 @@ __gnat_initialize (void) __gnat_init_float (); } -/***************************************/ -/* __gnat_initialize (RTEMS version) */ -/***************************************/ - -#elif defined(__rtems__) - -extern void __gnat_install_handler (void); - -/* For RTEMS, each bsp will provide a custom __gnat_install_handler (). */ - -void -__gnat_initialize (void) -{ - __gnat_install_handler (); -} - #else /* For all other versions of GNAT, the initialize routine and handler -- cgit v1.1