From 3ea9b380517c276066b3a7e7485f4295d0901849 Mon Sep 17 00:00:00 2001 From: hrpt Date: Thu, 2 Nov 2023 16:55:00 +0100 Subject: [PATCH] dbctrl: fix issue not fixed properly --- tcl/drivers/trun.tcl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tcl/drivers/trun.tcl b/tcl/drivers/trun.tcl index 6f679d4..7390b86 100644 --- a/tcl/drivers/trun.tcl +++ b/tcl/drivers/trun.tcl @@ -497,9 +497,10 @@ proc trun::read_run {} { set now [DoubleTime] set tr [silent none sct target] set prev_tr [silent $tr sct prev_tr] + sct prev_tr $tr if {$tr eq "none"} { set tr $tmain - sct prev_tr $tr + sct prev_tr $tmain } else { set dif [expr $tr - $prev_tr] updateval_u [sct]/target $tr 0