X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCLabel.hs;h=d18f133b9e345488843e0881a618b05a7805df82;hp=cb07d067dd132b3549ece3125e1b0c31d8365834;hb=bca74f3e6bde807d688e39e6de28112ebcb4fa49;hpb=13df6c59f92c81bbb53b8402bd28159faf4758f0

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index cb07d06..d18f133 100644
--- a/compiler/cmm/CLabel.hs
+++ b/compiler/cmm/CLabel.hs
@@ -90,6 +90,7 @@ module CLabel (
 
 	mkForeignLabel,
         addLabelSize,
+        foreignLabelStdcallInfo,
 
 	mkCCLabel, mkCCSLabel,
 
@@ -372,6 +373,10 @@ addLabelSize (ForeignLabel str _ is_dynamic) sz
 addLabelSize label _
   = label
 
+foreignLabelStdcallInfo :: CLabel -> Maybe Int
+foreignLabelStdcallInfo (ForeignLabel _ info _) = info
+foreignLabelStdcallInfo _lbl = Nothing
+
 	-- Cost centres etc.
 
 mkCCLabel	cc		= CC_Label cc