Fix typos, via a Levenshtein-style corrector

15 files changed, 15 insertions, 15 deletions

diff --git a/rts/Capability.c b/rts/Capability.c
index c112349925..aedce0dd8e 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -796,7 +796,7 @@ void waitForCapability (Capability **pCap, Task *task)
             }
         }
 
-        // record the Capability as the one this Task is now assocated with.
+        // record the Capability as the one this Task is now associated with.
         task->cap = cap;
 
     } else {
diff --git a/rts/Hpc.c b/rts/Hpc.c
index 37df56b6af..6f9727560a 100644
--- a/rts/Hpc.c
+++ b/rts/Hpc.c
@@ -385,7 +385,7 @@ exitHpc(void) {
 
   // Only write the tix file if you are the original process.
   // Any sub-process from use of fork from inside Haskell will
-  // not clober the .tix file.
+  // not clobber the .tix file.
 
   if (hpc_pid == getpid()) {
     FILE *f = __rts_fopen(tixFilename,"w+");
diff --git a/rts/Linker.c b/rts/Linker.c
index 3539f90584..1437009aed 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -814,7 +814,7 @@ HsBool removeLibrarySearchPath(HsPtr dll_path_index)
 /* -----------------------------------------------------------------------------
  * insert a symbol in the hash table
  *
- * Returns: 0 on failure, nozero on success
+ * Returns: 0 on failure, nonzero on success
  */
 HsInt insertSymbol(pathchar* obj_name, SymbolName* key, SymbolAddr* data)
 {
diff --git a/rts/Profiling.c b/rts/Profiling.c
index a4247c7809..04f00da157 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -740,7 +740,7 @@ reportCCSProfiling( void )
 }
 
 /* -----------------------------------------------------------------------------
- * Accumulating total allocatinos and tick count
+ * Accumulating total allocations and tick count
    -------------------------------------------------------------------------- */
 
 /* Helper */
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 50cddff051..e8a6a81747 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -187,7 +187,7 @@ throwToSelf (Capability *cap, StgTSO *tso, StgClosure *exception)
    MessageThrowTo *   exception was not raised; the source TSO
                       should now put itself in the state
                       BlockedOnMsgThrowTo, and when it is ready
-                      it should unlock the mssage using
+                      it should unlock the message using
                       unlockClosure(msg, &stg_MSG_THROWTO_info);
                       If it decides not to raise the exception after
                       all, it can revoke it safely with
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index 4d40810bc6..911cf32969 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -535,7 +535,7 @@ char** getUTF8Args(int* argc)
 
     // We create two argument arrays, one which is later permutated by the RTS
     // instead of the main argv.
-    // The other one is used to free the allocted memory later.
+    // The other one is used to free the allocated memory later.
     char** argv = (char**) stgMallocBytes(sizeof(char*) * (*argc + 1),
                                           "getUTF8Args 1");
     win32_full_utf8_argv = (char**) stgMallocBytes(sizeof(char*) * (*argc + 1),
diff --git a/rts/STM.h b/rts/STM.h
index 3d32daace2..69cee7b531 100644
--- a/rts/STM.h
+++ b/rts/STM.h
@@ -63,7 +63,7 @@ StgTRecHeader *stmStartNestedTransaction(Capability *cap, StgTRecHeader *outer
 );
 
 /*
- * Roll back the current transatcion context.  NB: if this is a nested tx
+ * Roll back the current transaction context.  NB: if this is a nested tx
  * then we merge its read set into its parents.  This is because a change
  * to that read set could change whether or not the tx should abort.
  */
diff --git a/rts/Schedule.h b/rts/Schedule.h
index 6434515604..2d8d813464 100644
--- a/rts/Schedule.h
+++ b/rts/Schedule.h
@@ -95,7 +95,7 @@ extern volatile StgWord sched_state;
 
 /* Recent activity flag.
  * Locks required  : Transition from MAYBE_NO to INACTIVE
- * happens in the timer signal, so it is atomic.  Trnasition from
+ * happens in the timer signal, so it is atomic.  Transition from
  * INACTIVE to DONE_GC happens under sched_mutex.  No lock required
  * to set it to ACTIVITY_YES.
  */
diff --git a/rts/Stats.c b/rts/Stats.c
index 41427d0430..889f6d92f3 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -617,7 +617,7 @@ There are currently three reporting functions:
   * report_machine_readable:
       Responsible for producing '+RTS -t --machine-readable' output.
   * report_one_line:
-      Responsible for productin '+RTS -t' output
+      Responsible for producing '+RTS -t' output
 
 Stats are accumulated into the global variable 'stats' as the program runs, then
 in 'stat_exit' we do the following:
diff --git a/rts/StgCRun.c b/rts/StgCRun.c
index a6ef7054a4..2600f1e569 100644
--- a/rts/StgCRun.c
+++ b/rts/StgCRun.c
@@ -140,7 +140,7 @@ STG_NO_OPTIMIZE StgWord8 *win32AllocStack(void)
  * alignment for these jumps.
  *
  * This gives us binary compatibility with LLVM and GCC as well as dealing
- * with the FFI. Previously we just maintianed a 16n byte alignment for
+ * with the FFI. Previously we just maintained a 16n byte alignment for
  * procedure entry and calls, which led to bugs (see #4211 and #5250).
  *
  * To change this convention you need to change the code here, and in
diff --git a/rts/Threads.h b/rts/Threads.h
index 600d4eaff0..c0a9f1cf1c 100644
--- a/rts/Threads.h
+++ b/rts/Threads.h
@@ -36,7 +36,7 @@ bool removeThreadFromDeQueue   (Capability *cap, StgTSO **head, StgTSO **tail, S
 
 StgBool isThreadBound (StgTSO* tso);
 
-// Overfow/underflow
+// Overflow/underflow
 void threadStackOverflow  (Capability *cap, StgTSO *tso);
 W_   threadStackUnderflow (Capability *cap, StgTSO *tso);
 
diff --git a/rts/linker/LoadArchive.c b/rts/linker/LoadArchive.c
index 936c0e5261..3d74b4d3df 100644
--- a/rts/linker/LoadArchive.c
+++ b/rts/linker/LoadArchive.c
@@ -440,7 +440,7 @@ static HsInt loadArchive_ (pathchar *path)
                     break;
                 }
             }
-            /* If we didn't find a '/', then a space teminates the
+            /* If we didn't find a '/', then a space terminates the
                filename. Note that if we don't find one, then
                thisFileNameSize ends up as 16, and we already have the
                '\0' at the end. */
diff --git a/rts/linker/M32Alloc.c b/rts/linker/M32Alloc.c
index 148a5043cf..6f61a5c447 100644
--- a/rts/linker/M32Alloc.c
+++ b/rts/linker/M32Alloc.c
@@ -36,7 +36,7 @@ known at compile time, code like:
         m32_allocator_init();
 
 will be compiled to call to `m32_allocator_init` if  `RTS_LINKER_USE_MMAP` is
-true and will be optimised awat to nothing if `RTS_LINKER_USE_MMAP` is false.
+true and will be optimised away to nothing if `RTS_LINKER_USE_MMAP` is false.
 However, regardless of the value of `RTS_LINKER_USE_MMAP` the compiler will
 still check the call for syntax and correct function parameter types.
 
diff --git a/rts/posix/Select.c b/rts/posix/Select.c
index 5b143e1bf7..9cd8e4e010 100644
--- a/rts/posix/Select.c
+++ b/rts/posix/Select.c
@@ -3,7 +3,7 @@
  * (c) The GHC Team 1995-2002
  *
  * Support for concurrent non-blocking I/O and thread waiting in the
- * non-threaded RTS.  In the threded RTS, this file is not used at
+ * non-threaded RTS.  In the threaded RTS, this file is not used at
  * all, instead we use the IO manager thread implemented in Haskell in
  * the base package.
  *
diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index 86133b6000..44414b92c3 100644
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -18,7 +18,7 @@ static HANDLE io_manager_event = INVALID_HANDLE_VALUE;
 // must agree with values in GHC.Conc:
 #define IO_MANAGER_WAKEUP 0xffffffff
 #define IO_MANAGER_DIE    0xfffffffe
-// spurios wakeups are returned as zero.
+// spurious wakeups are returned as zero.
 // console events are ((event<<1) | 1)
 
 #if defined(THREADED_RTS)