let _JL_Double/_JL_Extended parse null as 0

Author: Arnaud Bouchez

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;
 

src/mormot.commit.inc

@@ -1 +1 @@
-'2.0.4856'
+'2.0.4857'