X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FAbsCUtils.lhs;h=029c7c73e9c9ea765ff595180f95562848d8aab5;hb=a5f7799965947977599a777dae10f103f9b9fd1a;hp=072be07db7e121cbc8f7a301a9a4ee32c3f3e0d4;hpb=36c2d7c8e9da3b2e278d508ac25c7d53522f85f3;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/AbsCUtils.lhs b/ghc/compiler/absCSyn/AbsCUtils.lhs
index 072be07..029c7c7 100644
--- a/ghc/compiler/absCSyn/AbsCUtils.lhs
+++ b/ghc/compiler/absCSyn/AbsCUtils.lhs
@@ -155,14 +155,10 @@ getAmodeRep (CTemp uniq kind)	    	    = kind
 getAmodeRep (CLbl label kind)	    	    = kind
 getAmodeRep (CCharLike _)	    	    = PtrRep
 getAmodeRep (CIntLike _)	    	    = PtrRep
-getAmodeRep (CString _)	    	    	    = PtrRep
 getAmodeRep (CLit lit)		    	    = literalPrimRep lit
 getAmodeRep (CLitLit _ kind)	    	    = kind
-getAmodeRep (CTableEntry _ _ kind)    	    = kind
 getAmodeRep (CMacroExpr kind _ _)    	    = kind
-#ifdef DEBUG
 getAmodeRep (CJoinPoint _)	    	    = panic "getAmodeRep:CJoinPoint"
-#endif
 \end{code}
 
 @mixedTypeLocn@ tells whether an amode identifies an ``StgWord''