Mass typo fixes in comments for utils.

utils/README.txt

@@ -1,4 +1,4 @@
-This dirctory contains some utilities that come with the Free Pascal
+This directory contains some utilities that come with the Free Pascal
 Compiler. They can be compiled by typing 'make all' in this directory.
 
 Currently, the following things are provided:

utils/data2inc.pp

@@ -102,7 +102,7 @@ PROCEDURE RTrim(VAR P : AnsiString;Ch:AnsiChar);
 VAR I,J : LONGINT;
 
 BEGIN
- I:=Length(P);      { Keeping length in local data eases optimalisations}
+ I:=Length(P);      { Keeping length in local data eases optimizations}
  IF (I>0) THEN
   BEGIN
    J:=I;
@@ -129,7 +129,7 @@ PROCEDURE LTrim(VAR P : AnsiString;Ch:ansiChar);
 VAR I,J : LONGINT;
 
 BEGIN
- I:=Length(P);      { Keeping length in local data eases optimalisations}
+ I:=Length(P);      { Keeping length in local data eases optimizations}
  IF (I>0) THEN
   BEGIN
    J:=1;

utils/fpcm/fpcmake.pp

@@ -286,7 +286,7 @@ end;
 
 Procedure ProcessOpts;
 {
-  Process command line opions, and checks if command line options OK.
+  Process command line options, and checks if command line options OK.
 }
 const
   ShortOpts = 'pwqrvh?VsT:o:x:';

utils/fpcm/fpcmmain.pp

@@ -1622,7 +1622,7 @@ implementation
          end
         else
          Result:=Variables[IniVar];
-        { Substition asked ? }
+        { Substitution asked ? }
         if dosubst then
          Result:=SubstVariables(Result);
       end;

utils/fpcm/fpcmwr.pp

@@ -369,10 +369,10 @@ implementation
               Add(varname+':=$(strip $(wildcard $(addsuffix /'+altexename+'$(SRCEXEEXT),$(SEARCHPATH))))');
             end;
            Add('ifeq ($('+varname+'),)');
