From 8ed35dd5fb7e92fe9d872d078dc5f03d329ddebe Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 7 Feb 2007 19:35:54 +0000
Subject: [PATCH] * do a stack trace in case of abording with an heap error
 when EXTRA is defined

git-svn-id: trunk@6358 -
---
 rtl/inc/heaptrc.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/inc/heaptrc.pp b/rtl/inc/heaptrc.pp
index 6d14786a1e..f7c6d7ce47 100644
--- a/rtl/inc/heaptrc.pp
+++ b/rtl/inc/heaptrc.pp
@@ -942,6 +942,7 @@ begin
       end;
    end;
   writeln(ptext^,'pointer $',hexstr(ptrint(p),2*sizeof(pointer)),' does not point to valid memory block');
+  dump_error(p,ptext^);
   runerror(204);
 _exit:
 end;