Changeset 2911


Ignore:
Timestamp:
Mar 21, 2012, 11:16:33 PM (3 years ago)
Author:
wmb
Message:

rstrace - set the default value for boring? so the debugger works before OFW is loaded.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • forth/lib/rstrace.fth

    r2904 r2911  
    100100   drop                                       ( rs-adr ) 
    101101; 
     102 
     103\ boring? is a hook for Open Firmware.  It recognizes words like 
     104\ $call-method that are essentially indirect calls.  Such words 
     105\ just clutter up the stack display and should be elided for clarity. 
    102106defer boring? 
    103107: (boring?)  ( ip -- flag )  drop false  ; 
     108' (boring?) is boring? 
     109 
    104110: rtraceword  ( rs-end rs-adr -- rs-end rs-adr' ) 
    105111   @+                          ( rs-end rs-adr' ip ) 
Note: See TracChangeset for help on using the changeset viewer.