wenn dir 16 MB nicht zuviel Puffer sind, könntest du FHead und FTail auch einfach als Byte definieren und dann statt 0..10 auf 0..255 umsteigen, da würde die Überlaufprüfung
(if FHead > 10 then) entfallen, da sie ja schon im Typ eingebaut wäre
hier würde also ein einfaches "Inc" ausreichen
Delphi-Quellcode:
procedure TRingBuffer.IncHead;
begin
InterlockedIncrement(FHead);
end;
ansonsten würde ich besser noch den Inhalt vorm Setzen vergleichen,
Delphi-Quellcode:
procedure TRingBuffer.IncHead;
begin
if InterlockedCompareExchange(FHead, 10, 0) <> 10 then
InterlockedIncrement(FHead);
end;
(ich hoff ich hab das jetzt richtig gemacht, aber im Prinzip würd ich es irgendwie so machen
)
denn z.B. bei
Delphi-Quellcode:
procedure TRingBuffer.IncHead;
begin
InterlockedIncrement(FHead);
if FHead > 10 then
//FHead := 0;
InterlockedXor(FHead, 0);
end;
ist FHead hier kurzzeitig außerhalb des "zuläßigen" Bereichs und wenn gerade in der, wenn auch sehr kurzen Zeitspanne ein anderer Thread den wert ausließt, dann bekommt der ja einen "ungültigen" Wert geliefert