Commit 1e5d0937 authored by sewardj's avatar sewardj
Browse files

[project @ 2001-04-20 14:54:37 by sewardj]

merge rev 1.45.2.1
parent 224247ca
% %
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
% %
% $Id: CLabel.lhs,v 1.45 2001/02/28 00:01:01 qrczak Exp $ % $Id: CLabel.lhs,v 1.46 2001/04/20 14:54:37 sewardj Exp $
% %
\section[CLabel]{@CLabel@: Information to make C Labels} \section[CLabel]{@CLabel@: Information to make C Labels}
...@@ -48,6 +48,7 @@ module CLabel ( ...@@ -48,6 +48,7 @@ module CLabel (
mkCharlikeClosureLabel, mkCharlikeClosureLabel,
mkIntlikeClosureLabel, mkIntlikeClosureLabel,
mkMAP_FROZEN_infoLabel, mkMAP_FROZEN_infoLabel,
mkEMPTY_MVAR_infoLabel,
mkTopTickyCtrLabel, mkTopTickyCtrLabel,
mkBlackHoleInfoTableLabel, mkBlackHoleInfoTableLabel,
...@@ -253,6 +254,7 @@ mkMainRegTableLabel = RtsLabel RtsMainRegTable ...@@ -253,6 +254,7 @@ mkMainRegTableLabel = RtsLabel RtsMainRegTable
mkCharlikeClosureLabel = RtsLabel (Rts_Closure "stg_CHARLIKE_closure") mkCharlikeClosureLabel = RtsLabel (Rts_Closure "stg_CHARLIKE_closure")
mkIntlikeClosureLabel = RtsLabel (Rts_Closure "stg_INTLIKE_closure") mkIntlikeClosureLabel = RtsLabel (Rts_Closure "stg_INTLIKE_closure")
mkMAP_FROZEN_infoLabel = RtsLabel (Rts_Info "stg_MUT_ARR_PTRS_FROZEN_info") mkMAP_FROZEN_infoLabel = RtsLabel (Rts_Info "stg_MUT_ARR_PTRS_FROZEN_info")
mkEMPTY_MVAR_infoLabel = RtsLabel (Rts_Info "stg_EMPTY_MVAR_info")
mkTopTickyCtrLabel = RtsLabel RtsTopTickyCtr mkTopTickyCtrLabel = RtsLabel RtsTopTickyCtr
mkBlackHoleInfoTableLabel = RtsLabel (RtsBlackHoleInfoTbl SLIT("stg_BLACKHOLE_info")) mkBlackHoleInfoTableLabel = RtsLabel (RtsBlackHoleInfoTbl SLIT("stg_BLACKHOLE_info"))
......
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