X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FTailCalls.h;h=670da9546f75de9df447311bef7f9edbfd293f0e;hb=ca3611da3a7b874004ed8040fd861357977ef5d4;hp=aa2d6f9c210aba61301ffee7a285d65cb64c82a6;hpb=ceefdee5e6de7ae96b461b4104c32779bbb58e53;p=ghc-hetmet.git

diff --git a/ghc/includes/TailCalls.h b/ghc/includes/TailCalls.h
index aa2d6f9..670da95 100644
--- a/ghc/includes/TailCalls.h
+++ b/ghc/includes/TailCalls.h
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: TailCalls.h,v 1.20 2005/03/08 09:01:20 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -88,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 */