Changeset 3128


Ignore:
Timestamp:
Aug 3, 2012, 11:10:03 PM (21 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:
1 edited

Legend:

Unmodified
Added
Removed
  • forth/lib/debug.fth

    r2914 r3128  
    119119   ." Q       Quit: abandon execution of the debugged word" cr 
    120120   ." V       Visual: toggle between 2-D and scrolling" cr 
     121   ." L       Visual: redisplay" cr 
    121122; 
    122123d# 24 constant cmd-column 
     
    142143\ : to-result-loc  ( -- )  result-loc at-xy  ; 
    143144: save-result-loc  ( -- )  #out @ to result-col   #line @ to result-line  ; 
    144 : to-result-loc  ( -- )  result-col result-line at-xy  ; 
     145: to-result-loc  ( -- )  result-col result-line 2dup at-xy  #line !  #out !  ; 
    145146 
    146147\ set-package is a hook for Open Firmware.  When Open Firmware is loaded, 
     
    188189   d# 78 rmargin ! 
    189190   .debug-short-help 
     191   d# 70 rmargin ! 
    190192   ." Callers: "  rp0 @ the-rp na1+ rslist kill-line cr 
    191193   d# 40 rmargin ! 
     
    236238   save# 
    237239   begin 
     240      setup-debug-display 
    238241      step? @  if  to-debug-window  then 
    239242      show-debug-stack 
     
    270273            ascii \  of  show-rstack @ 0= show-rstack !  false  endof  \ toggle return stack display 
    271274            ascii X  of  hex-stack @ 0= hex-stack !      false  endof  \ toggle heX stack display 
     275            ascii L  of  true to redisplay?              false  endof  \ Redisplay 
    272276            ascii V  of                                         \ toggle Visual (2D) mode 
    273277               scrolling-debug? 0= to scrolling-debug?       
     
    285289   ip@ to the-ip 
    286290   rp@ to the-rp 
    287    setup-debug-display 
    288291   debug-interact 
    289292\   scrolling-debug? 0=  if  to-result-loc  then 
Note: See TracChangeset for help on using the changeset viewer.