Fewer warnings

packages/fcl-json/src/fpjson.pp

@@ -3732,6 +3732,7 @@ begin
         vtPChar      : AName:=TJSONUnicodeStringType(StrPas(VPChar));
       else
         DoError(SErrNameMustBeString,[I+1]);
+        AName:='';
       end;
     {$ENDIF}
     If (AName='') then

packages/fcl-json/src/jsonscanner.pp

@@ -313,6 +313,7 @@ begin
       end;
     else
       InvalidCharacter(Sp);
+      Result := tkEOF;
   end;
   FPartsSrcPos := Start; // BuildCurTokenString uses it to read relative offsets from FParts.
   FCurPos := Sp;