mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compiling under Linux

Browse source
This commit is contained in:
Alexander Koblov 2009-07-20 10:59:49 +00:00
commit 0a333067ca
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/platform/uOSUtils.pas
View file

@ -893,7 +893,7 @@ begin
MappedFile := nil;
FileHandle:= fpOpen(PChar(sFileName), O_RDONLY);
if FileHandle = InvalidHandleValue then Exit;
if FileHandle = feInvalidHandle then Exit;
if fpfstat(FileHandle, StatInfo) <> 0 then
begin
UnMapFile(FileMapRec);
@ -947,10 +947,10 @@ end;
begin
with FileMapRec do
begin
if FileHandle <> InvalidHandleValue then
if FileHandle <> feInvalidHandle then
begin
fpClose(FileHandle);
FileHandle := InvalidHandleValue;
FileHandle := feInvalidHandle;
end;
if Assigned(MappedFile) then