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 | |
| parent | 0a1d0944d68265cb48cdb8e42f658d58c1cfdac7 (diff) | |
| download | haskell-313afb3d0f96c952ae74c946f8166a80f7e64d4a.tar.gz | |
A few comment cleanups
| -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 | ||||
| -rw-r--r-- | rts/include/rts/storage/TSO.h | 2 |
4 files changed, 2 insertions, 13 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 diff --git a/rts/include/rts/storage/TSO.h b/rts/include/rts/storage/TSO.h index a6bd9e9087..874d61ab60 100644 --- a/rts/include/rts/storage/TSO.h +++ b/rts/include/rts/storage/TSO.h @@ -160,7 +160,7 @@ typedef struct StgTSO_ { * stay negative until we get around to checking it. * * Use only PK_Int64/ASSIGN_Int64 macros to get/set the value of alloc_limit - * in C code otherwise you will cause alignment issues on SPARC + * in C code otherwise you will cause alignment issues */ StgInt64 alloc_limit; /* in bytes */ |