Don't duplicate decls unnecessarily in the environment
authorIan Lynagh <ian@well-typed.com>
Mon, 22 Apr 2013 18:48:06 +0000 (19:48 +0100)
committerIan Lynagh <ian@well-typed.com>
Tue, 23 Apr 2013 19:24:10 +0000 (20:24 +0100)
In loopDecls, as far as I can see the globalDecls will always
already be in the environment, so don't add them again.

compiler/codeGen/StgCmmExtCode.hs

index 941fef0..2c36442 100644 (file)
@@ -94,7 +94,7 @@ instance HasDynFlags CmmParse where
 loopDecls :: CmmParse a -> CmmParse a
 loopDecls (EC fcode) =
       EC $ \e globalDecls -> do
-        (_, a) <- F.fixC (\ ~(decls, _) -> fcode (addListToUFM e (decls ++ globalDecls)) globalDecls)
+        (_, a) <- F.fixC (\ ~(decls, _) -> fcode (addListToUFM e decls) globalDecls)
         return (globalDecls, a)