Changeset 2911


Ignore:
Timestamp:
Mar 21, 2012, 10: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.