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 )