]> git.ipfire.org Git - thirdparty/glibc.git/blame - sysdeps/s390/jmpbuf-unwind.h
Prefer https to http for gnu.org and fsf.org URLs
[thirdparty/glibc.git] / sysdeps / s390 / jmpbuf-unwind.h
CommitLineData
04277e02 1/* Copyright (C) 2003-2019 Free Software Foundation, Inc.
58e8ec84
UD
2 This file is part of the GNU C Library.
3 Contributed by Jakub Jelinek <jakub@redhat.com>, 2003.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the 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 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
59ba27a6 16 License along with the GNU C Library; if not, see
5a82c748 17 <https://www.gnu.org/licenses/>. */
58e8ec84
UD
18
19#include <setjmp.h>
c7699aa5 20#include <jmpbuf-offsets.h>
675620f7 21#include <stdint.h>
58e8ec84 22#include <unwind.h>
6bdd38ba 23#include <bits/wordsize.h>
db169ed5 24#include <sysdep.h>
58e8ec84 25
0ca13e14
RM
26
27/* Test if longjmp to JMPBUF would unwind the frame
28 containing a local variable at ADDRESS. */
29#define _JMPBUF_UNWINDS(jmpbuf, address, demangle) \
30 ((void *) (address) < (void *) demangle ((jmpbuf)->__gregs[__JB_GPR15]))
31
32
6bdd38ba
UD
33/* On s390{,x}, CFA is always 96 (resp. 160) bytes above actual
34 %r15. */
675620f7 35#define _JMPBUF_CFA_UNWINDS_ADJ(_jmpbuf, _context, _adj) \
6bdd38ba
UD
36 _JMPBUF_UNWINDS_ADJ (_jmpbuf, \
37 (void *) (_Unwind_GetCFA (_context) \
38 - 32 - 2 * __WORDSIZE), _adj)
675620f7 39
db169ed5
RM
40static inline uintptr_t __attribute__ ((unused))
41_jmpbuf_sp (__jmp_buf regs)
42{
56e7d3ad 43 void *sp = (void *) (uintptr_t) regs[0].__gregs[__JB_GPR15];
db169ed5
RM
44#ifdef PTR_DEMANGLE
45 PTR_DEMANGLE (sp);
46#endif
56e7d3ad 47 return (uintptr_t) sp;
db169ed5
RM
48}
49
50#define _JMPBUF_UNWINDS_ADJ(_jmpbuf, _address, _adj) \
51 ((uintptr_t) (_address) - (_adj) < _jmpbuf_sp (_jmpbuf) - (_adj))
f76c8499 52
6bdd38ba 53/* We use the normal longjmp for unwinding. */
f76c8499 54#define __libc_unwind_longjmp(buf, val) __libc_longjmp (buf, val)