procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bindgen.adb (Gen_Main_Ada, Gen_Main_C): Do not test Bind_Main_Program.

Browse source 
* bindgen.adb (Gen_Main_Ada, Gen_Main_C): Do not test
	Bind_Main_Program.

From-SVN: r68061
This commit is contained in:
Matt Kraai 2003-06-17 02:55:27 +00:00 • committed by Matt Kraai
parent cc0651d28d
commit 23d6baa345
2 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -1,3 +1,8 @@
2003-06-16 Matt Kraai <kraai@alumni.cmu.edu>
* bindgen.adb (Gen_Main_Ada, Gen_Main_C): Do not test
Bind_Main_Program.
2003-06-15 Neil Booth <neil@daikokuya.co.uk>
* lang.opt: Declare Ada.

22
gcc/ada/bindgen.adb
View file

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@ -1245,12 +1245,10 @@ package body Bindgen is
-- The reference stops Ada_Main_Program_Name from being optimized
-- away by smart linkers, such as the AiX linker.
if Bind_Main_Program then
WBI
(" Ensure_Reference : System.Address := " &
"Ada_Main_Program_Name'Address;");
WBI ("");
end if;
WBI
(" Ensure_Reference : System.Address := " &
"Ada_Main_Program_Name'Address;");
WBI ("");
WBI (" begin");
@ -1366,12 +1364,10 @@ package body Bindgen is
-- place). The reference stops Ada_Main_Program_Name from being
-- optimized away by smart linkers, such as the AiX linker.
if Bind_Main_Program then
WBI
(" char *ensure_reference __attribute__ ((__unused__)) = " &
"__gnat_ada_main_program_name;");
WBI ("");
end if;
WBI
(" char *ensure_reference __attribute__ ((__unused__)) = " &
"__gnat_ada_main_program_name;");
WBI ("");
if ALIs.Table (ALIs.First).Main_Program = Func then
WBI (" int result;");