You've already forked lazarus-ccr
Fixed: http://bugs.freepascal.org/view.php?id=14456 (using PtrInt instead Integer)
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@942 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -435,7 +435,7 @@ end;
|
||||
function TVirtualLayer_OLE.intfSeek(const AHandle: TvlHandle;
|
||||
const APosition: int64; const Origin: word): int64;
|
||||
var
|
||||
index: PtrInt;
|
||||
index: Integer;
|
||||
begin
|
||||
if not HandleToIndex(AHandle,Index) Then begin
|
||||
Result:=-1;
|
||||
|
Reference in New Issue
Block a user