Return to gdbstub_test.gdb CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / ipxe / src / tests

Annotation of qemu/roms/ipxe/src/tests/gdbstub_test.gdb, revision 1.1.1.1

1.1       root        1: #!/usr/bin/gdb -x
                      2: # Test suite for GDB remote debugging
                      3: # Run:
                      4: #   make bin/ipxe.hd.tmp
                      5: #   make
                      6: #   gdb
                      7: #   (gdb) target remote :TCPPORT
                      8: #   OR
                      9: #   (gdb) target remote udp:IP:UDPPORT
                     10: #   (gdb) source tests/gdbstub_test.gdb
                     11: 
                     12: define ipxe_load_symbols
                     13:        file bin/ipxe.hd.tmp
                     14: end
                     15: 
                     16: define ipxe_assert
                     17:        if $arg0 != $arg1
                     18:                echo FAIL $arg2\n
                     19:        else
                     20:                echo PASS $arg2\n
                     21:        end
                     22: end
                     23: 
                     24: define ipxe_start_tests
                     25:        jump gdbstub_test
                     26: end
                     27: 
                     28: define ipxe_test_regs_read
                     29:        ipxe_assert $eax 0xea010203 "ipxe_test_regs_read eax"
                     30:        ipxe_assert $ebx 0xeb040506 "ipxe_test_regs_read ebx"
                     31:        ipxe_assert $ecx 0xec070809 "ipxe_test_regs_read ecx"
                     32:        ipxe_assert $edx 0xed0a0b0c "ipxe_test_regs_read edx"
                     33:        ipxe_assert $esi 0x510d0e0f "ipxe_test_regs_read esi"
                     34:        ipxe_assert $edi 0xd1102030 "ipxe_test_regs_read edi"
                     35: end
                     36: 
                     37: define ipxe_test_regs_write
                     38:        set $eax = 0xea112233
                     39:        set $ebx = 0xeb445566
                     40:        set $ecx = 0xec778899
                     41:        set $edx = 0xedaabbcc
                     42:        set $esi = 0x51ddeeff
                     43:        set $edi = 0xd1010203
                     44:        c
                     45:        ipxe_assert $eax 0xea112233 "ipxe_test_regs_write eax"
                     46:        ipxe_assert $ebx 0xeb445566 "ipxe_test_regs_write ebx"
                     47:        ipxe_assert $ecx 0xec778899 "ipxe_test_regs_write ecx"
                     48:        ipxe_assert $edx 0xedaabbcc "ipxe_test_regs_write edx"
                     49:        ipxe_assert $esi 0x51ddeeff "ipxe_test_regs_write esi"
                     50:        ipxe_assert $edi 0xd1010203 "ipxe_test_regs_write edi"
                     51: 
                     52:        # This assumes segment selectors are always 0x10 or 0x8 (for code).
                     53:        ipxe_assert $cs 0x08 "ipxe_test_regs_write cs"
                     54:        ipxe_assert $ds 0x10 "ipxe_test_regs_write ds"
                     55: end
                     56: 
                     57: define ipxe_test_mem_read
                     58:        c
                     59:        ipxe_assert ({int}($esp+4)) 0x11223344 "ipxe_test_mem_read int"
                     60:        ipxe_assert ({short}($esp+2)) 0x5566 "ipxe_test_mem_read short"
                     61:        ipxe_assert ({char}($esp)) 0x77 "ipxe_test_mem_read char"
                     62: end
                     63: 
                     64: define ipxe_test_mem_write
                     65:        set ({int}($esp+4)) = 0xaabbccdd
                     66:        set ({short}($esp+2)) = 0xeeff
                     67:        set ({char}($esp)) = 0x99
                     68:        c
                     69:        ipxe_assert ({int}($esp+4)) 0xaabbccdd "ipxe_test_mem_write int"
                     70:        ipxe_assert ({short}($esp+2)) (short)0xeeff "ipxe_test_mem_write short"
                     71:        ipxe_assert ({char}($esp)) (char)0x99 "ipxe_test_mem_write char"
                     72: end
                     73: 
                     74: define ipxe_test_step
                     75:        c
                     76:        si
                     77:        ipxe_assert ({char}($eip-1)) (char)0x90 "ipxe_test_step" # nop = 0x90
                     78: end
                     79: 
                     80: define ipxe_test_awatch
                     81:        awatch watch_me
                     82: 
                     83:        c
                     84:        ipxe_assert $ecx 0x600d0000 "ipxe_test_awatch read"
                     85:        if $ecx == 0x600d0000
                     86:                c
                     87:        end
                     88: 
                     89:        c
                     90:        ipxe_assert $ecx 0x600d0001 "ipxe_test_awatch write"
                     91:        if $ecx == 0x600d0001
                     92:                c
                     93:        end
                     94: 
                     95:        delete
                     96: end
                     97: 
                     98: define ipxe_test_watch
                     99:        watch watch_me
                    100:        c
                    101:        ipxe_assert $ecx 0x600d0002 "ipxe_test_watch"
                    102:        if $ecx == 0x600d0002
                    103:                c
                    104:        end
                    105:        delete
                    106: end
                    107: 
                    108: ipxe_load_symbols
                    109: ipxe_start_tests
                    110: ipxe_test_regs_read
                    111: ipxe_test_regs_write
                    112: ipxe_test_mem_read
                    113: ipxe_test_mem_write
                    114: ipxe_test_step
                    115: ipxe_test_awatch
                    116: ipxe_test_watch

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