OSDN Git Service

(malloc32, realloc32): Remove VMS-specific routines.
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 Nov 2009 09:46:55 +0000 (09:46 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 30 Nov 2009 09:46:55 +0000 (09:46 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154764 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/s-crtl.ads

index f013a41..e8bfd9b 100644 (file)
@@ -131,11 +131,6 @@ package System.CRTL is
    function malloc (Size : size_t) return System.Address;
    pragma Import (C, malloc, "malloc");
 
-   function malloc32 (Size : size_t) return System.Address;
-   pragma Import (C, malloc32, "malloc");
-   --  An uncalled alias for malloc except on 64bit systems needing to
-   --  allocate 32bit memory.
-
    procedure memcpy (S1 : System.Address; S2 : System.Address; N : size_t);
    pragma Import (C, memcpy, "memcpy");
 
@@ -155,12 +150,6 @@ package System.CRTL is
      (Ptr : System.Address; Size : size_t) return System.Address;
    pragma Import (C, realloc, "realloc");
 
-   function realloc32
-     (Ptr : System.Address; Size : size_t) return System.Address;
-   pragma Import (C, realloc32, "realloc");
-   --  An uncalled alias for realloc except on 64bit systems needing to
-   --  allocate 32bit memory.
-
    procedure rewind (stream : FILEs);
    pragma Import (C, rewind, "rewind");