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

* Merging revisions 42041 from trunk:

Browse Source 
------------------------------------------------------------------------
    r42041 | michael | 2019-05-12 09:54:02 +0200 (Sun, 12 May 2019) | 1 line
    
    * Add largeint (int64) parameter supportby Silvio Clecio (bug ID 35554)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@42444 -
This commit is contained in:
michael 2019-07-14 08:55:17 +00:00
parent d0ff90ff06
commit fc89dc3cb1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File

@ -1,7 +1,7 @@
unit oracleconnection; unit oracleconnection;
{ {
Copyright (c) 2006-2014 by Joost van der Sluis, FPC contributors Copyright (c) 2006-2019 by Joost van der Sluis, FPC contributors
Oracle RDBMS connector using the OCI protocol Oracle RDBMS connector using the OCI protocol
@ -358,6 +358,7 @@ begin
case DataType of case DataType of
ftInteger : AsInteger := PInteger(ParamBuffers[i].buffer)^; ftInteger : AsInteger := PInteger(ParamBuffers[i].buffer)^;
ftLargeint : AsLargeInt := PInt64(ParamBuffers[i].buffer)^;
ftFloat : AsFloat := PDouble(ParamBuffers[i].buffer)^; ftFloat : AsFloat := PDouble(ParamBuffers[i].buffer)^;
ftString : begin ftString : begin
SetLength(s,ParamBuffers[i].Len); SetLength(s,ParamBuffers[i].Len);