anchor.diff:              buf.EmitByte 0x0uy
   
       // Emit compressed untagged integer
  -    member buf.EmitZUntaggedIndex big idx = 
  +    member buf.EmitZUntaggedIndex nm sz 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())
  +        elif idx > 0xffff then failwithf "EmitZUntaggedIndex: index into table '%d' is too big for small address or simple index, idx = %d, big = %A, size of table = %d, stack = %s" nm idx big sz ((new System.Diagnostics.StackTrace()).ToString())
           else buf.EmitInt32AsUInt16 idx
   
       // Emit compressed tagged integer
  
positive.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 guidsBig (guidAddress n)
                      | _ when t = RowElementTags.Blob          -> tablesBuf.EmitZUntaggedIndex blobsBig  (blobAddress n)
                      | _ when t = RowElementTags.String        -> tablesBuf.EmitZUntaggedIndex stringsBig (stringAddress n)
                      | _ when t <= RowElementTags.SimpleIndexMax         -> tablesBuf.EmitZUntaggedIndex (bigness (t - RowElementTags.SimpleIndexMin)) 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
  
negative.code: 
      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)
  