* 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

@@ -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;