Subversion Repositories or1k

; setjmp/longjmp for D10V.  The jmpbuf looks like this:

;

; Register              jmpbuf offset

; R6                    0x00

; R7                    0x02

; R8                    0x04

; R9                    0x06

; R10                   0x08

; R11                   0x0a

; R13 (return address)  0x0c

; R15 (SP)              0x0E

        .text

        .globl  setjmp

        .type   setjmp,@function

        .stabs  "setjmp.S",100,0,0,setjmp

        .stabs  "int:t(0,1)=r(0,1);-65536;65535;",128,0,0,0

        .stabs  "setjmp:F(0,1)",36,0,1,setjmp

setjmp:

; Address of jmpbuf is passed in R0.  Save the appropriate registers.

        st2w    r6, @r0+

        st2w    r8, @r0+

        st2w    r10, @r0+

        st      r13, @r0+

        st      r15, @r0+

; Return 0 to caller

        ldi     r0, 0

        jmp     r13

.Lsetjmp:

        .size   setjmp,.Lsetjmp-setjmp

        .stabs  "",36,0,0,.Lsetjmp-setjmp

        .globl  longjmp

        .type   longjmp,@function

        .stabs  "longjmp:F(0,1)",36,0,1,longjmp

longjmp:

; Address of jmpbuf is in R0.  Restore the registers.

        ld2w    r6, @r0+

        ld2w    r8, @r0+

        ld2w    r10, @r0+

        ld      r13, @r0+

        ld      r15, @r0+

; Value to return to caller is in R1.  If caller attemped to return 0,

; return 1 instead.

        mv      r0, r1

        cmpeqi  r0, 0

        exef0t || ldi r0,1

        jmp     r13

.Llongjmp:

        .size   longjmp,.Llongjmp-longjmp

        .stabs  "",36,0,0,.Llongjmp-longjmp