Welcome to mirror list, hosted at ThFree Co, Russian Federation.

setjmp.S « cr16 « machine « libc « newlib - cygwin.com/git/newlib-cygwin.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
blob: d31643a5f308dc55573bd071b695789c65c01333 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 ##############################################################################
 # setjmp.S -- CR16 setjmp routine                                            #
 #                                                                            #
 # Copyright (c) 2004 National Semiconductor Corporation                      #
 #                                                                            #
 # The authors hereby grant permission to use, copy, modify, distribute,      #
 # and license this software and its documentation for any purpose, provided  #
 # that existing copyright notices are retained in all copies and that this   #
 # notice is included verbatim in any distributions. No written agreement,    #
 # license, or royalty fee is required for any of the authorized uses.        #
 # Modifications to this software may be copyrighted by their authors         #
 # and need not follow the licensing terms described here, provided that      #
 # the new terms are clearly indicated on the first page of each file where   #
 # they apply.                                                                #
 #                                                                            #
 # C library -- setjmp, longjmp                                               #
 # longjmp(a,v)                                                               #
 # will generate a "return(v)"                                                #
 # from the last call to                                                      #
 # setjmp(a)                                                                  #
 # by restoring r7-ra, sp,                                                    #
 # and pc from 'a'                                                            #
 # and doing a return. (Makes sure that longjmp never returns 0).             #
 ##############################################################################

	.text
	.file	"setjmp.s"
        .align 4

        .globl _setjmp
        .align 4
_setjmp:
        #r3, r2: .blkw
	storw r7, 0(r3,r2)
	addd $2, (r3,r2)
	storw r8, 0(r3,r2)
	addd $2, (r3,r2)
	storw r9, 0(r3,r2)
	addd $2, (r3,r2)
	storw r10, 0(r3,r2)
	addd $2, (r3,r2)
	storw r11, 0(r3,r2)
	addd $2, (r3,r2)

	stord (r12), 0(r3,r2)
	addd $4, (r3,r2)
	stord (r13), 0(r3,r2)
	addd $4, (r3,r2)

	stord (ra), 0(r3,r2)
	addd $4, (r3,r2)
	stord (sp), 0(r3,r2)

        movd  $0,(r1,r0)
        jump  (ra)

        .globl _longjmp
_longjmp:
        #r3, r2: .blkw # pointer save area
        #r5, r4: .blkw # ret vlaue

	loadw 0(r3,r2), r7
	addd $2, (r3,r2)
	loadw 0(r3,r2), r8
	addd $2, (r3,r2)
	loadw 0(r3,r2), r9
	addd $2, (r3,r2)
	loadw 0(r3,r2), r10
	addd $2, (r3,r2)
	loadw 0(r3,r2), r11
	addd $2, (r3,r2)

	loadd 0(r3,r2), (r12)
	addd $4, (r3,r2)
	loadd 0(r3,r2), (r13)
	addd $4, (r3,r2)

	loadd 0(r3,r2), (ra)
	addd $4, (r3,r2)
	loadd 0(r3,r2), (sp)

#ifdef __INT32__
        movd (r5,r4), (r1,r0)
        cmpd $0, (r5,r4)
        bne end1
        movd $1, (r1,r0)
#else
        movw r4, r0
        cmpw $0, r4
        bne end1
        movw $1, r0
#endif
end1:
        jump (ra)
        .align 4