aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/rtinit.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/rtinit.c')
-rw-r--r--gcc/ada/rtinit.c21
1 files changed, 12 insertions, 9 deletions
diff --git a/gcc/ada/rtinit.c b/gcc/ada/rtinit.c
index 59bac0f..97582db 100644
--- a/gcc/ada/rtinit.c
+++ b/gcc/ada/rtinit.c
@@ -76,7 +76,6 @@ int __gnat_rt_init_count = 0;
#include <windows.h>
extern void __gnat_init_float (void);
-extern void __gnat_install_SEH_handler (void *);
extern int gnat_argc;
extern char **gnat_argv;
@@ -138,7 +137,7 @@ append_arg (int *index, LPWSTR dir, LPWSTR value,
#endif
void
-__gnat_runtime_initialize(void)
+__gnat_runtime_initialize(int install_handler)
{
/* increment the reference counter */
@@ -302,7 +301,8 @@ __gnat_runtime_initialize(void)
}
#endif
- __gnat_install_handler();
+ if (install_handler)
+ __gnat_install_handler();
}
/**************************************************/
@@ -315,7 +315,7 @@ __gnat_runtime_initialize(void)
extern void __gnat_init_float (void);
void
-__gnat_runtime_initialize(void)
+__gnat_runtime_initialize(int install_handler)
{
/* increment the reference counter */
@@ -327,7 +327,8 @@ __gnat_runtime_initialize(void)
__gnat_init_float ();
- __gnat_install_handler();
+ if (install_handler)
+ __gnat_install_handler();
}
/***********************************************/
@@ -339,7 +340,7 @@ __gnat_runtime_initialize(void)
extern void __gnat_init_float (void);
void
-__gnat_runtime_initialize(void)
+__gnat_runtime_initialize(int install_handler)
{
/* increment the reference counter */
@@ -351,7 +352,8 @@ __gnat_runtime_initialize(void)
__gnat_init_float ();
- __gnat_install_handler();
+ if (install_handler)
+ __gnat_install_handler();
}
#else
@@ -361,7 +363,7 @@ __gnat_runtime_initialize(void)
/***********************************************/
void
-__gnat_runtime_initialize(void)
+__gnat_runtime_initialize(int install_handler)
{
/* increment the reference counter */
@@ -371,7 +373,8 @@ __gnat_runtime_initialize(void)
if (__gnat_rt_init_count > 1)
return;
- __gnat_install_handler();
+ if (install_handler)
+ __gnat_install_handler();
}
#endif