pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix compilation with fpc 3.1. Issue 29552

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4485 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2016-02-01 01:22:32 +00:00
parent a9c3c81c14
commit aad2fa0dc1
2 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/lclextensions/oleutils.pas
View File

@ -104,7 +104,11 @@ begin
//soFrom* constants are equal to STREAM_SEEK_* constants. Assume it here
liOffset.LowPart:=Offset;
liOffset.HighPart:=0;
{$if FPC_FULLVERSION >= 30100}
Res:=FSrcStream.Seek(QWord(liOffset), Origin, QWord(liResult));
{$else}
Res:=FSrcStream.Seek(Int64(liOffset), Origin, Int64(liResult));
{$endif}
Result:=liResult.LowPart;
if Res <> S_OK then
Raise Exception.Create('TOLEStream - Error while seeking: '+ErrorString(Res));