anchor.diff:          end else
             Result := False;
         end;
  +    stNull:
  +      begin
  +        TValue.Make(SODefaultIntNone, TypeInfo, Value);
  +        result := true;
  +      end;
       else
         Result := False;
       end;
  
positive.code:       end;
      stNull:
        begin
          TValue.Make(-1, TypeInfo, Value);
          result := true;
        end;
      else
  
negative.code: function IsList(RttiContext: TRttiContext; TypeInfo: PTypeInfo): Boolean;
  function CreateInstance(RttiContext: TRttiContext; TypeInfo: PTypeInfo): TValue ;
  {$ENDIF}
  
  var
    SODefaultIntNone: integer = 0;
  
  implementation
  uses sysutils, RestJsonUtils, variants,
  