Remove building with NOCRYPTO option
[minix3.git] / lib / libc / arch / alpha / gen / __setjmp14.S
blobf9f193421c79265db18b7db1b5dce8a6f345e428
1 /* $NetBSD: __setjmp14.S,v 1.7 2014/01/23 03:08:50 christos Exp $ */
3 /*
4  * Copyright (c) 1994, 1995 Carnegie-Mellon University.
5  * All rights reserved.
6  *
7  * Author: Chris G. Demetriou
8  * 
9  * Permission to use, copy, modify and distribute this software and
10  * its documentation is hereby granted, provided that both the copyright
11  * notice and this permission notice appear in all copies of the
12  * software, derivative works or modified versions, and any portions
13  * thereof, and that both notices appear in supporting documentation.
14  * 
15  * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS" 
16  * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND 
17  * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
18  * 
19  * Carnegie Mellon requests users of this software to return to
20  *
21  *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
22  *  School of Computer Science
23  *  Carnegie Mellon University
24  *  Pittsburgh PA 15213-3890
25  *
26  * any improvements or extensions that they make and grant Carnegie the
27  * rights to redistribute these changes.
28  */
30 #include <machine/asm.h>
31 #include "assym.h"
34  * C library -- setjmp, longjmp
35  *
36  *      longjmp(a,v)
37  * will generate a "return(v)" from
38  * the last call to
39  *      setjmp(a)
40  * by restoring registers from the stack,
41  * and the previous signal state.
42  */
44         .set    noreorder
46 LEAF(__setjmp14, 1)
47         LDGP(pv)
48         stq     ra, SC_PC(a0)                   /* sc_pc = return address */
49         stq     s0, (SC_REGS+_REG_S0)(a0)       /* saved bits of sc_regs */
50         stq     s1, (SC_REGS+_REG_S1)(a0)
51         stq     s2, (SC_REGS+_REG_S2)(a0)
52         stq     s3, (SC_REGS+_REG_S3)(a0)
53         stq     s4, (SC_REGS+_REG_S4)(a0)
54         stq     s5, (SC_REGS+_REG_S5)(a0)
55         stq     s6, (SC_REGS+_REG_S6)(a0)
56         stq     ra, (SC_REGS+_REG_RA)(a0)
57         stq     sp, (SC_REGS+_REG_SP)(a0)
58         stq     gp, (SC_REGS+_REG_GP)(a0)
60         /*
61          * get signal information
62          */
63         mov     a0, s0                          /* squirrel away ptr to sc */
65         /* see what's blocked */
66         mov     zero, a0                        /* how (insignificant) */
67         mov     zero, a1                        /* set (NULL) */
68         lda     a2, SC_MASK(s0)                 /* point to mask in sc */
69         CALL(__sigprocmask14)
71         lda     sp, -24(sp)                     /* sizeof struct sigaltstack */
72         mov     zero, a0
73         mov     sp, a1
74         CALL(__sigaltstack14)
75         ldl     t0, 16(sp)                      /* offset of ss_flags */
76         lda     sp, 24(sp)                      /* sizeof struct sigaltstack */
77         ldq     ra, (SC_REGS+_REG_RA)(s0)       /* restore return address */
78         blt     v0, botch                       /* check for error */
79         and     t0, 0x1, t0                     /* get SA_ONSTACK flag */
80         stq     t0, SC_ONSTACK(s0)              /* and save it in sc_onstack */
81         /*
82          * Restore old s0 and a0, and continue saving registers
83          */
84         mov     s0, a0
85         ldq     s0, (SC_REGS+_REG_S0)(a0)
87         ldq     t0, magic                       /* sigcontext magic number */
88         stq     t0, (SC_REGS+_REG_UNIQUE)(a0)   /* magic in sc_regs[31] */
89         /* Too bad we can't check if we actually used FP */
90         ldiq    t0, 1
91         stq     t0, SC_OWNEDFP(a0)              /* say we've used FP.  */
92         stt     fs0, (2*8 + SC_FPREGS)(a0)      /* saved bits of sc_fpregs */
93         stt     fs1, (3*8 + SC_FPREGS)(a0)
94         stt     fs2, (4*8 + SC_FPREGS)(a0)
95         stt     fs3, (5*8 + SC_FPREGS)(a0)
96         stt     fs4, (6*8 + SC_FPREGS)(a0)
97         stt     fs5, (7*8 + SC_FPREGS)(a0)
98         stt     fs6, (8*8 + SC_FPREGS)(a0)
99         stt     fs7, (9*8 + SC_FPREGS)(a0)
100         excb                                    /* required 4.7.8.1 Alpha ARM */
101         mf_fpcr ft0                             /* get FP control reg */
102         excb                                    /* required 4.7.8.1 Alpha ARM */
103         stt     ft0, SC_FPCR(a0)                /* and store it in sc_fpcr */
104         stq     zero, SC_FP_CONTROL(a0)         /* FP software control XXX */
105         stq     zero, (SC_RESERVED + 0*8)(a0)   /* sc_reserved[0] */
106         stq     zero, (SC_RESERVED + 1*8)(a0)   /* sc_reserved[1] */
107         stq     zero, (SC_XXX + 0*8)(a0)        /* sc_xxx[0] */
108         stq     zero, (SC_XXX + 1*8)(a0)        /* sc_xxx[1] */
109         stq     zero, (SC_XXX + 2*8)(a0)        /* sc_xxx[2] */
110         stq     zero, (SC_XXX + 3*8)(a0)        /* sc_xxx[3] */
111         stq     zero, (SC_XXX + 4*8)(a0)        /* sc_xxx[4] */
112         stq     zero, (SC_XXX + 5*8)(a0)        /* sc_xxx[5] */
113         stq     zero, (SC_XXX + 6*8)(a0)        /* sc_xxx[6] */
114         stq     zero, (SC_XXX + 7*8)(a0)        /* sc_xxx[7] */
116         mov     zero, v0                        /* return zero */
117         RET
118 botch:
119         CALL(abort)
120         RET                                     /* "can't" get here... */
121 magic:
122         .quad   0xacedbade                      /* sigcontext magic number */
123 END(__setjmp14)