|
@@ -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)
|
svenbarth