[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 750b398..670da95 100644 (file)
--- 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 */