diff options
| author | Doug Rupp <rupp@adacore.com> | 2005-03-15 16:57:58 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-15 16:57:58 +0100 |
| commit | 2ca2bc8b83f876989574ad3da8285ebf8a7728cd (patch) | |
| tree | c4a388f9fa260829d0aeaa563df866c6f5860f4d /gcc/ada/bindgen.adb | |
| parent | a9d8907c2025d9f9d29b96f236166389998a5a99 (diff) | |
| download | gcc-2ca2bc8b83f876989574ad3da8285ebf8a7728cd.zip gcc-2ca2bc8b83f876989574ad3da8285ebf8a7728cd.tar.gz gcc-2ca2bc8b83f876989574ad3da8285ebf8a7728cd.tar.bz2 | |
bindgen.adb (Gen_Main_C): Change WBI __posix_exit to decc$posix_exit
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
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -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 49d73c4..8ab8694 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; |