linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Fixed missalignment in TAS scan messages

Browse Source 
- Fixed a counting/driving race in devexec
- Fixed some problems with sanscheck
This commit is contained in:
cvs
2003-11-25 10:29:22 +00:00
parent d08d1c68bb
commit e6c51e8fe9
9 changed files with 32 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
utils/check/sicssyntaxlib.tcl
View File

@@ -145,7 +145,9 @@ proc syntaxTextPar {name args} {
set args [syntaxListify $args]
if { [llength $args] > 0} {
set sicsPar($name) [join $args]
if { [string first setaccess [string tolower [lindex $args 0]]] < 0} {
set sicsPar($name) [join $args]
}
} else {
if { [info exists sicsPar($name)] == 1} {
return [format "%s = %s" $name \
@@ -164,7 +166,10 @@ proc syntaxNumPar {name args} {
set args [syntaxListify $args]
if { [llength $args] > 0} {
if { [syntaxNumeric [lindex $args 0]] == 1} {
set sicsPar($name) [lindex $args 0]
if { [string first setaccess \
[string tolower [lindex $args 0]]] < 0} {
set sicsPar($name) [lindex $args 0]
}
} else {
error [format \
"ERROR: expected numeric argument for %s, received: %s" \
@@ -550,7 +555,7 @@ proc count { {mode NULL } { preset NULL } } {
return
} else {
set c [string index $mode 0]
if { [regexp \[mc\] $c] != 1 } {
if { [regexp \[mt\] $c] != 1 } {
error "ERROR: invalid counter mode $m specified for count"
}
}
@@ -914,7 +919,7 @@ proc fileeval {name} {
#--------------------------------------------------------------------------
proc batchrun {name} {
global sicsPar
fileeval $sicspar(batchroot)/$name
fileeval $sicsPar(batchroot)/$name
}
#---------------------------------------------------------------------------
# The sp command for setting zero points