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
-23
View File
@@ -26,7 +26,6 @@ interface
uses
Classes, SysUtils, Math, SyncObjs,
BeaconDecoder,
PerfLog, // ВРЕМЕННО (perf/cpu-profiling): зонные CPU-таймеры
WDSP;
const
@@ -1365,12 +1364,10 @@ procedure TWDSPEngine.PushIQItemToDSP(const Item: TIQQueueItem);
var
i, Pos: Integer;
IR, QR: LongInt;
T0: Int64; // PERF
const
SCALE = 1.0 / 8388608.0;
begin
if FTXActive and not FKeepRXDuringTX then Exit;
T0 := PerfNow; // PERF
// Post-TX hold: дропаем входящие RX-IQ пакеты пока активно окно мьюта.
// Это закрывает ОБА канала сразу — и водопад/спектр (анализатор не
// кормится), и аудио (RXA не запускается, FOnAudio не вызывается).
@@ -1404,11 +1401,9 @@ begin
if FRXAccPos >= FBufSize then
ProcessRXBlock;
end;
PerfAdd(pzDspPushIQ, T0); // PERF: весь путь пакета через DSP-поток
end;
procedure TWDSPEngine.FeedDisplaySample(const I, Q: Double);
var T0: Int64; // PERF
begin
if not FAnalyzerOpen then Exit;
@@ -1418,9 +1413,7 @@ begin
if FDispPos >= DISPLAY_BLOCK_SIZE then
begin
T0 := PerfNow; // PERF
Spectrum0(1, RX_DISP_ID, 0, 0, @FDispBuf[0]);
PerfAdd(pzDspSpectrum0, T0); // PERF: скармливание блока анализатору
FDispPos := 0;
end;
end;
@@ -1444,14 +1437,12 @@ procedure TWDSPEngine.ProcessRXBlock;
var
i: Integer;
Err: Integer;
T0: Int64; // PERF
// OutL/OutR теперь поля класса — не аллоцируем каждый раз
begin
FRXAccPos := 0;
if not FInitialized then Exit;
try
T0 := PerfNow; // PERF
// Упаковываем в interleaved буфер для fexchange0
for i := 0 to FBufSize - 1 do
begin
@@ -1462,7 +1453,6 @@ begin
// DSP обработка
Err := 0;
fexchange0(RXA_CHAN, @FRXIn[0], @FRXOut[0], @Err);
PerfAdd(pzDspFexMain, T0); // PERF: главный RX-канал WDSP
// S-meter: читаем ОДИН раз в DSP-колбэке и кешируем в FSMeter.
// GetRXAMeter сбрасывает аккумулятор после вызова, поэтому второй
@@ -1484,14 +1474,12 @@ begin
and (not FTXActive or (FKeepRXDuringTX and FMonitorRXDuringTX))
and (FPostTXMuteUntil = 0) then
begin
T0 := PerfNow; // PERF
for i := 0 to FAudioBufSize - 1 do
begin
FOutL[i] := FRXOut[i * 2] * FVolume;
FOutR[i] := FRXOut[i * 2 + 1] * FVolume;
end;
FOnAudio(FOutL, FOutR, FAudioBufSize);
PerfAdd(pzDspAudioCb, T0); // PERF: маршрут RX-аудио (web/радио/звуковуха)
end;
// Софтовые слайсы: fan-out того же IQ-блока на доп. WDSP-каналы.
@@ -1598,10 +1586,8 @@ procedure TWDSPEngine.ProcessSlices;
var
s, i, k, Err: Integer;
V: Double;
T0, TS: Int64; // PERF
begin
if not Assigned(FOnSliceAudio) then Exit;
T0 := PerfNow; // PERF
FSliceLock.Enter;
try
for s := 0 to MAX_SLICES - 1 do
@@ -1615,9 +1601,7 @@ begin
FSliceIn[i * 2 + 1] := FRXAccQ[i];
end;
Err := 0;
TS := PerfNow; // PERF
fexchange0(FSlices[s].Chan, @FSliceIn[0], @FSliceOut[0], @Err);
PerfAdd(pzDspSliceFex, TS); // PERF: fexchange0 одного слайса
// S-метр канала читаем здесь (DSP-поток) — GetRXAMeter сбрасывает аккумулятор.
FSlices[s].SMeter := GetRXAMeter(FSlices[s].Chan, RXA_S_AV);
V := FSlices[s].Volume;
@@ -1631,7 +1615,6 @@ begin
finally
FSliceLock.Leave;
end;
PerfAdd(pzDspSlices, T0); // PERF: fan-out всех слайсов целиком
end;
function TWDSPEngine.AddSlice(Id, Mode, FilterLo, FilterHi: Integer;
@@ -2215,10 +2198,8 @@ var
i, tail: Integer;
Err: Integer;
Avail: Integer;
T0: Int64; // PERF
begin
if not FInitialized then Exit;
T0 := PerfNow; // PERF
Avail := (FTXMicHead - FTXMicTail + TX_MIC_RING) and (TX_MIC_RING - 1);
@@ -2254,7 +2235,6 @@ begin
// FTXOut содержит FTXOutBufSize IQ пар @ FTXSampleRate (interleaved double)
if Assigned(FOnTXIQ) then
FOnTXIQ(FTXOut, FTXOutBufSize);
PerfAdd(pzDspTxBlock, T0); // PERF: TX-блок целиком (fexchange0 + analyzer + IQ out)
end;
procedure TWDSPEngine.PushTXMicSamples16(const Src: array of SmallInt; N: Integer);
@@ -2552,10 +2532,8 @@ var
Flag: Integer;
i, N: Integer;
DispID: Integer;
T0: Int64; // PERF
begin
if not FInitialized or not FAnalyzerOpen then Exit;
T0 := PerfNow; // PERF
N := EnsureRange(FDisplayPixelCount, 1, SPECTRUM_PIXELS);
DispID := FActiveDisplayID; // RX_DISP_ID или TX_DISP_ID, зависит от FTXActive
@@ -2578,7 +2556,6 @@ begin
if Assigned(FOnWaterfall) then
FOnWaterfall(FWaterfallPixels, N);
end;
PerfAdd(pzDispGetPixels, T0); // PERF: GetPixels + колбэки спектр/водопад
end;
procedure TWDSPEngine.GetSpectrumData(var Pixels: array of Single;