diff --git a/src/absil/il.fs b/src/absil/il.fs index 3ab2d108f09..2830a841625 100644 --- a/src/absil/il.fs +++ b/src/absil/il.fs @@ -354,8 +354,17 @@ let isMscorlib data = [] type ILAssemblyRef(data) = - let uniqueStamp = AssemblyRefUniqueStampGenerator.Encode data - let uniqueIgnoringVersionStamp = AssemblyRefUniqueStampGenerator.Encode { data with assemRefVersion = None } + let pkToken key = + match key with + | Some (PublicKey bytes) -> Some (PublicKey (SHA1.sha1HashBytes bytes)) + | Some (PublicKeyToken token) -> Some (PublicKey (token)) + | None -> None + + let uniqueStamp = + AssemblyRefUniqueStampGenerator.Encode { data with assemRefPublicKeyInfo = pkToken (data.assemRefPublicKeyInfo) } + + let uniqueIgnoringVersionStamp = + AssemblyRefUniqueStampGenerator.Encode { data with assemRefVersion = None; assemRefPublicKeyInfo = pkToken (data.assemRefPublicKeyInfo) } member x.Name=data.assemRefName