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

* fixed for 64 bit targets

Browse Source 
git-svn-id: trunk@1622 -
This commit is contained in:
florian 2005-11-01 22:11:59 +00:00
parent 7bff61ce29
commit 81bf59a638
1 changed files with 33 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/sqldb/odbc/odbcconn.pas
View File

@ -321,7 +321,9 @@ end;
function TODBCConnection.GetHandle: pointer; function TODBCConnection.GetHandle: pointer;
begin begin
// I'm not sure whether this is correct; perhaps we should return nil // I'm not sure whether this is correct; perhaps we should return nil
Result:=pointer(FDBCHandle); // note that FDBHandle is a LongInt, because ODBC handles are integers, not pointers // note that FDBHandle is a LongInt, because ODBC handles are integers, not pointers
// I wonder how this will work on 64 bit platforms then (FK)
Result:=pointer(PtrInt(FDBCHandle));
end; end;
procedure TODBCConnection.DoInternalConnect; procedure TODBCConnection.DoInternalConnect;