From: simonmar <unknown>
Date: Fri, 18 Nov 2005 15:23:09 +0000 (+0000)
Subject: [project @ 2005-11-18 15:23:09 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~38
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6c17d627e08e03f2b107bb9ab5d9259c7739c0d6;p=ghc-hetmet.git

[project @ 2005-11-18 15:23:09 by simonmar]
cosmetic
---

diff --git a/ghc/includes/TailCalls.h b/ghc/includes/TailCalls.h
index f62b10e..53db254 100644
--- a/ghc/includes/TailCalls.h
+++ b/ghc/includes/TailCalls.h
@@ -87,10 +87,8 @@ extern void __DISCARD__(void);
 
 #define JMP_(cont)			\
     { 					\
-      void *__target;			\
       __DISCARD__();			\
-      __target = (void *)(cont);    	\
-      goto *__target; 	    	    	\
+      goto *(void *)(cont); 	    	    	\
     }
 
 #endif /* x86_64_HOST_ARCH */