Return to firmware.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / debugging

Annotation of qemu/roms/openbios/forth/debugging/firmware.fs, revision 1.1

1.1     ! root        1: \ 7.5 Firmware Debugging command group
        !             2: 
        !             3: 
        !             4: \ 7.5.1    Automatic stack display
        !             5: 
        !             6: : (.s
        !             7:   depth 0 ?do
        !             8:     depth i - 1- pick .
        !             9:   loop
        !            10:   depth 0<> if ascii < emit space then
        !            11:   ;
        !            12: 
        !            13: : showstack    ( -- )
        !            14:   ['] (.s to status
        !            15:   ;
        !            16:   
        !            17: : noshowstack    ( -- )
        !            18:   ['] noop to status
        !            19:   ;
        !            20: 
        !            21: \ 7.5.2    Serial download
        !            22: 
        !            23: : dl    ( -- )
        !            24:   ;
        !            25: 
        !            26:   
        !            27: \ 7.5.3    Dictionary
        !            28: 
        !            29: \ 7.5.3.1    Dictionary search
        !            30: : .calls    ( xt -- )
        !            31:   ;
        !            32:   
        !            33: : $sift    ( text-addr text-len -- )
        !            34:   ;
        !            35:   
        !            36: : sifting    ( "text< >" -- )
        !            37:   ;
        !            38: 
        !            39: \ : words    ( -- )
        !            40: \   \ Implemented in forth bootstrap.
        !            41: \   ;
        !            42: 
        !            43:   
        !            44: \ 7.5.3.2    Decompiler
        !            45: 
        !            46: \ implemented in see.fs
        !            47: 
        !            48: \ : see    ( "old-name< >" -- )
        !            49: \   ;
        !            50:   
        !            51: \ : (see)    ( xt -- )
        !            52: \   ;
        !            53: 
        !            54:   
        !            55: \ 7.5.3.3    Patch
        !            56: 
        !            57: : patch ( "new-name< >old-name< >word-to-patch< >" -- )
        !            58:   ;
        !            59: 
        !            60: : (patch)    ( new-n1 num1? old-n2 num2? xt -- )
        !            61:   ;
        !            62: 
        !            63: 
        !            64: \ 7.5.3.4    Forth source-level debugger
        !            65:  
        !            66: : debug    ( "old-name< >" -- )
        !            67:   parse-word            \ Look up word CFA in dictionary
        !            68:   $find
        !            69:   0 = if
        !            70:     ." could not locate word for debugging"
        !            71:     2drop
        !            72:   else
        !            73:     (debug
        !            74:   then
        !            75:   ;
        !            76:   
        !            77: : stepping    ( -- )
        !            78:   ;
        !            79:   
        !            80: : tracing    ( -- )
        !            81:   ;
        !            82:   
        !            83: : debug-off    ( -- )
        !            84:   (debug-off)
        !            85:   ;
        !            86:   
        !            87: : resume    ( -- )
        !            88:   \ Set interpreter termination flag
        !            89:   1 to terminate?
        !            90:   ;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.