hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Fix NOINLINE pragma layouting

pull/123/merge
Lennart Spitzner 2018-02-19 17:17:39 +01:00
parent 34036cbb74
commit c124336738
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src-literatetests/10-tests.blt
View File

@ -287,6 +287,10 @@ func = f
{-# INLINE CONLIKE [1] f #-} {-# INLINE CONLIKE [1] f #-}
f = id f = id
#test noinline pragma 1
{-# NOINLINE func #-}
func :: Int
#test inline pragma 4 #test inline pragma 4
#pending this does not work with the compiler version we currently use yet (i think). should work with ghc-8.0.2. #pending this does not work with the compiler version we currently use yet (i think). should work with ghc-8.0.2.
func = f func = f

3
src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
View File

@ -94,7 +94,8 @@ layoutSig lsig@(L _loc sig) = case sig of
NoInline -> "NOINLINE " NoInline -> "NOINLINE "
EmptyInlineSpec -> "" -- i have no idea if this is correct. EmptyInlineSpec -> "" -- i have no idea if this is correct.
let phaseStr = case phaseAct of let phaseStr = case phaseAct of
NeverActive -> "[] " NeverActive -> "" -- not [] - for NOINLINE NeverActive is
-- in fact the default
AlwaysActive -> "" AlwaysActive -> ""
ActiveBefore _ i -> "[~" ++ show i ++ "] " ActiveBefore _ i -> "[~" ++ show i ++ "] "
ActiveAfter _ i -> "[" ++ show i ++ "] " ActiveAfter _ i -> "[" ++ show i ++ "] "