[commit] r2911 - forth/lib

[repository service]

Author: wmb
Date: Wed Mar 21 23:16:33 2012
New Revision: 2911
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2911

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

Modified:
   forth/lib/rstrace.fth

Modified: forth/lib/rstrace.fth
==============================================================================
--- forth/lib/rstrace.fth	Wed Mar 21 23:15:39 2012	(r2910)
+++ forth/lib/rstrace.fth	Wed Mar 21 23:16:33 2012	(r2911)
@@ -99,8 +99,14 @@
    then                                       ( rs-adr n )
    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 )
    dup reasonable-ip?  0=  if  ( rs-end rs-adr ip )