From: Doug Rupp <rupp@adacore.com>
Date: Tue, 15 Mar 2005 15:57:58 +0000 (+0100)
Subject: bindgen.adb (Gen_Main_C): Change WBI __posix_exit to decc$posix_exit
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2ca2bc8b83f876989574ad3da8285ebf8a7728cd;p=gcc.git

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
---

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;