diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-05 14:14:36 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-05 14:14:36 +0000 |
| commit | 7947a43964decdb9632653e3afa1a07030cf7c8e (patch) | |
| tree | e5940f065500a45141f98f894bec0fdcea88fd6e /gcc/ada/bindgen.adb | |
| parent | 21ffee2102be5ec586d2c71f9ca2207e21c49cba (diff) | |
| download | gcc-7947a43964decdb9632653e3afa1a07030cf7c8e.tar.gz | |
2011-08-05 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, gnatcmd.adb, switch-c.adb, exp_attr.adb, make.adb,
bindgen.adb, einfo.adb, sem_ch12.adb, sem_attr.adb, a-fihema.adb,
a-fihema.ads, sem_elab.adb, sem_elab.ads, aspects.adb, opt.ads,
prj-conf.adb, sem_ch13.adb, s-ficobl.ads: Minor reformatting
2011-08-05 Bob Duff <duff@adacore.com>
* a-stunau.ads, g-spipat.adb: Update comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177441 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 24e58cc45fb..78c077cc11f 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -929,6 +929,7 @@ package body Bindgen is procedure Gen_CodePeer_Wrapper is Callee_Name : constant String := "Ada_Main_Program"; + begin if ALIs.Table (ALIs.First).Main_Program = Proc then WBI (" procedure " & CodePeer_Wrapper_Name & " is "); @@ -1472,6 +1473,7 @@ package body Bindgen is procedure Gen_Main is begin if not No_Main_Subprogram then + -- To call the main program, we declare it using a pragma Import -- Ada with the right link name. @@ -1488,7 +1490,6 @@ package body Bindgen is if ALIs.Table (ALIs.First).Main_Program = Func then WBI (" function Ada_Main_Program return Integer;"); - else WBI (" procedure Ada_Main_Program;"); end if; @@ -1584,8 +1585,8 @@ package body Bindgen is end if; if Bind_Main_Program - and then not Suppress_Standard_Library_On_Target - and then not CodePeer_Mode + and not Suppress_Standard_Library_On_Target + and not CodePeer_Mode then WBI (" SEH : aliased array (1 .. 2) of Integer;"); WBI (""); @@ -1603,9 +1604,8 @@ package body Bindgen is -- this variable at any level of optimization. if Bind_Main_Program and not CodePeer_Mode then - WBI - (" Ensure_Reference : aliased System.Address := " & - "Ada_Main_Program_Name'Address;"); + WBI (" Ensure_Reference : aliased System.Address := " & + "Ada_Main_Program_Name'Address;"); WBI (" pragma Volatile (Ensure_Reference);"); WBI (""); end if; |