From 916e982519d616d51667651e3824971fdedb637c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 28 Jul 2008 18:42:30 +0000
Subject: [PATCH] * possible fix for 11062

git-svn-id: trunk@11478 -
---
 compiler/symdef.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 8859ce118b..d1e4b05d5f 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -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;