Mass typo fixes in comments for packages part 1/5.

packages/a52/src/a52.pas

@@ -61,7 +61,7 @@ sample_t * a52_init (uint32_t mm_accel);
 Initializes the A/52 library. Takes as a parameter the acceptable
 optimizations which may be used, such as MMX. These are found in the
 included header file 'mm_accel', along with an autodetection function
-(mm_accel()). Currently, the only accelleration implemented is
+(mm_accel()). Currently, the only acceleration implemented is
 MM_ACCEL_MLIB, which uses the 'mlib' library if installed. mlib is
 only available on some Sun Microsystems platforms.
 
@@ -76,7 +76,7 @@ int a52_syncinfo (uint8_t * buf, int * flags,
                   int * sample_rate, int * bit_rate);
 
 The A/52 bitstream is composed of several a52 frames concatenated one
-after each other. An a52 frame is the smallest independantly decodable
+after each other. An a52 frame is the smallest independently decodable
 unit in the stream.
 
 buf must contain at least 7 bytes from the input stream. If these look

packages/ami-extra/README.txt

@@ -5,5 +5,5 @@ moved in here, and get compiled also for AROS and MorphOS.
 
 This package is not for interface units for 3rd party
 libraries, because those are mostly system specific, or
-contain system specific information (aligment, ABI dependent
+contain system specific information (alignment, ABI dependent
 function call declarations, etc).

packages/ami-extra/src/pcq.pas

@@ -92,7 +92,7 @@ Function isalnum(c : AnsiChar) : Boolean;
 Function isspace(c : AnsiChar) : Boolean;
 {
     Returns true if the character is "white space", like a space,
-    form feed, line feed, carraige return, tab, whatever.
+    form feed, line feed, carriage return, tab, whatever.
 }
 
 Function toupper(c : AnsiChar) : AnsiChar;

packages/amunits/README.txt

@@ -64,7 +64,7 @@ Updated since last version:
 
     This can be used as a template for embedded processor
     development, you just need to replace all sysatari
-    routines by emtpy ones (for example), most other routines
+    routines by empty ones (for example), most other routines
     in the include file should be kept (some of them are internal)
 
    PC/Linux version
@@ -86,7 +86,7 @@ Updated since last version:
 3) General information and porting tips
 ---------------------------------------
 
-  - Alignment output is supposedely correct even though i can't
+  - Alignment output is supposedly correct even though i can't
     personally test this. (Someone else tested for me)
   - Some tips to port some general code from i386 FPC to m68k FPC,
     you should limit your local variables and pushed variables
@@ -145,7 +145,7 @@ Developer mailing list:
 You can contact me at:
  [email protected]
  http://www-edu.gel.usherb.ca/codc01
-Amiga inlucdes/units and Amiga specific stuff:
+Amiga includes/units and Amiga specific stuff:
  [email protected]
 
 Thanks:

packages/amunits/examples/getmultifiles.pas

@@ -4,7 +4,7 @@ uses exec,easyasl, linklist, strings, amigautils;
 
 {
    How to get more files than one with easyasl.
-   Just remeber that you have to use linklist and
+   Just remember that you have to use linklist and
    not an ordinary list.
 
    24 Jan 2000.

packages/amunits/examples/sortdemo.pas

@@ -34,7 +34,7 @@ PROGRAM SortDemo;
 
     [email protected]
 
-    One last remark, the heapsort can't be stoped
+    One last remark, the heapsort can't be stopped
     so you have to wait until it's finished.
 }
 
@@ -338,8 +338,8 @@ END;
 
 PROCEDURE a_sort;
 { Pick out: Preparation is one half of a life }
-{ Take a look at the ridiculous low percentage of successful comparisions:  }
-{ Although there are only n swaps, there are n^2/2 comparisions!            }
+{ Take a look at the ridiculous low percentage of successful comparisons:   }
+{ Although there are only n swaps, there are n^2/2 comparisons!             }
 { Both is a record, one in a good sense, the other one in a bad sense.      }
 
 VAR i,j,minpos: Integer;
@@ -361,7 +361,7 @@ BEGIN
 END;
 
 PROCEDURE shellsort;
-{ brilliant extension of E-Sort, stunning improvement of efficience }
+{ brilliant extension of E-Sort, stunning improvement of efficiency }
 VAR i,j,gap: Integer;
 BEGIN
   LockWinSize(w^.Width,w^.Height,w^.Width,w^.Height);
