e6979b7d31fa30455bd8437648485746d154aa4f
[kopensolaris-gnu/glibc.git] / sysdeps / vax / __longjmp.c
1 /* Copyright (C) 1991 Free Software Foundation, Inc.
2    Derived from @(#)_setjmp.s   5.7 (Berkeley) 6/27/88,
3    Copyright (c) 1980 Regents of the University of California.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 Library General Public License for more details.
14
15 You should have received a copy of the GNU Library General Public
16 License along with the GNU C Library; see the file COPYING.LIB.  If
17 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
18 Cambridge, MA 02139, USA.  */
19
20 #include <ansidecl.h>
21 #include <setjmp.h>
22
23
24 #define REI     02      /* Vax `rei' opcode.  */
25
26 /* Jump to the position specified by ENV, causing the
27    setjmp call there to return VAL, or 1 if VAL is 0.  */
28 __NORETURN
29 void
30 DEFUN(__longjmp, (env, val), CONST jmp_buf env AND int val)
31 {
32   register long int *fp asm("fp");
33   long int *regsave;
34   unsigned long int flags;
35
36   if (env.__fp == NULL)
37     __libc_fatal("longjmp: Invalid ENV argument.\n");
38
39   if (val == 0)
40     val = 1;
41
42   asm volatile("loop:");
43
44   flags = *(long int *) (6 + (char *) fp);
45   regsave = (long int *) (20 + (char *) fp);
46   if (flags & 1)
47     /* R0 was saved by the caller.
48        Store VAL where it will be restored from.  */
49     *regsave++ = val;
50   if (flags & 2)
51     /* R1 was saved by the caller.
52        Store ENV where it will be restored from.  */
53     *regsave = env;
54
55   /* Was the FP saved in the last call the same one in ENV?  */
56   asm volatile("cmpl %0, 12(fp);"
57                /* Yes, return to it.  */
58                "beql done;"
59                /* The FP in ENV is less than the one saved in the last call.
60                   This means we have already returned from the function that
61                   called `setjmp' with ENV!  */
62                "blssu latejump;" : /* No outputs.  */ : "g" (env.__fp));
63
64   /* We are more than one level below the state in ENV.
65      Return to where we will pop another stack frame.  */
66   asm volatile("movl $loop, 16(fp);"
67                "ret");
68
69   asm volatile("done:");
70   {
71     char return_insn asm("*16(fp)");
72     if (return_insn == REI)
73       /* We're returning with an `rei' instruction.
74          Do a return with PSL-PC pop.  */
75       asm volatile("movab 0f, 16(fp)");
76     else
77       /* Do a standard return.  */
78       asm volatile("movab 1f, 16(fp)");
79
80     /* Return.  */
81     asm volatile("ret");
82   }
83
84   asm volatile("0:"     /* `rei' return.  */
85                /* Compensate for PSL-PC push.  */
86                "addl2 %0, sp;"
87                "1:"     /* Standard return.  */
88                /* Return to saved PC.  */
89                "jmp %1" : /* No outputs.  */ :
90                "g" (8), "g" (env.__pc));
91
92   /* Jump here when the FP saved in ENV points
93      to a function that has already returned.  */
94   asm volatile("latejump:");
95   __libc_fatal("longjmp: Attempt to jump to a function that has returned.\n");
96 }