[commit: ghc] master: some more typos (7d6fece)

Gabor Greif ggreif at gmail.com
Sat Feb 2 03:54:23 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/7d6fece2e7c1e98928b939dc483522d79fe6b7d6

>---------------------------------------------------------------

commit 7d6fece2e7c1e98928b939dc483522d79fe6b7d6
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sat Feb 2 03:39:40 2013 +0100

    some more typos

>---------------------------------------------------------------

 compiler/codeGen/StgCmmCon.hs   |    2 +-
 compiler/ghci/ByteCodeItbls.lhs |    2 +-
 compiler/hsSyn/HsDecls.lhs      |    2 +-
 compiler/main/HscTypes.lhs      |    2 +-
 compiler/stgSyn/StgSyn.lhs      |    4 ++--
 rts/posix/OSMem.c               |    2 +-
 6 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs
index ddc6d91..3e95c59 100644
--- a/compiler/codeGen/StgCmmCon.hs
+++ b/compiler/codeGen/StgCmmCon.hs
@@ -129,7 +129,7 @@ buildDynCon' :: DynFlags
 
 {- We used to pass a boolean indicating whether all the
 args were of size zero, so we could use a static
-construtor; but I concluded that it just isn't worth it.
+constructor; but I concluded that it just isn't worth it.
 Now I/O uses unboxed tuples there just aren't any constructors
 with all size-zero args.
 
diff --git a/compiler/ghci/ByteCodeItbls.lhs b/compiler/ghci/ByteCodeItbls.lhs
index 79c88fd..f152473 100644
--- a/compiler/ghci/ByteCodeItbls.lhs
+++ b/compiler/ghci/ByteCodeItbls.lhs
@@ -174,7 +174,7 @@ mkJumpToAddr a
 
 #elif powerpc_TARGET_ARCH
 -- We'll use r12, for no particular reason.
--- 0xDEADBEEF stands for the adress:
+-- 0xDEADBEEF stands for the address:
 -- 3D80DEAD lis r12,0xDEAD
 -- 618CBEEF ori r12,r12,0xBEEF
 -- 7D8903A6 mtctr r12
diff --git a/compiler/hsSyn/HsDecls.lhs b/compiler/hsSyn/HsDecls.lhs
index bd007a8..74e9f19 100644
--- a/compiler/hsSyn/HsDecls.lhs
+++ b/compiler/hsSyn/HsDecls.lhs
@@ -634,7 +634,7 @@ pprTyClDeclFlavour (ForeignType {}) = ptext (sLit "foreign type")
 data HsDataDefn name   -- The payload of a data type defn
                        -- Used *both* for vanilla data declarations,
                        --       *and* for data family instances
-  = -- | Declares a data type or newtype, giving its construcors
+  = -- | Declares a data type or newtype, giving its constructors
     -- @
     --  data/newtype T a = <constrs>
     --  data/newtype instance T [a] = <constrs>
diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 2101fb5..7e1dc5c 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -884,7 +884,7 @@ data CgGuts
         cg_binds     :: CoreProgram,
                 -- ^ The tidied main bindings, including
                 -- previously-implicit bindings for record and class
-                -- selectors, and data construtor wrappers.  But *not*
+                -- selectors, and data constructor wrappers.  But *not*
                 -- data constructor workers; reason: we we regard them
                 -- as part of the code-gen of tycons
 
diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs
index 6993d02..9780676 100644
--- a/compiler/stgSyn/StgSyn.lhs
+++ b/compiler/stgSyn/StgSyn.lhs
@@ -118,9 +118,9 @@ isDllConApp dflags con args
 
     this_pkg = thisPackage dflags
 
--- True of machine adddresses; these are the things that don't
+-- True of machine addresses; these are the things that don't
 -- work across DLLs. The key point here is that VoidRep comes
--- out False, so that a top level nullary GADT construtor is
+-- out False, so that a top level nullary GADT constructor is
 -- False for isDllConApp
 --    data T a where
 --      T1 :: T Int
diff --git a/rts/posix/OSMem.c b/rts/posix/OSMem.c
index 2237972..26aebc2 100644
--- a/rts/posix/OSMem.c
+++ b/rts/posix/OSMem.c
@@ -99,7 +99,7 @@ my_mmap (void *addr, W_ size)
     
     kern_return_t err = 0;
     ret = addr;
-    if(addr)	// try to allocate at adress
+    if(addr)	// try to allocate at address
 	err = vm_allocate(mach_task_self(),(vm_address_t*) &ret, size, FALSE);
     if(!addr || err)	// try to allocate anywhere
 	err = vm_allocate(mach_task_self(),(vm_address_t*) &ret, size, TRUE);





More information about the ghc-commits mailing list