X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FCmm.h;h=b23a37be040e5bda37a37c90ebbde5172a00fc05;hp=c238a84238b8bf7ed18cb9050d80e84d2c2f6cee;hb=d31dfb32ea936c22628b508c28a36c12e631430a;hpb=c9c4951cc1d76273be541fc4791e131e418956aa

diff --git a/includes/Cmm.h b/includes/Cmm.h
index c238a84..b23a37b 100644
--- a/includes/Cmm.h
+++ b/includes/Cmm.h
@@ -524,7 +524,7 @@
  __bd = W_[mut_list];							\
   if (bdescr_free(__bd) >= bdescr_start(__bd) + BLOCK_SIZE) {		\
       W_ __new_bd;							\
-      "ptr" __new_bd = foreign "C" allocBlock_lock() [regs];		\
+      ("ptr" __new_bd) = foreign "C" allocBlock_lock() [regs];		\
       bdescr_link(__new_bd) = __bd;					\
       __bd = __new_bd;							\
       W_[mut_list] = __bd;						\