paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 03:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: fix compile with fpc 3.2.0

Browse Source
This commit is contained in:
Martin 2022-08-12 14:57:00 +02:00
parent 0c85e0ffb6
commit f50c813229
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/packages/idedebugger/idedebuggerwatchresultjson.pas
View File

@ -64,7 +64,9 @@ begin
if FInternalJSon = nil then
try
//FInternalJSon := GetJSON(AsString);
P := TJSONParser.Create(AsString, [joUTF8,joComments,joIgnoreTrailingComma,joBOMCheck{,joIgnoreDuplicates}]);
P := TJSONParser.Create(AsString, [joUTF8,joComments,joIgnoreTrailingComma
{$IF FPC_VERSION >= 030202} , joBOMCheck {$ENDIF}
{,joIgnoreDuplicates}]);
try
FInternalJSon := P.Parse;
finally