@@ -220,7 +220,7 @@ public List<Declaration> GetDeclarationsForReference(Reference reference)
220
220
break ;
221
221
case DeclarationType . ClassModule :
222
222
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 ) ;
224
224
foreach ( var supertypeName in implements )
225
225
{
226
226
module . AddSupertype ( supertypeName ) ;
@@ -575,7 +575,7 @@ private ParameterDeclaration CreateParameterDeclaration(IReadOnlyList<string> me
575
575
return new ParameterDeclaration ( new QualifiedMemberName ( typeQualifiedModuleName , paramName ) , memberDeclaration , paramInfo . Name , null , null , isOptional , paramInfo . IsByRef , paramInfo . IsArray ) ;
576
576
}
577
577
578
- private IEnumerable < string > GetImplementedInterfaceNames ( TYPEATTR typeAttr , ITypeInfo info )
578
+ private IEnumerable < string > GetImplementedInterfaceNames ( TYPEATTR typeAttr , ITypeInfo info , Declaration module )
579
579
{
580
580
var output = new List < string > ( ) ;
581
581
for ( var implIndex = 0 ; implIndex < typeAttr . cImplTypes ; implIndex ++ )
@@ -616,7 +616,7 @@ private IEnumerable<string> GetImplementedInterfaceNames(TYPEATTR typeAttr, ITyp
616
616
else
617
617
{
618
618
_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 ) ) ;
620
620
}
621
621
}
622
622
0 commit comments