687 - some helpers for debugging

This commit is contained in:
Kartik K. Agaram 2015-01-31 23:25:44 -08:00
parent c13cf38cf4
commit 74310db45a

14
mu.arc
View File

@ -679,6 +679,8 @@
($.charterm-clear-screen) ($.charterm-clear-screen)
($.graphics-open?) ($.graphics-open?)
($.clear-viewport Viewport))) ($.clear-viewport Viewport)))
clear-line-on-host
(do1 nil ($.charterm-clear-line))
cursor-on-host cursor-on-host
(do1 nil ($.charterm-cursor (m arg.0) (m arg.1))) (do1 nil ($.charterm-cursor (m arg.0) (m arg.1)))
cursor-on-host-to-next-line cursor-on-host-to-next-line
@ -761,12 +763,22 @@
$dump-memory $dump-memory
(do1 nil (do1 nil
(prn:repr int-canon.memory*)) (prn:repr int-canon.memory*))
$dump-trace
(tofile arg.0
(each (label trace) (as cons traces*)
(pr label ": " trace)))
$start-tracing $start-tracing
(do1 nil (do1 nil
(set dump-trace*)) (set dump-trace*))
$stop-tracing $stop-tracing
(do1 nil (do1 nil
(wipe dump-trace*)) (wipe dump-trace*))
$dump-routine
(do1 nil
($.close-charterm)
(prn routine*)
($.open-charterm)
)
$dump-channel $dump-channel
(do1 nil (do1 nil
($.close-charterm) ;? 1 ($.close-charterm) ;? 1
@ -947,7 +959,7 @@
(when (is v.loc 'default-space) (when (is v.loc 'default-space)
(return rep.routine*!call-stack.0!default-space)) (return rep.routine*!call-stack.0!default-space))
(trace "m" loc) (trace "m" loc)
(assert (isa v.loc 'int) "addresses must be numeric (problem in convert-names?) @loc") (assert (isa v.loc 'int) "addresses must be numeric (problem in convert-names?): @repr.loc")
(with (n sizeof.loc (with (n sizeof.loc
addr addr.loc) addr addr.loc)
;? (trace "m" "reading " n " locations starting at " addr) ;? (trace "m" "reading " n " locations starting at " addr)