Merging branch/2023-02-13/fix-typos for github pull request <https://github.com/ravenbrook/mps/pull/149>.

GitHub-reference: https://github.com/Ravenbrook/mps/issues/149

mps/code/eventdef.h

@@ -608,7 +608,7 @@
   PARAM(X,  0, P, trace, "the trace") \
   PARAM(X,  1, P, arena, "trace's arena") \
   PARAM(X,  2, W, fixRefCount, "references which pass zone check") \
-  PARAM(X,  3, W, segRefCount, "referencess which refer to segments") \
+  PARAM(X,  3, W, segRefCount, "references which refer to segments") \
   PARAM(X,  4, W, whiteSegRefCount, "references which refer to white segments") \
   PARAM(X,  5, W, nailCount, "segments nailed by ambiguous references") \
   PARAM(X,  6, W, snapCount, "references snapped to forwarded objects") \
@@ -654,7 +654,7 @@
 
 #define EVENT_VMCompact_PARAMS(PARAM, X) \
   PARAM(X,  0, W, vmem0, "pre-collection reserved size") \
-  PARAM(X,  1, W, vmem1, "pre-compact reseved size") \
+  PARAM(X,  1, W, vmem1, "pre-compact reserved size") \
   PARAM(X,  2, W, vmem2, "post-compact reserved size")
 
 #define EVENT_VMFinish_PARAMS(PARAM, X) \

mps/code/freelist.c

@@ -147,7 +147,7 @@ static void freelistBlockSetLimit(Freelist fl, FreelistBlock block, Addr limit)
 }
 
 
