(malloc32, realloc32): New functions.

From-SVN: r134074

diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads
index 4ab0e7d606db75cae739683987270cb103d71f5f..880780b0078741b51b8217683ef8045d09caac87 100644 (file)
--- a/gcc/ada/s-crtl.ads
+++ b/gcc/ada/s-crtl.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2003-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2003-2008, 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- --
@@ -133,6 +133,11 @@ 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");
 
@@ -152,6 +157,12 @@ 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");