paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for non-i386 platforms

Browse Source 
git-svn-id: trunk@17849 -
This commit is contained in:
michael 2011-06-27 21:50:05 +00:00
parent 311d99b416
commit 2a3180c3d1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/interbase/ibconnection.pp
View File

@ -780,7 +780,8 @@ var
// This should be a pointer, because the ORIGINAL variables must
// be modified.
VSQLVar: ^XSQLVAR;
d : double;
begin
{$R-}
with cursor as TIBCursor do for SQLVarNr := 0 to High(ParamBinding){AParams.count-1} do
@ -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);