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

* Fix compilation in unicode rtl

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-14 11:08:03 +01:00
parent 4af99236b0
commit 76648d4022
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -95,7 +95,7 @@ Type
function GrowParts(by: SizeInt): PSizeInt;
procedure AddPiece(start, ed: PAnsiChar);
procedure AddCodepoint(cp: uint32);
function GetCurTokenString: string;
function GetCurTokenString: ansistring;
procedure BuildCurTokenString;
class function CodepointToASCII(cp: uint32; Rp: PAnsiChar): SizeInt; static;
@ -375,7 +375,7 @@ begin
GrowParts(1)^ := -1 - SizeInt(cp);
end;
function TJSONScanner.GetCurTokenString: string;
function TJSONScanner.GetCurTokenString: ansistring;
begin
if FNParts >= 0 then
BuildCurTokenString;