1
0
mirror of https://github.com/wfjm/w11.git synced 2026-02-25 00:37:48 +00:00

minor updates

- Rw11Probe: ctor: fData* initialized as 0 (not false)
- tbench/*/test_*.tcl: add proper device check
- ibd_ibtst: fix sensitivity list
- RlinkContext: BUGFIX: use proper polarity of status mask
- tools/asm-11/lib
  - defs_*.tcl: add va.xxx and vp.xxx vector defs
  - vec_devcatch{_reset}.mac: rename v..deu to v..xu
This commit is contained in:
wfjm
2019-03-16 11:45:05 +01:00
parent ed5c8b7fc1
commit a36531709c
21 changed files with 110 additions and 50 deletions

View File

@@ -1,10 +1,11 @@
# $Id: test_tm11_int.tcl 895 2017-05-07 07:38:47Z mueller $
# $Id: test_tm11_int.tcl 1120 2019-03-09 18:19:31Z mueller $
#
# Copyright 2015- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see License.txt in $RETROBASE directory
#
# Revision History:
# Date Rev Version Comment
# 2019-03-09 1120 1.0.2 add proper device check
# 2015-07-25 704 1.0.1 tmpproc_dotest: use args rather opts
# 2015-05-17 683 1.0 Initial version
#
@@ -15,7 +16,10 @@
rlc log "test_tm11_int: test interrupt response ------------------------------"
rlc log " setup: all units online"
package require ibd_tm11
ibd_tm11::setup
if {![ibd_tm11::setup]} {
rlc log " test_tm11_regs-W: device not found, test aborted"
return
}
rlc set statmask $rw11::STAT_DEFMASK
rlc set statvalue 0

View File

@@ -1,10 +1,11 @@
# $Id: test_tm11_regs.tcl 830 2016-12-26 20:25:49Z mueller $
# $Id: test_tm11_regs.tcl 1120 2019-03-09 18:19:31Z mueller $
#
# Copyright 2015- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# Copyright 2015-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
# License disclaimer see License.txt in $RETROBASE directory
#
# Revision History:
# Date Rev Version Comment
# 2019-03-09 1120 1.0.1 add proper device check
# 2015-05-17 683 1.0 Initial version
#
# Test register response
@@ -13,7 +14,10 @@
# ----------------------------------------------------------------------------
rlc log "test_tm11_regs: test register response ------------------------------"
package require ibd_tm11
ibd_tm11::setup
if {![ibd_tm11::setup]} {
rlc log " test_tm11_regs-W: device not found, test aborted"
return
}
rlc set statmask $rw11::STAT_DEFMASK
rlc set statvalue 0