OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [machine/] [xstormy16/] [setjmp.S] - Rev 207

Compare with Previous | Blame | View Log

;;  xstormy16
;;   Copyright (C) 2001 by  Red Hat, Incorporated. All rights reserved.
;; 
;; Permission to use, copy, modify, and distribute this software
;; is freely granted, provided that this notice is preserved.
;; 
        .file "setjmp.S"

        .section .text
        .align 1
        .global setjmp
        .type setjmp,@function
setjmp:
        mov r0,r10
        mov (r2++),r0
        mov r0,r11
        mov (r2++),r0
        mov r0,r12
        mov (r2++),r0
        mov r0,r13
        mov (r2++),r0
        pop r0                  ; PC high word
        pop r1                  ; PC low word
        mov (r2++), r0
        mov (r2++), r1
        mov r3,sp
        mov (r2++),r3
        mov.w r2,#0
        mov r8, r0
        mov r9, r1
        jmp r8, r9
        .size setjmp,.-setjmp

        .global longjmp
        .type longjmp,@function
longjmp:
        mov r0,(r2++)
        mov r10,r0
        mov r0,(r2++)
        mov r11,r0
        mov r0,(r2++)
        mov r12,r0
        mov r0,(r2++)
        mov r13,r0
        mov r0,(r2++)
        mov r8, r0
        mov r1,(r2++)
        mov r9, r1
        mov r4,(r2++)
        mov sp,r4
;; status arg (r3) to longjmp is return value
;; if it's zero, return 1
        bnz r3, #0, 0f
        mov.w r3,#1
0:      mov r2, r3
        jmp r8,r9
        .size longjmp,.-longjmp

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.