[Git][ghc/ghc][wip/osa1/std_string_thunks] Fix RHS match

[Ömer Sinan Ağacan]

Ömer Sinan Ağacan pushed to branch wip/osa1/std_string_thunks at Glasgow Haskell Compiler / GHC


Commits:
17e343e9 by Ömer Sinan Ağacan at 2020-06-01T14:48:23+03:00
Fix RHS match

- - - - -


1 changed file:

- compiler/GHC/StgToCmm/Bind.hs


Changes:

=====================================
compiler/GHC/StgToCmm/Bind.hs
=====================================
@@ -103,7 +103,8 @@ cgTopRhsClosure dflags rec id ccs upd_flag args body =
          emitDataCon closure_label indStaticInfoTable ccs [unLit (idInfoToAmode cg_info)]
 
   gen_code _ _ closure_label
-    | StgApp f [arg] <- stripStgTicksTopE (not . tickishIsCode) body
+    | null args
+    , StgApp f [arg] <- stripStgTicksTopE (not . tickishIsCode) body
     , idName f == unpackCStringName
     = do -- TODO: What to do with ticks?
          arg' <- getArgAmode (NonVoid arg)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/17e343e98140e66bc94ec815f15dc97b45027a79

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/17e343e98140e66bc94ec815f15dc97b45027a79
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200601/15b1f426/attachment.html>