Browse Source

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

Sven/Sarah Barth 1 year ago
parent
commit
6bf7e4c0d3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl-objpas/src/inc/rtti.pp

+ 1 - 1
packages/rtl-objpas/src/inc/rtti.pp

@@ -1960,7 +1960,7 @@ begin
   case aValue.VType of
     vtInteger: Result:=aValue.VInteger;
     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^;
     vtQWord: Result:=aValue.VQWord^;
     vtChar: TValue.Make(@aValue.VChar,System.TypeInfo(AnsiChar),Result);