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;
|
function TVirtualLayer_OLE.intfSeek(const AHandle: TvlHandle;
|
||||||
const APosition: int64; const Origin: word): int64;
|
const APosition: int64; const Origin: word): int64;
|
||||||
var
|
var
|
||||||
index: PtrInt;
|
index: Integer;
|
||||||
begin
|
begin
|
||||||
if not HandleToIndex(AHandle,Index) Then begin
|
if not HandleToIndex(AHandle,Index) Then begin
|
||||||
Result:=-1;
|
Result:=-1;
|
||||||
|
Reference in New Issue
Block a user