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

Improve stack trace output with -Cr option, contributed by Colin Western

Browse Source 
git-svn-id: trunk@36134 -
This commit is contained in:
pierre 2017-05-06 13:54:50 +00:00
parent 631d4a2d53
commit ded1fb23a2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/generic.inc
View File

@ -793,7 +793,7 @@ begin
exit;
if (pobjectvmt(ppointer(_self+vmt_pos)^)^.size=0) or
(pobjectvmt(ppointer(_self+vmt_pos)^)^.size+pobjectvmt(ppointer(_self+vmt_pos)^)^.msize<>0) then
HandleError(210);
HandleErrorAddrFrameInd(210,get_pc_addr,get_frame);
{ reset vmt to nil for protection }
ppointer(_self+vmt_pos)^:=nil;
freemem(_self);
@ -832,7 +832,7 @@ begin
if (_vmt=nil) or
(pobjectvmt(_vmt)^.size=0) or
(pobjectvmt(_vmt)^.size+pobjectvmt(_vmt)^.msize<>0) then
HandleError(210);
HandleErrorAddrFrameInd(210,get_pc_addr,get_frame);
end;
{$endif ndef FPC_SYSTEM_HAS_FPC_CHECK_OBJECT}
@ -847,7 +847,7 @@ begin
if (vmt=nil) or
(pobjectvmt(vmt)^.size=0) or
(pobjectvmt(vmt)^.size+pobjectvmt(vmt)^.msize<>0) then
HandleError(210);
HandleErrorAddrFrameInd(210,get_pc_addr,get_frame);
while assigned(vmt) do
if vmt=expvmt then
exit
@ -860,7 +860,7 @@ begin
else
vmt:=nil;
{$endif}
HandleError(219);
HandleErrorAddrFrameInd(219,get_pc_addr,get_frame);
end;
{$endif not FPC_SYSTEM_HAS_FPC_CHECK_OBJECT_EXT}