diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-11-28 14:32:34 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-28 15:49:55 -0500 |
| commit | d3b80c79c2f906cd05066c374f4f19392033dfea (patch) | |
| tree | 72ffd2e4532729361327db63ef5baaa500c9fde4 /compiler/cmm/CLabel.hs | |
| parent | 66c1c8e0054fce9efaf4fc22afdd1ec40945e1c3 (diff) | |
| download | haskell-d3b80c79c2f906cd05066c374f4f19392033dfea.tar.gz | |
Cmm: Add missing cases for BlockInfoTable
Silly rabbit, BlockInfoTables are data. This fixes the unregisterised build,
finally fixing #14454.
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 689ebd08f2..0e87a88950 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -578,6 +578,7 @@ isSomeRODataLabel (IdLabel _ _ ClosureTable) = True isSomeRODataLabel (IdLabel _ _ ConInfoTable) = True isSomeRODataLabel (IdLabel _ _ InfoTable) = True isSomeRODataLabel (IdLabel _ _ LocalInfoTable) = True +isSomeRODataLabel (IdLabel _ _ BlockInfoTable) = True -- static reference tables defined in haskell (.hs) isSomeRODataLabel (IdLabel _ _ SRT) = True isSomeRODataLabel (SRTLabel _) = True @@ -938,6 +939,7 @@ idInfoLabelType info = case info of InfoTable -> DataLabel LocalInfoTable -> DataLabel + BlockInfoTable -> DataLabel Closure -> GcPtrLabel ConInfoTable -> DataLabel ClosureTable -> DataLabel |