slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

reclaim: mark end of directory with EndScan flag

Browse source
This commit is contained in:
slederer 2024-10-20 17:30:39 +02:00
parent 1ca6c13c4b
commit 428fc95481
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
progs/reclaim.pas
View file

@ -323,6 +323,7 @@ begin
(* find next occupied slot *) (* find next occupied slot *)
occSlotNo := scanDirSlots(volid, freeSlotNo + 1, occSlot, [SlotFirst]); occSlotNo := scanDirSlots(volid, freeSlotNo + 1, occSlot, [SlotFirst]);
if occSlotNo <> 0 then if occSlotNo <> 0 then
begin begin
fileExtents := (occSlot.sizeBytes + extentSize - 1) div extentSize; fileExtents := (occSlot.sizeBytes + extentSize - 1) div extentSize;
@ -379,8 +380,14 @@ begin
i := i + fileExtents; i := i + fileExtents;
end end
else (* no occupied slot found *) else (* no occupied slot found *)
begin
done := true; done := true;
(* TODO: mark first free slot of last free region as EndScan *) (* mark first free slot of last free region as EndScan *)
freeslot.flags := freeslot.flags + [SlotEndScan];
putdirslot(volid, freeSlotNo, freeSlot, error);
if error <> IONoError then
writeln('Error writing dirslot ', clearSlotNo);
end
end end
else (* no free slot found *) else (* no free slot found *)
done := true; done := true;