[openfirmware] [commit] r2911 - forth/lib
repository service
svn at openfirmware.info
Wed Mar 21 23:16:33 CET 2012
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 )
More information about the openfirmware
mailing list