mkForeignLabel,
addLabelSize,
+ foreignLabelStdcallInfo,
mkCCLabel, mkCCSLabel,
addLabelSize label _
= label
+foreignLabelStdcallInfo :: CLabel -> Maybe Int
+foreignLabelStdcallInfo (ForeignLabel _ info _) = info
+foreignLabelStdcallInfo _lbl = Nothing
+
-- Cost centres etc.
mkCCLabel cc = CC_Label cc