paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove some warnings/hints

Browse Source 
git-svn-id: trunk@46330 -
This commit is contained in:
michael 2020-08-08 12:40:13 +00:00
parent cc4e6458c4
commit fed066b805
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-json/src/fpjsonrtti.pp
View File

@ -423,9 +423,7 @@ procedure TJSONDeStreamer.DoClearProperty(AObject : TObject;PropInfo : PPropInfo
Var
PI : PPropInfo;
TI : PTypeInfo;
I,J,S : Integer;
A : TJSONArray;
JS : TJSONStringType;
begin
PI:=PropInfo;
TI:=PropInfo^.PropType;
@ -456,6 +454,8 @@ begin
SetOrdProp(AObject,PI,0);
tkUString :
SetUnicodeStrProp(AObject,PI,'');
else
{
tkObject,
tkArray,
tkRecord,
@ -463,7 +463,7 @@ begin
tkDynArray,
tkInterfaceRaw,
tkProcVar,
tkMethod :
tkMethod }
Error(SErrUnsupportedPropertyKind,[PI^.Name]);
end;
end;