mkForeignLabel,
addLabelSize,
+ foreignLabelStdcallInfo,
mkCCLabel, mkCCSLabel,
pprCLabel
) where
+#include "HsVersions.h"
+
import StaticFlags
import Packages
import DataCon
addLabelSize label _
= label
+foreignLabelStdcallInfo :: CLabel -> Maybe Int
+foreignLabelStdcallInfo (ForeignLabel _ info _) = info
+foreignLabelStdcallInfo _lbl = Nothing
+
-- Cost centres etc.
mkCCLabel cc = CC_Label cc