diff options
| author | Olivier Hainque <hainque@adacore.com> | 2007-12-07 15:33:48 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2007-12-07 15:33:48 +0000 |
| commit | 458440a9d0674879688021e4cacd04aa4d722fed (patch) | |
| tree | a6c68381b02b557c6acf6a02e8efd39adb644145 /gcc | |
| parent | 9cc11b58d2dc8c70a7892d0da5836e066219ea6d (diff) | |
| download | gcc-458440a9d0674879688021e4cacd04aa4d722fed.zip gcc-458440a9d0674879688021e4cacd04aa4d722fed.tar.gz gcc-458440a9d0674879688021e4cacd04aa4d722fed.tar.bz2 | |
unc_memops.ads: Comment out the alloc/free/realloc exports and document how these can be exercised.
2007-12-07 Olivier Hainque <hainque@adacore.com>
testsuite/
* gnat.dg/unc_memops.ads: Comment out the alloc/free/realloc
exports and document how these can be exercised.
From-SVN: r130678
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/unc_memops.ads | 12 |
2 files changed, 14 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2dcabc1..9818fb4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-12-07 Olivier Hainque <hainque@adacore.com> + + * gnat.dg/unc_memops.ads: Comment out the alloc/free/realloc + exports and document how these can be exercised. + 2007-12-07 Samuel Tardieu <sam@rfc1149.net> PR ada/15805 diff --git a/gcc/testsuite/gnat.dg/unc_memops.ads b/gcc/testsuite/gnat.dg/unc_memops.ads index abc4fa7..e64b3a6 100644 --- a/gcc/testsuite/gnat.dg/unc_memops.ads +++ b/gcc/testsuite/gnat.dg/unc_memops.ads @@ -17,8 +17,14 @@ package Unc_Memops is private - pragma Export (C, Alloc, "__gnat_malloc"); - pragma Export (C, Free, "__gnat_free"); - pragma Export (C, Realloc, "__gnat_realloc"); + -- Uncomment the exports below to really exercise the alternate versions. + + -- This only works when using an installed version of the tools which + -- grabs the runtime library objects from an archive, hence doesn't force + -- the inclusion of s-memory.o. + + -- pragma Export (C, Alloc, "__gnat_malloc"); + -- pragma Export (C, Free, "__gnat_free"); + -- pragma Export (C, Realloc, "__gnat_realloc"); end; |