-/* freelistBlockInit -- initalize block storing the range [base, limit). */
+/* freelistBlockInit -- initialize block storing the range [base, limit). */
 
 static FreelistBlock freelistBlockInit(Freelist fl, Addr base, Addr limit)
 {
@@ -714,7 +714,7 @@ fail:
 
 /* freelistDescribeVisitor -- visitor method for freelistDescribe
  *
- * Writes a decription of the range into the stream pointed to by
+ * Writes a description of the range into the stream pointed to by
  * closure.
  */
 

mps/code/misc.h

@@ -79,7 +79,7 @@ typedef const struct SrcIdStruct {
 /* NOOP -- null statement
  *
  * Do not be tempted to use NULL, or just semicolon as the null
- * statement.  These items are dangerously ambigous and could cause
+ * statement.  These items are dangerously ambiguous and could cause
  * subtle bugs if misplaced.  NOOP is a macro which is guaranteed to
  * cause an error if it is not used in a statement context.
  */
@@ -146,7 +146,7 @@ typedef const struct SrcIdStruct {
 
 /* UNUSED -- declare parameter unused
  *
- * This macro supresses warnings about unused parameters.  It should be
+ * This macro suppresses warnings about unused parameters.  It should be
  * applied to the parameter at the beginning of the body of the
  * procedure.
  *

mps/code/mpmtypes.h

@@ -327,7 +327,7 @@ enum {
 
 /* Root Variants -- see <design/type#.rootvar>
  *
- * .rootvar: Synchonize with <code/root.c#rootvarcheck>
+ * .rootvar: Synchronize with <code/root.c#rootvarcheck>
  */
 
 enum {

mps/code/mpslib.h

@@ -21,18 +21,18 @@
 extern int mps_lib_get_EOF(void);
 #define mps_lib_EOF     (mps_lib_get_EOF())
 
-/* An anonymous structure type used to represent files.  Analagous to
+/* An anonymous structure type used to represent files.  Analogous to
    `FILE *` from stdio.h. */
 typedef struct mps_lib_stream_s mps_lib_FILE;
 
-/* Return the standard output and standard error streams.  Analagous to
+/* Return the standard output and standard error streams.  Analogous to
    `stdout` and `stderr` from stdio.h. */
 extern mps_lib_FILE *mps_lib_get_stderr(void);
 extern mps_lib_FILE *mps_lib_get_stdout(void);
 #define mps_lib_stderr  (mps_lib_get_stderr())
 #define mps_lib_stdout  (mps_lib_get_stdout())
 
-/* Send a character or string to a stream.  Analagous to `fputc` and `fputs`
+/* Send a character or string to a stream.  Analogous to `fputc` and `fputs`
    from stdio.h. */
 extern int mps_lib_fputc(int, mps_lib_FILE *);
 extern int mps_lib_fputs(const char *, mps_lib_FILE *);
@@ -55,7 +55,7 @@ typedef void (*mps_lib_assert_fail_t)(const char *, unsigned, const char *);
 extern mps_lib_assert_fail_t mps_lib_assert_fail_install(mps_lib_assert_fail_t);
 
 
-/* Set, copy, or compare memory.  Analagous to `memset`, `memcpy`, and
+/* Set, copy, or compare memory.  Analogous to `memset`, `memcpy`, and
    `memcmp` from string.h. */
 extern void *(mps_lib_memset)(void *, int, size_t);
 extern void *(mps_lib_memcpy)(void *, const void *, size_t);

mps/code/poolamc.c

@@ -35,7 +35,7 @@ static Res amcSegFixEmergency(Seg seg, ScanState ss, Ref *refIO);
 static void amcSegWalk(Seg seg, Format format, FormattedObjectsVisitor f,
                        void *p, size_t s);
 
-/* local class declations */
+/* local class declarations */
 
 typedef AMC AMCZPool;
 #define AMCZPoolCheck AMCCheck

mps/code/poollo.c

@@ -312,7 +312,7 @@ static void loSegReclaim(Seg seg, Trace trace)
   Buffer buffer;
   Bool hasBuffer = SegBuffer(&buffer, seg);
   Count reclaimedGrains = (Count)0;
-  Format format = NULL; /* supress "may be used uninitialized" warning */
+  Format format = NULL; /* suppress "may be used uninitialized" warning */
   Count preservedInPlaceCount = (Count)0;
   Size preservedInPlaceSize = (Size)0;
   Bool b;

mps/code/root.c

@@ -95,7 +95,7 @@ Bool RootModeCheck(RootMode mode)
 
 /* RootCheck -- check the consistency of a root structure
  *
- * .rootcheck: Keep synchonized with <code/mpmst.h#root>. */
+ * .rootcheck: Keep synchronized with <code/mpmst.h#root>. */
 
 Bool RootCheck(Root root)
 {

mps/design/poolamc.txt

@@ -283,7 +283,7 @@ The reasons why a segment and its pages might be retained are:
 
 #. ambiguous reference to first-obj: unavoidable page retention (only
    the mutator can reduce this, if they so wish, by nulling out ambig
-   referencess);
+   references);
 #. ambiguous reference to rest-obj: tuning MPS LSP policy could
    mitigate this, reducing the likelihood of rest-objs being
    co-located with large first-objs;
@@ -459,7 +459,7 @@ chooses exactly one of three options:
    broken heart's forwarding pointer.
 
 If the rank of the reference is ``RankAMBIG`` then it either does (1)
-or (2) depending on wether there is an existing nailboard or not.
+or (2) depending on whether there is an existing nailboard or not.
 Otherwise (the rank is exact or higher) if there is a broken heart it
 is used to snapout the pointer. Otherwise it is as for an
 ``RankAMBIG`` reference: we either do (1) or (2).
@@ -521,7 +521,7 @@ _`.struct.pool`: Like other pool class instances, it contains a
 
 _`.struct.format`: The ``format`` field points to a ``Format``
 structure describing the object format of objects allocated in the
-pool. The field is intialized by ``AMCInit()`` from a parameter, and
+pool. The field is initialized by ``AMCInit()`` from a parameter, and
 thereafter it is not changed until the pool is destroyed.
 
 .. note::

mps/tool/monitor

@@ -642,7 +642,7 @@ class Trace(EventHandler):
         self.add_count('snaps', event.snapCount)
         self.add_count('forwarded', event.forwardedCount)
         self.add_size('forwarded', event.forwardedSize)
-        self.add_count('preseved in place', event.preservedInPlaceCount)
+        self.add_count('preserved in place', event.preservedInPlaceCount)
         self.add_size('preserved in place', event.preservedInPlaceSize)
 
     def TraceStatReclaim(self, t, event):