sysdeps/s390/s390-32/bsd-setjmp.S

   1 /* BSD `setjmp' entry point to `sigsetjmp (..., 1)'.  s390 version.
   2    Copyright (C) 2000, 2001 Free Software Foundation, Inc.
   3    Contributed by Martin Schwidefsky (schwidefsky@de.ibm.com).
   4    This file is part of the GNU C Library.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, write to the Free
  18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 /* This just does a tail-call to `__sigsetjmp (ARG, 1)'.
  22    We cannot do it in C because it must be a tail-call, so frame-unwinding
  23    in setjmp doesn't clobber the state restored by longjmp.  */
  24
  25 #include <sysdep.h>
  26
  27 ENTRY(setjmp)
  28 #ifdef PIC
  29         /* We cannot use the PLT, because it requires that %r12 be set, but
  30            we can't save and restore our caller's value.  Instead, we do an
  31            indirect jump through the GOT. */
  32         basr   %r1,0
  33 .L0:    al     %r1,.L1 - .L0(0,%r1) /* get address of global offset table */
  34                                     /* get address of __sigjmp_save from got */
  35         l      %r1,__sigjmp_save@GOT12(0,%r1)
  36         lhi    %r3,1                /* second argument of one */
  37         br     %r1
  38 .L1:    .long  _GLOBAL_OFFSET_TABLE_ - .L0
  39 #else
  40         basr   %r1,0
  41 .L0:    l      %r1,.L1 - .L0(0,%r1) /* load address of __sigsetjmp */
  42         lhi    %r3,1                /* second argument of zero */
  43         br     %r1                  /* branch to __sigsetjmp */
  44 .L1:    .long  __sigsetjmp
  45 #endif
  46 END (setjmp)