From 2f3b124d8e6967586fceac2934ff9938ede4dc76 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 30 Sep 1997 13:08:46 +0000
Subject: [PATCH] [project @ 1997-09-30 13:08:46 by simonm] add grouping braces
to ENT_FUN_DIRECT macro
---
ghc/includes/Ticky.lh | 2 ++
1 file changed, 2 insertions(+)
diff --git a/ghc/includes/Ticky.lh b/ghc/includes/Ticky.lh
index fecee0a90164..f97fe32bff29 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}
--
GitLab