From 8e02c0a594c6e5dc4208d8247a78bd4ce2d423e5 Mon Sep 17 00:00:00 2001
From: Gabor Greif <ggreif@gmail.com>
Date: Sun, 7 Apr 2013 21:36:11 +0200
Subject: [PATCH] Fix typos

---
 compiler/nativeGen/RegAlloc/Liveness.hs   | 6 +++---
 compiler/nativeGen/SPARC/CodeGen.hs       | 4 ++--
 compiler/nativeGen/SPARC/CodeGen/Gen64.hs | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs
index f49155e827dc..41efa187532b 100644
--- a/compiler/nativeGen/RegAlloc/Liveness.hs
+++ b/compiler/nativeGen/RegAlloc/Liveness.hs
@@ -2,7 +2,7 @@
 --
 -- The register liveness determinator
 --
--- (c) The University of Glasgow 2004
+-- (c) The University of Glasgow 2004-2013
 --
 -----------------------------------------------------------------------------
 module RegAlloc.Liveness (
@@ -423,7 +423,7 @@ slurpReloadCoalesce live
                 , slotMap'                      <- addToUFM slotMap slot reg
                 = return (slotMap', Nothing)
 
-                -- add an edge betwen the this reg and the last one stored into the slot
+                -- add an edge between the this reg and the last one stored into the slot
                 | LiveInstr (RELOAD slot reg) _ <- li
                 = case lookupUFM slotMap slot of
                         Just reg2
@@ -594,7 +594,7 @@ patchEraseLive patchF cmm
                 -- source and destination regs are the same
                 | r1 == r2      = True
 
-                -- desination reg is never used
+                -- destination reg is never used
                 | elementOfUniqSet r2 (liveBorn live)
                 , elementOfUniqSet r2 (liveDieRead live) || elementOfUniqSet r2 (liveDieWrite live)
                 = True
diff --git a/compiler/nativeGen/SPARC/CodeGen.hs b/compiler/nativeGen/SPARC/CodeGen.hs
index c6497e12480d..30ffcd9d9a38 100644
--- a/compiler/nativeGen/SPARC/CodeGen.hs
+++ b/compiler/nativeGen/SPARC/CodeGen.hs
@@ -2,7 +2,7 @@
 --
 -- Generating machine code (instruction selection)
 --
--- (c) The University of Glasgow 1996-2004
+-- (c) The University of Glasgow 1996-2013
 --
 -----------------------------------------------------------------------------
 
@@ -538,7 +538,7 @@ move_final (v:vs) (a:az) offset
 
 
 -- | Assign results returned from the call into their
---      desination regs.
+--      destination regs.
 --
 assign_code :: Platform -> [LocalReg] -> OrdList Instr
 
diff --git a/compiler/nativeGen/SPARC/CodeGen/Gen64.hs b/compiler/nativeGen/SPARC/CodeGen/Gen64.hs
index 7b39a371d76c..a7532e1c8d11 100644
--- a/compiler/nativeGen/SPARC/CodeGen/Gen64.hs
+++ b/compiler/nativeGen/SPARC/CodeGen/Gen64.hs
@@ -36,7 +36,7 @@ import Outputable
 
 -- | Code to assign a 64 bit value to memory.
 assignMem_I64Code 
-	:: CmmExpr 		-- ^ expr producing the desination address
+	:: CmmExpr 		-- ^ expr producing the destination address
 	-> CmmExpr 		-- ^ expr producing the source value.
 	-> NatM InstrBlock