diff options
| author | sewardj <unknown> | 2000-04-03 13:05:52 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-04-03 13:05:52 +0000 |
| commit | 3019b95e6e9c12694966d8b187b3b18c99e821ff (patch) | |
| tree | 3440ed8ca273e55f3182ea3a7cdcf382e3365c41 /ghc/compiler/main/CodeOutput.lhs | |
| parent | 7558fd1e56bd50a251a26066ec92e39f56d8fa9d (diff) | |
| download | haskell-3019b95e6e9c12694966d8b187b3b18c99e821ff.tar.gz | |
[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.
Diffstat (limited to 'ghc/compiler/main/CodeOutput.lhs')
| -rw-r--r-- | ghc/compiler/main/CodeOutput.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs index 47f3b36762..a61e047234 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 >> |