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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [machine/] [z8k/] [setjmp.S] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 39 lampret
 
2
#ifdef __Z8001__
3
        segm
4
 
5
        .global _setjmp
6
_setjmp:
7
        ldl     rr2,@rr14       ! fetch pc
8
        ldl     @rr6,rr2        ! save it
9
        ldl     rr6(4),rr10
10
        ldl     rr6(8),rr12     ! and the other special regs
11
        ldl     rr6(12),rr14
12
        ldk     r2,#0
13
        ret     t
14
 
15
        .globl  _longjmp
16
 
17
_longjmp:
18
        ld      r2,r5           ! get return value
19
        ldl     rr4,rr6(0)
20
        ldl     rr10,rr6(4)
21
        ldl     rr12,rr6(8)
22
        ldl     rr14,rr6(12)
23
        jp      @rr4
24
#else
25
        unseg
26
 
27
        .global _setjmp
28
_setjmp:
29
        ld      r2,@r15 ! fetch pc
30
        ld      @r7,r2  ! save it
31
        ldl     r7(4),rr10
32
        ldl     r7(8),rr12      ! and the other special regs
33
        ldl     r7(12),rr14
34
        ldk     r2,#0
35
        ret     t
36
 
37
        .globl  _longjmp
38
 
39
_longjmp:
40
        ld      r2,r6           ! get return value
41
        ld      r4,@r7
42
        ldl     rr10,rr7(4)
43
        ldl     rr12,rr7(8)
44
        ldl     rr14,rr7(12)
45
        jp      @rr4
46
 
47
#endif
48
 
49
 

powered by: WebSVN 2.1.0

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