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

compiler: remove unneeded check that def is objectdef when we have another check that object has vmt. records don't have vmt so we can leave only one check there

Browse Source 
git-svn-id: trunk@16668 -
This commit is contained in:
paul 2010-12-31 02:26:41 +00:00
parent 89dc742de2
commit b7f1ea0a93
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -1671,8 +1671,7 @@ implementation
begin
if (procdefinition.typ<>procdef) then
internalerror(200305062);
if (tprocdef(procdefinition).struct.typ=objectdef) and
(oo_has_vmt in tprocdef(procdefinition).struct.objectoptions) then
if (oo_has_vmt in tprocdef(procdefinition).struct.objectoptions) then
begin
{ we only need the vmt, loading self is not required and there is no
need to check for typen, because that will always get the
@ -2876,8 +2875,8 @@ implementation
assigned(methodpointer) and
(nf_is_self in methodpointer.flags) then
resultdef:=voidtype
else
resultdef:=procdefinition.returndef;
else
resultdef:=procdefinition.returndef;
end
else
resultdef:=typedef;