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:                 let mutable symSection = reader.ReadInt16 ()
                  let mutable symType = reader.ReadUInt16 ()
                  let mutable (IMAGE_SYM_TYPE_NULL : System.UInt16) = uint16 0x0000
                  if symType <> IMAGE_SYM_TYPE_NULL || symSection <> 3s
                  then raise <| ResourceException("CoffResourceInvalidSymbol")
                  outputStream.Position <- int64 relocationOffsets.[i]
                  writer.Write (uint32 (int64 symValue + int64 rsrc1.SizeOfRawData))
                  i <- i + 1
  
          ResourceSection(imageResourceSectionBytes, relocationOffsets)
  
  type ICONDIRENTRY =
      struct
          val mutable bWidth: BYTE
          val mutable bHeight: BYTE
          val mutable bColorCount: BYTE
          val mutable bReserved: BYTE
          val mutable wPlanes: WORD
          val mutable wBitCount: WORD
          val mutable dwBytesInRes: DWORD
          val mutable dwImageOffset: DWORD
      end
  
  type VersionHelper() =
      /// <summary>
      /// Parses a version string of the form "major [ '.' minor [ '.' build [ '.' revision ] ] ]".
      /// </summary>
  
negative.code:                                         (* ERROR BreakNotSupported *)
                          if not breakLoop then
                              i <- i + 1
                  if hasWildcard then 
                      do 
                          let mutable (i : int) = lastExplicitValue
                          while (i < values.Length) do
  