Changeset 2911

Timestamp:

Mar 21, 2012 11:16:33 PM (14 months ago)

Author:

wmb

Message:

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

File:

• forth/lib/rstrace.fth (modified) (1 diff)

forth/lib/rstrace.fth

@@ -100 +100 @@
    drop                                       ( rs-adr )
 ;
+
+\ boring? is a hook for Open Firmware.  It recognizes words like
+\ $call-method that are essentially indirect calls.  Such words
+\ just clutter up the stack display and should be elided for clarity.
 defer boring?
 : (boring?)  ( ip -- flag )  drop false  ;
+' (boring?) is boring?
+
 : rtraceword  ( rs-end rs-adr -- rs-end rs-adr' )
    @+                          ( rs-end rs-adr' ip )