[Git][ghc/ghc][wip/az/epa-hslet-tokens] EPA: parser allocations #3

[Alan Zimmerman (@alanz)]

Alan Zimmerman pushed to branch wip/az/epa-hslet-tokens at Glasgow Haskell Compiler / GHC


Commits:
bd619edd by Alan Zimmerman at 2023-12-17T16:05:20+00:00
EPA: parser allocations #3

The increase is from HsAppTy`, force the arguments to its constructor.

- - - - -


1 changed file:

- compiler/GHC/Parser/PostProcess.hs


Changes:

=====================================
compiler/GHC/Parser/PostProcess.hs
=====================================
@@ -1999,7 +1999,7 @@ class DisambTD b where
 
 instance DisambTD (HsType GhcPs) where
   mkHsAppTyHeadPV = return
-  mkHsAppTyPV t1 t2 = return (mkHsAppTy t1 t2)
+  mkHsAppTyPV t1 t2 = return (mkHsAppTy (t1 `seq` t2 `seq` t1) t2)
   mkHsAppKindTyPV t at ki = return (mkHsAppKindTy at t ki)
   mkHsOpTyPV prom t1 op t2 = return (mkLHsOpTy prom t1 op t2)
   mkUnpackednessPV = addUnpackednessP



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/bd619edd1ca8a49c7fc2c4478c0c47ca496d0fc2
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/20231217/a8ede088/attachment.html>