anchor.diff:          do 
               let mutable (i : int) = 0
               while (i < relocationSymbolIndices.Length) do
  -                if int relocationSymbolIndices.[i] > peHeaders.CoffHeader.NumberOfSymbols
  -                then raise <| ResourceException("CoffResourceInvalidRelocation")
  +                if int relocationSymbolIndices.[i] > peHeaders.CoffHeader.NumberOfSymbols then
  +                    raise <| ResourceException("CoffResourceInvalidRelocation")
                   let mutable offsetOfSymbol = int64 peHeaders.CoffHeader.PointerToSymbolTable + int64 relocationSymbolIndices.[i] * int64 ImageSizeOfSymbol
                   stream.Position <- offsetOfSymbol
                   stream.Position <- stream.Position + 8L
  
positive.code:     static member val private CP_WINUNICODE = 1200u
      static member val private sizeVS_FIXEDFILEINFO = uint16 (sizeof<DWORD> * 13)
      member val private _isDll = Unchecked.defaultof<System.Boolean> with get, set
      new(isDll : System.Boolean, comments : string, companyName : string, fileDescription : string, fileVersion : string, internalName : string, legalCopyright : string, legalTrademark : string, originalFileName : string, productName : string, productVersion : string, assemblyVersion : Version) as this = 
          (VersionResourceSerializer ())
          then
  
negative.code:         let mutable (SizeOfRelocationEntry : int) = 10
          try
              let mutable relocLastAddress = rsrc1.PointerToRelocations + (int rsrc1.NumberOfRelocations * SizeOfRelocationEntry)
              if int64 relocLastAddress > stream.Length then
                  raise <| ResourceException("CoffResourceInvalidRelocation")
          with
              :? OverflowException -> (raise <| ResourceException("CoffResourceInvalidRelocation"))
          let mutable relocationOffsets = Array.zeroCreate (int rsrc1.NumberOfRelocations)
  