From 458440a9d0674879688021e4cacd04aa4d722fed Mon Sep 17 00:00:00 2001 From: Olivier Hainque Date: Fri, 7 Dec 2007 15:33:48 +0000 Subject: [PATCH] unc_memops.ads: Comment out the alloc/free/realloc exports and document how these can be exercised. 2007-12-07 Olivier Hainque testsuite/ * gnat.dg/unc_memops.ads: Comment out the alloc/free/realloc exports and document how these can be exercised. From-SVN: r130678 --- gcc/testsuite/ChangeLog | 5 +++++ 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 2dcabc16d61..9818fb4b482 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-12-07 Olivier Hainque + + * gnat.dg/unc_memops.ads: Comment out the alloc/free/realloc + exports and document how these can be exercised. + 2007-12-07 Samuel Tardieu PR ada/15805 diff --git a/gcc/testsuite/gnat.dg/unc_memops.ads b/gcc/testsuite/gnat.dg/unc_memops.ads index abc4fa7af2e..e64b3a62c40 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; -- 2.30.2