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

* removed unnecessary internalerror triggered when reading wpo info for a

Browse Source 
program whereby no methods can be optimized for the last class in the
    contextinsensitive_devirtualization section

git-svn-id: trunk@13559 -
This commit is contained in:
Jonas Maebe 2009-08-19 20:25:41 +00:00
parent 125b9e79d7
commit c6b5038d5e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/optvirt.pas
View File

@ -1012,8 +1012,10 @@ unit optvirt;
{ cut off the trailing & }
setlength(classid,length(classid)-1);
classdevirtinfo:=unitdevirtinfo.addclass(classid,instantiated);
{ last class could be an instantiated class without any
optimisable methods. }
if not reader.sectiongetnextline(vmttype) then
internalerror(2008100506);
exit;
{ any optimisable virtual methods? }
if (vmttype<>'') then
begin