From 979bbe902b9ccd20555c44d799b0a19eae7bcdbc Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 30 Nov 2009 10:46:55 +0100 Subject: (malloc32, realloc32): Remove VMS-specific routines. From-SVN: r154764 --- gcc/ada/s-crtl.ads | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads index f013a41..e8bfd9b 100644 --- a/gcc/ada/s-crtl.ads +++ b/gcc/ada/s-crtl.ads @@ -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"); -- cgit v1.1