--- Generate a bare info table, not attached to any procedure.
-mkBareInfoTable :: CLabel -> Unique -> CmmInfoTable -> [CmmTopZ]
-mkBareInfoTable lbl uniq info =
- case mkInfoTable uniq (CmmProc (CmmInfo Nothing Nothing info) lbl [] (ListGraph [])) of
- [CmmProc d _ _ _] ->
- ASSERT (tablesNextToCode)
- [CmmData Data (d ++ [CmmDataLabel (entryLblToInfoLbl lbl)])]
- [CmmData d s] -> [CmmData d s]
- _ -> panic "mkBareInfoTable expected to produce only data"
-
-