diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-12-17 11:15:13 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-12-17 11:15:13 +0000 |
| commit | 85a9611d825c785a6ab3c3fd54d4521b1340edb4 (patch) | |
| tree | 0f67b3826d2d2cb2eebb88fc4230b2eaf8b6cb2d /packages/fcl-db | |
| parent | 839d93f38ea03d0862673a832a0982a474c4004b (diff) | |
| download | fpc-85a9611d825c785a6ab3c3fd54d4521b1340edb4.tar.gz | |
Fix for 18239
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16577 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-db')
| -rw-r--r-- | packages/fcl-db/src/sqldb/interbase/ibconnection.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp index 2220a4cc57..ab00e13b33 100644 --- a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp +++ b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp @@ -905,7 +905,7 @@ begin case SQLDA^.SQLVar[x].SQLLen of 2 : begin Move(CurrBuff^, smalli, 2); - c := longi*intpower(10,SQLDA^.SQLVar[x].SQLScale); + c := smalli*intpower(10,SQLDA^.SQLVar[x].SQLScale); end; 4 : begin Move(CurrBuff^, longi, 4); |