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

2005-03-17  Doug Rupp  <rupp@adacore.com>

	* Makefile.in: (ia64-hp-*vms*): Use s-crtl-vms64.ads.

        * 5xcrtl.ads: Renamed to...
        * s-crtl-vms64.ads: ...this new file


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96670 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/Makefile.in b/gcc/ada/Makefile.in
index 59b6021fa46a..b3c0cee85729 100644
--- a/gcc/ada/Makefile.in
+++ b/gcc/ada/Makefile.in
@@ -1190,7 +1190,7 @@ ifeq ($(strip $(filter-out ia64 hp vms% openvms%,$(targ))),)
   LIBGNAT_TARGET_PAIRS_AUX1 = \
   g-enblsp.adb<g-enblsp-vms-ia64.adb \
   s-auxdec.ads<s-auxdec-vms_64.ads \
-  s-crtl.ads<s-crtl-vms.ads \
+  s-crtl.ads<s-crtl-vms64.ads \
   s-osinte.adb<s-osinte-vms-ia64.adb \
   s-osinte.ads<s-osinte-vms-ia64.ads \
   system.ads<system-vms_64.ads
diff --git a/gcc/ada/5xcrtl.ads b/gcc/ada/s-crtl-vms64.ads
similarity index 85%
rename from gcc/ada/5xcrtl.ads
rename to gcc/ada/s-crtl-vms64.ads
index dd3292e384a9..a26b272f6290 100644
--- a/gcc/ada/5xcrtl.ads
+++ b/gcc/ada/s-crtl-vms64.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                S p e c                                   --
 --                                                                          --
---           Copyright (C) 2004 Free Software Foundation, Inc.              --
+--         Copyright (C) 2004,2005 Free Software Foundation, Inc.           --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -32,7 +32,7 @@
 ------------------------------------------------------------------------------
 
 --  This package provides the low level interface to the C Run Time Library
---  on 64 bit VMS
+--  on 64 bit VMS.  Note that routines that allocate memory remain 32bit.
 
 with System.Parameters;
 package System.CRTL is
@@ -41,6 +41,9 @@ pragma Preelaborate (CRTL);
    subtype chars is System.Address;
    --  Pointer to null-terminated array of characters
 
+   subtype DIRs is System.Address;
+   --  Corresponds to the C type DIR*
+
    subtype FILEs is System.Address;
    --  Corresponds to the C type FILE*
 
@@ -59,6 +62,15 @@ pragma Preelaborate (CRTL);
    procedure clearerr (stream : FILEs);
    pragma Import (C, clearerr, "decc$clearerr");
 
+   function closedir (directory : DIRs) return Integer;
+   pragma Import (C, closedir, "decc$closedir");
+
+   function dup  (handle : int) return int;
+   pragma Import (C, dup, "decc$dup");
+
+   function dup2 (from, to : int) return int;
+   pragma Import (C, dup2, "decc$dup2");
+
    function fclose (stream : FILEs) return int;
    pragma Import (C, fclose, "decc$fclose");
 
@@ -72,7 +84,7 @@ pragma Preelaborate (CRTL);
    pragma Import (C, fgetc, "decc$fgetc");
 
    function fgets (strng : chars; n : int; stream : FILEs) return chars;
-   pragma Import (C, fgets, "decc$fgets");
+   pragma Import (C, fgets, "decc$_fgets64");
 
    function fopen (filename : chars; Mode : chars) return FILEs;
    pragma Import (C, fopen, "decc$fopen");
@@ -113,7 +125,7 @@ pragma Preelaborate (CRTL);
    pragma Import (C, lseek, "decc$lseek");
 
    function malloc (Size : size_t) return System.Address;
-   pragma Import (C, malloc, "decc$_malloc64");
+   pragma Import (C, malloc, "decc$malloc");
 
    procedure memcpy (S1 : System.Address; S2 : System.Address; N : size_t);
    pragma Import (C, memcpy, "decc$_memcpy64");
@@ -124,16 +136,28 @@ pragma Preelaborate (CRTL);
    procedure mktemp (template : chars);
    pragma Import (C, mktemp, "decc$_mktemp64");
 
+   function opendir (file_name : String) return DIRs;
+   pragma Import (C, opendir, "decc$opendir");
+
+   function pclose (stream : System.Address) return int;
+   pragma Import (C, pclose, "decc$pclose");
+
+   function popen (command, mode : System.Address) return System.Address;
+   pragma Import (C, popen, "decc$popen");
+
    function read (fd : int; buffer : chars; nbytes : int) return int;
    pragma Import (C, read, "decc$read");
 
    function realloc
      (Ptr : System.Address; Size : size_t) return System.Address;
-   pragma Import (C, realloc, "decc$_realloc64");
+   pragma Import (C, realloc, "decc$realloc");
 
    procedure rewind (stream : FILEs);
    pragma Import (C, rewind, "decc$rewind");
 
+   procedure rmdir (dir_name : String);
+   pragma Import (C, rmdir, "decc$rmdir");
+
    function setvbuf
      (stream : FILEs;
       buffer : chars;