Rename GHC.StgToCmm.Con -> GHC.StgToCmm.DataCon
authorBen Gamari <ben@smart-cactus.org>
Thu, 12 Sep 2019 18:50:40 +0000 (14:50 -0400)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Mon, 16 Sep 2019 03:46:36 +0000 (23:46 -0400)
Incredibly, Windows disallows the manipulation of any file matching
Con(\..*)?. The `GHC.StgToCmm.Con` was introduced in the renamings in
447864a9, breaking the Windows build. Work around this by renaming it to
`GHC.StgToCmm.DataCon`

Fixes #17187.

compiler/GHC/StgToCmm.hs
compiler/GHC/StgToCmm/Bind.hs
compiler/GHC/StgToCmm/DataCon.hs [moved from compiler/GHC/StgToCmm/Con.hs with 99% similarity]
compiler/GHC/StgToCmm/Expr.hs
compiler/ghc.cabal.in

index c7ee604..23d6cee 100644 (file)
@@ -19,7 +19,7 @@ import GHC.StgToCmm.Prof (initCostCentres, ldvEnter)
 import GHC.StgToCmm.Monad
 import GHC.StgToCmm.Env
 import GHC.StgToCmm.Bind
-import GHC.StgToCmm.Con
+import GHC.StgToCmm.DataCon
 import GHC.StgToCmm.Layout
 import GHC.StgToCmm.Utils
 import GHC.StgToCmm.Closure
index bfe9255..44316ca 100644 (file)
@@ -18,7 +18,7 @@ import GhcPrelude hiding ((<*>))
 import GHC.StgToCmm.Expr
 import GHC.StgToCmm.Monad
 import GHC.StgToCmm.Env
-import GHC.StgToCmm.Con
+import GHC.StgToCmm.DataCon
 import GHC.StgToCmm.Heap
 import GHC.StgToCmm.Prof (ldvEnterClosure, enterCostCentreFun, enterCostCentreThunk,
                    initUpdFrameProf)
similarity index 99%
rename from compiler/GHC/StgToCmm/Con.hs
rename to compiler/GHC/StgToCmm/DataCon.hs
index 08508fb..c7ad444 100644 (file)
@@ -11,7 +11,7 @@
 --
 -----------------------------------------------------------------------------
 
-module GHC.StgToCmm.Con (
+module GHC.StgToCmm.DataCon (
         cgTopRhsCon, buildDynCon, bindConArgs
     ) where
 
@@ -89,7 +89,7 @@ cgTopRhsCon dflags id con args =
                 amode <- getArgAmode arg
                 case amode of
                   CmmLit lit -> return lit
-                  _          -> panic "GHC.StgToCmm.Con.cgTopRhsCon"
+                  _          -> panic "GHC.StgToCmm.DataCon.cgTopRhsCon"
 
             nonptr_wds = tot_wds - ptr_wds
 
index a8661d9..f2f5492 100644 (file)
@@ -19,7 +19,7 @@ import {-# SOURCE #-} GHC.StgToCmm.Bind ( cgBind )
 import GHC.StgToCmm.Monad
 import GHC.StgToCmm.Heap
 import GHC.StgToCmm.Env
-import GHC.StgToCmm.Con
+import GHC.StgToCmm.DataCon
 import GHC.StgToCmm.Prof (saveCurrentCostCentre, restoreCurrentCostCentre, emitSetCCC)
 import GHC.StgToCmm.Layout
 import GHC.StgToCmm.Prim
index cf1d127..7946e23 100644 (file)
@@ -303,7 +303,7 @@ Library
         GHC.StgToCmm
         GHC.StgToCmm.Bind
         GHC.StgToCmm.Closure
-        GHC.StgToCmm.Con
+        GHC.StgToCmm.DataCon
         GHC.StgToCmm.Env
         GHC.StgToCmm.Expr
         GHC.StgToCmm.Foreign