diff options
| author | sewardj <unknown> | 2001-12-12 18:12:46 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-12-12 18:12:46 +0000 |
| commit | 0b447a84debf4d99aa089ca5b25ab5554ef8411c (patch) | |
| tree | e69b875cf9fe5cf5164228e38e83cc8053edb74d /ghc/compiler/nativeGen/AsmCodeGen.lhs | |
| parent | 7738ad979047a82bfa33bbde03bac9000b2a27f9 (diff) | |
| download | haskell-0b447a84debf4d99aa089ca5b25ab5554ef8411c.tar.gz | |
[project @ 2001-12-12 18:12:45 by sewardj]
Make the sparc native code generator work again after recent
primop hackery.
* Track the change from PrimOp to MachOp at the Stix level.
* Teach the sparc insn selector how to generate 64-bit code.
* Fix various bogons in sparc {Int,Double,Float} <-> {Int,Double,Float}
conversions which only happened to generate correct code by
accident, so far.
* Synthesise BaseReg from &MainCapability.r on archs which do not
have BaseReg in a regiser (eg sparc :)
At the moment {add,sub,mul}Int# are not implemented. To be fixed.
Diffstat (limited to 'ghc/compiler/nativeGen/AsmCodeGen.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/AsmCodeGen.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs index cf37bc9966..8ec5901bc3 100644 --- a/ghc/compiler/nativeGen/AsmCodeGen.lhs +++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs @@ -127,7 +127,8 @@ absCtoNat absC _scc_ "x86fp_kludge" x86fp_kludge almost_final `bind` \ final_mach_code -> _scc_ "vcat" Pretty.vcat (map pprInstr final_mach_code) `bind` \ final_sdoc -> _scc_ "pprStixTrees" pprStixStmts stixOpt `bind` \ stix_sdoc -> - returnUs (stix_sdoc, final_sdoc) + returnUs ({-\_ -> Pretty.vcat (map pprInstr almost_final),-} + stix_sdoc, final_sdoc) where bind f x = x f |