* replaced AArch64 setjmp/longjmp code initially taken from NetBSD with

    straightforward own implementation

git-svn-id: trunk@30006 -

rtl/aarch64/setjump.inc

@@ -1,59 +1,30 @@
 {
     This file is part of the Free Pascal run time library.
+    Copyright (c) 2015 by Jonas Maebe and other members of the
+    Free Pascal development team
 
-    * Copyright (c) 2014 The NetBSD Foundation, Inc.
-    * All rights reserved.
-    *
-    * This code is derived from software contributed to The NetBSD Foundation
-    * by Matt Thomas of 3am Software Foundry.
-    *
-    * Redistribution and use in source and binary forms, with or without
-    * modification, are permitted provided that the following conditions
-    * are met:
-    * 1. Redistributions of source code must retain the above copyright
-    *    notice, this list of conditions and the following disclaimer.
-    * 2. Redistributions in binary form must reproduce the above copyright
-    *    notice, this list of conditions and the following disclaimer in the
-    *    documentation and/or other materials provided with the distribution.
-    *
-    * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
-    * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
-    * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
-    * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
-    * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-    * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-    * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-    * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-    * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-    * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-    * POSSIBILITY OF SUCH DAMAGE.
+    SetJmp/Longjmp implementation for AArch64
 
- **********************************************************************}
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
 
-{ modified from original NetBSD version by removing the sigprocmask related
-  code }
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
-const
-  _JB_MAGIC_AARCH64_SETJMP: int64 = $1234434576533430;
 
-function fpc_setjmp(var S:jmp_buf):longint;assembler;[public,alias:'FPC_SETJMP'];nostackframe;compilerproc;
-  asm
-    adrp x7, _JB_MAGIC_AARCH64_SETJMP@gotpage
-    ldr x7, [x7, _JB_MAGIC_AARCH64_SETJMP@gotpageoff]
-    ldr x7, [x7]
+ **********************************************************************}
 
+function fpc_setjmp(var S: jmp_buf): longint; assembler; [public, alias:'FPC_SETJMP']; nostackframe; compilerproc;
+  asm
     mov x3, sp
-    stp x7, x3,  [x0, #jmp_buf.magic]
-
     stp x19, x20, [x0, #jmp_buf.x19]
     stp x21, x22, [x0, #jmp_buf.x21]
     stp x23, x24, [x0, #jmp_buf.x23]
     stp x25, x26, [x0, #jmp_buf.x25]
     stp x27, x28, [x0, #jmp_buf.x27]
     stp x29, x30, [x0, #jmp_buf.x29]
-
-    mrs x5, tpidr_el0
-    str x5, [x0, #jmp_buf.tpidr]
+    str x3,       [x0, #jmp_buf.xsp]
 
     stp d8,  d9,  [x0, #jmp_buf.d8]
     stp d10, d11, [x0, #jmp_buf.d10]
@@ -64,39 +35,18 @@ function fpc_setjmp(var S:jmp_buf):longint;assembler;[public,alias:'FPC_SETJMP']
   end;
 
 
-procedure fpc_setjmp_error;
-  begin
-    { better option than 216? }
-    HandleErrorAddrFrameInd(216,get_pc_addr,get_frame);
-  end;
-
-
-procedure fpc_longjmp(var S:jmp_buf;value:longint);assembler;[public,alias:'FPC_LONGJMP'];nostackframe;compilerproc;
+procedure fpc_longjmp(var S: jmp_buf ;value: longint); assembler; [public, alias:'FPC_LONGJMP']; nostackframe; compilerproc;
   asm
-    adrp x7, _JB_MAGIC_AARCH64_SETJMP@gotpage
-    ldr x7, [x7, _JB_MAGIC_AARCH64_SETJMP@gotpageoff]
-    ldr x7, [x7]
-    ldp x2, x3, [x0, #jmp_buf.magic]
-    cmp x2, x7
-    b.ne        .Lbotch
-
-    ldp x4,  x5,  [x0, #jmp_buf.x29]
-    cbz x3, .Lbotch
-    cbz x4, .Lbotch
-    cbz x5, .Lbotch
-
-    mov sp, x3
-    mov x29, x4
-    mov x30, x5
+    ldr x3,       [x0, #jmp_buf.xsp]
 
     ldp x19, x20, [x0, #jmp_buf.x19]
     ldp x21, x22, [x0, #jmp_buf.x21]
     ldp x23, x24, [x0, #jmp_buf.x23]
     ldp x25, x26, [x0, #jmp_buf.x25]
     ldp x27, x28, [x0, #jmp_buf.x27]
+    ldp x29, x30, [x0, #jmp_buf.x29]
 
-    ldr x5, [x0, #jmp_buf.tpidr]
-    msr tpidr_el0, x5
+    mov sp, x3
 
     ldp d8,  d9,  [x0, #jmp_buf.d8]
     ldp d10, d11, [x0, #jmp_buf.d10]
@@ -104,14 +54,6 @@ procedure fpc_longjmp(var S:jmp_buf;value:longint);assembler;[public,alias:'FPC_
     ldp d14, d15, [x0, #jmp_buf.d14]
 
     mov x0, x1
-    ret
-
-    { validation failed, die die die. }
-  .Lbotch:
-    { build stack frame }
-    stp x29, x30, [sp, #-16]
-    bl fpc_setjmp_error
-    b .Lbotch
   end;
 
 

rtl/aarch64/setjumph.inc

@@ -16,8 +16,6 @@
 
 type
    jmp_buf = record
-     magic: qword;
-     xsp: qword;
      x19: qword;
      x20: qword;
      x21: qword;
@@ -30,7 +28,7 @@ type
      x28: qword;
      x29: qword;
      x30: qword;
-     tpidr: qword;
+     xsp: qword;
      d8: qword;
      d9: qword;
      d10: qword;