diff options
| author | sewardj <unknown> | 2000-10-31 13:01:46 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-10-31 13:01:46 +0000 |
| commit | 12467fbf505554bb20d0a3502dc162d605373da5 (patch) | |
| tree | 9e42be372d93023082c1cd820eae8e67f74822d4 /ghc/compiler/main/CodeOutput.lhs | |
| parent | 5f67848a9c686f64bd4960a40a0e109f286df74b (diff) | |
| download | haskell-12467fbf505554bb20d0a3502dc162d605373da5.tar.gz | |
[project @ 2000-10-31 13:01:46 by sewardj]
* Stop pipeline when recompilation not needed.
* Check OPTIONS pragmas for non-dynamic flags.
* Misc wibbles.
Diffstat (limited to 'ghc/compiler/main/CodeOutput.lhs')
| -rw-r--r-- | ghc/compiler/main/CodeOutput.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs index 51c5a08f11..642e90d729 100644 --- a/ghc/compiler/main/CodeOutput.lhs +++ b/ghc/compiler/main/CodeOutput.lhs @@ -33,6 +33,7 @@ import ErrUtils ( dumpIfSet_dyn ) import Outputable import CmdLineOpts ( DynFlags, HscLang(..), dopt_OutName ) import TmpFiles ( newTempName ) +import UniqSupply ( mkSplitUniqSupply ) import IO ( IOMode(..), hClose, openFile, Handle ) \end{code} @@ -108,9 +109,7 @@ outputAsm dflags filenm flat_absC #ifndef OMIT_NATIVE_CODEGEN = do ncg_uniqs <- mkSplitUniqSupply 'n' - let - (stix_final, ncg_output_d) = nativeCodeGen flat_absC ncg_uniqs - in + let (stix_final, ncg_output_d) = nativeCodeGen flat_absC ncg_uniqs dumpIfSet_dyn dflags Opt_D_dump_stix "Final stix code" stix_final dumpIfSet_dyn dflags Opt_D_dump_asm "Asm code" ncg_output_d doOutput filenm ( \f -> printForAsm f ncg_output_d) |