diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 11:22:41 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 11:22:41 +0100 |
| commit | 59e9bc0b6ff7d00bd56a5b4767014b6529bf820b (patch) | |
| tree | 6a6bd4a86df01a948ed4eeae70967786292cf016 /gcc/ada/bindgen.adb | |
| parent | 1a779058e1ebd6e68771f25062e95f3bb7ff48ab (diff) | |
| download | gcc-59e9bc0b6ff7d00bd56a5b4767014b6529bf820b.zip gcc-59e9bc0b6ff7d00bd56a5b4767014b6529bf820b.tar.gz gcc-59e9bc0b6ff7d00bd56a5b4767014b6529bf820b.tar.bz2 | |
[multiple changes]
2015-01-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb: Sloc of wrapper is that of instantiation.
2015-01-06 Robert Dewar <dewar@adacore.com>
* sem_ch11.adb: Minor reformatting.
2015-01-06 Ed Schonberg <schonberg@adacore.com>
* 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 <obry@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 14 |
1 files changed, 10 insertions, 4 deletions
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; |