mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
5c9eb9b45b
git-svn-id: svn://coreboot.org/openbios/openbios-devel@1 f158a5a8-5612-0410-a976-696ce0be7e32
84 lines
1.0 KiB
Forth
84 lines
1.0 KiB
Forth
\ 7.5 Firmware Debugging command group
|
|
|
|
|
|
\ 7.5.1 Automatic stack display
|
|
|
|
: (.s
|
|
depth 0 ?do
|
|
depth i - 1- pick .
|
|
loop
|
|
depth 0<> if ascii < emit space then
|
|
;
|
|
|
|
: showstack ( -- )
|
|
['] (.s to status
|
|
;
|
|
|
|
: noshowstack ( -- )
|
|
['] noop to status
|
|
;
|
|
|
|
\ 7.5.2 Serial download
|
|
|
|
: dl ( -- )
|
|
;
|
|
|
|
|
|
\ 7.5.3 Dictionary
|
|
|
|
\ 7.5.3.1 Dictionary search
|
|
: .calls ( xt -- )
|
|
;
|
|
|
|
: $sift ( text-addr text-len -- )
|
|
;
|
|
|
|
: sifting ( "text< >" -- )
|
|
;
|
|
|
|
\ : words ( -- )
|
|
\ \ Implemented in forth bootstrap.
|
|
\ ;
|
|
|
|
|
|
\ 7.5.3.2 Decompiler
|
|
|
|
\ implemented in see.fs
|
|
|
|
\ : see ( "old-name< >" -- )
|
|
\ ;
|
|
|
|
\ : (see) ( xt -- )
|
|
\ ;
|
|
|
|
|
|
\ 7.5.3.3 Patch
|
|
|
|
: patch ( "new-name< >old-name< >word-to-patch< >" -- )
|
|
;
|
|
|
|
: (patch) ( new-n1 num1? old-n2 num2? xt -- )
|
|
;
|
|
|
|
|
|
\ 7.5.3.4 Forth source-level debugger
|
|
|
|
: debug ( "old-name< >" -- )
|
|
;
|
|
|
|
: (debug ( xt -- )
|
|
;
|
|
|
|
: stepping ( -- )
|
|
;
|
|
|
|
: tracing ( -- )
|
|
;
|
|
|
|
: debug-off ( -- )
|
|
;
|
|
|
|
: resume ( -- )
|
|
;
|
|
|