paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:30:47 +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

3
compiler/ncal.pas
View File

@ -1671,8 +1671,7 @@ implementation
begin begin
if (procdefinition.typ<>procdef) then if (procdefinition.typ<>procdef) then
internalerror(200305062); internalerror(200305062);
if (tprocdef(procdefinition).struct.typ=objectdef) and if (oo_has_vmt in tprocdef(procdefinition).struct.objectoptions) then
(oo_has_vmt in tprocdef(procdefinition).struct.objectoptions) then
begin begin
{ we only need the vmt, loading self is not required and there is no { 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 need to check for typen, because that will always get the