-           Add(varname+'= __missing_command_'+varname); {This is to be shure make stops,
+           Add(varname+'= __missing_command_'+varname); {This is to be sure make stops,
               if the command is not found. Otherwise if the command was set to the
               empty string, options to the command would be interpreted as command,
-              and because options is preceeded by a "-", make will ignore the error
+              and because options is preceded by a "-", make will ignore the error
               that the command is not found.}
            Add('else');
            Add(varname+':=$(firstword $('+varname+'))');
@@ -538,7 +538,7 @@ implementation
           unitfpmakedirvar:='UNITDIR_FPMAKE_'+VarName(pack);
           { Search packagedir by looking for Makefile.fpc }
           FOutput.Add(packdirvar+':=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /'+pack+'/Makefile.fpc,$(PACKAGESDIR))))))');
-          { Packages may no longer have a Makefile.fpc . Check existance of Makefile + fpmake.pp to be sure }
+          { Packages may no longer have a Makefile.fpc . Check existence of Makefile + fpmake.pp to be sure }
           FOutput.Add('ifeq ($('+packdirvar+'),)');
           FOutput.Add(packdirvar+':=$(firstword $(subst /Makefile,,$(strip $(wildcard $(addsuffix /'+pack+'/Makefile,$(PACKAGESDIR))))))');
           FOutput.Add('ifneq ($('+packdirvar+'),)');

utils/fpcres/fpcjres.pas

@@ -15,7 +15,7 @@
 
 {
   Java's internal resource file handling system is based on simply loading
-  files from withing the package name space. We reserve the namespace
+  files from within the package name space. We reserve the namespace
   org.freepascal.rawresources for this purpose.
 
   This program creates a jar file (= zip file) containing all specified files.

utils/fpcres/fpcres.pas

@@ -113,7 +113,7 @@ end;
 
 procedure CheckTarget;
 begin
-  //if user explicitally set a format, use it
+  //if user explicitly set a format, use it
   if params.Target.objformat<>ofNone then
     CurrentTarget.objformat:=params.Target.objformat;
   //if no machine was specified, check if current is ok for this format,

utils/fpdoc/dglobals.pp

@@ -837,7 +837,7 @@ var
                // writeln('processing',inhclass[j]);
                clname:=inhclass[j];
                splitalias(clname,alname);
-               if alname<>'' then // the class//interface we refered to is an alias
+               if alname<>'' then // the class//interface we referred to is an alias
                  begin
                    // writeln('Found alias pair ',clname,' = ',alname);
                    if (dleXCT in FDocLogLevels) and not assigned(CreateAliasType(alname,clname,cls,cls2)) then

utils/fpdoc/dw_html.pp

@@ -308,7 +308,7 @@ begin
     If (TPasArrayType(Element).ElType<>Nil) then
       Result := AppendType(CodeEl, TableEl, TPasArrayType(Element).ElType, False);
   end else
-  // Procedure or funtion type
+  // Procedure or function type
   if Element.InheritsFrom(TPasProcedureType) then
   begin
     AppendKw(CodeEl, TPasProcedureType(Element).TypeName);
@@ -430,7 +430,7 @@ end;
 
 { Used in two places:
   - Page for the method of a class
-  - Page for a tandalone procedure or function. }
+  - Page for a standalone procedure or function. }
 
 procedure THTMLWriter.AppendProcDecl(CodeEl, TableEl: TDOMElement;
   Element: TPasProcedureBase);

utils/fpdoc/dw_lintmpl.pp

@@ -371,7 +371,7 @@ end;
 Class procedure TTemplateWriter.Usage(List: TStrings);
 
 begin
-  // Add options to list. Eelement I is option, element i+1 is explanation.
+  // Add options to list. Element I is option, element i+1 is explanation.
 end;
 
 

utils/fpdoc/dw_man.pp

@@ -131,7 +131,7 @@ Type
     procedure AppendProcedureArgsSection(Element: TPasProcedureType);
     procedure AppendFunctionResultSection(Element: TPasFunctionType);
     procedure WritePropertyPage(PropDecl: TPasProperty);
-    // Overriden from fpdocwriter;
+    // Overridden from fpdocwriter;
     procedure DescrWriteText(const AText: DOMString); override;
     procedure DescrBeginBold; override;
     procedure DescrEndBold; override;

utils/fpdoc/dw_template.pp

@@ -110,7 +110,7 @@ Type
     procedure AppendFunctionResultSection(Element: TPasFunctionType);
     // Write class property  documentation
     procedure WritePropertyPage(PropDecl: TPasProperty);
-    // To be Overriden from fpdocwriter;
+    // To be Overridden from fpdocwriter;
     procedure DescrWriteText(const AText: DOMString); override;
     procedure DescrBeginBold; override;
     procedure DescrEndBold; override;

utils/fpdoc/dwlinear.pp

@@ -87,7 +87,7 @@ Type
     procedure WriteUnitEntry(UnitRef : TPasType);virtual; Abstract;
     procedure EndUnitOverview; virtual; Abstract;
     Property LastURL : DomString Read FLastURL Write FLastURL;
-    // Overriden from fpdocwriter;
+    // Overridden from fpdocwriter;
     procedure DescrWriteText(const AText: DOMString); override;
     // Actual writing happens here.
     Procedure DoWriteDocumentation; override;

utils/fpdoc/mkfpdoc.pp

@@ -51,7 +51,7 @@ Type
     Procedure DoLog(Const Msg : String);
     procedure DoLog(Const Fmt : String; Args : Array of Const);
     Procedure DoLogSender(Sender : TObject; Const Msg : String);
-    // Create documetation by specified Writer class
+    // Create documentation by specified Writer class
     procedure CreateOutput(APackage: TFPDocPackage; Engine: TFPDocEngine); virtual;
   Public
     Constructor Create(AOwner : TComponent); override;
@@ -309,7 +309,7 @@ begin
     For J:=0 to Apackage.Imports.Count-1 do
       begin
       Arg:=Apackage.Imports[j];
-      // conversion import FilePathes
+      // conversion import FilePaths
       WriterClass.SplitImport(Arg,Cmd);
       // create tree of imported objects
       Engine.ReadContentFile(Arg, Cmd);
@@ -342,7 +342,7 @@ begin
           if FProcessedUnits.IndexOf(Cmd)=-1 then
           begin
             FProcessedUnits.Add(Cmd);
-            // Parce sources for OS Target
+            // Parse sources for OS Target
             //WriteLn(Format('Parsing unit: %s', [ExtractFilenameOnly(Cmd)]));
             ParseSource(Engine,Cmd+' '+Arg, Options.OSTarget, Options.CPUTarget,[poUseStreams]); // poSkipDefaultDefs
           end;

utils/fppkg/README.txt

@@ -97,7 +97,7 @@ CPU
 Defaults can be found in pkgropts
 
 
-Helpfull commands for building packages:
+Helpful commands for building packages:
 ----------------------------------------
 
 * Generate AddInclude and AddUnit lines from an existing PPU file:

utils/fppkg/lnet/lcontainersh.inc

@@ -2,7 +2,7 @@
 
   here are all the "default" type defines which you need to
   redefine yourself after including this file. You only redefine those
-  which are used ofcourse }
+  which are used of course }
 
 {$ifndef __front_type__}
   {$ERROR Undefined type for quasi-template!}

