OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bindgen.adb (Gen_Main_C): Change WBI __posix_exit to decc$posix_exit

Browse Source 
2005-03-08  Doug Rupp  <rupp@adacore.com>
	    Vincent Celier  <celier@adacore.com>

	* bindgen.adb (Gen_Main_C): Change WBI __posix_exit to decc$posix_exit
	(Gen_Output_File_C): Likewise.
	(Gen_Main_C): Issue #include <stdlib.h> to avoid warning

From-SVN: r96490
This commit is contained in:
Doug Rupp 2005-03-15 16:57:58 +01:00 committed by Arnaud Charlet
parent a9d8907c20
commit 2ca2bc8b83
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/bindgen.adb
View File

@ -1762,6 +1762,7 @@ package body Bindgen is
procedure Gen_Main_C is
begin
if Exit_Status_Supported_On_Target then
WBI ("#include <stdlib.h>");
Set_String ("int ");
else
Set_String ("void ");
@ -1904,7 +1905,7 @@ package body Bindgen is
-- For all other systems, we use the standard exit routine.
if OpenVMS_On_Target then
WBI (" __posix_exit (result);");
WBI (" decc$__posix_exit (result);");
else
WBI (" exit (result);");
end if;
@ -1921,7 +1922,7 @@ package body Bindgen is
-- For all other systems, we use the standard exit routine.
if OpenVMS_On_Target then
WBI (" __posix_exit (gnat_exit_status);");
WBI (" decc$__posix_exit (gnat_exit_status);");
else
WBI (" exit (gnat_exit_status);");
end if;
@ -2535,7 +2536,7 @@ package body Bindgen is
end if;
if OpenVMS_On_Target then
WBI ("extern void __posix_exit (int);");
WBI ("extern void decc$__posix_exit (int);");
else
WBI ("extern void exit (int);");
end if;