anchor.diff:              let mutable (i : System.UInt16) = 0us
               while (i < count) do
                   iconStream.Position <- int64 iconDirEntries.[(int i)].dwImageOffset
  -                if iconReader.ReadUInt32 () = 40u
  -                then 
  +                if iconReader.ReadUInt32 () = 40u then 
                       iconStream.Position <- iconStream.Position + 8L
                       iconDirEntries.[(int i)].wPlanes <- iconReader.ReadUInt16 ()
                       iconDirEntries.[(int i)].wBitCount <- iconReader.ReadUInt16 ()
  
positive.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)
  
negative.code:     member val Version = Unchecked.defaultof<DWORD> with get, set
      member val Characteristics = Unchecked.defaultof<DWORD> with get, set
      member val data = Unchecked.defaultof<byte[]> with get, set
  
  type CvtResFile() =
      static member val private RT_DLGINCLUDE = 17 with get, set
      static member ReadResFile(stream : Stream) = 
  