2
0
Эх сурвалжийг харах

* Fix missing ftLongWord

git-svn-id: branches/fixes_3_2@48708 -
michael 4 жил өмнө
parent
commit
4f32872a71

+ 2 - 0
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);