arch/.unmaintained/m68k-linux/clib/longjmp.s

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: longjmp
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11     NAME
  12 #include <setjmp.h>
  13
  14         void longjmp (jmp_buf env, int val);
  15
  16     FUNCTION
  17         Save the current context so that you can return to it later.
  18
  19     INPUTS
  20         env - The context/environment to restore
  21         val - This value is returned by setjmp() when you return to the
  22                 saved context. You cannot return 0. If val is 0, then
  23                 setjmp() returns with 1.
  24
  25     RESULT
  26         This function doesn't return.
  27
  28     NOTES
  29
  30     EXAMPLE
  31         jmp_buf env;
  32
  33         ... some code ...
  34
  35         if (!setjmp (env))
  36         {
  37             ... this code is executed after setjmp() returns ...
  38
  39             // This is no good example on how to use this function
  40             // You should not do that
  41             if (error)
  42                 longjmp (env, 5);
  43
  44             ... some code ...
  45         }
  46         else
  47         {
  48             ... this code is executed if you call longjmp(env) ...
  49         }
  50
  51     BUGS
  52
  53     SEE ALSO
  54         setjmp()
  55
  56     INTERNALS
  57
  58     HISTORY
  59
  60 ******************************************************************************/
  61
  62         #include "machine.i"
  63
  64 #define FirstArg        4 /* Skip Return-Adress */
  65 #define env             FirstArg
  66 #define val             FirstArg+4
  67
  68         .text
  69         .balign 16
  70         .globl  AROS_CDEFNAME(longjmp)
  71         .type   AROS_CDEFNAME(longjmp),@function
  72 AROS_CDEFNAME(longjmp):
  73 #ifdef OLDJMP
  74         move.l  env(%sp),%a0            /* save area pointer */
  75         move.l  val(%sp),%d0
  76         jbne    .okret
  77         moveq.l #1,%d0                  /* make sure it isn't 0 */
  78 .okret:
  79         move.l  4(%a0),%sp              /* restore SP */
  80         move.l  0(%a0),(%sp)            /* restore PC */
  81         movem.l 8(%a0),%d2-%d7/%a2-%a6  /* restore remaining non-scratch regs */
  82         rts
  83 #else
  84         addq.w  #4,%sp                  /* returns to other address */
  85         move.l  (%sp)+,%a0              /* get address of jmp_buf */
  86         move.l  (%sp)+,%d0              /* get return code */
  87         jbne    .okret
  88         moveq.l #1,%d0                  /* make sure it isn't 0 */
  89 .okret:
  90         move.l  48(%sp),%sp             /* restore sp */
  91         move.l  (%a0)+,(%sp)            /* set return address */
  92         movem.l (%a0),%d2-%d7/%a2-%a6   /* restore all other registers */
  93         rts
  94 #endif
  95
  96 /*
  97         The jmp_buf is filled as follows (d0/d1/a0/a1 are not saved):
  98
  99         _jmp_buf        offset  contents
 100         [0]             0       old pc
 101         [1]             4       d2
 102         [2]             8       d3
 103         [3]             12      d4
 104         [4]             16      d5
 105         [5]             20      d6
 106         [6]             24      d7
 107         [7]             28      a2
 108         [8]             32      a3
 109         [9]             36      a4
 110         [10]            40      a5
 111         [11]            44      a6
 112         [12]            48      old sp
 113 */