@@ -220,7 +220,7 @@ public List<Declaration> GetDeclarationsForReference(Reference reference)
220220 break ;
221221 case DeclarationType . ClassModule :
222222 var module = new ClassModuleDeclaration ( typeQualifiedMemberName , projectDeclaration , typeName , true , new List < IAnnotation > ( ) , attributes ) ;
223- var implements = GetImplementedInterfaceNames ( typeAttributes , info ) ;
223+ var implements = GetImplementedInterfaceNames ( typeAttributes , info , module ) ;
224224 foreach ( var supertypeName in implements )
225225 {
226226 module . AddSupertype ( supertypeName ) ;
@@ -575,7 +575,7 @@ private ParameterDeclaration CreateParameterDeclaration(IReadOnlyList<string> me
575575 return new ParameterDeclaration ( new QualifiedMemberName ( typeQualifiedModuleName , paramName ) , memberDeclaration , paramInfo . Name , null , null , isOptional , paramInfo . IsByRef , paramInfo . IsArray ) ;
576576 }
577577
578- private IEnumerable < string > GetImplementedInterfaceNames ( TYPEATTR typeAttr , ITypeInfo info )
578+ private IEnumerable < string > GetImplementedInterfaceNames ( TYPEATTR typeAttr , ITypeInfo info , Declaration module )
579579 {
580580 var output = new List < string > ( ) ;
581581 for ( var implIndex = 0 ; implIndex < typeAttr . cImplTypes ; implIndex ++ )
@@ -616,7 +616,7 @@ private IEnumerable<string> GetImplementedInterfaceNames(TYPEATTR typeAttr, ITyp
616616 else
617617 {
618618 _comInformation . Add ( typeAttributes . guid ,
619- new ComInformation ( typeAttributes , flags , implTypeInfo , implTypeName , new QualifiedModuleName ( ) , null , 0 ) ) ;
619+ new ComInformation ( typeAttributes , flags , implTypeInfo , implTypeName , module . QualifiedName . QualifiedModuleName , module , 0 ) ) ;
620620 }
621621 }
622622
0 commit comments