let _JL_Double/_JL_Extended parse null as 0

synopse · Feb 8, 2023 · 47d0364 · 47d0364
1 parent 2fa2a84
commit 47d0364
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/core/mormot.core.json.pas b/src/core/mormot.core.json.pas
@@ -7430,7 +7430,7 @@ procedure _JL_Double(Data: PDouble; var Ctxt: TJsonParserContext);
   if Ctxt.ParseNext then
   begin
     unaligned(Data^) := GetExtended(Ctxt.Value, err);
-    Ctxt.Valid := err = 0;
+    Ctxt.Valid := (Ctxt.Value = nil) or (err = 0);
   end;
 end;
 
@@ -7441,7 +7441,7 @@ procedure _JL_Extended(Data: PSynExtended; var Ctxt: TJsonParserContext);
   if Ctxt.ParseNext then
   begin
     Data^ := GetExtended(Ctxt.Value, err);
-    Ctxt.Valid := err = 0;
+    Ctxt.Valid := (Ctxt.Value = nil) or (err = 0);
   end;
 end;
 

diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.4856'
+'2.0.4857'