diff --git a/tools/asm-11/mlib/vecdef.mac b/tools/asm-11/mlib/vecdef.mac new file mode 100644 index 00000000..3ca04123 --- /dev/null +++ b/tools/asm-11/mlib/vecdef.mac @@ -0,0 +1,18 @@ +; SPDX-License-Identifier: GPL-3.0-or-later +; Copyright 2023- by Walter F.J. Mueller +; +; set vector to handler and PS (default pr7 kernel) at compile time +; Notes: +; - must be initialized before with vecini +; - use vecset for run time set up +; - changes '.', use only right after vec_cpucatch and vec_devcatch +; + .macro vecdef,name,hdl,psw + . = name + .word hdl + .if b,psw + .word cp.pr7 + .iff + .word psw + .endc + .endm diff --git a/tools/asm-11/mlib/vecset.mac b/tools/asm-11/mlib/vecset.mac index 3ad842e0..fbcd720f 100644 --- a/tools/asm-11/mlib/vecset.mac +++ b/tools/asm-11/mlib/vecset.mac @@ -1,14 +1,14 @@ -; $Id: vecset.mac 1359 2023-01-27 20:58:50Z mueller $ +; $Id: vecset.mac 1364 2023-02-02 11:18:54Z mueller $ ; SPDX-License-Identifier: GPL-3.0-or-later ; Copyright 2023- by Walter F.J. Mueller ; -; set vector to handler and PS (default pr0 kernel) +; set vector to handler and PS (default pr0 kernel) at run time ; - .macro vecset,name,hdl,pri + .macro vecset,name,hdl,psw mov #hdl,@#name - .if b,pri + .if b,psw clr @#name+2 .iff - mov #pri,@#name+2 + mov #psw,@#name+2 .endc .endm diff --git a/tools/mcode/rk11/rk11perf.tcl b/tools/mcode/rk11/rk11perf.tcl index 3194aa6d..0f3c8654 100644 --- a/tools/mcode/rk11/rk11perf.tcl +++ b/tools/mcode/rk11/rk11perf.tcl @@ -1,4 +1,4 @@ -# $Id: rk11perf.tcl 1362 2023-01-31 18:16:17Z mueller $ +# $Id: rk11perf.tcl 1363 2023-02-01 11:45:13Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later # Copyright 2017-2023 by Walter F.J. Mueller # diff --git a/tools/mcode/rlink/dmaperf.tcl b/tools/mcode/rlink/dmaperf.tcl index c3ea3cb9..8e8a72a9 100644 --- a/tools/mcode/rlink/dmaperf.tcl +++ b/tools/mcode/rlink/dmaperf.tcl @@ -1,4 +1,4 @@ -# $Id: dmaperf.tcl 1194 2019-07-20 07:43:21Z mueller $ +# $Id: dmaperf.tcl 1363 2023-02-01 11:45:13Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later # Copyright 2014-2023 by Walter F.J. Mueller # diff --git a/tools/tbench/deuna/test_deuna_func.tcl b/tools/tbench/deuna/test_deuna_func.tcl index 7071b4e6..8608708a 100644 --- a/tools/tbench/deuna/test_deuna_func.tcl +++ b/tools/tbench/deuna/test_deuna_func.tcl @@ -1,6 +1,6 @@ -# $Id: test_deuna_func.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_deuna_func.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2017-2019 by Walter F.J. Mueller +# Copyright 2017-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -14,7 +14,7 @@ rlc log "test_deuna_func: test function response -----------------------------" package require ibd_deuna if {![ibd_deuna::setup]} { - rlc log " test_deuna_regs-W: device not found, test aborted" + rlc log " test_deuna_func-W: device not found, test aborted" return } diff --git a/tools/tbench/deuna/test_deuna_int.tcl b/tools/tbench/deuna/test_deuna_int.tcl index 6e64be9e..897b5918 100644 --- a/tools/tbench/deuna/test_deuna_int.tcl +++ b/tools/tbench/deuna/test_deuna_int.tcl @@ -1,6 +1,6 @@ -# $Id: test_deuna_int.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_deuna_int.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2017- by Walter F.J. Mueller +# Copyright 2017-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -13,7 +13,7 @@ rlc log "test_deuna_int: test interrupt response -----------------------------" package require ibd_deuna if {![ibd_deuna::setup]} { - rlc log " test_deuna_regs-W: device not found, test aborted" + rlc log " test_deuna_int-W: device not found, test aborted" return } diff --git a/tools/tbench/dl11/test_dl11_loop.tcl b/tools/tbench/dl11/test_dl11_loop.tcl index 922b2e40..e3cbd467 100644 --- a/tools/tbench/dl11/test_dl11_loop.tcl +++ b/tools/tbench/dl11/test_dl11_loop.tcl @@ -1,9 +1,10 @@ -# $Id: test_dl11_loop.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_dl11_loop.tcl 1364 2023-02-02 11:18:54Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.2 use .mcall and vecdef # 2019-05-30 1155 1.0.1 size->fuse rename # 2019-04-26 1139 1.0 Initial version (derived from test_pc11_loop.tcl) # @@ -37,15 +38,10 @@ $cpu ldasm -lst lst -sym sym { .include |lib/defs_dl.mac| .include |lib/vec_cpucatch.mac| .include |lib/vec_devcatch.mac| + .mcall vecdef ; - . = v..tti ; setup receiver vector - .word vh.tti - .word cp.pr7 - - . = v..tto ; setup transmitter vector - .word vh.tto - .word cp.pr7 - + vecdef v..tti,vh.tti ; setup receiver vector + vecdef v..tto,vh.tto ; setup transmitter vector ; . = 1000 ; code area stack: diff --git a/tools/tbench/dl11/test_dl11_rx.tcl b/tools/tbench/dl11/test_dl11_rx.tcl index 16e73a43..dc539741 100644 --- a/tools/tbench/dl11/test_dl11_rx.tcl +++ b/tools/tbench/dl11/test_dl11_rx.tcl @@ -1,19 +1,20 @@ -# $Id: test_dl11_rx.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_dl11_rx.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.2 use .mcall and vecdef # 2019-05-30 1155 1.0.1 size->fuse rename # 2019-04-26 1139 1.0 Initial version (derived from test_pc11_pr.tcl) # # Test DL11 receiver response # ---------------------------------------------------------------------------- -rlc log "test_dl11_pr: test dl11 paper reader resonse ------------------------" +rlc log "test_dl11_rx: test dl11 receiver response ---------------------------" package require ibd_dl11 if {![ibd_dl11::setup]} { - rlc log " test_dl11_pr-W: device not found, test aborted" + rlc log " test_dl11_rx-W: device not found, test aborted" return } @@ -174,9 +175,11 @@ rlc log " B1: test csr.ie and basic interrupt response --------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_dl.mac| - . = va.tti ; setup DL11 receiver interrupt vector - .word vh.tti - .word cp.pr7 + .include |lib/vec_cpucatch.mac| + .include |lib/vec_devcatch.mac| + .mcall vecdef +; + vecdef v..tti,vh.tti ; setup receiver vector ; . = 1000 ; code area stack: @@ -214,13 +217,11 @@ rlc log " B2: test csr.ie and rri write -> cpu read -----------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_dl.mac| -; .include |lib/vec_cpucatch.mac| .include |lib/vec_devcatch.mac| + .mcall vecdef ; - . = v..tti ; setup DL11 receiver interrupt vector - .word vh.tti - .word cp.pr7 + vecdef v..tti,vh.tti ; setup receiver vector ; . = 1000 ; data area stack: diff --git a/tools/tbench/dl11/test_dl11_tx.tcl b/tools/tbench/dl11/test_dl11_tx.tcl index 12936e97..ab30d12c 100644 --- a/tools/tbench/dl11/test_dl11_tx.tcl +++ b/tools/tbench/dl11/test_dl11_tx.tcl @@ -1,16 +1,17 @@ -# $Id: test_dl11_tx.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_dl11_tx.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.2 use .mcall and vecdef # 2019-05-30 1155 1.0.1 size->fuse rename # 2019-04-26 1139 1.0 Initial version (derived from test_pc11_pp.tcl) # # Test DL11 transmitter response # ---------------------------------------------------------------------------- -rlc log "test_dl11_tx: test dl11 paper puncher resonse -----------------------" +rlc log "test_dl11_tx: test dl11 transmitter response ------------------------" package require ibd_dl11 if {![ibd_dl11::setup]} { rlc log " test_dl11_tx-W: device not found, test aborted" @@ -315,13 +316,11 @@ rlc log " B2: test csr.ie and cpu write -> rri read -----------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_dl.mac| -; .include |lib/vec_cpucatch.mac| .include |lib/vec_devcatch.mac| + .mcall vecdef ; - . = v..tto ; setup DL11 transmitter interrupt vector - .word vh.tto - .word cp.pr7 + vecdef v..tto,vh.tto ; setup transmitter vector ; . = 1000 ; data area stack: diff --git a/tools/tbench/dz11/test_dz11_loop.tcl b/tools/tbench/dz11/test_dz11_loop.tcl index b09f2cb0..60ee005b 100644 --- a/tools/tbench/dz11/test_dz11_loop.tcl +++ b/tools/tbench/dz11/test_dz11_loop.tcl @@ -1,6 +1,6 @@ -# $Id: test_dz11_loop.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_dz11_loop.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -13,7 +13,7 @@ rlc log "test_dz11_loop: test dz11 receiver+transmit response ----------------" package require ibd_dz11 if {![ibd_dz11::setup]} { - rlc log " test_dz11_tx-W: device not found, test aborted" + rlc log " test_dz11_loop-W: device not found, test aborted" return } diff --git a/tools/tbench/kw11p/test_kw11p_ctr.tcl b/tools/tbench/kw11p/test_kw11p_ctr.tcl index 67414520..265a5cd5 100644 --- a/tools/tbench/kw11p/test_kw11p_ctr.tcl +++ b/tools/tbench/kw11p/test_kw11p_ctr.tcl @@ -1,6 +1,6 @@ -# $Id: test_kw11p_ctr.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_kw11p_ctr.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2018-2019 by Walter F.J. Mueller +# Copyright 2018-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -10,10 +10,10 @@ # Test ctr response with CSR(fix) # ---------------------------------------------------------------------------- -rlc log "test_kw11p_regs: test ctr response with CSR(fix) --------------------" +rlc log "test_kw11p_ctr: test ctr response with CSR(fix) ---------------------" if {[$cpu get haskw11p] == 0} { - rlc log " test_kw11p_regs-W: no kw11p unit found, test aborted" + rlc log " test_kw11p_ctr-W: no kw11p unit found, test aborted" return } diff --git a/tools/tbench/kw11p/test_kw11p_int.tcl b/tools/tbench/kw11p/test_kw11p_int.tcl index dd3dfb91..5efc8baa 100644 --- a/tools/tbench/kw11p/test_kw11p_int.tcl +++ b/tools/tbench/kw11p/test_kw11p_int.tcl @@ -1,6 +1,6 @@ -# $Id: test_kw11p_int.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_kw11p_int.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2018- by Walter F.J. Mueller +# Copyright 2018-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -10,10 +10,10 @@ # Test interrupt response # ---------------------------------------------------------------------------- -rlc log "test_kw11p_regs: test ctr response with CSR(fix) --------------------" +rlc log "test_kw11p_int: test interrupt response -----------------------------" if {[$cpu get haskw11p] == 0} { - rlc log " test_kw11p_regs-W: no kw11p unit found, test aborted" + rlc log " test_kw11p_int-W: no kw11p unit found, test aborted" return } diff --git a/tools/tbench/lp11/test_lp11_all.tcl b/tools/tbench/lp11/test_lp11_all.tcl index 47059e98..67e245d7 100644 --- a/tools/tbench/lp11/test_lp11_all.tcl +++ b/tools/tbench/lp11/test_lp11_all.tcl @@ -1,9 +1,10 @@ -# $Id: test_lp11_all.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_lp11_all.tcl 1364 2023-02-02 11:18:54Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.4 use .mcall and vecdef # 2019-05-30 1155 1.0.3 size->fuse rename # 2019-04-19 1134 1.0.2 fifo not longer cleared by breset # 2019-04-06 1126 1.0.1 check csr.err and csr.rlim not changed by breset @@ -368,13 +369,11 @@ rlc log " B2: test csr.ie and cpu write -> rri read -----------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_lp.mac| -; .include |lib/vec_cpucatch.mac| .include |lib/vec_devcatch.mac| -; - . = v..lp ; setup LP11 interrupt vector - .word vh.lp - .word cp.pr7 + .mcall vecdef +; + vecdef v..lp,vh.lp ; setup LP11 interrupt vector ; . = 1000 ; data area stack: diff --git a/tools/tbench/m9312/test_m9312_all.tcl b/tools/tbench/m9312/test_m9312_all.tcl index 0147d887..bb7217a7 100644 --- a/tools/tbench/m9312/test_m9312_all.tcl +++ b/tools/tbench/m9312/test_m9312_all.tcl @@ -1,6 +1,6 @@ -# $Id: test_m9312_all.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_m9312_all.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -12,7 +12,7 @@ rlc log "test_m9312_all: test m9312 response ---------------------------------" if {[$cpu get hasm9312] == 0} { - rlc log " test_m9312_regs-W: no m9312 unit found, test aborted" + rlc log " test_m9312_all-W: no m9312 unit found, test aborted" return } package require ibd_m9312 diff --git a/tools/tbench/pc11/test_pc11_loop.tcl b/tools/tbench/pc11/test_pc11_loop.tcl index 9fd15eaa..4fe84bc0 100644 --- a/tools/tbench/pc11/test_pc11_loop.tcl +++ b/tools/tbench/pc11/test_pc11_loop.tcl @@ -1,9 +1,10 @@ -# $Id: test_pc11_loop.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_pc11_loop.tcl 1364 2023-02-02 11:18:54Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.2 use .mcall and vecdef # 2019-05-30 1155 1.0.1 size->fuse rename # 2019-04-20 1134 1.0 Initial version # 2019-04-07 1129 0.1 First draft @@ -38,15 +39,10 @@ $cpu ldasm -lst lst -sym sym { .include |lib/defs_pc.mac| .include |lib/vec_cpucatch.mac| .include |lib/vec_devcatch.mac| + .mcall vecdef ; - . = v..ptr ; setup reader vector - .word vh.pr - .word cp.pr7 - - . = v..ptp ; setup puncher vector - .word vh.pp - .word cp.pr7 - + vecdef v..ptr,vh.ptr ; setup reader vector + vecdef v..ptp,vh.ptp ; setup puncher vector ; . = 1000 ; code area stack: @@ -73,14 +69,14 @@ start: 3$: wait br 3$ ; -vh.pr: tstb @#pr.csr ;;; done set ? +vh.ptr: tstb @#pr.csr ;;; done set ? bpl ehalt ;;; if pl not -> error halt movb @#pr.buf,(r4)+ ;;; read char, to fifo bis #pr.ena,@#pr.csr ;;; reader enable (read next) bis #pp.ie,@#pp.csr ;;; enable pp irupt rti ; -vh.pp: tstb @#pp.csr ;;; ready set ? +vh.ptp: tstb @#pp.csr ;;; ready set ? bpl ehalt ;;; if not error halt cmp r4,r5 ;;; data in fifo ? beq ehalt ;;; if eq not -> error halt diff --git a/tools/tbench/pc11/test_pc11_pp.tcl b/tools/tbench/pc11/test_pc11_pp.tcl index eea05d72..3803ff86 100644 --- a/tools/tbench/pc11/test_pc11_pp.tcl +++ b/tools/tbench/pc11/test_pc11_pp.tcl @@ -1,9 +1,10 @@ -# $Id: test_pc11_pp.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_pc11_pp.tcl 1364 2023-02-02 11:18:54Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.2 use .mcall and vecdef # 2019-05-30 1155 1.0.1 size->fuse rename # 2019-04-21 1134 1.0 Initial version # 2019-04-07 1129 0.1 First draft @@ -341,9 +342,11 @@ rlc log " B1: test csr.ie and basic interrupt response --------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_pc.mac| - . = va.ptp ; setup PC11 puncher interrupt vector - .word vh.ptp - .word cp.pr7 + .include |lib/vec_cpucatch.mac| + .include |lib/vec_devcatch.mac| + .mcall vecdef +; + vecdef v..ptp,vh.ptp ; setup puncher vector ; . = 1000 ; code area stack: diff --git a/tools/tbench/pc11/test_pc11_pr.tcl b/tools/tbench/pc11/test_pc11_pr.tcl index d8d4a299..d5cafdb4 100644 --- a/tools/tbench/pc11/test_pc11_pr.tcl +++ b/tools/tbench/pc11/test_pc11_pr.tcl @@ -1,9 +1,10 @@ -# $Id: test_pc11_pr.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_pc11_pr.tcl 1364 2023-02-02 11:18:54Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment +# 2023-02-02 1364 1.0.2 use .mcall and vecdef # 2019-05-30 1155 1.0.1 size->fuse rename # 2019-04-21 1134 1.0 Initial version # 2019-04-12 1131 0.1 First draft @@ -276,9 +277,11 @@ rlc log " B1: test csr.ie and basic interrupt response --------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_pc.mac| - . = va.ptr ; setup PC11 reader interrupt vector - .word vh.ptr - .word cp.pr7 + .include |lib/vec_cpucatch.mac| + .include |lib/vec_devcatch.mac| + .mcall vecdef +; + vecdef v..ptr,vh.ptr ; setup reader vector ; . = 1000 ; code area stack: @@ -347,13 +350,11 @@ rlc log " B2: test csr.ie and rri write -> cpu read -----------------" $cpu ldasm -lst lst -sym sym { .include |lib/defs_cpu.mac| .include |lib/defs_pc.mac| -; .include |lib/vec_cpucatch.mac| .include |lib/vec_devcatch.mac| + .mcall vecdef ; - . = v..ptr ; setup PC11 reader interrupt vector - .word vh.ptr - .word cp.pr7 + vecdef v..ptr,vh.ptr ; setup reader vector ; . = 1000 ; data area stack: diff --git a/tools/tbench/rhrp/test_rhrp_basics.tcl b/tools/tbench/rhrp/test_rhrp_basics.tcl index 3ae4a311..878c9a0e 100644 --- a/tools/tbench/rhrp/test_rhrp_basics.tcl +++ b/tools/tbench/rhrp/test_rhrp_basics.tcl @@ -1,6 +1,6 @@ -# $Id: test_rhrp_basics.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_rhrp_basics.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2015-2019 by Walter F.J. Mueller +# Copyright 2015-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -18,7 +18,7 @@ rlc log "test_rhrp_basics: basic access tests --------------------------------" rlc log " setup context" package require ibd_rhrp if {![ibd_rhrp::setup]} { - rlc log " test_rhrp_regs-W: device not found, test aborted" + rlc log " test_rhrp_basics-W: device not found, test aborted" return } diff --git a/tools/tbench/rhrp/test_rhrp_func_reg.tcl b/tools/tbench/rhrp/test_rhrp_func_reg.tcl index 143a47e0..22f69f87 100644 --- a/tools/tbench/rhrp/test_rhrp_func_reg.tcl +++ b/tools/tbench/rhrp/test_rhrp_func_reg.tcl @@ -1,6 +1,6 @@ -# $Id: test_rhrp_func_reg.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_rhrp_func_reg.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2015-2019 by Walter F.J. Mueller +# Copyright 2015-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -16,7 +16,7 @@ rlc log "test_rhrp_func_reg: test functions - register level -----------------" rlc log " setup: unit 0:RP06(mol), 1:RM05(mol,wrl), 2: RP07(mol=0), 3: off" package require ibd_rhrp if {![ibd_rhrp::setup]} { - rlc log " test_rhrp_regs-W: device not found, test aborted" + rlc log " test_rhrp_func_reg-W: device not found, test aborted" return } diff --git a/tools/tbench/rhrp/test_rhrp_int.tcl b/tools/tbench/rhrp/test_rhrp_int.tcl index 61debaab..4c3d7fea 100644 --- a/tools/tbench/rhrp/test_rhrp_int.tcl +++ b/tools/tbench/rhrp/test_rhrp_int.tcl @@ -1,6 +1,6 @@ -# $Id: test_rhrp_int.tcl 1321 2022-11-24 15:06:47Z mueller $ +# $Id: test_rhrp_int.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2015-2022 by Walter F.J. Mueller +# Copyright 2015-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -19,7 +19,7 @@ rlc log "test_rhrp_int: test interrupt response ------------------------------" rlc log " setup: unit 0:RP06(mol), 1:RM05(mol,wrl), 2: RP07(mol=0), 3: off" package require ibd_rhrp if {![ibd_rhrp::setup]} { - rlc log " test_rhrp_regs-W: device not found, test aborted" + rlc log " test_rhrp_int-W: device not found, test aborted" return } diff --git a/tools/tbench/rhrp/test_rhrp_int2.tcl b/tools/tbench/rhrp/test_rhrp_int2.tcl index 88e716fc..bd253178 100644 --- a/tools/tbench/rhrp/test_rhrp_int2.tcl +++ b/tools/tbench/rhrp/test_rhrp_int2.tcl @@ -1,6 +1,6 @@ -# $Id: test_rhrp_int2.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_rhrp_int2.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2015-2019 by Walter F.J. Mueller +# Copyright 2015-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -16,7 +16,7 @@ rlc log "test_rhrp_int2: test interrupt response for nested xfer+seek --------" rlc log " setup: unit 0-3: RP06(mol)" package require ibd_rhrp if {![ibd_rhrp::setup]} { - rlc log " test_rhrp_regs-W: device not found, test aborted" + rlc log " test_rhrp_int2-W: device not found, test aborted" return } diff --git a/tools/tbench/tm11/test_tm11_int.tcl b/tools/tbench/tm11/test_tm11_int.tcl index 2d22e2a9..c7fe1ebd 100644 --- a/tools/tbench/tm11/test_tm11_int.tcl +++ b/tools/tbench/tm11/test_tm11_int.tcl @@ -1,6 +1,6 @@ -# $Id: test_tm11_int.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_tm11_int.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2015-2019 by Walter F.J. Mueller +# Copyright 2015-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -16,7 +16,7 @@ rlc log "test_tm11_int: test interrupt response ------------------------------" rlc log " setup: all units online" package require ibd_tm11 if {![ibd_tm11::setup]} { - rlc log " test_tm11_regs-W: device not found, test aborted" + rlc log " test_tm11_int-W: device not found, test aborted" return } diff --git a/tools/tbench/w11a_cmon/test_cmon_imon.tcl b/tools/tbench/w11a_cmon/test_cmon_imon.tcl index d8bb08a9..2f1ecd95 100644 --- a/tools/tbench/w11a_cmon/test_cmon_imon.tcl +++ b/tools/tbench/w11a_cmon/test_cmon_imon.tcl @@ -1,6 +1,6 @@ -# $Id: test_cmon_imon.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_cmon_imon.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2015-2017 by Walter F.J. Mueller +# Copyright 2015-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -13,7 +13,7 @@ rlc log "test_cmon_imon: test last instruction monitor -----------------------" if {[$cpu get hascmon] == 0} { - rlc log " test_cmon_regs-W: no cmon unit found, test aborted" + rlc log " test_cmon_imon-W: no cmon unit found, test aborted" return } diff --git a/tools/tbench/w11a_ibmon/test_ibmon_ibtst.tcl b/tools/tbench/w11a_ibmon/test_ibmon_ibtst.tcl index d8a30839..7480a2d2 100644 --- a/tools/tbench/w11a_ibmon/test_ibmon_ibtst.tcl +++ b/tools/tbench/w11a_ibmon/test_ibmon_ibtst.tcl @@ -1,6 +1,6 @@ -# $Id: test_ibmon_ibtst.tcl 1274 2022-08-08 09:21:53Z mueller $ +# $Id: test_ibmon_ibtst.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019-2022 by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -9,7 +9,7 @@ # # ---------------------------------------------------------------------------- -rlc log "test_ibmon_ibtest: tests with ibd_ibtst as target -------------------" +rlc log "test_ibmon_ibtst: tests with ibd_ibtst as target --------------------" if {[$cpu get hasibmon] == 0} { rlc log " test_ibmon_ibtst-W: no ibmon unit found, test aborted" diff --git a/tools/tbench/w11a_ibtst/test_ibtst_stat.tcl b/tools/tbench/w11a_ibtst/test_ibtst_stat.tcl index 05f0405c..74ad0c13 100644 --- a/tools/tbench/w11a_ibtst/test_ibtst_stat.tcl +++ b/tools/tbench/w11a_ibtst/test_ibtst_stat.tcl @@ -1,6 +1,6 @@ -# $Id: test_ibtst_stat.tcl 1178 2019-06-30 12:39:40Z mueller $ +# $Id: test_ibtst_stat.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2019- by Walter F.J. Mueller +# Copyright 2019-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -20,7 +20,7 @@ rlc log "test_ibtst_stat: test stat register response -------------------------" if {[$cpu get hasibtst] == 0} { - rlc log " test_ibtst_data-W: no ibtst unit found, test aborted" + rlc log " test_ibtst_stat-W: no ibtst unit found, test aborted" return } package require ibd_ibtst diff --git a/tools/tbench/w11a_pcnt/test_pcnt_basics.tcl b/tools/tbench/w11a_pcnt/test_pcnt_basics.tcl index 7d6f7733..01ec8b7c 100644 --- a/tools/tbench/w11a_pcnt/test_pcnt_basics.tcl +++ b/tools/tbench/w11a_pcnt/test_pcnt_basics.tcl @@ -1,6 +1,6 @@ -# $Id: test_pcnt_basics.tcl 1330 2022-12-16 17:52:40Z mueller $ +# $Id: test_pcnt_basics.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2018-2022 by Walter F.J. Mueller +# Copyright 2018-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -14,7 +14,7 @@ rlc log "test_pcnt_basics: test basic functionality --------------------------" if {[$cpu get haspcnt] == 0} { - rlc log " test_pcnt_regs-W: no pcnt unit found, test aborted" + rlc log " test_pcnt_basics-W: no pcnt unit found, test aborted" return } diff --git a/tools/tbench/w11a_pcnt/test_pcnt_codes.tcl b/tools/tbench/w11a_pcnt/test_pcnt_codes.tcl index 21d6fb6c..5e2b3513 100644 --- a/tools/tbench/w11a_pcnt/test_pcnt_codes.tcl +++ b/tools/tbench/w11a_pcnt/test_pcnt_codes.tcl @@ -1,6 +1,6 @@ -# $Id: test_pcnt_codes.tcl 1330 2022-12-16 17:52:40Z mueller $ +# $Id: test_pcnt_codes.tcl 1365 2023-02-02 11:46:43Z mueller $ # SPDX-License-Identifier: GPL-3.0-or-later -# Copyright 2018-2022 by Walter F.J. Mueller +# Copyright 2018-2023 by Walter F.J. Mueller # # Revision History: # Date Rev Version Comment @@ -15,7 +15,7 @@ rlc log "test_pcnt_codes: test counters --------------------------------------" if {[$cpu get haspcnt] == 0} { - rlc log " test_pcnt_regs-W: no pcnt unit found, test aborted" + rlc log " test_pcnt_codes-W: no pcnt unit found, test aborted" return }