2005-06-14 Emmanuel Briot <briot@adacore.com>

	* g-debpoo.adb (Deallocate, Dereference): Improve output.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101039 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/g-debpoo.adb b/gcc/ada/g-debpoo.adb
index 5184618..0e3fdac 100644 (file)
--- a/gcc/ada/g-debpoo.adb
+++ b/gcc/ada/g-debpoo.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2004 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 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- --
@@ -1123,6 +1123,8 @@ package body GNAT.Debug_Pools is
                       Code_Address_For_Deallocate_End);
             Put ("   Memory already deallocated at ");
             Put_Line (0, To_Traceback (Header.Dealloc_Traceback).Traceback);
+            Put ("   Memory was allocated at ");
+            Put_Line (0, Header.Alloc_Traceback.Traceback);
          end if;
 
       else
@@ -1257,6 +1259,8 @@ package body GNAT.Debug_Pools is
                   Code_Address_For_Dereference_End);
                Put ("  First deallocation at ");
                Put_Line (0, To_Traceback (Header.Dealloc_Traceback).Traceback);
+               Put ("  Initial allocation at ");
+               Put_Line (0, Header.Alloc_Traceback.Traceback);
             end if;
          end if;
       end if;