paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 00:46:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* show also allocation stack for a wrong size

Browse Source
This commit is contained in:
peter 1999-03-26 19:10:34 +00:00
parent 8d0666bd79
commit a8a60d933a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/heaptrc.pp
View File

@ -136,6 +136,7 @@ begin
dump_stack(stderr,get_caller_frame(get_frame)); dump_stack(stderr,get_caller_frame(get_frame));
for i:=0 to (exact_info_size div 4)-1 do for i:=0 to (exact_info_size div 4)-1 do
writeln(stderr,'info ',i,'=',plongint(@p^.extra_info+4*i)^); writeln(stderr,'info ',i,'=',plongint(@p^.extra_info+4*i)^);
call_stack(p);
end; end;
@ -364,7 +365,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.10 1999-02-16 17:20:26 pierre Revision 1.11 1999-03-26 19:10:34 peter
* show also allocation stack for a wrong size
Revision 1.10 1999/02/16 17:20:26 pierre
* no heap dump if program has an heap error ! * no heap dump if program has an heap error !
Revision 1.9 1999/01/22 12:39:22 pierre Revision 1.9 1999/01/22 12:39:22 pierre