paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-17 04:49:32 +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; function GrowParts(by: SizeInt): PSizeInt;
procedure AddPiece(start, ed: PAnsiChar); procedure AddPiece(start, ed: PAnsiChar);
procedure AddCodepoint(cp: uint32); procedure AddCodepoint(cp: uint32);
function GetCurTokenString: string; function GetCurTokenString: ansistring;
procedure BuildCurTokenString; procedure BuildCurTokenString;
class function CodepointToASCII(cp: uint32; Rp: PAnsiChar): SizeInt; static; class function CodepointToASCII(cp: uint32; Rp: PAnsiChar): SizeInt; static;
@ -375,7 +375,7 @@ begin
GrowParts(1)^ := -1 - SizeInt(cp); GrowParts(1)^ := -1 - SizeInt(cp);
end; end;
function TJSONScanner.GetCurTokenString: string; function TJSONScanner.GetCurTokenString: ansistring;
begin begin
if FNParts >= 0 then if FNParts >= 0 then
BuildCurTokenString; BuildCurTokenString;