* Fix for non-i386 platforms

git-svn-id: trunk@17849 -
This commit is contained in:
michael 2011-06-27 21:50:05 +00:00
parent 311d99b416
commit 2a3180c3d1

View File

@ -780,6 +780,7 @@ var
// This should be a pointer, because the ORIGINAL variables must
// be modified.
VSQLVar: ^XSQLVAR;
d : double;
begin
{$R-}
@ -843,7 +844,10 @@ begin
if VSQLVar^.sqlscale = 0 then
li := AParams[ParNr].AsLargeInt
else if AParams[ParNr].DataType = ftFMTBcd then
li := Round(AParams[ParNr].AsFMTBCD * IntPower(10, -VSQLVar^.sqlscale))
begin
d:=AParams[ParNr].AsFMTBCD * IntPower(10, -VSQLVar^.sqlscale);
li := Round(d)
end
else
li := Round(AParams[ParNr].AsCurrency * IntPower(10, -VSQLVar^.sqlscale));
Move(li, VSQLVar^.SQLData^, VSQLVar^.SQLLen);