Subversion Repositories openrisc

/* 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 .

   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