@@ -422,7 +422,7 @@ END;
 PROCEDURE quicksort;
 { "divide and rule": a classic, but recursive  >>-( }
 { In this demonstration it is faster than heapsort, but does considerable }
-{ more unsuccessful comparisions. }
+{ more unsuccessful comparisons. }
 VAR stack: ARRAY[1..100] OF RECORD li,re: Integer; END;
     sp,l,r,m,i,j: Integer;
 BEGIN
@@ -439,7 +439,7 @@ BEGIN
       IF j>i THEN swapit(i,j);
       IF m=i THEN m := j ELSE IF m=j THEN m := i; { ahem ... }
       { This "Following" of the reference data is only required because  }
-      { I stubborn call the comparision function, and this one only gets }
+      { I stubborn call the comparison function, and this one only gets  }
       { indices on the values which have to be compared. }
     UNTIL i>=j;
     IF i>l THEN BEGIN
@@ -452,7 +452,7 @@ END;
 
 PROCEDURE mergesort;
 { *the* algorithm for lists with pointers on it, for arrays rather }
-{ inacceptable. The non.recursive implementation came out pretty more }
+{ unacceptable. The non.recursive implementation came out pretty more }
 { complicated than the one for quicksort, as quicksort first does }
 { something and then recurses; with mergesort it is the other way round. }
 VAR stack: ARRAY[1..100] OF RECORD li,re,mi: Integer; END;
@@ -463,7 +463,7 @@ BEGIN
   REPEAT
     l := stack[sp].li; r := stack[sp].re; m := stack[sp].mi; Dec(sp);
     showstack(sp);
-    IF m>0 THEN BEGIN { put two halfs together }
+    IF m>0 THEN BEGIN { put two halves together }
       { Unfortunately it is only possible in an efficient way by using }
       { extra memory; mergesort really is something for lists with }
       { pointers originally ... }
@@ -479,7 +479,7 @@ BEGIN
         setpixel(k);
       END;
     END ELSE IF l<r THEN BEGIN
-      { create two halfs and the order to put them together }
+      { create two halves and the order to put them together }
       m := (l+r) DIV 2;
       Inc(sp); stack[sp].li := l; stack[sp].mi := m; stack[sp].re := r;
       Inc(sp); stack[sp].li := m+1; stack[sp].mi := 0; stack[sp].re := r;

packages/amunits/src/coreunits/agraphics.pas

@@ -161,7 +161,7 @@ type
         Scroll_Y        : Word;
         cr,
         cr2,
-        crnew           : pClipRect;  { used by dedice }
+        crnew           : pClipRect;  { used by device }
         SuperSaveClipRects : pClipRect; { preallocated cr's }
         _cliprects      : pClipRect;  { system use during refresh }
         LayerInfo       : Pointer;      { points to head of the list }
@@ -357,7 +357,7 @@ Type
 
 const
 
-    COPPER_MOVE = 0;    { pseude opcode for move #XXXX,dir }
+    COPPER_MOVE = 0;    { pseudo opcode for move #XXXX,dir }
     COPPER_WAIT = 1;    { pseudo opcode for wait y,x }
     CPRNXTBUF   = 2;    { continue processing with next buffer }
     CPR_NT_LOF  = $8000; { copper instruction only for Longint frames }
@@ -1303,7 +1303,7 @@ Const
  MVP_NO_VPE    =  2;       { ViewPort does not have a ViewPortExtra, and
                                  * insufficient memory to allocate a temporary one.
                                  }
- MVP_NO_DSPINS =  3;       { insufficient memory for intermidiate copper
+ MVP_NO_DSPINS =  3;       { insufficient memory for intermediate copper
                                  * instructions.
                                  }
  MVP_NO_DISPLAY = 4;       { BitMap data is misaligned for this viewport's
@@ -1769,7 +1769,7 @@ Type
    NotAvailable : Word;    { IF NULL available, else see defines }
    PropertyFlags : ULONG;  { Properties of this mode see defines }
    Resolution : tPoint;     { ticks-per-pixel X/Y                 }
-   PixelSpeed : Word;     { aproximation in nanoseconds         }
+   PixelSpeed : Word;     { approximation in nanoseconds        }
    NumStdSprites : Word;  { number of standard amiga sprites    }
    PaletteRange : Word;   { distinguishable shades available    }
    SpriteResolution : tPoint; { std sprite ticks-per-pixel X/Y    }
@@ -1942,7 +1942,7 @@ CONST
  VTAG_USERCLIP_GET      = $80000023;
  VTAG_USERCLIP_SET      = $80000024;
  VTAG_USERCLIP_CLR      = $80000025;
-{ The following tags are V39 specific. They will be ignored (returing error -3) by
+{ The following tags are V39 specific. They will be ignored (returning error -3) by
         earlier versions }
  VTAG_PF1_BASE_GET             =  $80000026;
  VTAG_PF2_BASE_GET             =  $80000027;

packages/amunits/src/coreunits/amigados.pas

@@ -74,7 +74,7 @@ Const
 
 { Relative position to Seek() }
 
-    OFFSET_BEGINNING    = -1;           { relative to Begining Of File }
+    OFFSET_BEGINNING    = -1;           { relative to Beginning Of File }
     OFFSET_CURRENT      = 0;            { relative to Current file position }
     OFFSET_END          = 1;            { relative to End Of File }
 
@@ -278,7 +278,7 @@ CONST
 { error codes 303-305 are defined in dosasl.h }
 
 { These are the return codes used by convention by AmigaDOS commands }
-{ See FAILAT and IF for relvance to EXECUTE files                    }
+{ See FAILAT and IF for relevance to EXECUTE files                   }
  RETURN_OK                        =   0;  { No problems, success }
  RETURN_WARN                      =   5;  { A warning only }
  RETURN_ERROR                     =  10;  { Something wrong }
@@ -532,9 +532,9 @@ CONST
      EXT_COMMON     = 130;     {   32 bit reference to COMMON block }
      EXT_REF16      = 131;     {   16 bit reference to symbol }
      EXT_REF8       = 132;     {    8 bit reference to symbol }
-     EXT_DEXT32     = 133;     {   32 bit data releative reference }
-     EXT_DEXT16     = 134;     {   16 bit data releative reference }
-     EXT_DEXT8      = 135;     {    8 bit data releative reference }
+     EXT_DEXT32     = 133;     {   32 bit data relative reference  }
+     EXT_DEXT16     = 134;     {   16 bit data relative reference  }
+     EXT_DEXT8      = 135;     {    8 bit data relative reference  }
 
 
 Type
@@ -1091,7 +1091,7 @@ Type
 
 {
  *   Control structure passed to ExAll.  Unused fields MUST be initialized to
- *   0, expecially eac_LastKey.
+ *   0, especially eac_LastKey.
  *
  *   eac_MatchFunc is a hook (see utility.library documentation for usage)
  *   It should return true if the entry is to returned, false if it is to be
@@ -1103,7 +1103,7 @@ Type
        pExAllControl = ^tExAllControl;
        tExAllControl = record
         eac_Entries,                 {   number of entries returned in buffer      }
-        eac_LastKey     : ULONG;     {   Don't touch inbetween linked ExAll calls! }
+        eac_LastKey     : ULONG;     {   Don't touch in between linked ExAll calls!}
         eac_MatchString : STRPTR;    {   wildcard string for pattern match OR NULL }
         eac_MatchFunc   : pHook;     {   optional private wildcard FUNCTION     }
        END;

packages/amunits/src/coreunits/bullet.pas

@@ -100,7 +100,7 @@ const
 {******************************************************************}
 { font specification and inquiry tags }
 
-{ !  tags flagged with an exclaimation mark are valid for
+{ !  tags flagged with an exclamation mark are valid for
  *    specification.
  *  ? tags flagged with a question mark are valid for inquiry
  *
@@ -142,7 +142,7 @@ const
      OT_ShearSin   = (OT_Level0 OR $0a);
      OT_ShearCos   = (OT_Level0 OR $0b);
 
-{ !  OT_Rotate... specifies the Sine and Cosine of the baselin rotation
+{ !  OT_Rotate... specifies the Sine and Cosine of the baseline rotation
  *    angle, as two fixed point binary fractions.  Both must be specified:
  *    first the Sine and then the Cosine.  Setting the sine component
  *    changes the Shear to an undefined value, setting the cosine
@@ -152,10 +152,10 @@ const
      OT_RotateSin  = (OT_Level0 OR $0c);
      OT_RotateCos  = (OT_Level0 OR $0d);
 
-{ !  OT_Embolden... specifies values to algorithimically embolden -- or,
+{ !  OT_Embolden... specifies values to algorithmically embolden -- or,
  *    when negative, lighten -- the glyph.  It is encoded as a fixed point
  *    binary fraction of the em-square.  The X and Y components can be
- *    changed indendently.  For normal characters, set to 0.0, 0.0
+ *    changed independently.  For normal characters, set to 0.0, 0.0
  *    (encoded as $00000000, $00000000).  This is the default value. }
      OT_EmboldenX  = (OT_Level0 OR $0e);
      OT_EmboldenY  = (OT_Level0 OR $0f);
@@ -219,7 +219,7 @@ const
      OT_DesignKernPair = (OT_Level0 OR OT_Indirect OR $23);
 
 {  ? OT_Underlined is an unsigned word which is used to request
- *    algorithimic underlining for the engine when rendering the glyph.
+ *    algorithmic underlining for the engine when rendering the glyph.
  *    Bullet.library currently does not support this tag, though it
  *    may be used by other engines in the future.  The default for
  *    any engine which supports this tag must be OTUL_None.  Engines which
@@ -241,7 +241,7 @@ const
      OUTL_DoubleBroken    =  4;
 
 {  ? OT_StrikeThrough is a boolean which is used to request
- *    algorithimic strike through when rendering the glyph.
+ *    algorithmic strike through when rendering the glyph.
  *    Bullet.library currently does not support this tag, though it
  *    may be used by other engines in the future.  The default for
  *    any engined which supports this tag must be FALSE.  Engines which

packages/amunits/src/coreunits/cardres.pas

@@ -170,7 +170,7 @@ const
  * such software which wants to use execute-in-place software stored
  * on a credit-card, such as a ROM card).
  *
- * See documentatin for IfAmigaXIP().
+ * See documentation for IfAmigaXIP().
  *}
 const
   CISTPL_AMIGAXIP = $91;

packages/amunits/src/coreunits/cd.pas

@@ -113,7 +113,7 @@ const
    CDERR_InvalidState   = 37;   { invalid cmd under current conditions }
 
    CDERR_Phase          = 42;   { illegal or unexpected SCSI phase     }
-   CDERR_NoBoard        = 50;   { open failed for non-existant board   }
+   CDERR_NoBoard        = 50;   { open failed for non-existent board   }
 
 
 
@@ -229,7 +229,7 @@ Type
  *                                                                        *
  *      A CDXL node is a double link node; however only single linkage    *
  *      is used by the device driver.  If you wish to construct a         *
- *      transfer list manually, it is only neccessary to define the       *
+ *      transfer list manually, it is only necessary to define the        *
  *      mln_Succ pointer of the MinNode.  You may also use the Exec       *
  *      list functions by defining a List or MinList structure and by     *
  *      using the AddHead/AddTail functions to create the list.  This     *

packages/amunits/src/coreunits/commodities.pas

@@ -112,7 +112,7 @@ CONST
       CX_TRANSLATE   = 5;     {     translates IE into chain            }
       CX_BROKER      = 6;     {     application representative          }
       CX_DEBUG       = 7;     {     dumps kprintf to serial port        }
-      CX_CUSTOM      = 8;     {     application provids function        }
+      CX_CUSTOM      = 8;     {     application provides function       }
       CX_ZERO        = 9;     {     system terminator node      }
 
 {    ***************}

packages/amunits/src/coreunits/datatypes.pas

@@ -74,10 +74,10 @@ Type
     dth_Name: STRPTR;       // Descriptive name of the data type
     dth_BaseName: STRPTR;   // Base name of the data type
     dth_Pattern: STRPTR;    // Match pattern for file name.
-    dth_Mask: PSmallInt;    // Comparision mask
+    dth_Mask: PSmallInt;    // Comparison mask
     dth_GroupID: LongWord;  // Group that the DataType is in
     dth_ID: LongWord;       // ID for DataType (same as IFF FORM type)
-    dth_MaskLen: SmallInt;  // Length of comparision mask
+    dth_MaskLen: SmallInt;  // Length of comparison mask
     dth_Pad: SmallInt;      // Unused at present (must be 0)
     dth_Flags: Word;        // Flags
     dth_Priority: Word;     // Priority
@@ -134,7 +134,7 @@ const
   // A code chunk contains an embedded executable that can be loaded with InternalLoadSeg.
   ID_CODE = Ord('D') shl 24 + Ord('T')  shl 16 + Ord('C') shl 8 + Ord('D'); // DTCD
 
-// DataTypes comparision hook context (Read-Only).  This is the argument that is passed to a custom comparision routine.
+// DataTypes comparison hook context (Read-Only).  This is the argument that is passed to a custom comparison routine.
 type
   PTHookContext = ^TDTHookContext;
   TDTHookContext = record
@@ -236,7 +236,7 @@ const
   DTA_VertUnit       = DTA_Dummy + 14; // (LongInt) Number of pixels per vertical unit
   DTA_TopHoriz       = DTA_Dummy + 15; // (LongInt) Top horizontal unit
   DTA_VisibleHoriz   = DTA_Dummy + 16; // (LongInt) Number of visible horizontal units
-  DTA_TotalHoriz     = DTA_Dummy + 17; // (LongInt) Total number of horiziontal units
+  DTA_TotalHoriz     = DTA_Dummy + 17; // (LongInt) Total number of horizontal units
   DTA_HorizUnit      = DTA_Dummy + 18; // (LongInt) Number of pixels per horizontal unit
   DTA_NodeName       = DTA_Dummy + 19; // (PByte) Name of the current element within the object
   DTA_Title          = DTA_Dummy + 20; // (STRPTR) Object's title
@@ -779,7 +779,7 @@ type
     ah_Width: Word;    // (XOR mode only - width and height of the area represented
     ah_Height: Word;     //   by the BODY to eliminate unnecessary un-changed data)
     ah_Left: SmallInt;  // (XOR mode only - position of rectangular
-    ah_Top: SmallInt;   // area representd by the BODY)
+    ah_Top: SmallInt;   // area represented by the BODY)
     ah_AbsTime: LongWord;  // Timing for a frame relative to the time the first frame was displayed, in jiffies (1/60 sec)
     ah_RelTime: LongWord;  // Timing for frame relative to time previous frame was displayed - in jiffies (1/60 sec)
     ah_Interleave: Byte;   { Indicates how may frames back this data is to modify.  0 defaults to indicate two frames back

packages/amunits/src/coreunits/exec.pas

@@ -115,7 +115,7 @@ TYPE
 
 const
        {There is a problem with boolean
-       vaules in taglists, just use this
+       values in taglists, just use this
        for now instead}
        ltrue  : longint = 1;
        lfalse : longint = 0;
@@ -428,7 +428,7 @@ CONST
 { ------ expansion.library }
 
   AN_ExpansionLib       = $0A000000;
-  AN_BadExpansionFree   = $0A000001; {  freeed free region }
+  AN_BadExpansionFree   = $0A000001; {  freed free region }
 
 { ------ diskfont.library }
 

packages/amunits/src/coreunits/gadtools.pas

@@ -352,7 +352,7 @@ CONST
  GTMN_SecondaryError =  GT_TagBase+63; { ti_Data is a pointer
                 to a ULONG to receive error reports from CreateMenus() }
  GT_Underscore     =   GT_TagBase+64; { ti_Data points to the symbol
-                that preceeds the character you'd like to underline in a
+                that precedes the character you'd like to underline in a
                 gadget label }
 
 { New to V39 GadTools.  Ignored by GadTools V36 and V37 }

packages/amunits/src/coreunits/hardblocks.pas

@@ -46,7 +46,7 @@ uses exec;
 {--------------------------------------------------------------------
  *
  *      This file describes blocks of data that exist on a hard disk
- *      to describe that disk.  They are not generically accessable to
+ *      to describe that disk.  They are not generically accessible to
  *      the user as they do not appear on any DOS drive.  The blocks
  *      are tagged with a unique identifier, checksummed, and linked
  *      together.  The root of these blocks is the RigidDiskBlock.

packages/amunits/src/coreunits/hardware.pas

@@ -474,7 +474,7 @@ Const
     ASHIFTSHIFT = 12;           { bits to right align ashift value }
     BSHIFTSHIFT = 12;           { bits to right align bshift value }
 
-{ definations for blitter control register 1 }
+{ definitions for blitter control register 1 }
 
     LINEMODE    = $01;
     FILL_OR     = $08;
@@ -529,7 +529,7 @@ Const
     DMAF_ALL        = $01FF;    { all dma channels }
 
 { read definitions for dmaconr }
-{ bits 0-8 correspnd to dmaconw definitions }
+{ bits 0-8 correspond to dmaconw definitions }
 
     DMAF_BLTDONE    = $4000;
     DMAF_BLTNZERO   = $2000;
@@ -554,7 +554,7 @@ Const
 
     INTB_SETCLR     = 15;   { Set/Clear control bit. Determines if bits }
                 { written with a 1 get set or cleared. Bits }
-                { written with a zero are allways unchanged }
+                { written with a zero are always unchanged  }
     INTB_INTEN      = 14;   { Master interrupt (enable only ) }
     INTB_EXTER      = 13;   { External interrupt }
     INTB_DSKSYNC    = 12;   { Disk re-SYNChronized }

packages/amunits/src/coreunits/iffparse.pas

@@ -133,7 +133,7 @@ Type
 {
  * Collection Item: the actual node in the collection list at which
  * client will look.  The next pointers cross context boundaries so
- * that the complete list is accessable.
+ * that the complete list is accessible.
  }
        pCollectionItem = ^tCollectionItem;
        tCollectionItem = record

packages/amunits/src/coreunits/intuition.pas

@@ -17,7 +17,7 @@
 
 {
    History:
-   Changed tNewWindow.MaxHeigth and tNewWindow.MaxWidth
+   Changed tNewWindow.MaxHeight and tNewWindow.MaxWidth
    from Word to Integer.
    30 May 2000.
 
@@ -571,8 +571,8 @@ Type
 
     { these are the variables that Intuition sets and maintains }
 
-        CWidth          : Word;        { Container width (with any relativity absoluted) }
-        CHeight         : Word;        { Container height (with any relativity absoluted) }
+        CWidth          : Word;        { Container width (with any relativity obsoleted) }
+        CHeight         : Word;        { Container height (with any relativity obsoleted) }
         HPotRes,
         VPotRes         : Word;        { pot increments }
         LeftBorder      : Word;        { Container borders }
@@ -3046,7 +3046,7 @@ CONST
 
     { (BOOL) When set indicates that the application wants to
      * be notified of mouse movements while the gadget is active.
-     * It is recommmended that GA_Immediate and GA_RelVerify are
+     * It is recommended that GA_Immediate and GA_RelVerify are
      * also used so that the active gadget can be tracked by the
      * application.  Defaults to FALSE. }
     GA_FollowMouse     =  (GA_Dummy + $0017);
@@ -3148,7 +3148,7 @@ CONST
          Defaults to NULL. New for V44.  }
 
      GA_UserInput = GA_Dummy + 46;
-  { (BOOL) Notification tag indicates this notification is from the activite
+  { (BOOL) Notification tag indicates this notification is from the activity
            gadget receiving user input - an attempt to make IDCMPUPDATE more efficient.
          Defaults to FALSE. New for V44.  }
 { PROPGCLASS attributes }
@@ -3403,7 +3403,7 @@ Type
 
 {***************************************************************************}
 
-{ The GM_KEYTEST method is used to determin if a key press matches an
+{ The GM_KEYTEST method is used to determine if a key press matches an
  * object's activation key(s). }
 
 { GM_KEYTEST send this message.
@@ -4706,7 +4706,7 @@ end;
 
 
 
-{ The next functons _BGPEN AND _FGPEN aren't a full replacement of the
+{ The next functions _BGPEN AND _FGPEN aren't a full replacement of the
   C macros because the C preprocessor makes it possible to set the
   A/BPen values of the image class objects as well. This can't work
   in pascal, of course! }

packages/amunits/src/coreunits/locale.pas

@@ -168,7 +168,7 @@ Type
     { for currency symbols }
     loc_MonCS,                              { currency symbol              }
     loc_MonSmallCS,                         { symbol for small amounts     }
-    loc_MonIntCS        : STRPTR;           { internationl (ISO 4217) code }
+    loc_MonIntCS        : STRPTR;           { international (ISO 4217) code}
 
     { for positive monetary values }
     loc_MonPositiveSign : STRPTR;           { indicate positive money value   }

packages/amunits/src/coreunits/lowlevel.pas

@@ -18,7 +18,7 @@
     History:
 
     Added functions and procedures with array of const.
-    For use with fpc 1.0.7. Thay are in systemvartags.
+    For use with fpc 1.0.7. They are in systemvartags.
     11 Nov 2002.
 
     Added the defines use_amiga_smartlink and
@@ -134,7 +134,7 @@ Const
  JP_DIRECTION_MASK = JPF_JOY_UP OR JPF_JOY_DOWN OR JPF_JOY_LEFT OR JPF_JOY_RIGHT;
 
 { Mouse position reports, valid for JP_TYPE_MOUSE }
- JP_MHORZ_MASK     = 255;        { horzizontal position }
+ JP_MHORZ_MASK     = 255;        { horizontal position  }
  JP_MVERT_MASK     = 65280;      { vertical position    }
  JP_MOUSE_MASK     = JP_MHORZ_MASK OR JP_MVERT_MASK;
 

packages/amunits/src/coreunits/parallel.pas

@@ -87,8 +87,8 @@ Const
     IOPARF_QUEUED       = 64;   {     "     rqst-queued mask }
     IOPARB_ABORT        = 5;    {     "     rqst-aborted bit }
     IOPARF_ABORT        = 32;   {     "     rqst-aborted mask }
-    IOPARB_ACTIVE       = 4;    {     "     rqst-qued-or-current bit }
-    IOPARF_ACTIVE       = 16;   {     "     rqst-qued-or-current mask }
+    IOPARB_ACTIVE       = 4;    {     "     rqst-queued-or-current bit }
+    IOPARF_ACTIVE       = 16;   {     "     rqst-queued-or-current mask }
     IOPTB_RWDIR         = 3;    { IO_STATUS read=0,write=1 bit }
     IOPTF_RWDIR         = 8;    {     "     read=0,write=1 mask }
     IOPTB_PARSEL        = 2;    {     "     printer selected on the A1000 }

packages/amunits/src/coreunits/scsidisk.pas

@@ -93,7 +93,7 @@ uses exec;
  *              HD_WIDESCSI;
  *
  *      There are optional restrictions on the alignment, bus
- *      accessability, and size of the data for the data phase.
+ *      accessibility, and size of the data for the data phase.
  *      Be conservative to work with all manufacturer's controllers.
  *
  *------------------------------------------------------------------}
@@ -111,7 +111,7 @@ Type
     tSCSICmd = record
         scsi_Data       : Pointer; { word aligned data for SCSI Data Phase }
                                    { (optional) data need not be byte aligned }
-                                   { (optional) data need not be bus accessable }
+                                   { (optional) data need not be bus accessible }
         scsi_Length     : ULONG;   { even length of Data area }
                                    { (optional) data can have odd length }
                                    { (optional) data length can be > 2**24 }
@@ -155,7 +155,7 @@ Const
     HFERR_BadStatus     = 45;   { status and/or sense error }
 
 {----- OpenDevice io_Error values -----}
-    HFERR_NoBoard       = 50;   { Open failed for non-existant board }
+    HFERR_NoBoard       = 50;   { Open failed for non-existent board }
 
 IMPLEMENTATION
 

packages/amunits/src/coreunits/serial.pas

@@ -110,7 +110,7 @@ const
   SERB_PARTY_ON       = 0;                     // parity-enabled
   SERF_PARTY_ON       = 1 shl SERB_PARTY_ON;
 
-// These now refect the actual bit positions in the TIOExtSer.io_Status LongWord
+// These now reflect the actual bit positions in the TIOExtSer.io_Status LongWord
   IO_STATB_XOFFREAD   = 12;                       // receive currently xOFF'ed
   IO_STATF_XOFFREAD   = 1 shl IO_STATB_XOFFREAD;
   IO_STATB_XOFFWRITE  = 11;                       // transmit currently xOFF'ed
@@ -160,7 +160,7 @@ const
   IOSERF_QUEUED   = 1 shl IOSERB_QUEUED;
   IOSERB_ABORT    = 5;                     // rqst-aborted
   IOSERF_ABORT    = 1 shl IOSERB_ABORT;
-  IOSERB_ACTIVE   = 4;                     // rqst-qued-OR-current
+  IOSERB_ACTIVE   = 4;                     // rqst-queued-OR-current
   IOSERF_ACTIVE   = 1 shl IOSERB_ACTIVE;
 
   SERIALNAME: PAnsiChar = 'serial.device';

packages/amunits/src/coreunits/timer.pas

@@ -41,7 +41,7 @@ uses exec;
 
 Const
 
-{ unit defintions }
+{ unit definitions }
     UNIT_MICROHZ        = 0;
     UNIT_VBLANK         = 1;
     UNIT_ECLOCK         = 2;

packages/amunits/src/coreunits/utility.pas

@@ -18,7 +18,7 @@
     History:
 
     Added functions and procedures with array of const.
-    For use with fpc 1.0.7. Thay are in systemvartags.
+    For use with fpc 1.0.7. They are in systemvartags.
     11 Nov 2002.
 
 
@@ -227,7 +227,7 @@ const
 
 
 { Macros used by the next batch of macros below. Normally, you don't use
- * this batch directly. Then again, some folks are wierd
+ * this batch directly. Then again, some folks are weird
  }
 
 

packages/amunits/src/coreunits/workbench.pas

@@ -28,7 +28,7 @@
     17 Aug 2000.
 
     Added functions and procedures with array of const.
-    For use with fpc 1.0.7. Thay are in systemvartags.
+    For use with fpc 1.0.7. They are in systemvartags.
     05 Nov 2002.
 
     Removed amigaoverlays, use smartlink instead.
@@ -238,7 +238,7 @@ Type
     am_UserData      : ULONG;            {    application specific }
     am_ID            : ULONG;            {    application definable ID }
     am_NumArgs       : ULONG;            {    # of elements in arglist }
-    am_ArgList       : pWBArgList;       {    the arguements themselves }
+    am_ArgList       : pWBArgList;       {    the arguments themselves }
     am_Version       : Word;              {    will be AM_VERSION }
     am_Class         : Word;              {    message class }
     am_MouseX        : smallint;              {    mouse x position of event }

packages/amunits/src/otherlibs/cybergraphics.pas

@@ -92,7 +92,7 @@ const
      CYBRMATTR_DEPTH = $80000007;
   { returns -1 if supplied bitmap is a cybergfx one  }
      CYBRMATTR_ISCYBERGFX = $80000008;
-  { returns -1 if supplied bitmap is linear accessable  }
+  { returns -1 if supplied bitmap is linear accessible  }
      CYBRMATTR_ISLINEARMEM = $80000009;
   {
      Parameters for GetCyberIDAttr()
@@ -118,13 +118,13 @@ const
      CYBRMREQ_MinDepth = CYBRMREQ_TB + 0;
   { Maximum depth  "       "        "  }
      CYBRMREQ_MaxDepth = CYBRMREQ_TB + 1;
-  { Minumum width  "       "        "  }
+  { Minimum width  "       "        "  }
      CYBRMREQ_MinWidth = CYBRMREQ_TB + 2;
   { Maximum width  "       "        "  }
      CYBRMREQ_MaxWidth = CYBRMREQ_TB + 3;
-  { Minumum height "       "        "  }
+  { Minimum height "       "        "  }
      CYBRMREQ_MinHeight = CYBRMREQ_TB + 4;
-  { Minumum height "       "        "  }
+  { Minimum height "       "        "  }
      CYBRMREQ_MaxHeight = CYBRMREQ_TB + 5;
      CYBRMREQ_CModelArray = CYBRMREQ_TB + 6;
      CYBRMREQ_WinTitle = CYBRMREQ_TB + 20;

packages/amunits/src/otherlibs/mui.pas

@@ -107,7 +107,7 @@ interface
      !        +--Coloradjust     (several gadgets to adjust a color)
      !        +--Palette         (complete palette gadget)
      !        +--Popstring       (base class for popup objects)
-     !           +--Popobject    (popup aynthing in a separate window)
+     !           +--Popobject    (popup anything in a separate window)
      !           !  +--Poplist   (popup a simple listview)
      !           !  \--Popscreen (popup a list of public screens)
      !           \--Popasl       (popup an asl requester)
@@ -3381,7 +3381,7 @@ uses exec, intuition,utility,agraphics,iffparse;
        MUIMRI_TRUECOLOR = 1 shl 1;
     {
        If mri_Flags & MUIMRI_THINFRAMES, MUI uses thin frames
-       (1:1) apsect ratio instead of standard 2:1 frames.
+       (1:1) aspect ratio instead of standard 2:1 frames.
      }
        MUIMRI_THINFRAMES = 1 shl 2;
     {
@@ -3517,7 +3517,7 @@ function MUIPen(pen : longint): longint;
 ** object-data like rastport, window, etc.
 **
 ** NOTE: These macros may only be used in custom classes and are
-** only valid if your class is inbetween the specified methods!
+** only valid if your class is in between the specified methods!
 *)
 
 function OBJ_App(obj : APTR) : pObject_;       (* valid between MUIM_Setup/Cleanup *)

packages/amunits/src/otherlibs/ttengine.pas

@@ -189,7 +189,7 @@ const
      TTRQ_InitialLeftEdge = $6EDA2007;
   { WORD,             centered on screen  }
      TTRQ_InitialTopEdge = $6EDA2008;
-  { WORD,             max(200, 25% of sceeen width)  }
+  { WORD,             max(200, 25% of screen width)  }
      TTRQ_InitialWidth = $6EDA2009;
   { WORD,             max(200, 50% of screen height)  }
      TTRQ_InitialHeight = $6EDA200A;

packages/amunits/src/otherlibs/xadmaster.pas

@@ -466,7 +466,7 @@ const
 
      PxadSpecialAmigaAddress = ^txadSpecialAmigaAddress;
      txadSpecialAmigaAddress = record
-          xfis_JumpAddress : ULONG;      { code executaion start address  }
+          xfis_JumpAddress : ULONG;      { code execution start address  }
           xfis_DecrunchAddress : ULONG;  { decrunch start of code  }
        end;
 
@@ -706,7 +706,7 @@ const
      XADCBM8BITTYPE_BASIC = $01;
   { Tape - Data block (SEQ file)  }
      XADCBM8BITTYPE_DATA = $02;
-  { Tape - Fixed addres program file  }
+  { Tape - Fixed address program file  }
      XADCBM8BITTYPE_FIXED = $03;
   { Tape - Sequential data file  }
      XADCBM8BITTYPE_SEQDATA = $04;

packages/amunits/src/utilunits/doublebuffer.pas

@@ -40,7 +40,7 @@ unit doublebuffer;
         so it's transparent to RastPorts.
 
         When you have finished, call CloseDoubleBuffer.  If you
-        close the window and screen seperately it might crash
+        close the window and screen separately it might crash
         (I'm not sure), but you'll definitely lose memory.
 
         One last point: GfxBase must be open before you call

packages/arosunits/src/agraphics.pas

@@ -496,7 +496,7 @@ type
     Scroll_Y: SmallInt;
     cr,
     cr2,
-    crnew: PClipRect;              // used by dedice
+    crnew: PClipRect;              // used by device
     SuperSaveClipRects: PClipRect; // preallocated cr's
     _cliprects: PClipRect;         // system use during refresh
     LayerInfo: PLayer_Info;        // points to head of the list
@@ -1138,7 +1138,7 @@ const
   EXACT_LINE = 1;
   HALF_LINE  = 2;
 // Copper commands
-  COPPER_MOVE = 0;     // pseude opcode for move #XXXX,dir
+  COPPER_MOVE = 0;     // pseudo opcode for move #XXXX,dir
   COPPER_WAIT = 1;     // pseudo opcode for wait y,x
   CPRNXTBUF   = 2;     // continue processing with next buffer
   CPR_NT_SYS  = $2000; // copper user instruction only
@@ -1210,7 +1210,7 @@ const
   MVP_OK           =  0; // you want to see this one
   MVP_NO_MEM       =  1; // insufficient memory for intermediate workspace
   MVP_NO_VPE       =  2; // ViewPort does not have a ViewPortExtra, and insufficient memory to allocate a temporary one.
-  MVP_NO_DSPINS    =  3; // insufficient memory for intermidiate copper instructions.
+  MVP_NO_DSPINS    =  3; // insufficient memory for intermediate copper instructions.
   MVP_NO_DISPLAY   =  4; // BitMap data is misaligned for this viewport's mode and depth - see AllocBitMap().
   MVP_OFF_BOTTOM   =  5; // PRIVATE - you will never see this.
 { MrgCop() will return an error if there is not enough memory,
@@ -1737,7 +1737,7 @@ const
   VTAG_USERCLIP_GET      = $80000023;
   VTAG_USERCLIP_SET      = $80000024;
   VTAG_USERCLIP_CLR      = $80000025;
-// The following tags are V39 specific. They will be ignored (returing error -3) by earlier versions
+// The following tags are V39 specific. They will be ignored (returning error -3) by earlier versions
   VTAG_PF1_BASE_GET             =  $80000026;
   VTAG_PF2_BASE_GET             =  $80000027;
   VTAG_SPEVEN_BASE_GET          =  $80000028;

packages/arosunits/src/amigados.pas

@@ -67,7 +67,7 @@ const
 // Buffering types for SetVBuf().
   BUF_LINE    = 0; // Flush at the end of lines '\n'.
   BUF_FULL    = 1; // Flush only when buffer is full.
-  BUF_NONE    = 2; // Do not buffer, read and write immediatly.
+  BUF_NONE    = 2; // Do not buffer, read and write immediately.
 
 type
   PDateStamp = ^TDateStamp;
@@ -190,7 +190,7 @@ const
   ID_SFS_BE_DISK         = $53465300; // 'SFS#0'
   ID_SFS_LE_DISK         = $73667300; // 'sfs#0'
 { These are the return codes used by convention by AmigaDOS commands
-  See FAILAT and IF for relvance to EXECUTE files}
+  See FAILAT and IF for relevance to EXECUTE files}
     // No Problem, success
   RETURN_OK              =  0;
   { Program succeeded, but there was something not quite right.
@@ -219,7 +219,7 @@ const
 //Errors concerning ReadArgs().
   ERROR_BAD_TEMPLATE             = 114; // Supplied template is broken
   ERROR_BAD_NUMBER               = 115; { A supplied argument that was expected to be numeric, was not numeric.
-                                          This is also returned by some functions to expresss that a supplied
+                                          This is also returned by some functions to express that a supplied
                                           number is out of range (ie to express application internal errors).}
   ERROR_REQUIRED_ARG_MISSING     = 116; // An argument that has to be supplied (ie signed with the '/A' flag) was not supplied.
   ERROR_KEY_NEEDS_ARG            = 117; // Keyword was specified, but not its contents.
@@ -319,7 +319,7 @@ const
   LINK_SOFT =   1;
 
 { Relative position to Seek() }
-  OFFSET_BEGINNING = -1; // relative to Begining Of File
+  OFFSET_BEGINNING = -1; // relative to Beginning Of File
   OFFSET_CURRENT   =  0; // relative to Current file position
   OFFSET_END       =  1; // relative to End Of File
 
@@ -411,7 +411,7 @@ type
     an_Child,           // The next anchor
     an_Parent: PAChain; // The last anchor
     an_Lock: BPTR;      // Lock of this anchor
-    an_Info: TFileInfoBlock; // fib Discribing this anchor
+    an_Info: TFileInfoBlock; // fib Describing this anchor
     an_Flags: ShortInt;      // se below
     an_String: array[0..0] of AnsiChar;
   end;
@@ -532,9 +532,9 @@ const
   EXT_RELREF16   = 131;
   EXT_REF8       = 132; // 8bit relative reference to symbol
   EXT_RELREF8    = 132;
-  EXT_DEXT32     = 133; // 32 bit data releative reference
-  EXT_DEXT16     = 134; // 16 bit data releative reference
-  EXT_DEXT8      = 135; // 8 bit data releative reference
+  EXT_DEXT32     = 133; // 32 bit data relative reference
+  EXT_DEXT16     = 134; // 16 bit data relative reference
+  EXT_DEXT8      = 135; // 8 bit data relative reference
   EXT_RELREF32   = 136; // 32bit relative reference to symbol
   EXT_RELCOMMON  = 137; // 32bit relative reference to common block
   EXT_ABSREF16   = 138;
@@ -597,7 +597,7 @@ type
     pr_CES: BPTR;                // Error stream - IF NULL, use pr_COS
   end;
 
-{ Flags for pr_Flags. (all PRIVATE) They mainly descibe what happens if the process
+{ Flags for pr_Flags. (all PRIVATE) They mainly describe what happens if the process
   exits, i.e. which resources the process should clean itself. The flags
   are self-explaining.}
 const
@@ -1052,7 +1052,7 @@ type
   PExAllControl = ^TExAllControl;
   TExAllControl = record
     eac_Entries: ULONG;     // number of entries returned in buffer
-    eac_LastKey: IPTR;      // Don't touch inbetween linked ExAll calls!
+    eac_LastKey: IPTR;      // Don't touch in between linked ExAll calls!
     eac_MatchString: PAnsiChar; // wildcard string for pattern match OR nil
     eac_MatchFunc: PHook;   // optional private wildcard FUNCTION
   end;
@@ -1462,7 +1462,7 @@ type
     rn_RestartSeg: APTR;         // SegList for the disk validator process
     rn_Info: BPTR;               // Pointer ot the Info structure
     rn_FileHandlerSegment: BPTR; // segment for a file handler
-    rn_CliList: TMinList;        // List of all CLI processe (CliProcList)
+    rn_CliList: TMinList;        // List of all CLI processes (CliProcList)
     rn_BootProc: PMsgPort;       // private ptr to msgport of boot fs
     rn_ShellSegment: BPTR;       // seglist for Shell (for NewShell)
     rn_Flags: LongInt;           // dos flags
@@ -1588,7 +1588,7 @@ type
   TIFS_EXAMINE_NEXT = record
     io_fib: PFileInfoBlock; // FileInfoBlock structure buffer to be used and filled by the filehandler.
   end;
-{ Works exactly like FSA_EXAMINE with the exeption that multiple files may be
+{ Works exactly like FSA_EXAMINE with the exception that multiple files may be
    examined, i.e. the filehandle must be a directory.}
   PIFS_EXAMINE_ALL = ^TIFS_EXAMINE_ALL;
   TIFS_EXAMINE_ALL = record
@@ -1904,7 +1904,7 @@ const
 type
   //*
   //* Define one of ELF_64BIT or ELF_32BIT in your code if you want to enforce specific
-  //* version of ELF structures. Otherwize it fails back to your native machine's size.
+  //* version of ELF structures. Otherwise it fails back to your native machine's size.
   //*
   {$IFDEF ELF_64BIT}
   {$define elf_ptr_t}

packages/arosunits/src/commodities.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     Copyright (c) 2016 by Free Pascal development team
 
-    comodities.library functions
+    commodities.library functions
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -94,7 +94,7 @@ const
   CX_TRANSLATE  = 5; // translates IE into chain
   CX_BROKER     = 6; // application representative
   CX_DEBUG      = 7; // dumps kprintf to serial port
-  CX_CUSTOM     = 8; // application provids function
+  CX_CUSTOM     = 8; // application provides function
   CX_ZERO       = 9; // system terminator node
 
 type

packages/arosunits/src/cybergraphics.pas

@@ -95,7 +95,7 @@ const
   CYBRMATTR_HEIGHT       = $80000006; // returns height in lines
   CYBRMATTR_DEPTH        = $80000007; // returns bits per pixel
   CYBRMATTR_ISCYBERGFX   = $80000008; // returns -1 if supplied bitmap is a cybergfx one
-  CYBRMATTR_ISLINEARMEM  = $80000009; // returns -1 if supplied bitmap is linear accessable
+  CYBRMATTR_ISLINEARMEM  = $80000009; // returns -1 if supplied bitmap is linear accessible
   CYBRMATTR_PIXFMT_ALPHA = $8000000A;
 // Parameters for GetCyberIDAttr()
   CYBRIDATTR_PIXFMT     = $80000001; // the pixel format is returned
@@ -108,10 +108,10 @@ const
   //  FilterTags
   CYBRMREQ_MinDepth    = CYBRMREQ_TB + 0; // Minimum depth for displayed screenmode
   CYBRMREQ_MaxDepth    = CYBRMREQ_TB + 1; // Maximum depth  "       "        "
-  CYBRMREQ_MinWidth    = CYBRMREQ_TB + 2; // Minumum width  "       "        "
+  CYBRMREQ_MinWidth    = CYBRMREQ_TB + 2; // Minimum width  "       "        "
   CYBRMREQ_MaxWidth    = CYBRMREQ_TB + 3; // Maximum width  "       "        "
-  CYBRMREQ_MinHeight   = CYBRMREQ_TB + 4; // Minumum height "       "        "
-  CYBRMREQ_MaxHeight   = CYBRMREQ_TB + 5; // Minumum height "       "        "
+  CYBRMREQ_MinHeight   = CYBRMREQ_TB + 4; // Minimum height "       "        "
+  CYBRMREQ_MaxHeight   = CYBRMREQ_TB + 5; // Minimum height "       "        "
   CYBRMREQ_CModelArray = CYBRMREQ_TB + 6;
   CYBRMREQ_WinTitle    = CYBRMREQ_TB + 20;
   CYBRMREQ_OKText      = CYBRMREQ_TB + 21;

packages/arosunits/src/datatypes.pas

@@ -72,7 +72,7 @@ const
 
   // Text, formatted or not
   GID_TEXT = Ord('t') shl 24 + Ord('e') shl 16 + Ord('x') shl 8 + Ord('t'); // text
-  ID_ASCII = Ord('a') shl 24 + Ord('s') shl 16 + Ord('c') shl 8 + Ord('i'); // asci
+  ID_ASCII = Ord('a') shl 24 + Ord('s') shl 16 + Ord('c') shl 8 + Ord('i'); // ASCII
 
   // Formatted text combined with graphics or other DataTypes
   GID_DOCUMENT = Ord('d') shl 24 + Ord('o') shl 16 + Ord('c') shl 8 + Ord('u'); // docu
@@ -202,7 +202,7 @@ const
   DTA_VertUnit       = DTA_Dummy + 14; // (LongInt) Number of pixels per vertical unit
   DTA_TopHoriz       = DTA_Dummy + 15; // (LongInt) Top horizontal unit
   DTA_VisibleHoriz   = DTA_Dummy + 16; // (LongInt) Number of visible horizontal units
-  DTA_TotalHoriz     = DTA_Dummy + 17; // (LongInt) Total number of horiziontal units
+  DTA_TotalHoriz     = DTA_Dummy + 17; // (LongInt) Total number of horizontal units
   DTA_HorizUnit      = DTA_Dummy + 18; // (LongInt) Number of pixels per horizontal unit
   DTA_NodeName       = DTA_Dummy + 19; // (PByte) Name of the current element within the object
   DTA_Title          = DTA_Dummy + 20; // (STRPTR) Object's title

packages/arosunits/src/exec.pas

@@ -83,7 +83,7 @@ const
 // END of part from utility move
 
 const
-// There is a problem with Boolean vaules in taglists, just use this for now instead
+// There is a problem with Boolean values in taglists, just use this for now instead
   LTrue : LongInt = 1;
   LFalse: LongInt = 0;
 
@@ -395,7 +395,7 @@ const
 
 // expansion.library
   AN_ExpansionLib     = $0A000000;
-  AN_BadExpansionFree = $0A000001; // freeed free region
+  AN_BadExpansionFree = $0A000001; // freed free region
 
 // ramlib.library
   AN_RAMLib       = $08000000;
@@ -682,7 +682,7 @@ type
 { definition for entry Magic in Messages
   Magic is introduced to prevent Multiple Ports, for example if you´r using
   ScreenNotifications and DecorNotifications you must have two Ports as long
-  as you cannot figure out which Messsage ist posted. With Magic this is no
+  as you cannot figure out which Message ist posted. With Magic this is no
   problem.}
 const
   MAGIC_DECORATOR    = $8000001;
@@ -1089,7 +1089,7 @@ type
 //***** Dynamic System Variables **********************************
     ThisTask: PTask;        // pointer to current task (readable)
     IdleCount,              // idle counter
-    DispCount: ULONG;       // dispatch coutner
+    DispCount: ULONG;       // dispatch counter
     Quantum,                // time slice quantum
     Elapsed,                // current quantum ticks
     SysFlags: Word;         // misc internal system flags

packages/arosunits/src/gadtools.pas

@@ -320,7 +320,7 @@ CONST
  GTMN_SecondaryError =  GT_TagBase+63; { ti_Data is a pointer
                 to a LongWord to receive error reports from CreateMenus() }
  GT_Underscore     =   GT_TagBase+64; { ti_Data points to the symbol
-                that preceeds the character you'd like to underline in a
+                that precedes the character you'd like to underline in a
                 gadget label }
 
 { New to V39 GadTools.  Ignored by GadTools V36 and V37 }

packages/arosunits/src/hardware.pas

@@ -475,7 +475,7 @@ Const
     ASHIFTSHIFT = 12;           { bits to right align ashift value }
     BSHIFTSHIFT = 12;           { bits to right align bshift value }
 
-{ definations for blitter control register 1 }
+{ definitions for blitter control register 1 }
 
     LINEMODE    = $01;
     FILL_OR     = $08;
@@ -530,7 +530,7 @@ Const
     DMAF_ALL        = $01FF;    { all dma channels }
 
 { read definitions for dmaconr }
-{ bits 0-8 correspnd to dmaconw definitions }
+{ bits 0-8 correspond to dmaconw definitions }
 
     DMAF_BLTDONE    = $4000;
     DMAF_BLTNZERO   = $2000;
@@ -555,7 +555,7 @@ Const
 
     INTB_SETCLR     = 15;   { Set/Clear control bit. Determines if bits }
                 { written with a 1 get set or cleared. Bits }
-                { written with a zero are allways unchanged }
+                { written with a zero are always unchanged  }
     INTB_INTEN      = 14;   { Master interrupt (enable only ) }
     INTB_EXTER      = 13;   { External interrupt }
     INTB_DSKSYNC    = 12;   { Disk re-SYNChronized }

packages/arosunits/src/icon.pas

@@ -41,7 +41,7 @@ const
   { Icon color remapping precision; defaults to PRECISION_ICON (LongInt)  }
   ICONCTRLA_SetGlobalPrecision = ICONA_Dummy + 4;
   ICONCTRLA_GetGlobalPrecision = ICONA_Dummy + 5;
-  { Icon frame size dimensions (PRectange)  }
+  { Icon frame size dimensions (PRectangle)  }
   ICONCTRLA_SetGlobalEmbossRect = ICONA_Dummy + 6;
   ICONCTRLA_GetGlobalEmbossRect = ICONA_Dummy + 7;
   { Render image without frame (BOOL)  }

packages/arosunits/src/iffparse.pas

@@ -109,7 +109,7 @@ type
 {
  * Collection Item: the actual node in the collection list at which
  * client will look.  The next pointers cross context boundaries so
- * that the complete list is accessable.
+ * that the complete list is accessible.
  }
        PCollectionItem = ^TCollectionItem;
        TCollectionItem = record

packages/arosunits/src/intuition.pas

@@ -367,8 +367,8 @@ type
     HorizBody: Word;    // horizontal Body
     VertBody: Word;     // vertical Body
     // these are the variables that Intuition sets and maintains
-    CWidth: Word;       // Container width (with any relativity absoluted)
-    CHeight: Word;      // Container height (with any relativity absoluted)
+    CWidth: Word;       // Container width (with any relativity obsoleted)
+    CHeight: Word;      // Container height (with any relativity obsoleted)
     HPotRes,
     VPotRes: Word;      // pot increments
     LeftBorder: Word;   // Container borders
@@ -1867,7 +1867,7 @@ type
     cl_InstSize: Word;
 
     cl_UserData: IPTR;          // per-class data of your choice, application specific
-    cl_SubclassCount: LongWord; // # of direct suclasses
+    cl_SubclassCount: LongWord; // # of direct sub classes
     cl_ObjectCount: LongWord;   // # of objects, made from this class must be 0, if the class is to be deleted
     cl_Flags: LongWord;         // Flags (CLF_INLIST)
     cl_ObjectSize: LongWord;    // cl_InstOffset + cl_InstSize + SizeOf(_Object)
@@ -1945,7 +1945,7 @@ const
 // Gadget activation.
   GA_Selected     = (GA_Dummy + $0013); // [ISG] (LongBool) Indicate whether the gadget is selected or not. Default = False
   GA_EndGadget    = (GA_Dummy + $0014); // [IS.] (LongBool) Only used for requester gadgets. This tells intuition that the requester is to be closed, when the gadget is released. Default = False
-  GA_Immediate    = (GA_Dummy + $0015); // [IS.] (LongBool) If set the gadget responds immediatly, when the gadget is selected. Default = False
+  GA_Immediate    = (GA_Dummy + $0015); // [IS.] (LongBool) If set the gadget responds immediately, when the gadget is selected. Default = False
   GA_RelVerify    = (GA_Dummy + $0016); // [IS.] (LongBool) If set the gadget responds, when it is released from selected state. Default = False
   GA_FollowMouse  = (GA_Dummy + $0017); // [IS.] (LongBool) If this is set, the gadget receives information about the movement of the mouse as long as it is activated. Default = False
   GA_RightBorder  = (GA_Dummy + $0018); // [IS.] (LongBool) Indicate whether the gadget is in the right border or not. Default = False.
@@ -1983,7 +1983,7 @@ const
   GA_ActivateKey = GA_Dummy + 43; // (PAnsiChar) Set/Get the gadgets shortcut/activation key(s) Default = nil
   GA_BackFill = GA_Dummy + 44; // (PHook) Backfill pattern hook. Defaults to nil.
   GA_GadgetHelpText = GA_Dummy + 45; // (PAnsiChar) RESERVERD/PRIVATE DO NOT USE. Default = nil
-  GA_UserInput = GA_Dummy + 46; // (LongBool) Notification tag indicates this notification is from the activite gadget receiving user input - an attempt to make IDCMPUPDATE more efficient.
+  GA_UserInput = GA_Dummy + 46; // (LongBool) Notification tag indicates this notification is from the activity gadget receiving user input - an attempt to make IDCMPUPDATE more efficient.
 // Aros Specifics
   GA_LabelPlace = GA_Dummy + 100; { [I..] (LongInt) Choose the placing of the label. GadgetClass does not support
      this directly. Its subclasses have to take care of that. For possible values see GV_* .}
@@ -2158,7 +2158,7 @@ type
     MethodID: LongWord;         // GM_GOINACTIVE
     gpgi_GInfo: PGadgetInfo;
     gpgi_Abort: LongWord; { Boolean field to indicate, who wanted the gadget to go inactive. If
-         this is 1 this method was sent, because intution wants the gadget to
+         this is 1 this method was sent, because intuition wants the gadget to
          go inactive, if it is 0, it was the gadget itself that wanted it.}
     pad_align: record end; // properly pad previous field if applicable
     {$POP}
@@ -2541,7 +2541,7 @@ type
     nd_Port: PMsgPort;
     nd_cnt: Word;
     nd_Pattern: STRPTR;
-    nd_IntPattern: STRPTR; // Private, transformated Pattern be dos/ParsePattern()
+    nd_IntPattern: STRPTR; // Private, transformed Pattern be dos/ParsePattern()
     nd_Window: PObject_;
     nd_Screen: PObject_;
     nd_Menu: PObject_;
@@ -2578,7 +2578,7 @@ const
   SNA_UserData = TAG_USER + $03; // this tag will be passed to the screennotify message
   SNA_SigTask  = TAG_USER + $04; // if port = nil, a sigbit will be set for this task
   SNA_SigBit   = TAG_USER + $05; // signal bit to set if port = nil
-  SNA_MsgPort  = TAG_USER + $06; // if <> nil post mesage to this port
+  SNA_MsgPort  = TAG_USER + $06; // if <> nil post message to this port
   SNA_Priority = TAG_USER + $07;
   SNA_Hook     = TAG_USER + $08;
 
@@ -3712,7 +3712,7 @@ begin
   FULLMENUNUM := ((Sub and $1f) shl 11) or ((Item and $3f) shl 5) or (Menu and $1f);
 end;
 
-{ The next functons _BGPEN AND _FGPEN aren't a full replacement of the
+{ The next functions _BGPEN AND _FGPEN aren't a full replacement of the
   C macros because the C preprocessor makes it possible to set the
   A/BPen values of the Image class objects as well. This can't work
   in pascal, of course!

packages/arosunits/src/locale.pas

@@ -75,7 +75,7 @@ type
     // Currency symbol
     loc_MonCS: STRPTR;             // Currency symbol (e.g. $)
     loc_MonSmallCS: STRPTR;        // Symbol for small amounts (eg. cent)
-    loc_MonIntCS: STRPTR;          // Internationl (ISO 4217) code (e.g. EUR/USD/GBP)
+    loc_MonIntCS: STRPTR;          // International (ISO 4217) code (e.g. EUR/USD/GBP)
 
     loc_MonPositiveSign: STRPTR;   // for positive money value
     loc_MonPositiveSpaceSep: Byte; // Separated by space (SS_*)

packages/arosunits/src/mui.pas

@@ -86,7 +86,7 @@ interface
      !        +--Coloradjust     (several gadgets to adjust a color)
      !        +--Palette         (complete palette gadget)
      !        +--Popstring       (base class for popup objects)
-     !           +--Popobject    (popup aynthing in a separate window)
+     !           +--Popobject    (popup anything in a separate window)
      !           !  +--Poplist   (popup a simple listview)
      !           !  \--Popscreen (popup a list of public screens)
      !           \--Popasl       (popup an asl requester)
@@ -447,7 +447,7 @@ const
   MPEN_TEXT       = 5;
   MPEN_FILL       = 6;
   MPEN_MARK       = 7;
-  MPEN_COUNT      = 8; // Number of pens, the single definintion is below
+  MPEN_COUNT      = 8; // Number of pens, the single definition is below
 
   MUIPEN_MASK     = $0000ffff;  // Mask for pens from MUI_ObtainPen()
 
@@ -535,13 +535,13 @@ type
 
   // Info about the display environment on which all Area Objects have a reference to it.
   TMUI_RenderInfo = record
-    mri_WindowObject: PObject_; // accessable in-between MUIM_Setup/MUIM_Cleanup
-    mri_Screen: PScreen;        // accessable in-between MUIM_Setup/MUIM_Cleanup
-    mri_DrawInfo: PDrawInfo;    // accessable in-between MUIM_Setup/MUIM_Cleanup
-    mri_Pens: PWord;            // accessable in-between MUIM_Setup/MUIM_Cleanup
-    mri_Window: PWindow;        // accessable in-between MUIM_Show/MUIM_Hide
-    mri_RastPort: PRastPort;    // accessable in-between MUIM_Show/MUIM_Hide
-    mri_Flags: LongWord;        // accessable in-between MUIM_Setup/MUIM_Cleanup
+    mri_WindowObject: PObject_; // accessible in-between MUIM_Setup/MUIM_Cleanup
+    mri_Screen: PScreen;        // accessible in-between MUIM_Setup/MUIM_Cleanup
+    mri_DrawInfo: PDrawInfo;    // accessible in-between MUIM_Setup/MUIM_Cleanup
+    mri_Pens: PWord;            // accessible in-between MUIM_Setup/MUIM_Cleanup
+    mri_Window: PWindow;        // accessible in-between MUIM_Show/MUIM_Hide
+    mri_RastPort: PRastPort;    // accessible in-between MUIM_Show/MUIM_Hide
+    mri_Flags: LongWord;        // accessible in-between MUIM_Setup/MUIM_Cleanup
 
     // the following stuff is private
     mri_Colormap: PColorMap;
@@ -582,7 +582,7 @@ const
   // Flags for mri_Flags
   MUIMRI_RECTFILL    = 1 shl 0; // If mri_Flags and MUIMRI_RECTFILL, RectFill() is quicker than Move()/Draw() for horizontal or vertical lines. on the current display.
   MUIMRI_TRUECOLOR   = 1 shl 1; // If mri_Flags and MUIMRI_TRUECOLOR, display environment is a cybergraphics emulated hicolor or true color display.
-  MUIMRI_THINFRAMES  = 1 shl 2; // If mri_Flags and MUIMRI_THINFRAMES, MUI uses thin frames (1:1) apsect ratio instead of standard 2:1 frames.
+  MUIMRI_THINFRAMES  = 1 shl 2; // If mri_Flags and MUIMRI_THINFRAMES, MUI uses thin frames (1:1) aspect ratio instead of standard 2:1 frames.
   MUIMRI_REFRESHMODE = 1 shl 3; // If mri_Flags and MUIMRI_REFRESHMODE, MUI is currently refreshing a WFLG_SIMPLEREFRESH window and is between a BeginRefresh()/EndRefresh() pair.
 
 type
@@ -2042,7 +2042,7 @@ type
     mad_ccn: TMUI_EventHandlerNode;     // gross hack for control AnsiChar
     mad_ContextMenu: APTR;              // menu strip
     mad_ClickX: LongInt;                // x position of the initial SELECTDOWN click
-    mad_ClickY: LongInt;                // y position of the intiial SELECTDOWN click
+    mad_ClickY: LongInt;                // y position of the initial SELECTDOWN click
     mad_ContextZMenu: APTR;
     mad_hiehn: TMUI_EventHandlerNode;   // Eventhandler to simulate MUIM_HandleInput
 
@@ -4290,7 +4290,7 @@ function MUIPen(Pen: LongInt): LongInt;
 // object-data like rastport, window, etc.
 
 // NOTE: These macros may only be used in custom classes and are
-// only valid if your class is inbetween the specified methods!
+// only valid if your class is in between the specified methods!
 
 function OBJ_App(Obj: APTR): PObject_;        // valid between MUIM_Setup/Cleanup
 function OBJ_Win(Obj: APTR): PObject_;        // valid between MUIM_Setup/Cleanup

packages/arosunits/src/serial.pas

@@ -109,7 +109,7 @@ const
   SERB_PARTY_ON       = 0;                     // parity-enabled
   SERF_PARTY_ON       = 1 shl SERB_PARTY_ON;
 
-// These now refect the actual bit positions in the TIOExtSer.io_Status LongWord
+// These now reflect the actual bit positions in the TIOExtSer.io_Status LongWord
   IO_STATB_XOFFREAD   = 12;                       // receive currently xOFF'ed
   IO_STATF_XOFFREAD   = 1 shl IO_STATB_XOFFREAD;
   IO_STATB_XOFFWRITE  = 11;                       // transmit currently xOFF'ed
@@ -159,7 +159,7 @@ const
   IOSERF_QUEUED   = 1 shl IOSERB_QUEUED;
   IOSERB_ABORT    = 5;                     // rqst-aborted
   IOSERF_ABORT    = 1 shl IOSERB_ABORT;
-  IOSERB_ACTIVE   = 4;                     // rqst-qued-OR-current
+  IOSERB_ACTIVE   = 4;                     // rqst-queued-OR-current
   IOSERF_ACTIVE   = 1 shl IOSERB_ACTIVE;
 
   SERIALNAME: PAnsiChar = 'serial.device';

packages/arosunits/src/timer.pas

@@ -42,7 +42,7 @@ uses
 
 const
 
-{ unit defintions }
+{ unit definitions }
   UNIT_MICROHZ        = 0;
   UNIT_VBLANK         = 1;
   UNIT_ECLOCK         = 2;

packages/arosunits/src/workbench.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     Copyright (c) 2014 by Free Pascal development team
 
-    workbnech.library functions
+    workbench.library functions
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -164,7 +164,7 @@ type
     am_UserData: IPTR;               // Application specific.
     am_ID: IPTR;               // Application definable ID.
     am_NumArgs: LongInt;               // # of elements in arglist.
-    am_ArgList: PWBArgList;           // The arguements themselves.
+    am_ArgList: PWBArgList;           // The arguments themselves.
     am_Version: Word;              // Will be AM_VERSION.
     am_Class: Word;              // Message class.
     am_MouseX: SmallInt;               // Mouse x position of event.

packages/aspell/src/aspell.pp

@@ -254,7 +254,7 @@ uses
      * The speller class is expected to last until
      * this class is destroyed.
      * If config is given it will be used to override
-     * any relevent options set by this speller class.
+     * any relevant options set by this speller class.
      * The config class is not once this function is done.
      * If filter is given then it will take ownership of
      * the filter class and use it to do the filtering.

packages/aspell/src/aspelldyn.pp

@@ -260,7 +260,7 @@ var
        * The speller class is expected to last until
        * this class is destroyed.
        * If config is given it will be used to override
-       * any relevent options set by this speller class.
+       * any relevant options set by this speller class.
   is: function done.cdecl;
        * If filter is given then it will take ownership of
        * the filter class and use it to do the filtering.

packages/bfd/src/bfd.pas

@@ -63,7 +63,7 @@ change it, your changes will probably be lost.
 
 All the prototypes and definitions following the comment "THE FOLLOWING
 IS EXTRACTED FROM THE SOURCE" are extracted from the source files for
-BFD.  If you change it, someone oneday will extract it from the source
+BFD.  If you change it, someone one day will extract it from the source
 again, and your changes will be lost.  To save yourself from this bind,
 change the definitions in the source in the bfd directory.  Type "make
 docs" and then "make headers" in that directory, and magically this file
@@ -959,7 +959,7 @@ is in practice already 0 *)
   (* IBM 370/390 relocations *)
     BFD_RELOC_I370_D12,
 
-  (* The type of reloc used to build a contructor table - at the moment
+  (* The type of reloc used to build a constructor table - at the moment
   probably a 32 bit wide absolute relocation, but the target can choose.
   It generally does map to one of the other relocation types. *)
     BFD_RELOC_CTOR,
@@ -1189,11 +1189,11 @@ is in practice already 0 *)
     BFD_RELOC_V850_TDA_4_4_OFFSET,
 
   (* This is a 16 bit offset from the SmallInt data area pointer, with the
-  bits placed non-contigously in the instruction. *)
+  bits placed non-contiguously in the instruction. *)
     BFD_RELOC_V850_SDA_16_16_SPLIT_OFFSET,
 
   (* This is a 16 bit offset from the zero data area pointer, with the
-  bits placed non-contigously in the instruction. *)
+  bits placed non-contiguously in the instruction. *)
     BFD_RELOC_V850_ZDA_16_16_SPLIT_OFFSET,
 
   (* This is a 6 bit offset from the call table base pointer. *)
@@ -1353,7 +1353,7 @@ is in practice already 0 *)
   included in the output.
 
   VTABLE_INHERIT is a zero-space relocation used to describe to the
-  linker the inheritence tree of a C++ virtual function table.  The
+  linker the inheritance tree of a C++ virtual function table.  The
   relocation's symbol should be the parent class' vtable, and the
   relocation should be located at the child vtable.
 
@@ -1795,7 +1795,7 @@ is in practice already 0 *)
 
          (* If this field is non null, then the supplied function is
             called rather than the normal function. This allows really
-            strange relocation methods to be accomodated (e.g., i960 callj
+            strange relocation methods to be accommodated (e.g., i960 callj
             instructions). *)
     special_function: function( abfd: PBFD;
                                 reloc_entry: Parelent;
@@ -2240,7 +2240,7 @@ const
           <<BSF_LOCAL>>, <<BSF_FORT_COMM>>,  <<BSF_UNDEFINED>> or
           <<BSF_GLOBAL>> *)
 
-       (* The symbol is a debugging record. The value has an arbitary
+       (* The symbol is a debugging record. The value has an arbitrary
           meaning, unless BSF_DEBUGGING_RELOC is also set.  *)
   BSF_DEBUGGING  = $08;
 
@@ -2346,7 +2346,7 @@ procedure bfd_putl32(vma: bfd_vma; var val);cdecl; external BFD_LIB_NAME;
 procedure bfd_putb16(vma: bfd_vma; var val);cdecl; external BFD_LIB_NAME;
 procedure bfd_putl16(vma: bfd_vma; var val);cdecl; external BFD_LIB_NAME;
 
-(* Byte swapping routines which take size and endiannes as arguments.  *)
+(* Byte swapping routines which take size and endianness as arguments.  *)
 
 function  bfd_get_bits (a: Pbfd_byte; b:integer; c: bfd_boolean): bfd_vma;cdecl; external BFD_LIB_NAME;
 procedure bfd_put_bits (a: bfd_vma; b:Pbfd_byte; c:integer; d:bfd_boolean);cdecl; external BFD_LIB_NAME;
@@ -2667,7 +2667,7 @@ const
 //todo:#define bfd_get_section_size_after_reloc(section)    ((section)->reloc_done ? (section)->_cooked_size : (abort (), (bfd_size_type) 1))
 //todo:asection * bfd_get_section_by_name (PBFD abfd, const ShortInt *name));
 
-//todo:PAnsiChar bfd_get_unique_section_name (PBFD abfd, const ShortInt *templat,  integer *count));
+//todo:PAnsiChar bfd_get_unique_section_name (PBFD abfd, const ShortInt *template,  integer *count));
 
 //todo:asection * bfd_make_section_old_way (PBFD abfd, const ShortInt *name));
 

packages/bzip2/fpmake.pp

@@ -22,7 +22,7 @@ begin
     P.Version:='3.3.1';
 
     P.Author := 'Library: Julian R. Seward, header: Daniel Mantione';
-    // 3 clause becaue "prominent notice" is not required.
+    // 3 clause because "prominent notice" is not required.
     P.License := 'Library: 3 clause BSD, header: 3 clause BSD ';
     P.HomepageURL := 'www.freepascal.org';
     P.Email := '';

packages/bzip2/src/bzip2.pas

@@ -12,7 +12,7 @@ inpired by Julian R. Seward's libbzip2 library and therefore you should
 send credits to him and bug reports to me :)
 
 This code is licensed under the same terms as the original libbz2 library,
-which is decsribed in the file LICENSE. If you don't have this file, look
+which is described in the file LICENSE. If you don't have this file, look
 at http://www.freepascal.org for this bzip2 unit, the LICENSE file will
 be included. In case of problems, contact the author.
 

packages/bzip2/src/bzip2stream.pp

@@ -15,7 +15,7 @@ inpired by Julian R. Seward's libbzip2 library and therefore you should
 send credits to him and bug reports to me :)
 
 This code is licensed under the same terms as the original libbz2 library,
-which is decsribed in the file LICENSE. If you don't have this file, look
+which is described in the file LICENSE. If you don't have this file, look
 at http://www.freepascal.org for this bzip2 unit, the LICENSE file will
 be included. In case of problems, contact the author.
 

packages/cairo/src/cairo.pp

@@ -43,7 +43,7 @@ unit Cairo;
  *  by Jeffrey Pohlmeyer <[email protected]>
  *
  * - Updated to cairo version 1.4
- * - Grouped OS specific fuctions in separated units
+ * - Grouped OS specific functions in separated units
  * - Organized the functions by group and ordered exactly as the c header
  * - Cleared parameter list syntax according to pascal standard
  *

packages/cdrom/src/scsidefs.pp

@@ -161,7 +161,7 @@ const
 
   SCSI_GETDBSTAT  = $34; // Get Data Buffer Status (O)
   SCSI_GETWINDOW  = $25; // Get Window (O)
-  SCSI_OBJECTPOS  = $31; // Object Postion (O)
+  SCSI_OBJECTPOS  = $31; // Object Position (O)
   SCSI_SCAN       = $1B; // Scan (O)
   SCSI_SETWINDOW  = $24; // Set Window (MANDATORY)
 

packages/cdrom/src/wincd.pp

@@ -145,8 +145,8 @@ begin
     else
       {
         It is better to use SPTI on windows, but the problem with that
-        is that administrative priviledges are needed. A detection
-        algorithm for these priviledges here would be nice.
+        is that administrative privileges are needed. A detection
+        algorithm for these privileges here would be nice.
       }
       CurrentAccessMethod := camSPTI;
     end;

packages/chm/src/chmbase.pas

@@ -99,7 +99,7 @@ type
 
   PPMGListChunkEntry = ^TPMGListChunkEntry;
   TPMGListChunkEntry = record
-    //NameLength: LongInt; we don't need this permanantly so I've moved it to a temp var
+    //NameLength: LongInt; we don't need this permanently so I've moved it to a temp var
     Name: String;
     ContentSection: LongWord;//QWord;
     ContentOffset: QWord;

packages/chm/src/chmfiftimain.pas

@@ -649,7 +649,7 @@ var
   i,
   j: Integer;
   Doc: TIndexDocument;
-//  proced
+//  proceed
 begin
   StartPos := FWriteStream.Position;
   LastDocIndex := 0;

packages/chm/src/chmtypes.pas

@@ -167,7 +167,7 @@ type
   PTOCEntryPageBookInfo = ^TTOCEntryPageBookInfo;
   TTOCEntryPageBookInfo = record
     Unknown1: Word; //  = 0
-    EntryIndex: Word; // multiple entry info's can have this value but the TTocEntry it points to points back to the first item with this number. Wierd.
+    EntryIndex: Word; // multiple entry info's can have this value but the TTocEntry it points to points back to the first item with this number. Weird.
     Props: DWord; // BitField. See TOC_ENTRY_*
     TopicsIndexOrStringsOffset: DWord; // if TOC_ENTRY_HAS_LOCAL is in props it's the Topics Index
                                        // else it's the Offset In Strings of the Item Text

packages/chm/src/chmwriter.pas

@@ -1730,7 +1730,7 @@ function TChmWriter.AddTopicindex(ATitle, AnUrl: AnsiString; code: integer
 begin
    ATitle :=StringReplace(Atitle, '&x27;', '', [rfReplaceAll]);
 
-  // adhoc subsitutions. Replace with real code if exact behaviour is known.
+  // adhoc substitutions. Replace with real code if exact behaviour is known.
 {  Atitle:=StringReplace(atitle, '&x27;', '''', [rfReplaceAll]);
   if length(atitle)>0 then
     atitle[1]:=uppercase(atitle[1])[1];}
@@ -2060,7 +2060,7 @@ begin
   BlockInd:=0;
   if Indexblocknr>=length(blockn) then
     begin
-      setlength(blockn,length(blockn)+1);  // larger increments also possible. #blocks is kept independantly.
+      setlength(blockn,length(blockn)+1);  // larger increments also possible. #blocks is kept independently.
       fillchar(blockn[0][0],sizeof(blockn[0]),#0);
     end;
   p:=@Blockn[IndexBlockNr];
@@ -2455,7 +2455,7 @@ begin
 
   if totalentries<>0 then
      begin
-       // If there are no links of this type in the CHM then this will be a zero DWORD. Othewise it contains the following DWORDs: 0, 0, 0, 0xC, 1, 1, 0, 0. AFAICS this file is pretty much useless.
+       // If there are no links of this type in the CHM then this will be a zero DWORD. Otherwise it contains the following DWORDs: 0, 0, 0, 0xC, 1, 1, 0, 0. AFAICS this file is pretty much useless.
        // we already have written the first 0 dword
        propertystream.write(NToLE(0),sizeof(longint));
        propertystream.write(NToLE(0),sizeof(longint));

packages/chm/src/fasthtmlparser.pas

@@ -10,7 +10,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
                     FastHTMLParser unit to parse HTML
-                  (disect html into its tags and text.)
+                  (dissect html into its tags and text.)
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
@@ -53,7 +53,7 @@
      dynamically parse info from websites and display data on your site in real
      time.
     -HTML editor.. WYSIWYG or a partial WYSIWYG editor. Ambitious, but possible.
-    -HTML property editor. Not completely wysiwyg but ability to edit proprties
+    -HTML property editor. Not completely wysiwyg but ability to edit properties
      of tags. Work would need to be done to parse each property in a tag.
 
 

packages/chm/src/itolitlsreader.pas

@@ -457,7 +457,7 @@ begin
     Exit;
   end;
   if Name = '/' then
-    Exit; // wierd bug where written size and offset contain random data
+    Exit; // weird bug where written size and offset contain random data
   Entry := fCachedEntry;
 
 

packages/dbus/examples/busexample.pp

@@ -105,7 +105,7 @@ begin
   end;
   WriteLn('Match rule sent');
 
-  // loop listening for signals being emmitted
+  // loop listening for signals being emitted
   while (true) do
   begin
 

packages/dts/src/dts.pas

@@ -59,7 +59,7 @@ dts_state_t * dts_init (uint32_t mm_accel);
 Initializes the DTS library. Takes as a parameter the acceptable
 optimizations which may be used, such as MMX. These are found in the
 included header file 'mm_accel', along with an autodetection function
-(mm_accel()). Currently, there is no accelleration implemented.
+(mm_accel()). Currently, there is no acceleration implemented.
 
 The return value is a pointer to a dts state object.
 
@@ -71,7 +71,7 @@ int dts_syncinfo (uint8_t * buf, int * flags,
                   int * sample_rate, int * bit_rate, int * frame_length);
 
 The DTS bitstream is composed of several dts frames concatenated one
-after each other. A dts frame is the smallest independantly decodable
+after each other. A dts frame is the smallest independently decodable
 unit in the stream.
 
 buf must contain at least 14 bytes from the input stream. If these look

packages/fcl-async/src/libasync.inc

@@ -28,7 +28,7 @@ type
   TCallbackTypes = set of (cbRead, cbWrite);
 
 
-{ An implementation unit has to implement the following fordward procedures,
+{ An implementation unit has to implement the following forward procedures,
   and additionally asyncGetTicks }
 
 procedure InternalInit(Handle: TAsyncHandle); forward;

packages/fcl-base/examples/README.txt

@@ -67,8 +67,8 @@ ipcclient    Client part of SimpleIPC unit test, console app (MVC)
 testdebug    Client part of dbugintf debugging info test (MVC)
 testbf.pp    Test for BlowFish encryption (MVC)
 testbf2.pp    Test for BlowFish 2 encryption (MVC)
-testbfs.pp   Test for BlowFish encryption/descryption stream (MVC)
-testbf2s.pp   Test for BlowFish 2 encryption/descryption stream (MVC)
+testbfs.pp   Test for BlowFish encryption/decryption stream (MVC)
+testbf2s.pp   Test for BlowFish 2 encryption/decryption stream (MVC)
 testzip.pp   Test for TZipper class (MVC)
 poolmm1.pp   Test for pooledmm (free) (MG)
 poolmm2.pp   Test for pooledmm (nonfree) (VS)
@@ -76,7 +76,7 @@ testweb.pp   Test for fpcgi (MVC)
 daemon.pp    Test for daemonapp (MVC)
 testtimer.pp Test for TFPTimer (MVC)
 testini.pp   Test/Demo for inifiles, ReadSectionValues.
-contit.pp    Test/Demo for iterators in contnr.pp
+condition.pp    Test/Demo for iterators in contnr.pp
 csvbom.pp    Test/Demo for BOM detection in CSV document. (needs databom.txt)
 testappexit.pp Test/Demo for TApplication exit code handling. (ExitCode and ExceptionExitcode)
 demoio.pp    Demo for AssignStream from streamio unit.

packages/fcl-base/examples/testez.pp

@@ -55,12 +55,12 @@ end;
 // field name of the content being passed in a query string such as
 // "name" found in  //URL/CGI/cgiapp?name=bob
 //
-// Another routine is availble GetValue(Index, defaultValue : string);
+// Another routine is available GetValue(Index, defaultValue : string);
 // This routine does the same as the property Values except it allows
 // you to set a default value to be returned if no variable of type
 // name index is found.
 
-// This data is stored in a TStringList so you can retreive it by index
+// This data is stored in a TStringList so you can retrieve it by index
 // as well if you know the index location of the information.
 //
 // The properties for doing this are Names[index : integer] and

packages/fcl-base/src/base64.pp

@@ -360,7 +360,7 @@ begin
   ipos := Source.Position; // save position in input stream
   case Mode of
     bdmMIME:  begin
-      // read until end of input stream or first occurence of a '='
+      // read until end of input stream or first occurrence of a '='
       Result := ReadBase64ByteCount; // keep number of valid base64 bytes since last Reset in Result
       repeat
         count := Source.Read(scanBuf, SizeOf(scanBuf));

packages/fcl-base/src/bufstream.pp

@@ -409,7 +409,7 @@ begin
   // Are we already in a emergency write dirty pages ??
   if FEmergencyFlag then exit;
   FEmergencyFlag:=true;
-  // This procedure tries to save all dirty pages inconditional
+  // This procedure tries to save all dirty pages unconditional
   // because a write fail happens, so everything in cache will
   // be dumped to stream if possible, trying to save as much
   // information as possible.

packages/fcl-base/src/fpobserver.pp

@@ -160,7 +160,7 @@ Type
   Published
     // General component which can be set in Object Inspector
     Property ViewComponent : TComponent Read FViewComponent Write SetComponent;
-    // Punlish property so it can be set in Object Inspector
+    // Publish property so it can be set in Object Inspector
     Property ViewPropertyName;
   end;
 

packages/fcl-base/src/fptimer.pp

@@ -544,7 +544,7 @@ begin
     begin
     try
       // Cannot wait on thread in case
-      // 1.  this is called in a Synchonize method and the FThread is
+      // 1.  this is called in a Synchronize method and the FThread is
       //     about to run a synchronize method. In these cases we would have a deadlock
       // 2.  In a DLL and this is called as part of DLLMain, which never
       //     returns endthread (hence WaitFor) until DLLMain is exited

packages/fcl-base/src/maskutils.pp

@@ -80,7 +80,7 @@ type
   TMaskUtils = class(TObject)
   private
     FRealMask: String;
-    FMask: String;  // internal representatio of the mask
+    FMask: String;  // internal representation of the mask
     FValue: String;
     FMaskLength: Integer;
     FMaskSave: Boolean;
@@ -172,7 +172,7 @@ begin
   if (Length(AEditMask) >= 4) and (AEditMask[Length(AEditMask)-1] = MaskFieldSeparator) and
      (AEditMask[Length(AEditMask)-3] = MaskFieldSeparator) and
      (AEditMask[Length(AEditMask)-2] <> cMask_SpecialChar) and
-     //Length = 4 is OK (AEditMask = ";1;_" for example), but if Length > 4 there must be no escape charater in front
+     //Length = 4 is OK (AEditMask = ";1;_" for example), but if Length > 4 there must be no escape character in front
      ((Length(AEditMask) = 4) or ((Length(AEditMask) > 4) and (AEditMask[Length(AEditMask)-4] <> cMask_SpecialChar))) then
   begin
     ASpaceChar := AEditMask[Length(AEditMask)];
@@ -181,7 +181,7 @@ begin
   end
   //If not both FMaskSave and FSPaceChar are specified, then see if only FMaskSave is specified
   else if (Length(AEditMask) >= 2) and (AEditMask[Length(AEditMask)-1] = MaskFieldSeparator) and
-          //Length = 2 is OK, but if Length > 2 there must be no escape charater in front
+          //Length = 2 is OK, but if Length > 2 there must be no escape character in front
           ((Length(AEditMask) = 2) or ((Length(AEditMask) > 2) and (AEditMask[Length(AEditMask)-2] <> cMask_SpecialChar))) then
   begin
     AMaskSave := (AEditMask[Length(AEditMask)] <> MaskNoSave);
@@ -314,7 +314,7 @@ end;
 // Clear (virtually) a single char in position Position
 function TMaskUtils.ClearChar(Position: Integer): Char;
 begin
-  //For Delphi compatibilty, only literals remain, all others will be blanked
+  //For Delphi compatibility, only literals remain, all others will be blanked
   case CharToMask(FMask[Position]) Of
     Char_Number,
     Char_NumberFixed,
@@ -644,7 +644,7 @@ function TMaskUtils.ApplyMaskToText(AValue: String): String;
                     12@3              12-__@__
     cc-cc@cc        123-456@789       12-45@78
     !cc-cc@cc       123-456@789       23-56@89
-    This feauture seems to be invented for easy use of dates:
+    This feature seems to be invented for easy use of dates:
 
     99/99/00        23/1/2009         23/1_/20  <- if your locale DateSeparator = '/'
     !99/99/00       23/1/2009         23/_1/09  <- if your locale DateSeparator = '/'

packages/fcl-base/src/rtfdata.inc

@@ -30,7 +30,7 @@ Const
                 that only care about gross token distinctions.
         Major/minor numbers: Within their class, tokens have a major
                 number, and may also have a minor number to further
-                distinquish tokens with the same major number.
+                distinguish tokens with the same major number.
 
         *** Class, major and minor token numbers are all >= 0 ***
 

packages/fcl-base/src/syncobjs.pp

@@ -372,7 +372,7 @@ end;
 { THandleObject }
 
 constructor THandleObject.Create(UseComWait : Boolean=false);
-// cmompatibility shortcut constructor, Com waiting not implemented yet
+// compatibility shortcut constructor, Com waiting not implemented yet
 begin
   FHandle := BasicEventCreate(nil, True,False,'');
   if (FHandle=Nil) then

packages/fcl-base/tests/punit.pp

@@ -241,7 +241,7 @@ Function GetSuite(Const AName : TTestString; AParent : PSuite = Nil) : PSuite;ov
 // It is allowed to register the same function with different names
 Function AddTest(Const ATestName : TTestString; ARun : TTestRun; Const ASuiteName : TTestString = '') : PTest;
 Function AddTest(Const ATestName : TTestString; ARun : TTestRunProc; Const ASuiteName : TTestString = '') : PTest;
-// Same as above, only the suite is explitly given. It may not be nil.
+// Same as above, only the suite is explicitly given. It may not be nil.
 Function AddTest(Const ATestName : TTestString; ARUn : TTestRun; Const ASuite : PSuite) : PTest;
 Function AddTest(Const ATestName : TTestString; ARUn : TTestRunProc; Const ASuite : PSuite) : PTest;
 // Return the 0-Based index of ATestName in suite ASuitename. Returns -1 on error or if nor found.
@@ -1341,7 +1341,7 @@ begin
   Prev:=AResult.TestResult;
   AResult.TestResult:=AResultType;
   AResult.TestMessage:=AMessage;
-  // Only increas in case of switch from non-error -> error
+  // Only increase in case of switch from non-error -> error
   if (Prev In [trEmpty,trOK]) and not (AResult.TestResult In [trEmpty,trOK])  And (AResult.Test<>Nil) then
     if AResult.TestResult=trTestIgnore then
       Inc(CurrentRun.TestsIgnored)

packages/fcl-base/tests/utcbufferedfilestream.pp

@@ -29,8 +29,8 @@ var
   lEffectiveRead1: integer;
   lEffectiveRead2: integer;
 begin
-  b1[0]:=0; // Avoid initalization hint
-  b2[0]:=0; // Avoid initalization hint
+  b1[0]:=0; // Avoid initialization hint
+  b2[0]:=0; // Avoid initialization hint
   Result:=false;
   if aStream1.Size<>aStream2.Size then exit;
   aStream1.Position:=0;
@@ -100,7 +100,7 @@ var
   lCheckInitV: integer;
 begin
   Result := '';
-  b[0]:=#0; // Avoid initalization hint
+  b[0]:=#0; // Avoid initialization hint
   lBufferedStream:=TBufferedFileStream.Create(TEST_FILENAME,fmOpenRead or fmShareDenyWrite);
   lStream:=TFileStream.Create(TEST_FILENAME,fmOpenRead or fmShareDenyWrite);
   try

packages/fcl-base/texts/fptemplate.txt

@@ -218,7 +218,7 @@ begin//HTML template tag handling for an html template file
 			  //through table field names also)
     //insert the rows
     onerow := TagParams.Values['ONEROW'];//template for 1 row
-    //loop through the rows, it could be someting like "while not SQL1.EOF do"
+    //loop through the rows, it could be something like "while not SQL1.EOF do"
     while not EndOfRecords do
     begin
       ReplaceText := ReplaceText + StringReplace(StringReplace(onerow

packages/fcl-css/src/fpcsstree.pp

@@ -72,8 +72,8 @@ Type
     // absolute lengths
     cu_px,   // pixels
     cu_cm,   // centimeters
-    cu_mm,   // milimeters
-    cu_Q,    // quarter-milimeters
+    cu_mm,   // millimeters
+    cu_Q,    // quarter-millimeters
     cu_in,   // inches
     cu_pt,   // points (1pt = 1/72 of 1in)
     cu_pc,   // picas (1pc = 12 pt)
@@ -154,8 +154,8 @@ const
     // absolute lengths
     'px',   // pixels
     'cm',   // centimeters
-    'mm',   // milimeters
-    'Q',    // quarter-milimeters, Big Q!
+    'mm',   // millimeters
+    'Q',    // quarter-millimeters, Big Q!
     'in',   // inches
     'pt',   // points
     'pc',   // picas

packages/fcl-db/src/base/bufdataset.pas

@@ -640,7 +640,7 @@ type
     function IsReadFromPacket : Boolean;
     function getnextpacket : integer;
     function GetPacketReader(const Format: TDataPacketFormat; const AStream: TStream): TDataPacketReader; virtual;
-    // abstracts, must be overidden by descendents
+    // abstracts, must be overridden by descendents
     function Fetch : boolean; virtual;
     function LoadField(FieldDef : TFieldDef;buffer : pointer; out CreateBlob : boolean) : boolean; virtual;
     procedure LoadBlobIntoBuffer(FieldDef: TFieldDef;ABlobBuf: PBufBlobField); virtual; abstract;
@@ -1433,7 +1433,7 @@ begin
       // Issue 40450: At design time, create a dataset, set to active.
       // At runtime, open is called, but fields are not bound (this happens in createdataset)
       // So we check for unbound fields and bind them if needed.
-      // Do not call bindfields unconditonally, because descendants may have called it.
+      // Do not call bindfields unconditionally, because descendants may have called it.
       I:=0;
       DoBind:=False;
       While (Not DoBind) and (I<Fields.Count) do
@@ -2248,7 +2248,7 @@ procedure TCustomBufDataset.InitDefaultIndexes;
 {
   This procedure makes sure there are 2 default indexes:
   DEFAULT_ORDER, which is simply the order in which the server records arrived.
-  CUSTOM_ORDER, which is an internal index to accomodate the 'IndexFieldNames' property.
+  CUSTOM_ORDER, which is an internal index to accommodate the 'IndexFieldNames' property.
 }
 
 Var

packages/fcl-db/src/base/db.pas

@@ -2919,7 +2919,7 @@ function TLookupList.ValueOfKey(const AKey: Variant): Variant;
 
   Function VarArraySameValues(VarArray1,VarArray2 : Variant) : Boolean;
   // This only works for one-dimensional vararrays with a lower bound of 0
-  // and equal higher bounds wich only contains variants.
+  // and equal higher bounds which only contains variants.
   // The vararrays returned by GetFieldValues do apply.
   var i : integer;
   begin

packages/fcl-db/src/base/dbconst.pas

@@ -103,7 +103,7 @@ Resourcestring
   STooManyFields           = 'More fields specified than really exist';
   SErrNoInMemoryRefresh    = 'In-memory table cannot be refreshed.';
 
-  // These are added for Delphi-compatilility, but not used by the fcl:
+  // These are added for Delphi-compatibility, but not used by the fcl:
   SFieldIndexError         = 'Field index out of range';
   SIndexFieldMissing       = 'Cannot access index field ''%s''';
   SNoFieldIndexes          = 'No index currently active';

packages/fcl-db/src/base/dbwhtml.pp

@@ -600,7 +600,7 @@ begin
   CreateComboBox;
 end;
 
-{ THTMLProceder }
+{ THTMLProducer }
 
 function THTMLProducer.GetContent: String;
 

packages/fcl-db/src/base/fields.inc

@@ -518,7 +518,7 @@ end;
 procedure TField.FreeBuffers;
 
 begin
-  // Empty. Provided for backward compatibiliy;
+  // Empty. Provided for backward compatibility;
   // TDataset manages the buffers.
 end;
 

packages/fcl-db/src/base/sqlscript.pp

@@ -79,7 +79,7 @@ type
   protected
     procedure InternalStatement (Statement: TStrings; var StopExecution: Boolean); virtual;
     procedure InternalDirective (Directive, Argument: String; var StopExecution: Boolean); virtual;
-    // Runs commit. If ComitRetaining, use CommitRetraining if possible, else stop/starttransaction
+    // Runs commit. If CommitRetaining, use CommitRetraining if possible, else stop/starttransaction
     procedure InternalCommit(CommitRetaining: boolean=true); virtual;
     Function ProcessConditional(const Directive : String; const Param : String) : Boolean; virtual;
     procedure ProcessStatement; virtual;

packages/fcl-db/src/codegen/fpddpopcode.pp

@@ -59,7 +59,7 @@ Type
     procedure AddLine(ALine: String; Lines: TStrings); virtual;
     Function EscapeString(Const S : String) : string;
     procedure CreateClassDecl(Lines: TStrings); virtual;
-    // Data dictionare specific
+    // Data dictionary specific
     procedure CheckDatadict;
     procedure CreateFooter(Lines: TStrings);
     procedure CreateHeader(Lines: TStrings);

packages/fcl-db/src/dbase/dbf.pas

@@ -307,7 +307,7 @@ type
     function  GetRecordCount: Integer; override; {virtual}
     function  GetRecNo: Integer; override; {virtual}
     function  GetCanModify: Boolean; override; {virtual}
-    procedure SetRecNo(Value: Integer); override; {virual}
+    procedure SetRecNo(Value: Integer); override; {virtual}
     procedure SetFiltered(Value: Boolean); override; {virtual;}
     procedure SetFilterText(const Value: String); override; {virtual;}
 {$ifdef SUPPORT_DEFCHANGED}
@@ -1746,7 +1746,7 @@ begin
     if not DataSet.Active then
       DataSet.Open;
     DataSet.FieldDefs.Update;
-    // first get a list of physical field defintions
+    // first get a list of physical field definitions
     // we need it for numeric precision in case source is tdbf
     if DataSet is TDbf then
     begin
@@ -2856,7 +2856,7 @@ begin
 
   // disable current range if any
   FIndexFile.CancelRange;
-  // reretrieve previous and next records
+  // re-retrieve previous and next records
   Refresh;
 end;
 

packages/fcl-db/src/dbase/dbf_common.pas

@@ -137,7 +137,7 @@ procedure SwapInt64LE(Value, Result: Pointer); register;
 // Translate string between codepages
 function TranslateString(FromCP, ToCP: Cardinal; Src, Dest: PAnsiChar; Length: Integer): Integer;
 
-// Returns a pointer to the first occurence of Chr in Str within the first Length characters
+// Returns a pointer to the first occurrence of Chr in Str within the first Length characters
 // Does not stop at null (#0) terminator!
 function MemScan(const Buffer: Pointer; Chr: Byte; Length: Integer): Pointer;
 

packages/fcl-db/src/dbase/dbf_dbffile.pas

@@ -2136,8 +2136,8 @@ begin
           ldd := GetIntFromStrLength(PAnsiChar(Src) + 6, 2, 1);
           //if (ly<1900) or (ly>2100) then ly := 1900;
           //Year from 0001 to 9999 is possible
-          //everyting else is an error, an empty string too
-          //Do DateCorrection with Delphis possibillities for one or two digits
+          //everything else is an error, an empty string too
+          //Do DateCorrection with Delphis possibilities for one or two digits
           if (ldy < 100) and (PAnsiChar(Src)[0] = #32) and (PAnsiChar(Src)[1] = #32) then
             CorrectYear(ldy);
           try

packages/fcl-db/src/dbase/dbf_fields.pas

@@ -176,7 +176,7 @@ const
 (*
 The theory for Delphi/FPC is:
     ftSmallint  16 bits = -32768 to 32767
-                          123456 = 6 digit max theorically
+                          123456 = 6 digit max theoretically
                           DIGITS_SMALLINT = 6;
     ftInteger  32 bits = -2147483648 to 2147483647
                          12345678901 = 11 digits max

packages/fcl-db/src/dbase/dbf_idxfile.pas

@@ -2494,7 +2494,7 @@ begin
         FParsers[found + moveItems] := tempParser;
         FRoots[found + moveItems] := tempRoot;
         FLeaves[found + moveItems] := tempLeaf;
-        FIndexHeaderModified[found + moveItems] := false;    // non-existant header
+        FIndexHeaderModified[found + moveItems] := false;    // non-existent header
       end;
       // one entry less left
       IncWordLE(PMdxHdr(Header)^.TagsUsed, -1);

packages/fcl-db/src/dbase/dbf_memo.pas

@@ -220,7 +220,7 @@ procedure TMemoFile.Open;
 begin
   if not FOpened then
   begin
-    // memo pages count start from begining of file!
+    // memo pages count start from beginning of file!
     PageOffsetByHeader := false;
 
     // open physical file

packages/fcl-db/src/dbase/history.txt

@@ -608,7 +608,7 @@ V6.1.4
 ------------------------
 V6.1.3
 
-- chnge: same functionality, clearer implementation of autocreate in
+- change: same functionality, clearer implementation of autocreate in
     TDbf.InternalOpen
 - fixed: automagic creation of MDX indexes in TDbf.Indexes property if not exist
 - added: on creation of MDX indexes now automagically tries exclusive mode
@@ -709,7 +709,7 @@ V6.0.1
 - fixed: index bug using dbase III files
 - fixed: re-indexing existing (NDX) file fails
 - fixed: index bug (NDX) concerning expression index
-- chnge: TPagedFile.GetRecordCount now only retrieves file size if not in
+- change: TPagedFile.GetRecordCount now only retrieves file size if not in
     multi-user share mode, to speed up things a little bit
 - fixed: index bug splitting pages
 - fixed: page file set record count, now using pageoffset next page

packages/fcl-db/src/export/fpxmlxsdexport.pp

@@ -1505,7 +1505,7 @@ var
   //Contains xs:annotation for a table, which contains appinfo node with primary key info etc.
   XSDTableAppinfoNode: TDOMNode; //Contains xs:appinfo node for a table
   XSDTableDataColumnParent: TDOMNode;
-  //xs:sequenc node; contains all columns for a table.
+  //xs:sequence node; contains all columns for a table.
   XSDTableNode: TDOMNode;
   //Contains xs:Element for table, inside: primary key info etc, table data types
   XSDTableDataTypesNode: TDOMNode;
@@ -2036,7 +2036,7 @@ var
 
         FNode := FOutputDoc.CreateElement('xs:maxLength');
         { In Access, the WIDTH denotes the number of characters, not the byte count.
-        Therfore we use .Size, not .DataSize}
+        Therefore we use .Size, not .DataSize}
         TDOMElement(FNode).SetAttribute('value',
           IntToStr(ExportFields.Fields[ItemCounter].Field.Size));
         RestrictionNode.AppendChild(FNode);
@@ -2916,7 +2916,7 @@ begin
     'xmlns', 'urn:schemas-microsoft-com:office:spreadsheet');
   TDOMElement(FRootNode).SetAttribute(
     'xmlns:ss', 'urn:schemas-microsoft-com:office:spreadsheet');
-  // Add some style info for date/time fields that will be referered to by
+  // Add some style info for date/time fields that will be referred to by
   // the data cells
 
   ExcelStyles := FOutputDoc.CreateElement('Styles');

packages/fcl-db/src/json/fpjsondataset.pp

@@ -897,7 +897,7 @@ end;
 
 procedure TBaseJSONDataSet.InternalClose;
 begin
-  // disconnet and destroy field objects
+  // disconnect and destroy field objects
   BindFields (False);
   if DefaultFields then
     DestroyFields;

packages/fcl-db/src/paradox/paradox.pp

@@ -13,7 +13,7 @@
 {$mode objfpc}
 {$H+}
 {
-  TParadox : Dataset wich can handle paradox files, based on PXLib.
+  TParadox : Dataset which can handle paradox files, based on PXLib.
   pxlib is an open source C library for handling paradox files. It
   is available from sourceforge:
   http://pxlib.sourceforge.net/

packages/fcl-db/src/sdf/sdfdata.pp

@@ -36,15 +36,15 @@ Modifications
       Locate was changed to improve speed and some bug fixing too. Thanks for
          asking and testing Marcelo Castro
 16/Dec/01  Version 2.03 (Orlando Arrocha)
-           Fixed some bugs and added some recomentdations. Here is a list:
+           Fixed some bugs and added some recommendations. Here is a list:
       Quotations on the last field was not removed properly. Special thanks to
          Daniel Nakasone for helping with the solution.
       Appending first record to empty files was failing. Thanks again Daniel
          Nakasone for the report
       GetFieldData now trims the trailing spaces of the field, so users doesn't
-         needs to do it by themselves anymore. Thanks for the recomendation
+         needs to do it by themselves anymore. Thanks for the recommendation
          Juergen Gehrke.
-      FieldDefs is now available from the designer. Recomended by Leslie Drewery.
+      FieldDefs is now available from the designer. Recommended by Leslie Drewery.
                 ****** THANKS TO ALL & KEEP SENDING RECOMENDATIONS *****
 05/Oct/01  Version 2.02 (Ben Hay)
       Locate function : implement the virtual tdataset method "Locate".
@@ -67,7 +67,7 @@ Modifications
       Delimiter property added to TSdfDataSet. No more dependency on CommaText
          methodology -- choose your own delimiter.
       BufToStore/StoreToBuf methods lets you translate data records to and from
-         your propietary storage format.
+         your proprietary storage format.
       TTextDataSet removed dependencies.
       TBaseTextDataSet class removed. // TBaseTextDataSet = TFixedFormatDataSet;
                 ****** THANKS JOHN ******   ***** THANKS DIMMY *****
@@ -125,7 +125,7 @@ How to Install
     or a sub-folder.
  2. Install the TSdfDataSet and TFixedFormatDataSet components by choosing the
     Component | Install Component menu option.
- 3. Select the "Into exisiting package" page of the Install Components dialogue.
+ 3. Select the "Into existing package" page of the Install Components dialogue.
  4. Browse to the folder where you saved this file and select it.
  5. Ensure that the "Package file name" edit box contains $(DELPHI)\DCLUSR??.DPK
     or the one you prefer for DB related objects.

packages/fcl-db/src/sqldb/examples/fedittable.pp

@@ -37,7 +37,7 @@ begin
 
 // With these lines commented out, TSQLQuery creates the update, delete and insert
 // queries itself.
-// For more complex queries, though, it could be nessecary to provide these queries
+// For more complex queries, though, it could be necessary to provide these queries
 // here
 
 //    UpdateSQL.add('update fpdev set name=:name, birthdate=:birthdate where id=:OLD_id');

packages/fcl-db/src/sqldb/examples/readme.txt

@@ -3,7 +3,7 @@ In this directory you can find some examples for SQLdb. They can also be used
 to test functionality and new connections.
 
 To use these examples you need a working login to a DB-Server and have the
-appropiate client installed.  You have to change 'database.ini' to work with
+appropriate client installed.  You have to change 'database.ini' to work with
 the right database-engine and login-credentials.  Also check if the format
 of various dates matches the format your db expects.
 

packages/fcl-db/src/sqldb/interbase/fbadmin.pp

@@ -194,7 +194,7 @@ type
     property ErrorCode:longint read FErrorCode;
     //Errormsg returned in status vector or by TFBAdmin
     property ErrorMsg:string read FErrorMsg;
-    //Raise exceptions when error encounterd. Default: false
+    //Raise exceptions when error encountered. Default: false
     property UseExceptions:boolean read FUseExceptions write FUseExceptions;
     //Service output messages
     //Result from Backup and Restore operations and GetLog