From: simonm <unknown>
Date: Tue, 30 Sep 1997 13:08:46 +0000 (+0000)
Subject: [project @ 1997-09-30 13:08:46 by simonm]
X-Git-Tag: Approx_2487_patches~1457
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2f3b124d8e6967586fceac2934ff9938ede4dc76;p=ghc-hetmet.git

[project @ 1997-09-30 13:08:46 by simonm]
add grouping braces to ENT_FUN_DIRECT macro
---

diff --git a/ghc/includes/Ticky.lh b/ghc/includes/Ticky.lh
index fecee0a..f97fe32 100644
--- a/ghc/includes/Ticky.lh
+++ b/ghc/includes/Ticky.lh
@@ -341,6 +341,7 @@ struct ent_counter {
 extern struct ent_counter *ListOfEntryCtrs;
 
 #define ENT_FUN_DIRECT(f_ct,f_str,f_arity,Aargs,Bargs,arg_kinds,wrap,wrap_kinds) \
+	{							\
 	static struct ent_counter f_ct				\
 	  = { 0,						\
 	      (f_arity), (Aargs), (Bargs), (f_str), (arg_kinds),\
@@ -355,6 +356,7 @@ extern struct ent_counter *ListOfEntryCtrs;
 	    f_ct.registeredp = 1;				\
 	}							\
 	f_ct.ctr += 1;						\
+	}							\
 	ENT_FUN_DIRECT_ctr++ /* the old boring one */
 \end{code}