This commit is contained in:
Aaron Hance 2022-09-28 16:15:45 +01:00
parent 95599c0e7c
commit 72769fbef7

View File

@ -403,7 +403,7 @@ begin
for i:=0 to LL_Size(fileHandles) - 1 do begin for i:=0 to LL_Size(fileHandles) - 1 do begin
elm := LL_Get(fileHandles, i); elm := LL_Get(fileHandles, i);
if stringEquals(PFilehandleEntry(elm)^.filename, Filename) then begin if stringEquals(PFilehandleEntry(elm)^.filename, Filename) then begin
if PFilehandleEntry(elm)^.locked and (not PFilehandleEntry(elm)^.closed) then begin if PFilehandleEntry(elm)^.lock and (not PFilehandleEntry(elm)^.closed) then begin
Error^ := eFileInUse; Error^ := eFileInUse;
exit; exit;
end; end;
@ -413,7 +413,7 @@ begin
//create filehandleentry //create filehandleentry
fileHandleEntree := PFilehandleEntry(kalloc(SizeOf(TFilehandleEntry))); fileHandleEntree := PFilehandleEntry(kalloc(SizeOf(TFilehandleEntry)));
fileHandleEntree.fileName := Filename; fileHandleEntree^.fileName := Filename;
fileHandleEntree^.openMode := OpenMode; fileHandleEntree^.openMode := OpenMode;
fileHandleEntree^.writeMode := WriteMode; fileHandleEntree^.writeMode := WriteMode;
fileHandleEntree^.lock := lock; fileHandleEntree^.lock := lock;