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

* better handling of floating point types

Browse Source 
git-svn-id: trunk@36908 -
This commit is contained in:
svenbarth 2017-08-14 20:28:41 +00:00
parent 9a7d26e349
commit 89e47e098a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -508,7 +508,10 @@ begin
tkFloat : begin
case GetTypeData(ATypeInfo)^.FloatType of
ftCurr : result.FData.FAsCurr := PCurrency(ABuffer)^;
ftSingle : result.FData.FAsSingle := PSingle(ABuffer)^;
ftDouble : result.FData.FAsDouble := PDouble(ABuffer)^;
ftExtended: result.FData.FAsExtended := PExtended(ABuffer)^;
ftComp : result.FData.FAsComp := PComp(ABuffer)^;
end;
end;
else
@ -563,6 +566,7 @@ begin
if Kind = tkFloat then
begin
case TypeData^.FloatType of
ftSingle : result := FData.FAsSingle;
ftDouble : result := FData.FAsDouble;
ftExtended : result := FData.FAsExtended;
else