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

* Char no longer equal to widechar?

Browse Source
This commit is contained in:
michael 2021-05-17 09:46:22 +00:00
parent dd1c06d5b5
commit 73ff2aa7a0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl/classes.pas
View File

@ -1267,7 +1267,7 @@ type
TParser = class(TObject)
private
fStream : TStream;
fBuf : Array of Char;
fBuf : Array of WideChar;
FBufLen : integer;
fPos : integer;
fDeltaPos : integer;
@ -6733,7 +6733,7 @@ end;
function TBinaryObjectReader.ReadIdent(ValueType: TValueType): String;
var
i: Byte;
c : Char;
c : WideChar;
begin
case ValueType of
vaIdent:
@ -6822,7 +6822,7 @@ end;
function TBinaryObjectReader.ReadStr: String;
var
l,i: Byte;
c : Char;
c : WideChar;
begin
FStream.ReadBufferData(L);
SetLength(Result,L);
@ -6836,7 +6836,7 @@ end;
function TBinaryObjectReader.ReadString(StringType: TValueType): String;
var
i: Integer;
C : Char;
C : WideChar;
begin
Result:='';
@ -9863,7 +9863,7 @@ function TObjectStreamConverter.ReadStr: String;
var
l,i: Byte;
c : Char;
c : WideChar;
begin
Input.ReadBufferData(L);
@ -9879,7 +9879,7 @@ function TObjectStreamConverter.ReadString(StringType: TValueType): String;
var
i: Integer;
C : Char;
C : WideChar;
begin
Result:='';