Commit d3b80c79 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

Cmm: Add missing cases for BlockInfoTable

Silly rabbit, BlockInfoTables are data. This fixes the unregisterised build,
finally fixing #14454.
parent 66c1c8e0
...@@ -578,6 +578,7 @@ isSomeRODataLabel (IdLabel _ _ ClosureTable) = True ...@@ -578,6 +578,7 @@ isSomeRODataLabel (IdLabel _ _ ClosureTable) = True
isSomeRODataLabel (IdLabel _ _ ConInfoTable) = True isSomeRODataLabel (IdLabel _ _ ConInfoTable) = True
isSomeRODataLabel (IdLabel _ _ InfoTable) = True isSomeRODataLabel (IdLabel _ _ InfoTable) = True
isSomeRODataLabel (IdLabel _ _ LocalInfoTable) = True isSomeRODataLabel (IdLabel _ _ LocalInfoTable) = True
isSomeRODataLabel (IdLabel _ _ BlockInfoTable) = True
-- static reference tables defined in haskell (.hs) -- static reference tables defined in haskell (.hs)
isSomeRODataLabel (IdLabel _ _ SRT) = True isSomeRODataLabel (IdLabel _ _ SRT) = True
isSomeRODataLabel (SRTLabel _) = True isSomeRODataLabel (SRTLabel _) = True
...@@ -938,6 +939,7 @@ idInfoLabelType info = ...@@ -938,6 +939,7 @@ idInfoLabelType info =
case info of case info of
InfoTable -> DataLabel InfoTable -> DataLabel
LocalInfoTable -> DataLabel LocalInfoTable -> DataLabel
BlockInfoTable -> DataLabel
Closure -> GcPtrLabel Closure -> GcPtrLabel
ConInfoTable -> DataLabel ConInfoTable -> DataLabel
ClosureTable -> DataLabel ClosureTable -> DataLabel
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment