Cmm: Add missing cases for BlockInfoTable
authorBen Gamari <ben@smart-cactus.org>
Tue, 28 Nov 2017 19:32:34 +0000 (14:32 -0500)
committerBen Gamari <ben@smart-cactus.org>
Tue, 28 Nov 2017 20:49:55 +0000 (15:49 -0500)
Silly rabbit, BlockInfoTables are data. This fixes the unregisterised build,
finally fixing #14454.

compiler/cmm/CLabel.hs

index 689ebd0..0e87a88 100644 (file)
@@ -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