__longjmp.S 3.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. /* Copyright (C) 1991, 93, 96, 97, 98, 99, 2000 Free Software Foundation, Inc.
  2. This file is part of the GNU C Library.
  3. The GNU C Library is free software; you can redistribute it and/or
  4. modify it under the terms of the GNU Lesser General Public
  5. License as published by the Free Software Foundation; either
  6. version 2.1 of the License, or (at your option) any later version.
  7. The GNU C Library is distributed in the hope that it will be useful,
  8. but WITHOUT ANY WARRANTY; without even the implied warranty of
  9. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  10. Lesser General Public License for more details.
  11. You should have received a copy of the GNU Lesser General Public
  12. License along with the GNU C Library; if not, write to the Free
  13. Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  14. 02111-1307 USA. */
  15. #include <sys/syscall.h>
  16. #define _ASM 1
  17. #define _SETJMP_H
  18. #include <bits/setjmp.h>
  19. #define ENV(base,reg) [%base + (reg * 4)]
  20. #define ST_FLUSH_WINDOWS 3
  21. #define RW_FP [%fp + 0x48]
  22. .global __longjmp;
  23. .align 4;
  24. __longjmp: ;
  25. .type __longjmp ,@function;
  26. /* Store our arguments in global registers so we can still
  27. use them while unwinding frames and their register windows. */
  28. ld ENV(o0,JB_FP), %g3 /* Cache target FP in register %g3. */
  29. mov %o0, %g1 /* ENV in %g1 */
  30. orcc %o1, %g0, %g2 /* VAL in %g2 */
  31. be,a 0f /* Branch if zero; else skip delay slot. */
  32. mov 1, %g2 /* Delay slot only hit if zero: VAL = 1. */
  33. 0:
  34. xor %fp, %g3, %o0
  35. add %fp, 512, %o1
  36. andncc %o0, 4095, %o0
  37. bne .Lthread
  38. cmp %o1, %g3
  39. bl .Lthread
  40. /* Now we will loop, unwinding the register windows up the stack
  41. until the restored %fp value matches the target value in %g3. */
  42. .Lloop:
  43. cmp %fp, %g3 /* Have we reached the target frame? */
  44. bl,a .Lloop /* Loop while current fp is below target. */
  45. restore /* Unwind register window in delay slot. */
  46. be,a .Lfound /* Better have hit it exactly. */
  47. ld ENV(g1,JB_SP), %o0 /* Delay slot: extract target SP. */
  48. .Lthread:
  49. /*
  50. * Do a "flush register windows trap". The trap handler in the
  51. * kernel writes all the register windows to their stack slots, and
  52. * marks them all as invalid (needing to be sucked up from the
  53. * stack when used). This ensures that all information needed to
  54. * unwind to these callers is in memory, not in the register
  55. * windows.
  56. */
  57. ta ST_FLUSH_WINDOWS
  58. ld ENV(g1,JB_PC), %o7 /* Set return PC. */
  59. ld ENV(g1,JB_SP), %fp /* Set saved SP on restore below. */
  60. sub %fp, 64, %sp /* Allocate a register frame. */
  61. st %g3, RW_FP /* Set saved FP on restore below. */
  62. retl
  63. restore %g2, 0, %o0 /* Restore values from above register frame. */
  64. .Lfound:
  65. /* We have unwound register windows so %fp matches the target. */
  66. mov %o0, %sp /* OK, install new SP. */
  67. .Lsp_ok:
  68. ld ENV(g1,JB_PC), %o0 /* Extract target return PC. */
  69. jmp %o0 + 8 /* Return there. */
  70. mov %g2, %o0 /* Delay slot: set return value. */
  71. .size __longjmp , . - __longjmp