diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-01-26 20:38:45 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-01-29 14:52:56 -0500 |
| commit | 313afb3d0f96c952ae74c946f8166a80f7e64d4a (patch) | |
| tree | 8345a776cf037efa15d0c901e22fcef124037fc2 /compiler/GHC | |
| parent | 0a1d0944d68265cb48cdb8e42f658d58c1cfdac7 (diff) | |
| download | haskell-313afb3d0f96c952ae74c946f8166a80f7e64d4a.tar.gz | |
A few comment cleanups
Diffstat (limited to 'compiler/GHC')
| -rw-r--r-- | compiler/GHC/CmmToAsm/Ppr.hs | 5 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/Instr.hs | 7 | ||||
| -rw-r--r-- | compiler/GHC/Driver/Pipeline/Execute.hs | 1 |
3 files changed, 1 insertions, 12 deletions
diff --git a/compiler/GHC/CmmToAsm/Ppr.hs b/compiler/GHC/CmmToAsm/Ppr.hs index 12b2402493..df113b45b6 100644 --- a/compiler/GHC/CmmToAsm/Ppr.hs +++ b/compiler/GHC/CmmToAsm/Ppr.hs @@ -50,11 +50,6 @@ word8ToWord# w = w -- ----------------------------------------------------------------------------- -- Converting floating-point literals to integrals for printing --- ToDo: this code is currently shared between SPARC and LLVM. --- Similar functions for (single precision) floats are --- present in the SPARC backend only. We need to fix both --- LLVM and SPARC. - castDoubleToWord8Array :: STUArray s Int Double -> ST s (STUArray s Int Word8) castDoubleToWord8Array = U.castSTUArray diff --git a/compiler/GHC/CmmToAsm/X86/Instr.hs b/compiler/GHC/CmmToAsm/X86/Instr.hs index e055fafb61..fa6e110056 100644 --- a/compiler/GHC/CmmToAsm/X86/Instr.hs +++ b/compiler/GHC/CmmToAsm/X86/Instr.hs @@ -754,14 +754,7 @@ isMetaInstr instr DELTA{} -> True _ -> False - - ---- TODO: why is there -- | Make a reg-reg move instruction. --- On SPARC v8 there are no instructions to move directly between --- floating point and integer regs. If we need to do that then we --- have to go via memory. --- mkRegRegMoveInstr :: Platform -> Reg diff --git a/compiler/GHC/Driver/Pipeline/Execute.hs b/compiler/GHC/Driver/Pipeline/Execute.hs index c1f7c3769a..a777d6f66d 100644 --- a/compiler/GHC/Driver/Pipeline/Execute.hs +++ b/compiler/GHC/Driver/Pipeline/Execute.hs @@ -1257,6 +1257,7 @@ getGhcVersionPathName dflags unit_env = do (x:_) -> return x -- Note [-fPIC for assembler] +-- ~~~~~~~~~~~~~~~~~~~~~~~~~~ -- When compiling .c source file GHC's driver pipeline basically -- does the following two things: -- 1. ${CC} -S 'PIC_CFLAGS' source.c |