summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--compiler/GHC/CmmToAsm/Ppr.hs5
-rw-r--r--compiler/GHC/CmmToAsm/X86/Instr.hs7
-rw-r--r--compiler/GHC/Driver/Pipeline/Execute.hs1
-rw-r--r--rts/include/rts/storage/TSO.h2
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 */