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

* use the VWideChar field to retrieve the WideChar value instead of VChar to fix usage on big endian systems

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-09-21 22:41:19 +02:00
parent 8fb803bba6
commit 6bf7e4c0d3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -1960,7 +1960,7 @@ begin
case aValue.VType of case aValue.VType of
vtInteger: Result:=aValue.VInteger; vtInteger: Result:=aValue.VInteger;
vtBoolean: Result:=aValue.VBoolean; vtBoolean: Result:=aValue.VBoolean;
vtWideChar: TValue.Make(@aValue.VChar,System.TypeInfo(WideChar),Result); vtWideChar: TValue.Make(@aValue.VWideChar,System.TypeInfo(WideChar),Result);
vtInt64: Result:=aValue.VInt64^; vtInt64: Result:=aValue.VInt64^;
vtQWord: Result:=aValue.VQWord^; vtQWord: Result:=aValue.VQWord^;
vtChar: TValue.Make(@aValue.VChar,System.TypeInfo(AnsiChar),Result); vtChar: TValue.Make(@aValue.VChar,System.TypeInfo(AnsiChar),Result);