anchor.diff:            for f in Context.GetType(Value.AsObject.ClassType).GetFields do
               if f.FieldType <> nil then
               begin
  -              if GetFieldDisabled(f) then
  +              if GetFieldIgnore(f) then
                   continue;
                 v := TValue.Empty;
                 Result := FromJson(f.FieldType.Handle, GetFieldDefault(f, obj.AsObject[GetFieldName(f)]), v);
  
positive.code:   Serial: TSerialToJson;
  begin
    if field <> nil then
      if GetFieldDisabled(field) then
        exit(nil);
  
    if not SerialToJson.TryGetValue(value.TypeInfo, Serial) then
  
negative.code:   Result := r.Name;
  end;
  
  class function TSuperRttiContext.GetFieldIgnore(r: TRttiField): boolean;
  var
    o: TCustomAttribute;
  begin
    for o in r.GetAttributes do
      if o is SOIgnore then
        Exit(True);
    Result := false;
  end;
  
  class function TSuperRttiContext.GetFieldIgnoreSerialize(r: TRttiField): boolean;
  var
    o: TCustomAttribute;
  begin
    for o in r.GetAttributes do
      if (o is SOIgnore) or (o is SOIgnoreSerialize) then
        Exit(True);
    Result := false;
  end;
  