From 3019b95e6e9c12694966d8b187b3b18c99e821ff Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 3 Apr 2000 13:05:52 +0000
Subject: [PATCH] [project @ 2000-04-03 13:05:52 by sewardj] When generating
 native code, print the final result with printForAsm rather
 than printForUser.  Why the former ever worked beats me.

---
 ghc/compiler/main/CodeOutput.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 47f3b36..a61e047 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -48,7 +48,7 @@ codeOutput mod_name tycons classes stg_binds c_code h_code flat_abstractC ncg_un
 #ifndef OMIT_NATIVE_CODEGEN
     let
 	(stix_final, ncg_output_d) = nativeCodeGen flat_absC_ncg ncg_uniqs
-	ncg_output_w = (\ f -> printForUser f ncg_output_d)
+	ncg_output_w = (\ f -> printForAsm f ncg_output_d)
     in
     dumpIfSet opt_D_dump_stix "Final stix code" stix_final	>>
     dumpIfSet opt_D_dump_asm "Asm code" ncg_output_d 		>>
-- 
1.7.10.4