diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-03-23 15:09:42 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-24 16:10:07 -0400 |
| commit | 60127035e2d7c649ac7fd312cded240d5f46e98d (patch) | |
| tree | 03ec425580adc67d86737b2f7b6ed7fcde32884c /compiler/GHC/Stg/Lift | |
| parent | 23f4bc89406de24ec77ced45aa267f9a8f8aaa60 (diff) | |
| download | haskell-60127035e2d7c649ac7fd312cded240d5f46e98d.tar.gz | |
STG AST - Make ConstructorNumber always a field.
It's used by all passes and already used as a regular field.
So I figured it would be both more consistent and performant
to make it a regular field for all constructors.
I also added a few bangs in the process.
Diffstat (limited to 'compiler/GHC/Stg/Lift')
| -rw-r--r-- | compiler/GHC/Stg/Lift/Analysis.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/GHC/Stg/Lift/Analysis.hs b/compiler/GHC/Stg/Lift/Analysis.hs index 884489e0f7..d4e59a8d6e 100644 --- a/compiler/GHC/Stg/Lift/Analysis.hs +++ b/compiler/GHC/Stg/Lift/Analysis.hs @@ -114,7 +114,6 @@ type instance BinderP 'LiftLams = BinderInfo type instance XRhsClosure 'LiftLams = DIdSet type instance XLet 'LiftLams = Skeleton type instance XLetNoEscape 'LiftLams = Skeleton -type instance XConApp 'LiftLams = ConstructorNumber freeVarsOfRhs :: (XRhsClosure pass ~ DIdSet) => GenStgRhs pass -> DIdSet freeVarsOfRhs (StgRhsCon _ _ _ _ args) = mkDVarSet [ id | StgVarArg id <- args ] |