X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCLabel.hs;fp=compiler%2Fcmm%2FCLabel.hs;h=31749d4a2c84389a655c4258c26e8ebd729e7009;hp=7dde9f9f75c53e3cf7f9fd2eddfb809f7892bef2;hb=374a85aec86d9c15ed4c48af3e284f9fee19ad72;hpb=a83cb1abd8ee3dfde9eec124bc9fe59ae94dcae8

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index 7dde9f9..31749d4 100644
--- a/compiler/cmm/CLabel.hs
+++ b/compiler/cmm/CLabel.hs
@@ -530,6 +530,7 @@ needsCDecl ModuleRegdLabel		= False
 needsCDecl (StringLitLabel _)		= False
 needsCDecl (AsmTempLabel _)		= False
 needsCDecl (RtsLabel _)			= False
+needsCDecl (CmmLabel _ _ _)		= False
 needsCDecl l@(ForeignLabel _ _ _ _)	= not (isMathFun l)
 needsCDecl (CC_Label _)			= True
 needsCDecl (CCS_Label _)		= True