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

* Merging revisions 48708 from branches/fixes_3_2:

Browse Source 
------------------------------------------------------------------------
    r48708 | michael | 2021-02-18 11:59:39 +0100 (Thu, 18 Feb 2021) | 1 line
    
    * Fix missing ftLongWord
    ------------------------------------------------------------------------

git-svn-id: tags/release_3_2_2_rc1@48709 -
This commit is contained in:
michael 2021-02-18 11:03:12 +00:00
parent a85e8b419e
commit 09d9f28b4d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -1232,11 +1232,13 @@ begin
VL := InternalStrToInt64(Source, Len); VL := InternalStrToInt64(Source, Len);
Move(VL, Dest^, SizeOf(LargeInt)); Move(VL, Dest^, SizeOf(LargeInt));
end; end;
{$IF FPC_FULLVERSION >=30301}
ftLongWord: ftLongWord:
begin begin
VO := InternalStrToDWord(Source, Len); VO := InternalStrToDWord(Source, Len);
Move(VO, Dest^, SizeOf(LongWord)); Move(VO, Dest^, SizeOf(LongWord));
end; end;
{$ENDIF}
ftFloat: ftFloat:
begin begin
VF := InternalStrToFloat(Source, Len); VF := InternalStrToFloat(Source, Len);