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

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;						\