X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FHsVersions.h;h=c8c09e6294197d077776f26a600b24d908a484e7;hb=fc85319dfd71f7a642c1858fcdfa4b3d2a10acda;hp=530b0faf5a05f84bb632a42f33598273d355f0ca;hpb=8d620ddd37d883329f63ad91fbe68142c738ba3c;p=ghc-hetmet.git diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 530b0fa..c8c09e6 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -32,8 +32,9 @@ you will screw up the layout where they are used in case expressions! * but we need them currently! so the conditional on GLASGOW won't do. */ #if defined(__GLASGOW_HASKELL__) || !defined(__GLASGOW_HASKELL__) #define GLOBAL_VAR(name,value,ty) \ -name = Util.global (value) :: IORef (ty); \ -{-# NOINLINE name #-} +{-# NOINLINE name #-}; \ +name :: IORef (ty); \ +name = Util.global (value); #endif #define COMMA ,