X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=0966404da98036ba7d857db6f0fc5880e9c73a4e;hb=16a2f6a8a381af31c23b6a41a851951da9bc1803;hp=8598e7e9a8cbd2ad93793fcb5e046e69acfe0d38;hpb=1dd44153dac634be2e6af2b68eff2ceb74a8c64c;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index 8598e7e..0966404 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -35,7 +35,7 @@ import qualified GraphColor	as Color
 
 import Cmm
 import CmmOpt		( cmmMiniInline, cmmMachOpFold )
-import PprCmm		( pprStmt, pprCmms, pprCmm )
+import PprCmm
 import MachOp
 import CLabel
 import State
@@ -43,11 +43,11 @@ import State
 import UniqFM
 import Unique		( Unique, getUnique )
 import UniqSupply
-import FastTypes
 import List		( groupBy, sortBy )
-import ErrUtils		( dumpIfSet_dyn )
 import DynFlags
+#if powerpc_TARGET_ARCH
 import StaticFlags	( opt_Static, opt_PIC )
+#endif
 import Util
 import Config           ( cProjectVersion )
 import Module
@@ -445,6 +445,9 @@ sequenceTop (CmmProc info lbl params (ListGraph blocks)) =
 -- output the block, then if it has an out edge, we move the
 -- destination of the out edge to the front of the list, and continue.
 
+-- FYI, the classic layout for basic blocks uses postorder DFS; this
+-- algorithm is implemented in cmm/ZipCfg.hs (NR 6 Sep 2007).
+
 sequenceBlocks :: [NatBasicBlock] -> [NatBasicBlock]
 sequenceBlocks [] = []
 sequenceBlocks (entry:blocks) =