diff options
| author | sewardj <unknown> | 2000-01-13 14:11:51 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-13 14:11:51 +0000 |
| commit | d3d20ba70003e869af4d9f44d70d1d403d131812 (patch) | |
| tree | 017795b2c12965557f78574c64fb93a9ed7f53a0 /ghc/compiler/main/CodeOutput.lhs | |
| parent | 03d7cc2a4da848db9f39ea072310bb862347e929 (diff) | |
| download | haskell-d3d20ba70003e869af4d9f44d70d1d403d131812.tar.gz | |
[project @ 2000-01-13 14:11:51 by sewardj]
Rearrange top-level nativeGen plumbing so that -ddump-stix is visible
even if subsequent nativeGen passes crash.
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 cf2f0dfb5c..e7fb411a48 100644 --- a/ghc/compiler/main/CodeOutput.lhs +++ b/ghc/compiler/main/CodeOutput.lhs @@ -75,7 +75,7 @@ codeOutput mod_name c_code h_code flat_abstractC ncg_uniqs ncg_output_d = error "*** GHC not built with a native-code generator ***" ncg_output_w = ncg_output_d #else - (stix_raw, stix_opt, stix_final, ncg_output_d) + (stix_final, ncg_output_d) = nativeCodeGen flat_absC_ncg ncg_uniqs ncg_output_w = (\ f -> printForAsm f ncg_output_d) #endif |