1  /* Copyright (C) 2003-2023 Free Software Foundation, Inc.
       2     This file is part of the GNU C Library.
       3  
       4     The GNU C Library is free software; you can redistribute it and/or
       5     modify it under the terms of the GNU Lesser General Public
       6     License as published by the Free Software Foundation; either
       7     version 2.1 of the License, or (at your option) any later version.
       8  
       9     The GNU C Library is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      12     Lesser General Public License for more details.
      13  
      14     You should have received a copy of the GNU Lesser General Public
      15     License along with the GNU C Library; if not, see
      16     <https://www.gnu.org/licenses/>.  */
      17  
      18  #include <setjmp.h>
      19  #include <jmpbuf-offsets.h>
      20  #include <stdint.h>
      21  #include <unwind.h>
      22  #include <bits/wordsize.h>
      23  #include <sysdep.h>
      24  #include <pointer_guard.h>
      25  
      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  
      33  /* On s390{,x}, CFA is always 96 (resp. 160) bytes above actual
      34     %r15.  */
      35  #define _JMPBUF_CFA_UNWINDS_ADJ(_jmpbuf, _context, _adj) \
      36    _JMPBUF_UNWINDS_ADJ (_jmpbuf,					\
      37  		       (void *) (_Unwind_GetCFA (_context)	\
      38  				 - 32 - 2 * __WORDSIZE), _adj)
      39  
      40  static inline uintptr_t __attribute__ ((unused))
      41  _jmpbuf_sp (__jmp_buf regs)
      42  {
      43    void *sp = (void *) (uintptr_t) regs[0].__gregs[__JB_GPR15];
      44    PTR_DEMANGLE (sp);
      45    return (uintptr_t) sp;
      46  }
      47  
      48  #define _JMPBUF_UNWINDS_ADJ(_jmpbuf, _address, _adj) \
      49    ((uintptr_t) (_address) - (_adj) < _jmpbuf_sp (_jmpbuf) - (_adj))
      50  
      51  /* We use the normal longjmp for unwinding.  */
      52  #define __libc_unwind_longjmp(buf, val) __libc_longjmp (buf, val)