[openfirmware] [commit] r2911 - forth/lib
svn at openfirmware.info
Wed Mar 21 23:16:33 CET 2012
Date: Wed Mar 21 23:16:33 2012
New Revision: 2911
rstrace - set the default value for boring? so the debugger works before OFW is loaded.
--- 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.
: (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