X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpseudo-atomic.h;h=df5e900950e8cffcf1a89f366e70c981e2156999;hb=d1873cc3f7a09f9891bb9c05f206af1774876c0c;hp=bd0cc55d4a756e00623ec070af5909e971094536;hpb=1600081cf1b71b3d0e2e40de1c1c124a3a4fd40c;p=sbcl.git

diff --git a/src/runtime/pseudo-atomic.h b/src/runtime/pseudo-atomic.h
index bd0cc55..df5e900 100644
--- a/src/runtime/pseudo-atomic.h
+++ b/src/runtime/pseudo-atomic.h
@@ -53,8 +53,9 @@
 #elif defined(LISP_FEATURE_PPC) && defined(LISP_FEATURE_GENCGC)
 
 #define set_alloc_pointer(value) \
-    (dynamic_space_free_pointer =                                       \
-     (value) | (((unsigned long)dynamic_space_free_pointer) & LOWTAG_MASK))
+    (dynamic_space_free_pointer = \
+     ((lispobj *) \
+      ((value) | (((unsigned long)dynamic_space_free_pointer) & LOWTAG_MASK))))
 
 #define get_alloc_pointer()                                     \
     ((unsigned long) dynamic_space_free_pointer & ~LOWTAG_MASK)