Changeset 3128


Ignore:
Timestamp:
Aug 3, 2012, 9:10:03 PM (3 years 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.