utils/fppkg/lnet/levents.pp

@@ -1,4 +1,4 @@
-{ lNet Events abstration
+{ lNet Events abstraction
 
   CopyRight (C) 2006-2008 Ales Katona
 

utils/fppkg/lnet/lnet.pp

@@ -789,7 +789,7 @@ begin
            IgnoreRead := False;
          end;
     end else if IsNonFatalError(LastError) then
-      LogError(GSStr[aOp] + ' error', LastError) // non fatals don't cause disconnect
+      LogError(GSStr[aOp] + ' error', LastError) // non fatal don't cause disconnect
     else if (aOp = soSend) and IsPipeError(LastError) then begin
       LogError(GSStr[aOp] + ' error', LastError);
       HardDisconnect(True); {$warning check if we need aOp = soSend in the IF, perhaps bad recv is possible?}

utils/fppkg/pkglnet.pp

@@ -164,7 +164,7 @@ begin
 
   FFTP:=TLFTPClient.Create(Self);
   FFTP.Timeout:=1000;
-  FFTP.StatusSet:=[fsRetr]; // watch for success/failure of retreives only
+  FFTP.StatusSet:=[fsRetr]; // watch for success/failure of retrieves only
   FFTP.OnError:=@OnLNetError;
   FFTP.OnControl:=@OnFTPControl;
   FFTP.OnReceive:=@OnFTPReceive;

utils/fprcp/Readme.txt

@@ -1,6 +1,6 @@
 This binary with source code is released to public domain.
 The utility can be compiled by Turbo Pascal (but 16-bit version
-cannot handle files greather than 64K!), Delphi or Free Pascal.
+cannot handle files greater than 64K!), Delphi or Free Pascal.
 fprcp.exe extracts from C header and Pascal files included into
 resource scripts numerical constants and replaces these constants
 to its values in resource script. Modified resource script is writing

utils/h2pas/h2plexlib.pas

@@ -50,7 +50,7 @@ yytext            : String;      (* matched text (should be considered r/o) *)
    implement access to the input and output files. Since \n (newline) for
    Lex means line end, the I/O routines have to translate MS-DOS line ends
    (carriage-return/line-feed) into newline characters and vice versa. Input
-   is buffered to allow rescanning text (via unput_char).
+   is buffered to allow rescanning text (via input_char).
 
    The input buffer holds the text of the line to be scanned. When the input
    buffer empties, a new line is obtained from the input stream. Characters

utils/h2pas/h2pout.pp

@@ -705,9 +705,9 @@ begin
     if not assigned(p^.p1^.p1) and not assigned(p^.p1^.next) then
       begin
       write(outfile,'args:array of const');
-      (* if variable number of args we must allways pop *)
+      (* if variable number of args we must always pop *)
       no_pop:=false;
-      (* Needs 2 declarations, also one without args, becuase
+      (* Needs 2 declarations, also one without args, because
         in C you can omit the second parameter. Default parameter
         doesn't help as that isn't possible with array of const *)
       _NeedEllipsisOverload:=true;
@@ -715,7 +715,7 @@ begin
       if assigned(lastp) then
       lastp^.next:=nil;
       dispose(p,done);
-      (* leave the loop as p isnot valid anymore *)
+      (* leave the loop as p is not valid anymore *)
       break;
       end
     (* we need to correct this in the pp file after *)

utils/ihxutil/ihxreader.pas

@@ -2,7 +2,7 @@
 
   This file contains the IHX writer code.
 
-  Copyright (C) 2020 Nikolay Nikolov <[email protected]>
+  Copyright (C) 2020 Nikolay Nikolov <[email protected]e.net>
 
   This source is free software; you can redistribute it and/or modify it under
   the terms of the GNU General Public License as published by the Free

utils/ihxutil/tzxwriter.pas

@@ -2,7 +2,7 @@
 
   This file contains the TZX writer code.
 
-  Copyright (C) 2020 Nikolay Nikolov <[email protected]>
+  Copyright (C) 2020 Nikolay Nikolov <[email protected]e.net>
 
   This source is free software; you can redistribute it and/or modify it under
   the terms of the GNU General Public License as published by the Free

utils/ihxutil/zxbasic.pas

@@ -3,7 +3,7 @@
   This file contains various definitions, constants and utility functions for
   dealing with BASIC programs on the ZX Spectrum.
 
-  Copyright (C) 2020 Nikolay Nikolov <[email protected]>
+  Copyright (C) 2020 Nikolay Nikolov <[email protected]e.net>
 
   This source is free software; you can redistribute it and/or modify it under
   the terms of the GNU General Public License as published by the Free

utils/instantfpc/instantfpc.pas

@@ -215,7 +215,7 @@ begin
     if DeleteCache then
       DeleteFile(OutputFileName);
   finally
-    // memory is freed by OS, but for debugging puposes you can do it manually
+    // memory is freed by OS, but for debugging purposes you can do it manually
     {$IFDEF IFFreeMem}
     Proc.Free;
     Src.Free;

utils/mksymbian/compiler.pas

@@ -112,7 +112,7 @@ end;
 {*******************************************************************
 *  TCompiler.FileCopy ()
 *
-*  DESCRIPTION:    Copyes a file from source to dest
+*  DESCRIPTION:    Copies a file from source to dest
 *
 *  PARAMETERS:     source  - Source file
 *                  dest    - Destination file

utils/ptopu.pp

@@ -676,7 +676,7 @@ Procedure TPrettyPrinter.GetComment(sym: symbolinfo);
     OR (nextchar.name = filemark)) DO
       StoreNextChar(sym^.length, sym^.Value);
     IF currchar.Value = '}' THEN sym^.name := closecomment;
-  END; { of GetCommment }
+  END; { of GetComment }
 
 Procedure TPrettyPrinter.GetDoubleComment(sym: symbolinfo);
   { Process comments using parenthesis notation }
@@ -689,7 +689,7 @@ Procedure TPrettyPrinter.GetDoubleComment(sym: symbolinfo);
       StoreNextChar(sym^.length, sym^.Value);
       sym^.name := dclosecomment;
     END;
-  END; { of GetDoubleCommment }
+  END; { of GetDoubleComment }
 
 Procedure TPrettyPrinter.GetDelphiComment(sym: symbolinfo);
   { Process comments using either brace or parenthesis notation }
@@ -698,7 +698,7 @@ Procedure TPrettyPrinter.GetDelphiComment(sym: symbolinfo);
     WHILE NOT ((nextchar.name = endofline) OR (nextchar.name = filemark)) DO
       StoreNextChar(sym^.length, sym^.Value);
 
-  END; { of GetDelphiCommment }
+  END; { of GetDelphiComment }
 
 
 

utils/rstconv.pp

@@ -246,7 +246,7 @@ begin
 end;
 
 // This routine stores rst file in rc format. Can be written as MESSAGETABLE
-// as STRINGTABLE. Beware! OS/2 RC doesn't support lines longer whan 255 chars.
+// as STRINGTABLE. Beware! OS/2 RC doesn't support lines longer than 255 chars.
 procedure ConvertToRC;
 var
   i, j: Integer;

utils/tply/plex.pas

@@ -460,7 +460,7 @@ procedure split ( str : String; count : Integer );
   end(*split*);
 
 function itemv ( i : Integer ) : String;
-  (* return ith item in splitted string (whole string for i=0) *)
+  (* return ith item in split string (whole string for i=0) *)
   begin
     if i=0 then
       itemv := itemstr

utils/tply/pyacc.pas

@@ -2248,7 +2248,7 @@ function yylex : integer;
   function scan_keyword : integer;
     (* scan %xy *)
     function lookup(key : String; var tok : integer) : boolean;
-      (* table of Yacc keywords (unstropped): *)
+      (* table of Yacc keywords (unstopped): *)
       const
         no_of_entries = 11;
         max_entry_length = 8;

utils/unicode/cldrtest.pas

@@ -1272,7 +1272,7 @@ begin //'a','b','c','d','e','f','g','h','i','j','k','l'
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test3','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','g'{*}, 'c','d','e','f','h','i','j','k','l'],@unicodeBook2);
     CheckInf(['bb','g'{*}],@unicodeBook2);
@@ -1290,7 +1290,7 @@ begin //'a','b','c','d','e','f','g','h','i','j','k','l'
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test3','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','ch'{*},'d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckInf(['ca','ch'{*}],@unicodeBook2);
@@ -1315,7 +1315,7 @@ begin //'a','b','c','d','e','f','g','h','i','j','k','l'
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test3','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','k'{*},'d','e','f','g','h','i','j','l'],@unicodeBook2);
     CheckInf(['a','b','c'{*},'d','e','f','g','h','i','j','l'],@unicodeBook2);
@@ -1342,7 +1342,7 @@ begin //'a','b','c','d','e','f','g','h','i','j','k','l'
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test3','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','c'{*},'ch'{*},'b','d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckInf(['ca','ch'{*}],@unicodeBook2);
@@ -1446,7 +1446,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test4','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf(['a','b','g'{*}, 'c','d','e','f','h','i','j','k','l'],@unicodeBook2);
@@ -1473,7 +1473,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test4','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf(['a','b','g'{*},'k'{*}, 'c','d','e','f','h','i','j','l'],@unicodeBook2);
@@ -1568,7 +1568,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test5','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf(['a','b','ada','d','e',  'c'{* deleted !}],@unicodeBook2);
@@ -1586,7 +1586,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test5','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf(['a', 'adac'{* deleted !}, 'b','c','d','e'],@unicodeBook2);
@@ -1675,7 +1675,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test6','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf(['a', 'ad'{*},'ada', 'b','c','d','e'],@unicodeBook2);
@@ -1695,7 +1695,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test6','second',@unicodeBook2,unicodeBook3);
   unicodeBook3.Base := @unicodeBook2;
     CheckInf(['a', 'ad'{*},'ada'{*}, 'b','c','d','e'],@unicodeBook3);
@@ -1714,7 +1714,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test6','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf(['a', 'b', 'ad', 'c','d','e'],@unicodeBook2);
@@ -1803,7 +1803,7 @@ begin  // Permutation simple test
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test7','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf([#$030A,#$0327,#$0061,#$0061#$030A ,#$0062,#$0063,#$0064,'k'],@unicodeBook2);
@@ -1905,7 +1905,7 @@ begin
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test8','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckEqual('cc','c-'{*},@unicodeBook2);
@@ -1926,7 +1926,7 @@ begin
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test8','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckInf('cc','c-'{*},@unicodeBook2);
@@ -1948,7 +1948,7 @@ begin
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test8','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckEqual('cc','c-+'{*},@unicodeBook2);
@@ -1978,7 +1978,7 @@ begin
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test8','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     // Check c
@@ -2021,7 +2021,7 @@ begin
   sequence.ApplyStatement(@statement);
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test8','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','-h','b','c','d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckEqual('cc','c-'{*},@unicodeBook2);
@@ -2118,7 +2118,7 @@ begin// Permutation with Context
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test9','second',@unicodeBook1,unicodeBook2);
   unicodeBook2.Base := @unicodeBook1;
     CheckInf([#$030A,#$0327,#$0061,#$0062,#$0063,#$0064,'k'],@unicodeBook2);
@@ -2427,7 +2427,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test1','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','x'{*},'d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckInf('ch','x'{*},@unicodeBook2);
@@ -2448,7 +2448,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test2','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','x'{*},'X'{*},'d','e','f','g','h','i','j','k','l'],@unicodeBook2);
     CheckInf('ch','x'{*},@unicodeBook2);
@@ -2869,7 +2869,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','xy'],@unicodeBook2);
     test12_check_1(unicodeBook2);
@@ -2890,7 +2890,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','hi','k'],@unicodeBook2);
     test12_check_2(unicodeBook2);
@@ -2911,7 +2911,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','ci','k'],@unicodeBook2);
     test12_check_3(unicodeBook2);
@@ -2933,7 +2933,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','b','c','ci','k','cs'],@unicodeBook2);
     test12_check_4(unicodeBook2);
@@ -3074,7 +3074,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','bu','b'{because b's weigth is now computed!}],@unicodeBook2);
     test13_check_1(unicodeBook2);
@@ -3097,7 +3097,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     CheckInf(['a','bu','c','b'{because b's weigth is now computed!}],@unicodeBook2);
     test13_check_2(unicodeBook2);
@@ -3434,7 +3434,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     test14_check_1(unicodeBook2);
     WriteLn('    -- test 1 - ok');
@@ -3453,7 +3453,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     test14_check_2(unicodeBook2);
     WriteLn('    -- test 2 - ok');
@@ -3485,7 +3485,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     test14_check_3(unicodeBook2);
     WriteLn('    -- test 3 - ok');
@@ -3525,7 +3525,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     test14_check_4(unicodeBook2);
     WriteLn('    -- test 4 - ok');
@@ -3605,7 +3605,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 1 - ok');
@@ -3622,7 +3622,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 2 - ok');
@@ -3641,7 +3641,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 3 - ok');
@@ -3672,7 +3672,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 4 - ok');
@@ -3712,7 +3712,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 5 - ok');
@@ -3731,7 +3731,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 6 - ok');
@@ -3751,7 +3751,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 7 - ok');
@@ -3771,7 +3771,7 @@ begin
   wresult := nil;
   ComputeWeigths(@sequence.Data[0],sequence.ActualLength,wfirst,wresult);
   WriteLn(DumpLines(wresult),sLineBreak+sLineBreak);
-  //Generate updatet tables
+  //Generate updated tables
   ConstructUnicodeBook(wresult,'test','second',@unicodeBook1,unicodeBook2);
     Check(ConvertEndianFromNative(unicodeBook2.Props,unicodeBook2.PropCount),'Endian conversion failed.');
     WriteLn('    -- test 8 - ok');
@@ -6060,7 +6060,7 @@ begin
       Check((xtyp.Rules[i].Kind=TCldrCollationRuleKind.ReorderSequence),'xtyp.Rules[i].Kind=ReorderSequence');
       CheckEqual(locData.Data[c+i],xtyp.Rules[i].Reorder);
     end;
-    k := 3{import statemnts};
+    k := 3{import statements};
     c := c+Length(xtyp.Rules);
     for i := k to Length(typ.Rules)-1 do begin
       Check((typ.Rules[i].Kind=TCldrCollationRuleKind.ReorderSequence),'typ.Rules[i].Kind=ReorderSequence');

utils/unicode/cldrxml.pas

@@ -19,7 +19,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 }
 
-{ The procedure whoses names lasted by 'XML' (ParseInitialDocumentXML,
+{ The procedure whose names lasted by 'XML' (ParseInitialDocumentXML,
   ParseCollationDocumentXML, ...) are for older CLDR versions (CDLR <= 23); The
   old version was unsing a XML syntax for collation's rules specifications.
   The new versions (and going forward) will be using the text syntax.

utils/unicode/helper.pas

@@ -1803,7 +1803,7 @@ var
     end;
     locProp.NumericIndex := k;
 
-    NextToken();//Bidi_Mirroed
+    NextToken();//Bidi_Mirrored
     NextToken();//Unicode_l_Name
     NextToken();//ISO_Comment
     locProp.SimpleUpperCase := StringToCodePoint(NextToken());

utils/wasmbin/wasmlink.pas

@@ -61,7 +61,7 @@ const
   R_WASM_MEMORY_ADDR_I32     = 5;  // a linear memory index encoded as a uint32, e.g. taking the address of a C++ global in a static data initializer.
   R_WASM_TYPE_INDEX_LEB      = 6;  // a type table index encoded as a 5-byte varuint32, e.g. the type immediate in a call_indirect.
   R_WASM_GLOBAL_INDEX_LEB    = 7;  // a global index encoded as a 5-byte varuint32, e.g. the index immediate in a get_global.
-  R_WASM_FUNCTION_OFFSET_I32 = 8;  // a byte offset within code section for the specic function encoded as a uint32. The offsets start at the actual function code excluding its size field.
+  R_WASM_FUNCTION_OFFSET_I32 = 8;  // a byte offset within code section for the specific function encoded as a uint32. The offsets start at the actual function code excluding its size field.
   R_WASM_SECTION_OFFSET_I32  = 9;  // an byte offset from start of the specified section encoded as a uint32.
   R_WASM_EVENT_INDEX_LEB     = 10; // an event index encoded as a 5-byte varuint32. Used for the immediate argument of a throw and if_except instruction.
   R_WASM_TABLE_NUMBER_LEB    = 13; // a table number encoded as a 5-byte varuint32. Used for the table immediate argument in the table.* instructions.
@@ -173,7 +173,7 @@ type
     symbols : array of TSymInfo;
   end;
 
-// the stream should be set at the beggining of the section
+// the stream should be set at the beginning of the section
 // after name and size values
 procedure ReadLinkingSection(st: TStream; size: integer; var sc: TLinkingSection);
 procedure WriteLinkingSection(st: TStream; const sc: TLinkingSection);
@@ -556,7 +556,7 @@ begin
     mem.Free;
   end;
 
-  // todo: other sub setions are possible
+  // todo: other sub sections are possible
 end;
 
 end.

utils/wasmbin/wasmmodule.pas

@@ -319,7 +319,7 @@ type
   end;
 
 // making binary friendly. finding proper "nums" for each symbol "index"
-// used or implicit type declartions
+// used or implicit type declarations
 function WasmBasTypeToChar(b: byte): Char;
 function WasmFuncTypeDescr(t: TWasmFuncType): string;
 
@@ -373,7 +373,7 @@ begin
   op.textVal := txt;
 end;
 
-// returing a basic wasm basic type to a character
+// returning a basic wasm basic type to a character
 // i32 = i
 // i64 = I
 // f32 = f

utils/wasmbin/watparser.pas

@@ -605,7 +605,7 @@ begin
   sc.Next;
 end;
 
-// parseIdOffset - should only be used for elems declareted at module leve
+// parseIdOffset - should only be used for elems declared at module level
 // if elems declared in a table, parseIdOffset should be set to false
 procedure ParseElem(sc: TWatScanner; dst: TWasmElement; parseIdOffset: Boolean);
 var