URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gdb-7.2/] [gdb-7.2-or32-1.0rc1/] [gdb/] [testsuite/] [gdb.arch/] [amd64-disp-step.S] - Rev 330
Go to most recent revision | Compare with Previous | Blame | View Log
/* Copyright 2009, 2010 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
This file is part of the gdb testsuite.
It tests displaced stepping over various insns that require special
handling. */
.text
.global main
main:
nop
/***********************************************/
/* test call/ret */
.global test_call
test_call:
call test_call_subr
nop
.global test_ret_end
test_ret_end:
nop
/***********************************************/
/* test abs-jmp/rep-ret */
test_abs_jmp_setup:
mov $test_abs_jmp_return,%rdx
push %rdx
mov $test_abs_jmp_subr,%rdx
.global test_abs_jmp
test_abs_jmp:
jmp *%rdx
test_abs_jmp_return:
nop
.global test_rep_ret_end
test_rep_ret_end:
nop
/***********************************************/
/* test syscall */
.global test_syscall
mov $0x27,%eax /* getpid */
test_syscall:
syscall
nop
test_syscall_end:
nop
/***********************************************/
/* Test stepping over int3.
The prefixes are pointless, but it's possible, so we exercise it. */
nop
.global test_int3
test_int3:
repz
repz
int3
nop
.global test_int3_end
test_int3_end:
nop
/***********************************************/
/* test rip-relative
GDB picks a spare register to hold the rip-relative address.
Exercise all the possibilities (rax-rdi, sans rsp). */
.global test_rip_rax
test_rip_rax:
add answer(%rip),%rax
.global test_rip_rax_end
test_rip_rax_end:
nop
.global test_rip_rbx
test_rip_rbx:
add answer(%rip),%rbx
.global test_rip_rbx_end
test_rip_rbx_end:
nop
.global test_rip_rcx
test_rip_rcx:
add answer(%rip),%rcx
.global test_rip_rcx_end
test_rip_rcx_end:
nop
.global test_rip_rdx
test_rip_rdx:
add answer(%rip),%rdx
.global test_rip_rdx_end
test_rip_rdx_end:
nop
.global test_rip_rbp
test_rip_rbp:
add answer(%rip),%rbp
.global test_rip_rbp_end
test_rip_rbp_end:
nop
.global test_rip_rsi
test_rip_rsi:
add answer(%rip),%rsi
.global test_rip_rsi_end
test_rip_rsi_end:
nop
.global test_rip_rdi
test_rip_rdi:
add answer(%rip),%rdi
.global test_rip_rdi_end
test_rip_rdi_end:
nop
/* skip over test data */
jmp done
/* test rip-relative data */
answer: .8byte 42
/***********************************************/
/* all done */
done:
mov $0,%rdi
call exit
hlt
/***********************************************/
/* subroutine to help test call/ret */
test_call_subr:
nop
.global test_call_end
test_call_end:
nop
.global test_ret
test_ret:
ret
/***********************************************/
/* subroutine to help test abs-jmp/rep-ret */
test_abs_jmp_subr:
nop
.global test_abs_jmp_end
test_abs_jmp_end:
nop
.global test_rep_ret
test_rep_ret:
repz
ret
Go to most recent revision | Compare with Previous | Blame | View Log