paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 21:47:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix tkBool in class method TValue.Make

Browse Source 
git-svn-id: trunk@41767 -
This commit is contained in:
pierre 2019-03-22 14:26:39 +00:00
parent 6dec9ae064
commit 8750dba952
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-objpas/src/inc/rtti.pp
View File

@ -1332,13 +1332,13 @@ begin
end;
tkBool : begin
case GetTypeData(ATypeInfo)^.OrdType of
otUByte: result.FData.FAsSByte := ShortInt(System.PBoolean(ABuffer)^);
otUWord: result.FData.FAsUWord := Byte(PBoolean16(ABuffer)^);
otULong: result.FData.FAsULong := SmallInt(PBoolean32(ABuffer)^);
otUByte: result.FData.FAsUByte := Byte(System.PBoolean(ABuffer)^);
otUWord: result.FData.FAsUWord := Word(PBoolean16(ABuffer)^);
otULong: result.FData.FAsULong := DWord(PBoolean32(ABuffer)^);
otUQWord: result.FData.FAsUInt64 := QWord(PBoolean64(ABuffer)^);
otSByte: result.FData.FAsSByte := Word(PByteBool(ABuffer)^);
otSWord: result.FData.FAsSWord := LongInt(PWordBool(ABuffer)^);
otSLong: result.FData.FAsSLong := LongWord(PLongBool(ABuffer)^);
otSByte: result.FData.FAsSByte := ShortInt(PByteBool(ABuffer)^);
otSWord: result.FData.FAsSWord := SmallInt(PWordBool(ABuffer)^);
otSLong: result.FData.FAsSLong := LongInt(PLongBool(ABuffer)^);
otSQWord: result.FData.FAsSInt64 := Int64(PQWordBool(ABuffer)^);
end;
end;