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

* possible fix for 11062

Browse Source 
git-svn-id: trunk@11478 -
This commit is contained in:
florian 2008-07-28 18:42:30 +00:00
parent d05d315aa5
commit 916e982519
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/symdef.pas
View File

@ -3877,7 +3877,7 @@ implementation
else
tstoredsymtable(symtable).buildderef;
if objecttype in [odt_class,odt_interfacecorba] then
if assigned(ImplementedInterfaces) then
begin
for i:=0 to ImplementedInterfaces.count-1 do
TImplementedInterface(ImplementedInterfaces[i]).buildderef;