[project @ 2005-12-02 14:09:21 by simonmar]

[ghc-hetmet.git] / ghc / includes / TailCalls.h

diff --git a/ghc/includes/TailCalls.h b/ghc/includes/TailCalls.h
index aa2d6f9..670da95 100644 (file)
--- 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 */