chore: strip temporary PerfLog instrumentation

Профилирование завершено (кадр спектра 8.3мс -> 1.7мс, UI 45% -> 26% ядра):
удаляем PerfLog.pas, doc/PERF_PROFILING.md и все // PERF-замеры из
WDSPEngine/HPSDRNetwork/PlutoBackend/AudioOutput/SpectrumView(+GL)/
WaterfallViewOpengl/WidebandView/MainForm. Сами оптимизации (full-raw
рендерер, дворд-блендеры, порог бэндплана) остаются.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
2026-07-03 00:36:03 +03:00
co-authored by Claude Fable 5
parent 0adaff2d21
commit 01d78d148f
12 changed files with 10 additions and 521 deletions
+1 -11
View File
@@ -26,8 +26,7 @@ interface
uses
Classes, SysUtils, ctypes,
RadioBackend, IIOBindings, HPSDRProtocol, Settings,
PerfLog; // ВРЕМЕННО (perf/cpu-profiling): зонные CPU-таймеры
RadioBackend, IIOBindings, HPSDRProtocol, Settings;
type
{ TPlutoBackend }
@@ -196,7 +195,6 @@ var
outc: Integer;
vi, vq: LongInt;
u: LongWord;
T0: Int64; // PERF
procedure FlushPkt;
begin
@@ -222,7 +220,6 @@ begin
if Terminated then Break;
if n <= 0 then begin Sleep(2); Continue; end;
T0 := PerfNow; // PERF: только конверсия, без блокирующего refill
step := iio_buffer_step(FBk.FRxBuf);
pFirst := iio_buffer_first(FBk.FRxBuf, FBk.FRxChI);
pEnd := iio_buffer_end(FBk.FRxBuf);
@@ -249,7 +246,6 @@ begin
Inc(p, step);
end;
if outc > 0 then FlushPkt; // хвост блока
PerfAdd(pzPlutoRxConv, T0); // PERF: int16→24bit BE + FOnDDCIQ на весь iio-буфер
end;
end;
@@ -266,12 +262,10 @@ var
pFirst, pEnd, p: PByte;
h: Integer;
n: ptrint;
T0: Int64; // PERF
begin
while not Terminated do
begin
if FBk.FTxBuf = nil then begin Sleep(5); Continue; end;
T0 := PerfNow; // PERF
step := iio_buffer_step(FBk.FTxBuf);
pFirst := iio_buffer_first(FBk.FTxBuf, FBk.FTxChI);
pEnd := iio_buffer_end(FBk.FTxBuf);
@@ -297,7 +291,6 @@ begin
Inc(p, step);
end;
LeaveCriticalSection(FBk.FTxLock);
PerfAdd(pzPlutoTxFill, T0); // PERF: наполнение буфера (без блокирующего push)
if Terminated then Break;
n := iio_buffer_push(FBk.FTxBuf); // блокирует → пейсинг на device-rate
@@ -860,10 +853,8 @@ procedure TPlutoBackend.SendDUCIQ(const IData, QData: array of Integer);
var
i, p, k, t, L, taps, base, n: Integer;
ai, aq: Double;
T0: Int64; // PERF
begin
if (not FTxStreaming) or (FTxRatio < 1) or (Length(FTxCoef) = 0) then Exit;
T0 := PerfNow; // PERF
n := Length(IData);
if Length(QData) < n then n := Length(QData);
L := FTxRatio;
@@ -902,7 +893,6 @@ begin
finally
LeaveCriticalSection(FTxLock);
end;
PerfAdd(pzPlutoTxResamp, T0); // PERF: полифазный интерполятор + 24→16 + FIFO
end;
procedure TPlutoBackend.ClearDUCIQQueue;