From d70083776f61dcad687a0eb3bd422a3fd53eeee4 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 15 Mar 2005 15:57:58 +0000 Subject: [PATCH] 2005-03-08 Doug Rupp Vincent Celier * bindgen.adb (Gen_Main_C): Change WBI __posix_exit to decc$posix_exit (Gen_Output_File_C): Likewise. (Gen_Main_C): Issue #include to avoid warning git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96490 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/bindgen.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 49d73c4bcc2f..8ab8694bad25 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -1762,6 +1762,7 @@ package body Bindgen is procedure Gen_Main_C is begin if Exit_Status_Supported_On_Target then + WBI ("#include "); 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; -- 2.47.3