Subversion Repositories openrisc

        comment "subroutine prologue"
        .macro gdbasm_enter
        addi sp,#-16,sp
        sti fp, @(sp,0)
        mov sp, fp
        movsg lr, gr5
        sti gr5, @(fp,8)
        .endm

        comment "subroutine epilogue"
        .macro gdbasm_leave
        ldi @(fp,8), gr5
        ld @(fp,gr0), fp
        addi sp,#16,sp
        jmpl @(gr5,gr0)
        .endm

        .macro gdbasm_call subr
        call \subr
        .endm

        .macro gdbasm_several_nops
        nop
        nop
        nop
        nop
        .endm

        comment "exit (0)"
        .macro gdbasm_exit0
        comment "Don't know how to exit, but this will certainly halt..."
        ldi @(gr0,0), gr5
        .endm

        comment "crt0 startup"
        .macro gdbasm_startup
        call    .Lcall
.Lcall: movsg   lr, gr4
        sethi   #gprelhi(.Lcall), gr5
        setlo   #gprello(.Lcall), gr5
        sub      gr4, gr5, gr16

        sethi    #gprelhi(_stack), sp
        setlo    #gprello(_stack), sp
        setlos   #0, fp
        add      sp, gr16, sp
        .endm

        comment "Declare a data variable"
        .purgem gdbasm_datavar
        .macro gdbasm_datavar name value
        .data
\name:
        .long   \value
        .endm