fix
This commit is contained in:
parent
95599c0e7c
commit
72769fbef7
@ -403,7 +403,7 @@ begin
|
||||
for i:=0 to LL_Size(fileHandles) - 1 do begin
|
||||
elm := LL_Get(fileHandles, i);
|
||||
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;
|
||||
exit;
|
||||
end;
|
||||
@ -413,7 +413,7 @@ begin
|
||||
|
||||
//create filehandleentry
|
||||
fileHandleEntree := PFilehandleEntry(kalloc(SizeOf(TFilehandleEntry)));
|
||||
fileHandleEntree.fileName := Filename;
|
||||
fileHandleEntree^.fileName := Filename;
|
||||
fileHandleEntree^.openMode := OpenMode;
|
||||
fileHandleEntree^.writeMode := WriteMode;
|
||||
fileHandleEntree^.lock := lock;
|
||||
|
Loading…
x
Reference in New Issue
Block a user