diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 15:57:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 15:57:58 +0000 |
| commit | d70083776f61dcad687a0eb3bd422a3fd53eeee4 (patch) | |
| tree | c4a388f9fa260829d0aeaa563df866c6f5860f4d /gcc | |
| parent | 4660e715aa628a0071e76853fda39cf8057c2c4e (diff) | |
| download | gcc-d70083776f61dcad687a0eb3bd422a3fd53eeee4.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96490 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/bindgen.adb | 7 |
1 files 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 <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; |