paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 17:59:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid a warning regarding automatic type conversion of Comp

Browse Source 
git-svn-id: trunk@42035 -
This commit is contained in:
svenbarth 2019-05-10 15:49:23 +00:00
parent c4c47652d4
commit 3493579c2d
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/i386/invoke.inc
View File

@ -420,7 +420,7 @@ begin
ftCurr: ftCurr:
PCurrency(aResultValue)^ := floatres / 10000; PCurrency(aResultValue)^ := floatres / 10000;
ftComp: ftComp:
PComp(aResultValue)^ := floatres; PComp(aResultValue)^ := Comp(floatres);
end; end;
end else if aResultType^.Kind in [tkQWord, tkInt64] then end else if aResultType^.Kind in [tkQWord, tkInt64] then
PQWord(aResultValue)^ := regstack[0] or (QWord(regstack[1]) shl 32) PQWord(aResultValue)^ := regstack[0] or (QWord(regstack[1]) shl 32)