X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterrupt.c;h=d23dbd72b8bbc0032d44af5799def870435c04b3;hb=fe6da9f355488152649de48885b96205043c0f82;hp=181e2a42458ecd28144a4d77567fbd0608744505;hpb=b727b3bff6f2a989e8e20e199945c2bf768214a9;p=sbcl.git

diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index 181e2a4..d23dbd7 100644
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -708,13 +708,13 @@ fake_foreign_function_call(os_context_t *context)
 /*     fprintf(stderr,"dynamic_space_free_pointer: %p\n", */
 /*             dynamic_space_free_pointer); */
 #if defined(LISP_FEATURE_ALPHA) || defined(LISP_FEATURE_MIPS)
-    if ((long)dynamic_space_free_pointer & 1) {
+    if ((sword_t)dynamic_space_free_pointer & 1) {
         lose("dead in fake_foreign_function_call, context = %x\n", context);
     }
 #endif
 /* why doesnt PPC and SPARC do something like this: */
 #if defined(LISP_FEATURE_HPPA)
-    if ((long)dynamic_space_free_pointer & 4) {
+    if ((sword_t)dynamic_space_free_pointer & 4) {
         lose("dead in fake_foreign_function_call, context = %x, d_s_f_p = %x\n", context, dynamic_space_free_pointer);
     }
 #endif