From 9ca97d2202eabb45e3aca7051f236c147e53080b Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Wed, 7 Oct 2015 02:52:32 +0300
Subject: [PATCH] ARM64: fix context-register-addr and
 context-register-pc-addr.

The result is unsigned-long, not unsigned-int.
---
 src/code/arm64-vm.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/code/arm64-vm.lisp b/src/code/arm64-vm.lisp
index 78aa3ff48..ed0f4fc71 100644
--- a/src/code/arm64-vm.lisp
+++ b/src/code/arm64-vm.lisp
@@ -35,12 +35,12 @@
 ;;;; See also x86-vm for commentary on signed vs unsigned.
 
 (define-alien-routine ("os_context_register_addr" context-register-addr)
-  (* unsigned-int)
+  (* unsigned-long)
   (context (* os-context-t))
   (index int))
 
 (define-alien-routine ("os_context_pc_addr" context-register-pc-addr)
-  (* unsigned-int)
+  (* unsigned-long)
   (context (* os-context-t)))
 
 ;;; FIXME: Should this and CONTEXT-PC be INLINE to reduce consing?
-- 
2.11.4.GIT