github.com/wfjm.w11
1
0
Fork 0
mirror of https://github.com/wfjm/w11.git synced 2026-04-24 19:40:39 +00:00
Code Issues Releases Wiki Activity

shell_egd.tcl: BUGFIX: shell_pspec_map: fix mapping for addr>20000

Browse Source
This commit is contained in:
wfjm
2017-06-10 11:40:40 +02:00
parent 211e1f3ff3
commit 60b6a660d0
2 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tools/tcl/rw11/shell_egd.tcl
View File

@@ -1,4 +1,4 @@
# $Id: shell_egd.tcl 895 2017-05-07 07:38:47Z mueller $
# $Id: shell_egd.tcl 910 2017-06-10 09:29:06Z mueller $
#
# Copyright 2015-2017 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
#
@@ -13,6 +13,7 @@
#
# Revision History:
# Date Rev Version Comment
# 2017-06-09 910 1.1.1 BUGFIX: shell_pspec_map: fix mapping for addr>20000
# 2017-03-10 859 1.1 .egd: add /u option (memory access via ubmap)
# 2015-12-28 720 1.0 Initial version
# 2015-12-23 717 0.1 First draft
@@ -174,7 +175,7 @@ namespace eval rw11 {
set segnum [expr {$addr>>13}]
set sarname "sar${am0}${am1}.${segnum}"
$shell_cpu cp -rreg $sarname sarval
set addr [expr {$addr + 64 * $sarval}]
set addr [expr {($addr & 017777) + 64 * $sarval}]
set am "e"
}
return [list "mem" $am $addr $cnt $fmt ]