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

- remove Writelns from JSONStringToString which were probably adding for debugging

Browse Source 
git-svn-id: trunk@46411 -
This commit is contained in:
svenbarth 2020-08-13 07:17:50 +00:00
parent 17d583a419
commit 8ae16284f2
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/fpjson.pp
View File

@ -988,14 +988,10 @@ begin
if (U1<>0) then if (U1<>0) then
begin begin
App:={$IFDEF FPC_HAS_CPSTRING}UTF8Encode({$ENDIF}WideChar(U1)+WideChar(U2){$IFDEF FPC_HAS_CPSTRING}){$ENDIF}; App:={$IFDEF FPC_HAS_CPSTRING}UTF8Encode({$ENDIF}WideChar(U1)+WideChar(U2){$IFDEF FPC_HAS_CPSTRING}){$ENDIF};
writeln('app a: ',L,': ',App);
U2:=0; U2:=0;
end end
else else
begin
writeln('app b: ',L,': ',WideChar(U2));
U1:=U2; U1:=U2;
end;
end; end;
end; end;
if App<>'' then if App<>'' then