diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-02-18 10:59:39 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-02-18 10:59:39 +0000 |
commit | f0c99126b560f8aa340b3df75d9d7e50ba45601c (patch) | |
tree | e0b0311f3667fdaa0d4f1d9af946e34321989bce | |
parent | 829ac4a7769f5360c4097f876cd12cb7e5acd396 (diff) | |
download | fpc-f0c99126b560f8aa340b3df75d9d7e50ba45601c.tar.gz |
* Fix missing ftLongWord
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@48708 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-db/src/sqldb/mysql/mysqlconn.inc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc b/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc index f90fd9f310..13215f11b8 100644 --- a/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc +++ b/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc @@ -1232,11 +1232,13 @@ begin VL := InternalStrToInt64(Source, Len); Move(VL, Dest^, SizeOf(LargeInt)); end; +{$IF FPC_FULLVERSION >=30301} ftLongWord: begin VO := InternalStrToDWord(Source, Len); Move(VO, Dest^, SizeOf(LongWord)); end; +{$ENDIF} ftFloat: begin VF := InternalStrToFloat(Source, Len); |