anchor.diff:  
       let codedTables = 
             
  +        let sizesTable = Array.map Array.length sortedTables
           let bignessTable = Array.map (fun rows -> Array.length rows >= 0x10000) sortedTables
           let bigness (tab:int32) = bignessTable.[tab]
  +        let size (tab:int32) = sizesTable.[tab]
           
           let codedBigness nbits tab =
             (tableSize tab) >= (0x10000 >>> nbits)
  
positive.code:             buf.EmitByte 0x0uy
  
      // Emit compressed untagged integer
      member buf.EmitZUntaggedIndex big idx = 
          if big then buf.EmitInt32 idx
          elif idx > 0xffff then failwithf "EmitZUntaggedIndex: too big for small address or simple index, idx = %d, big = %A, stack = %s" idx big ((new System.Diagnostics.StackTrace()).ToString())
          else buf.EmitInt32AsUInt16 idx
  
      // Emit compressed tagged integer
  
negative.code:                     | _ when t = RowElementTags.ULong         -> tablesBuf.EmitInt32 n
                      | _ when t = RowElementTags.Data          -> recordRequiredDataFixup requiredDataFixups tablesBuf (tablesStreamStart + tablesBuf.Position) (n, false)
                      | _ when t = RowElementTags.DataResources -> recordRequiredDataFixup requiredDataFixups tablesBuf (tablesStreamStart + tablesBuf.Position) (n, true)
                      | _ when t = RowElementTags.Guid          -> tablesBuf.EmitZUntaggedIndex -3 guidsStreamPaddedSize guidsBig (guidAddress n)
                      | _ when t = RowElementTags.Blob          -> tablesBuf.EmitZUntaggedIndex -2 blobsStreamPaddedSize blobsBig  (blobAddress n)
                      | _ when t = RowElementTags.String        -> tablesBuf.EmitZUntaggedIndex -1 stringsStreamPaddedSize stringsBig (stringAddress n)
                      | _ when t <= RowElementTags.SimpleIndexMax         -> 
                          let tnum = t - RowElementTags.SimpleIndexMin
                          tablesBuf.EmitZUntaggedIndex tnum (size tnum) (bigness tnum) n
                      | _ when t <= RowElementTags.TypeDefOrRefOrSpecMax  -> tablesBuf.EmitZTaggedIndex (t - RowElementTags.TypeDefOrRefOrSpecMin)  2 tdorBigness n
                      | _ when t <= RowElementTags.TypeOrMethodDefMax     -> tablesBuf.EmitZTaggedIndex (t - RowElementTags.TypeOrMethodDefMin)     1 tomdBigness n
                      | _ when t <= RowElementTags.HasConstantMax         -> tablesBuf.EmitZTaggedIndex (t - RowElementTags.HasConstantMin)         2 hcBigness   n
  