Changeset 3128

Timestamp:

Aug 3, 2012 11:10:03 PM (10 months ago)

Author:

wmb

Message:

Debugger - improvements to visual mode - less likely to lose track of the screen position, new L keystroke to force redisplay.

File:

• forth/lib/debug.fth (modified) (6 diffs)

forth/lib/debug.fth

@@ -119 +119 @@
    ." Q       Quit: abandon execution of the debugged word" cr
    ." V       Visual: toggle between 2-D and scrolling" cr
+   ." L       Visual: redisplay" cr
 ;
 d# 24 constant cmd-column
@@ -142 +143 @@
 \ : to-result-loc  ( -- )  result-loc at-xy  ;
 : save-result-loc  ( -- )  #out @ to result-col   #line @ to result-line  ;
-: to-result-loc  ( -- )  result-col result-line at-xy  ;
+: to-result-loc  ( -- )  result-col result-line 2dup at-xy  #line !  #out !  ;
 
 \ set-package is a hook for Open Firmware.  When Open Firmware is loaded,
@@ -188 +189 @@
    d# 78 rmargin !
    .debug-short-help
+   d# 70 rmargin !
    ." Callers: "  rp0 @ the-rp na1+ rslist kill-line cr
    d# 40 rmargin !
@@ -236 +238 @@
    save#
    begin
+      setup-debug-display
       step? @  if  to-debug-window  then
       show-debug-stack
@@ -270 +273 @@
             ascii \  of  show-rstack @ 0= show-rstack !  false  endof  \ toggle return stack display
             ascii X  of  hex-stack @ 0= hex-stack !      false  endof  \ toggle heX stack display
+            ascii L  of  true to redisplay?              false  endof  \ Redisplay
             ascii V  of                                         \ toggle Visual (2D) mode
                scrolling-debug? 0= to scrolling-debug?      
@@ -285 +289 @@
    ip@ to the-ip
    rp@ to the-rp
-   setup-debug-display
    debug-interact
 \   scrolling-debug? 0=  if  to-result-loc  then