From 59e9bc0b6ff7d00bd56a5b4767014b6529bf820b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 6 Jan 2015 11:22:41 +0100 Subject: [multiple changes] 2015-01-06 Ed Schonberg * sem_ch12.adb: Sloc of wrapper is that of instantiation. 2015-01-06 Robert Dewar * sem_ch11.adb: Minor reformatting. 2015-01-06 Ed Schonberg * exp_aggr.adb (Get_Assoc_Expr): New routine internal to Build_Array_Aggr_Code, used to initialized components covered by a box association. If the component type is scalar and has a default aspect, use it to initialize such components. 2015-01-06 Pascal Obry * rtinit.c (__gnat_runtime_initialize): Add a parameter to control the setup of the exception handler. * initialize.c: Remove unused declaration. * bindgen.adb: Always call __gnat_runtime_initialize and pass whether the exeception handler must be set or not. From-SVN: r219251 --- gcc/ada/bindgen.adb | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'gcc/ada/bindgen.adb') diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 0a9ece0..9a5c1a8 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -606,7 +606,8 @@ package body Bindgen is -- installation, and indication of if it's been called previously. WBI (""); - WBI (" procedure Runtime_Initialize;"); + WBI (" procedure Runtime_Initialize " & + "(Install_Handler : Integer);"); WBI (" pragma Import (C, Runtime_Initialize, " & """__gnat_runtime_initialize"");"); @@ -838,9 +839,14 @@ package body Bindgen is -- In .NET, when binding with -z, we don't install the signal handler -- to let the caller handle the last exception handler. - if Bind_Main_Program then - WBI (""); - WBI (" Runtime_Initialize;"); + WBI (""); + + if VM_Target /= CLI_Target + or else Bind_Main_Program + then + WBI (" Runtime_Initialize (1);"); + else + WBI (" Runtime_Initialize (0);"); end if; end if; -- cgit v1.1