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

* write empty section if no info about devirtualisable classes

Browse Source 
* don't crash when looking up info about devirtualisable methods in case
    the section was empty

git-svn-id: trunk@12346 -
This commit is contained in:
Jonas Maebe 2008-12-12 12:14:45 +00:00
parent 4b5bc94bff
commit d357fb8936
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/optvirt.pas
View File

@ -991,10 +991,10 @@ unit optvirt;
classdevirtinfo: tclassdevirtinfo;
first: boolean;
begin
writer.startsection(DEVIRT_SECTION_NAME);
{ if there are no optimised virtual methods, we have stored no info }
if not assigned(funits) then
exit;
writer.startsection(DEVIRT_SECTION_NAME);
documentformat(writer);
for unitcount:=0 to funits.count-1 do
begin
@ -1033,6 +1033,12 @@ unit optvirt;
vmtentry: longint;
realobjdef: tobjectdef;
begin
{ if we don't have any devirtualisation info, exit }
if not assigned(funits) then
begin
result:=false;
exit
end;
{ class methods are in the regular vmt, so we can handle classrefs
the same way as plain objectdefs
}