[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / nativeGen / AsmCodeGen.lhs

diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs
index d889868..3a87fec 100644 (file)
--- a/ghc/compiler/nativeGen/AsmCodeGen.lhs
+++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs
@@ -77,7 +77,7 @@ So, here we go:
 writeRealAsm :: Handle -> AbstractC -> UniqSupply -> IO ()
 
 writeRealAsm handle absC us
-  = uppPutStr handle 80 (runNCG absC us)
+  = _scc_ "writeRealAsm" (uppPutStr handle 80 (runNCG absC us))
 
 dumpRealAsm :: AbstractC -> UniqSupply -> String