mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Build lzma plugin with fpc 2.4.0

Browse source
This commit is contained in:
Alexander Koblov 2011-12-15 05:35:21 +00:00
commit d478224978
1 changed files with 19 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
plugins/wcx/lzma/LZMA/UBufferedFS.pas
View file

@ -27,6 +27,10 @@ type TBFSMode=(BFMRead,BFMWrite);
constructor Create(const FileName: string; Mode: Word; Rights: Cardinal); overload;
destructor Destroy; override;
procedure Flush;
{$IF (FPC_VERSION <= 2) and (FPC_RELEASE <= 4) and (FPC_PATCH <= 0)}
function ReadQWord: QWord;
procedure WriteQWord(q: QWord);
{$ENDIF}
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
@ -84,6 +88,21 @@ bytesinbuffer:=inherited Read(membuffer,buffersize);
bufferpos:=0;
end;
{$IF (FPC_VERSION <= 2) and (FPC_RELEASE <= 4) and (FPC_PATCH <= 0)}
function TBufferedFS.ReadQWord: QWord;
var
q: QWord;
begin
ReadBuffer(q, SizeOf(QWord));
ReadQWord:= q;
end;
procedure TBufferedFS.WriteQWord(q: QWord);
begin
WriteBuffer(q, SizeOf(QWord));
end;
{$ENDIF}
function TBufferedFS.Read(var Buffer; Count: Longint): Longint;
var p:PByteArray;
bytestoread:integer;