paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r46330 from trunk:

Browse Source 
------------------------------------------------------------------------
    r46330 | michael | 2020-08-08 14:40:13 +0200 (Sat, 08 Aug 2020) | 1 line
    
    * Remove some warnings/hints
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46638 -
This commit is contained in:
michael 2020-08-23 10:23:26 +00:00
parent bac46c9d3b
commit 31c847c3d9
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

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