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

* Fixed crash bug with IMPLEMENTS due to the changes earlier today. (No longer dereferences VtblImplIntf when we should not)

Browse Source 
git-svn-id: trunk@6221 -
This commit is contained in:
chrivers 2007-01-26 23:50:09 +00:00
parent a33d1b843a
commit 997f254ff7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nobj.pas
View File

@ -521,7 +521,7 @@ implementation
ImplIntf.AddImplProc(implprocdef)
end
else
if ImplIntf.VtblImplIntf.IType = etStandard then
if ImplIntf.IType = etStandard then
Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
end;
end;