summaryrefslogtreecommitdiff
path: root/libc/sysdeps/linux/alpha/bits/setjmp.h
blob: fcd57d61d1a409a302ef7a3f8f58d68a40ce47d6 (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
/* Define the machine-dependent type `jmp_buf'.  Alpha version.
   Copyright (C) 1992, 1997 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

#ifndef _SETJMP_H
# error "Never include <bits/setjmp.h> directly; use <setjmp.h> instead."
#endif

/* The previous bits/setjmp.h had __jmp_buf defined as a structure.
   We use an array of 'long int' instead, to make writing the
   assembler easier. Naturally, user code should not depend on
   either representation. */

/*
 * Integer registers:
 *    $0 is the return value (va);
 *    $1-$8, $22-$25, $28 are call-used (t0-t7, t8-t11, at);
 *    $9-$14 we save here (s0-s5);
 *    $15 is the FP and we save it here (fp or s6);
 *    $16-$21 are input arguments (call-used) (a0-a5);
 *    $26 is the return PC and we save it here (ra);
 *    $27 is the procedure value (i.e., the address of __setjmp) (pv or t12);
 *    $29 is the global pointer, which the caller will reconstruct
 *        from the return address restored in $26 (gp);
 *    $30 is the stack pointer and we save it here (sp);
 *    $31 is always zero (zero).
 *
 * Floating-point registers:
 *    $f0 is the floating return value;
 *    $f1, $f10-$f15, $f22-$f30 are call-used;
 *    $f2-$f9 we save here;
 *    $f16-$21 are input args (call-used);
 *    $f31 is always zero.
 *
 * Note that even on Alpha hardware that does not have an FPU (there
 * isn't such a thing currently) it is required to implement the FP
 * registers.
 */

#if defined __USE_MISC || defined __ASSEMBLY__
# define JB_S0  0
# define JB_S1  1
# define JB_S2  2
# define JB_S3  3
# define JB_S4  4
# define JB_S5  5
# define JB_PC  6
# define JB_FP  7
# define JB_SP  8
# define JB_F2  9
# define JB_F3  10
# define JB_F4  11
# define JB_F5  12
# define JB_F6  13
# define JB_F7  14
# define JB_F8  15
# define JB_F9  16
#endif

#ifndef __ASSEMBLY__
typedef long int __jmp_buf[17];

/* Test if longjmp to JMPBUF would unwind the frame containing a local
   variable at ADDRESS.  */
#define _JMPBUF_UNWINDS(_jmpbuf, _address)				\
     ((void *)(_address) < (void *)((_jmpbuf)[JB_SP]))
#endif
st char missing[] = "%s: option requires an argument -- %c\n"; static const char illegal[] = "%s: illegal option -- %c\n"; #endif int opterr = 1; int optind = 1; int optopt = 0; char *optarg = NULL; libc_hidden_proto(getopt) int getopt(int argc, char * const argv[], const char *optstring) { static const char *o; /* multi opt position */ register const char *p; register const char *s; int retval = -1; optopt = 0; optarg = NULL; if (!o) { /* Not in a multi-option arg. */ if ((optind >= argc) /* No more args? */ || ((p = argv[optind]) == NULL) /* Missing? */ || (*p != '-') /* Not an option? */ || (!*++p) /* "-" case? */ ) { goto DONE; } if ((*p == '-') && (p[1] == 0)) { /* "--" case. */ /* ++optind; */ /* goto DONE; */ goto NEXTOPT; /* Less code generated... */ } o = p; } #ifdef __BCC__ p = o; /* Sigh... Help out bcc. */ #define o p #endif retval = (unsigned char) *o; /* Avoid problems for char val of -1. */ if ((*o == ':') || !(s = strchr(optstring, *o))) { /* Illegal option? */ s = illegal; retval = '?'; goto BAD; } if (s[1] == ':') { /* Option takes an arg? */ if (o[1]) { /* No space between option and arg? */ optarg = (char *)(o + 1); goto NEXTOPT; } if (optind + 1 < argc) { /* Space between option and arg? */ optarg = argv[++optind]; } else { /* Out of args! */ s = missing; retval = ':'; BAD: optopt = *o; if (*optstring != ':') { retval = '?'; if (opterr) { #ifdef __BCC__ fprintf(stderr, "%s: %s -- %c\n", argv[0], s, *o); #else fprintf(stderr, _(s), argv[0], *o); #endif } } } } #ifdef __BCC__ #undef o #endif if (!*++o) { NEXTOPT: o = NULL; ++optind; } DONE: return retval; } libc_hidden_def(getopt)