X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCLabel.hs;h=d18f133b9e345488843e0881a618b05a7805df82;hb=8604da0136707cc14845d14a88c2272fe576b6d0;hp=3c061291206b6b5f1bc09a17d264dbc7fde8423a;hpb=7febf770225048f47f661fb864b687ade189a8a0;p=ghc-hetmet.git

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index 3c06129..d18f133 100644
--- a/compiler/cmm/CLabel.hs
+++ b/compiler/cmm/CLabel.hs
@@ -90,6 +90,7 @@ module CLabel (
 
 	mkForeignLabel,
         addLabelSize,
+        foreignLabelStdcallInfo,
 
 	mkCCLabel, mkCCSLabel,
 
@@ -111,6 +112,8 @@ module CLabel (
 	pprCLabel
     ) where
 
+#include "HsVersions.h"
+
 import StaticFlags
 import Packages
 import DataCon
@@ -370,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