anchor.diff:            for f in Context.GetType(Value.AsObject.ClassType).GetFields do
               if f.FieldType <> nil then
               begin
  +              if GetFieldDisabled(f) then
  +                continue;
                 v := TValue.Empty;
                 Result := FromJson(f.FieldType.Handle, GetFieldDefault(f, obj.AsObject[GetFieldName(f)]), v);
                 if Result then
  
positive.code:   Result := r.Name;
  end;
  
  class function TSuperRttiContext.GetFieldDefault(r: TRttiField; const obj: ISuperObject): ISuperObject;
  var
    o: TCustomAttribute;
  
negative.code: var
    Serial: TSerialToJson;
  begin
    if field <> nil then
      if GetFieldDisabled(field) then
        exit(nil);
  
    if not SerialToJson.TryGetValue(value.TypeInfo, Serial) then
      case Value.Kind of
        tkInt64: ToInt64;
  