anchor.diff:  
     TX86Flags = class(TPersistent)
     strict private
  +    type PX86FlagValue = ^TX86FlagValue;
  +  strict private
       FDefinition: TInstructionDefinition;
     strict private
       FCF: TX86FlagValue;
  
positive.code:     FIF: TX86FlagValue;
      FDF: TX86FlagValue;
      FOF: TX86FlagValue;
      FRF: TX86FlagValue;
      FVM: TX86FlagValue;
      FAC: TX86FlagValue;
  
negative.code: 
  procedure TX86Flags.SaveToJSON(JSON: PJSONVariantData; const FieldName: String);
  var
    N: array[0..16] of String;
    F: TX86FlagValue;
    J: TJSONVariantData;
    I: Integer;
  begin
    N[ 0] := 'cf';  N[ 1] := 'pf';  N[ 2] := 'af';  N[ 3] := 'zf';  N[ 4] := 'sf';
    N[ 5] := 'tf';  N[ 6] := 'if';  N[ 7] := 'df';  N[ 8] := 'of';  N[ 9] := 'iopl';
    N[10] := 'nt';  N[11] := 'rf';  N[12] := 'vm';  N[13] := 'ac';  N[14] := 'vif';
    N[15] := 'vip'; N[16] := 'id';
    J.Init;
    for I := 0 to GetFlagCount - 1 do
    begin
      F := GetFlagValue(I);
      if (F <> fvUnused) then
      begin
        J.AddNameValue(N[I], SX86FlagValue[F]);
      end;
    end;
    if (J.Count > 0) then
  