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

* Remove debug statement

Browse Source 
git-svn-id: trunk@49558 -
(cherry picked from commit 7a7abea0ee)
This commit is contained in:
michael 2021-06-24 13:20:34 +00:00 committed by florian
parent 8b48137f8c
commit 151de3c1d8
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-json/src/fpjsonapply.pp
View File

@ -244,10 +244,6 @@ procedure TJSONApplier.Execute;
if aPath='' then
exit;
D:=Result.FindPath(aPath);
if Assigned(D) then
Writeln('Have : ',D.ClassName)
else
Writeln('No D');
if (D=Nil) or Not (D is TJSONObject) then
Raise EJSON.CreateFmt(SErrPathNotFound,[aPath,aDesc]);
Result:=D as TJSONObject;