diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:05:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 09:05:38 +0200 |
| commit | e540d8d1addec446384f791fb970e2bcd4232fe6 (patch) | |
| tree | e961c9d18495c03ab6e78a2775f4a1338d2d9933 | |
| parent | d5316f684c43291075518fd1a52e3a77db3ba6a7 (diff) | |
| download | gcc-e540d8d1addec446384f791fb970e2bcd4232fe6.zip gcc-e540d8d1addec446384f791fb970e2bcd4232fe6.tar.gz gcc-e540d8d1addec446384f791fb970e2bcd4232fe6.tar.bz2 | |
(malloc32, realloc32): New functions.
From-SVN: r134074
| -rw-r--r-- | gcc/ada/s-crtl.ads | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads index 4ab0e7d..880780b 100644 --- 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"); |