From 2ca2bc8b83f876989574ad3da8285ebf8a7728cd Mon Sep 17 00:00:00 2001 From: Doug Rupp Date: Tue, 15 Mar 2005 16:57:58 +0100 Subject: [PATCH] bindgen.adb (Gen_Main_C): Change WBI __posix_exit to decc$posix_exit 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 From-SVN: r96490 --- 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 49d73c4bcc2..8ab8694bad2 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;