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

Correct behavior: if VMT becomes NIL, RTE 219 must be generated as this happens if EXPVMT is not an ancestor of starting VMT

Browse Source 
git-svn-id: trunk@34197 -
This commit is contained in:
pierre 2016-07-24 06:13:46 +00:00
parent e1751df5c3
commit b9e6938519
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/generic.inc
View File

@ -858,7 +858,7 @@ begin
if assigned(pobjectvmt(vmt)^.parent) then if assigned(pobjectvmt(vmt)^.parent) then
vmt:=pobjectvmt(vmt)^.parent^ vmt:=pobjectvmt(vmt)^.parent^
else else
exit; vmt:=nil;
{$endif} {$endif}
RunError(219); RunError(219);
end; end;