From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 15 Mar 2005 15:57:58 +0000 (+0000)
Subject: 2005-03-08  Doug Rupp  <rupp@adacore.com>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=d70083776f61dcad687a0eb3bd422a3fd53eeee4;p=thirdparty%2Fgcc.git

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

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