Merge branch source:main into main

compiler/symconst.pas

@@ -939,7 +939,7 @@ inherited_objectoptions : tobjectoptions = [oo_has_virtual,oo_has_private,oo_has
        '$1byte$',
        '$emptyrec',
        '$llvmstruct$',
-       '$vmt_TStringMesssageTable$',
+       '$vmt_TStringMessageTable$',
        '$vmt_msgint_table_entries$',
        '$vmt_tmethod_name_table$',
        '$vmt_intern_msgint_table$',

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

@@ -5,7 +5,7 @@
     card.resource interface for m68k-amiga
 
     Pascal translation of:
-    card.h 1.11 (14.12.1992) 
+    card.h 1.11 (14.12.1992)
     (C) Copyright 1991-1999 Amiga, Inc.
 
     With misc. extensions from various other sources.
@@ -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;
@@ -207,7 +207,7 @@ procedure ReleaseCard(handle: PCardHandle location 'a1'; flags: Dword location '
 function GetCardMap: PCardMemoryMap; syscall CardResBase 18;
 function BeginCardAccess(handle: PCardHandle location 'a1'): longbool; syscall CardResBase 24;
 function EndCardAccess(handle: PCardHandle location 'a1'): longbool; syscall CardResBase 30;
-function ReadCardStatus: byte; syscall CardResBase 36; 
+function ReadCardStatus: byte; syscall CardResBase 36;
 function CardResetRemove(handle: PCardHandle location 'a1'; flag: dword location 'd0'): longbool; syscall CardResBase 42;
 function CardMiscControl(handle: PCardHandle location 'a1'; control_bits: dword location 'd1'): byte; syscall CardResBase 48;
 function CardAccessSpeed(handle: PCardHandle location 'a1'; nanoseconds: dword location 'd0'): dword; syscall CardResBase 54;

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 }
@@ -482,7 +482,7 @@ initialization
   GadToolsBase := OpenLibrary('gadtools.library', 36);
 finalization
   CloseLibrary(GadToolsBase);
-end. 
+end.
 
 
 

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
 
@@ -4055,7 +4055,7 @@ type
     proc: PObject_;
     pad_align: record end; // properly pad previous field if applicable
     {$POP}
-  end; 
+  end;
 
   TMUIP_Process_Signal = record  // record with stacked fields
     {$PUSH}{$IF DEFINED(CPU32)}{$CODEALIGN RECORDMIN=4}{$ELSEIF DEFINED(CPU64)}{$CODEALIGN RECORDMIN=8}{$ENDIF}
@@ -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

@@ -24,10 +24,10 @@ uses
 
 {$IFDEF UNIX}
   const libaspell = 'aspell';
-{$ELSE} 
+{$ELSE}
  {$IFDEF WINDOWS}
   const libaspell = 'aspell-15.dll';
- {$ELSE} 
+ {$ELSE}
   {$MESSAGE ERROR Target not supported'}
  {$ENDIF}
 {$ENDIF}
@@ -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.
@@ -437,7 +437,7 @@ uses
      * "decode", "dictionary", "language", and "keyboard".  }
 
     function aspell_reset_cache(which:PAnsiChar):cint;cdecl;external libaspell name 'aspell_reset_cache';
-    
+
   function aspell_init(const libn: ansistring): Boolean;
   function aspell_loaded: Boolean;
 

packages/aspell/src/aspelldyn.pp

@@ -30,10 +30,10 @@ uses
   {WARNING Is it possible to omit the path?}
   const libaspell = 'libaspell.dylib';
   {$ENDIF}
-{$ELSE} 
+{$ELSE}
  {$IFDEF WINDOWS}
   const libaspell = 'aspell-15.dll';
- {$ELSE} 
+ {$ELSE}
   {$MESSAGE ERROR Target not supported'}
  {$ENDIF}
 {$ENDIF}
@@ -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/aspell/src/spellcheck.pp

@@ -19,14 +19,14 @@ uses
 
 type
   TSuggestionArray = array of AnsiString;
-  
+
   TWordError = record
     Word: AnsiString; // the word itself
     Pos: LongWord; // word position in line
     Length: LongWord; // word length
     Suggestions: TSuggestionArray; // suggestions for the given word
   end;
-  
+
   TLineErrors = array of TWordError;
   TLineErrorsArray = array of TLineErrors;
 
@@ -50,7 +50,7 @@ type
     property Encoding: AnsiString read FEncoding write SetEncoding;
     property Language: AnsiString read FLanguage write SetLanguage;
   end;
-  
+
   { TWordSpeller }
 
   TWordSpeller = class(TSpeller) // class for simple per-word checking
@@ -64,7 +64,7 @@ type
    public
     function SpellCheck(const Word: AnsiString): TSuggestionArray; // use to check single words, parsed out by you
   end;
-  
+
   { TDocumentSpeller }
 
   TDocumentSpeller = class(TWordSpeller)
@@ -240,7 +240,7 @@ var
   Error: PAspellCanHaveError;
 begin
   inherited CreateSpeller;
-  
+
   Error := new_aspell_document_checker(FSpeller);
 
   if aspell_error_number(Error) <> 0 then
@@ -268,7 +268,7 @@ end;
 constructor TDocumentSpeller.Create;
 begin
   inherited Create;
-  
+
   FNameSuggestions := True;
 end;
 
@@ -297,13 +297,13 @@ begin
 
       if FNameSuggestions then
         DoNameSuggestions(Copy(aLine, Token.offset + 1, Token.len), Result[i]);
-        
+
       Inc(Count);
     end;
 
     Inc(i);
   until Token.len = 0;
-  
+
   SetLength(Result, Count);
 end;
 

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/examples/pasbunzip2.pas

@@ -15,7 +15,7 @@ program pasbunzip2;
  **********************************************************************}
 {$mode objfpc}{$H+}
 
-{ 
+{
 Example .bz2 file extractor.
 Decompresses a .bz2 file into another file using the classes-based bzip2stream unit
 Usage: bunzip2 compressedfile.bz2
@@ -37,7 +37,7 @@ begin
   try
     try
       Decompressed:=TDecompressBzip2Stream.Create(InFile);
-    except      
+    except
       // So[5mething went wrong, e.g. invalid format
       // Now get out of function with result false
       exit;
@@ -79,7 +79,7 @@ begin
     writeln('Decompressed '+CompressedFile+' to '+DecompressedFile);
   end
   else
-  begin  
+  begin
     writeln('An error occurred while decompressing '+CompressedFile);
     halt(1); // show error in exit code
   end;

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/bzip2comn.pp

@@ -4,7 +4,7 @@ unit bzip2comn;
 
 interface
 
-const 
+const
   max_groups     = 6;
   max_alpha_size = 258;
   max_code_len   = 23;
@@ -27,7 +27,7 @@ type
 const bzip2_stream_magic='BZh';
 
 {Error codes for stream errorinfo.}
-const 
+const
   bzip2_bad_header_magic        = 1;
   bzip2_bad_block_magic         = 2;
   bzip2_endoffile               = 3;

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.
 
@@ -69,7 +69,7 @@ Type
     cftab:array[0..257] of cardinal;
     mtfbase:array[0..256 div mtfl_size-1] of cardinal;
     mtfa:array[0..mtfa_size-1] of byte;
-    
+
     function get_bits(n:byte):byte;
     function get_boolean:boolean;
     function get_byte:byte;
@@ -90,12 +90,12 @@ Type
     Function consume_rle : Boolean; inline;
     Function rle_read(bufptr:Pbyte;count:Longint) : longint;
     Procedure Error(Msg : String; ACode : Integer);
-  Public  
+  Public
     Constructor Create(ASource : TStream);
     Destructor Destroy; override;
     function Read(var Buffer; Count: Longint): Longint; override;
   end;
-  
+
   EBzip2 = Class(Exception)
     ErrCode : Integer;
   end;
@@ -114,7 +114,7 @@ Resourcestring
   BZip2Initialize   = 'Invalid BZip2 stream: invalid header';
   SDecodingError    = 'Decoding error';
   SErrUnimplemented = 'Feature not implemented';
-  
+
 Constructor TDecompressBzip2Stream.Create(ASource: TStream);
 
 var magic:array[1..3] of AnsiChar;
@@ -143,7 +143,7 @@ begin
   BE.ErrCode:=ACode;
   Raise BE;
 end;
-   
+
 function TDecompressBzip2Stream.get_bits(n:byte):byte;
 
 var data:byte;
@@ -545,7 +545,7 @@ begin
       {Receive the mapping table.}
       receive_mapping_table;
       alphasize:=cardinal(inuse_count)+2;
-      
+
       {Receive the selectors. Raises exception}
       receive_selectors;
       {Undo the MTF values for the selectors.}
@@ -591,7 +591,7 @@ begin
   if decode_available=0 then
     Result:=new_block
   else
-    Result:=True;  
+    Result:=True;
 end;
 
 Function TDecompressBzip2Stream.rle_read(bufptr:Pbyte;Count:Longint) : LongInt;

packages/cairo/src/cairo.pp

@@ -39,25 +39,25 @@ unit Cairo;
  * Contributor(s):
  *	Carl D. Worth <[email protected]>
  *
- *  This FreePascal binding generated August 26, 2005 
+ *  This FreePascal binding generated August 26, 2005
  *  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
  *
  * By Luiz Américo Pereira Câmara
  * October 2007
  *
- * - Review of the unit according of cairo.h, cairo-svg.h, 
+ * - Review of the unit according of cairo.h, cairo-svg.h,
  *   cairo-pdf.h and cairo-ps.h
  * - Adding structures, enumerations, and methods missing.
  * - Translation and addition of cairo-tee.h, cairo-script.h,
  *   cairo-script-interpreter.h and cairo-gobject.h
  * - Updated to cairo version 1.12
  * By Valdinilson Lourenço da Cunha - November 2012
- * 
+ *
 *)
 
 {$mode ObjFpc}
@@ -281,7 +281,7 @@ type
     CAIRO_FONT_TYPE_QUARTZ,
     CAIRO_FONT_TYPE_USER
   );
-  
+
   cairo_pattern_type_t = (
     CAIRO_PATTERN_TYPE_SOLID,
     CAIRO_PATTERN_TYPE_SURFACE,
@@ -290,7 +290,7 @@ type
     CAIRO_PATTERN_TYPE_MESH,
     CAIRO_PATTERN_TYPE_RASTER_SOURCE
   );
-  
+
   cairo_surface_type_t = (
     CAIRO_SURFACE_TYPE_IMAGE,
     CAIRO_SURFACE_TYPE_PDF,
@@ -318,12 +318,12 @@ type
     CAIRO_SURFACE_TYPE_SUBSURFACE,
     CAIRO_SURFACE_TYPE_COGL
   );
-  
+
   cairo_svg_version_t = (
     CAIRO_SVG_VERSION_1_1,
     CAIRO_SVG_VERSION_1_2
   );
-  
+
   cairo_device_type_t = (
     CAIRO_DEVICE_TYPE_INVALID = -1,
     CAIRO_DEVICE_TYPE_DRM,
@@ -333,14 +333,14 @@ type
     CAIRO_DEVICE_TYPE_XLIB,
     CAIRO_DEVICE_TYPE_XML,
     CAIRO_DEVICE_TYPE_COGL,
-    CAIRO_DEVICE_TYPE_WIN32   
+    CAIRO_DEVICE_TYPE_WIN32
   );
-  
+
   cairo_surface_observer_mode_t = (
 	CAIRO_SURFACE_OBSERVER_NORMAL = 0,
 	CAIRO_SURFACE_OBSERVER_RECORD_OPERATIONS = $1
   );
-  
+
   cairo_region_overlap_t = (
     CAIRO_REGION_OVERLAP_IN,		(* completely inside region *)
     CAIRO_REGION_OVERLAP_OUT,		(* completely outside region *)
@@ -360,7 +360,7 @@ type
     CAIRO_PS_LEVEL_2,
     CAIRO_PS_LEVEL_3
   );
-  
+
   cairo_script_mode_t = (
     CAIRO_SCRIPT_MODE_ASCII,
     CAIRO_SCRIPT_MODE_BINARY
@@ -406,7 +406,7 @@ type
   Pcairo_script_interpreter_hooks_t   = ^cairo_script_interpreter_hooks_t;
   Pcairo_raster_source_acquire_func_t = ^cairo_raster_source_acquire_func_t;
   Pcairo_raster_source_release_func_t = ^cairo_raster_source_release_func_t;
-  
+
   cairo_destroy_func_t                           = procedure (data: Pointer); cdecl;
   cairo_write_func_t                             = function (closure: Pointer; data: PByte; length: LongWord): cairo_status_t; cdecl;
   cairo_read_func_t                              = function (closure: Pointer; data: PByte; length: LongWord): cairo_status_t; cdecl;
@@ -489,25 +489,25 @@ type
     data : Pcairo_path_data_t;
     num_data : LongInt;
   end;
-  
+
   cairo_rectangle_t = record
     x, y, width, height: Double;
   end;
-  
+
   cairo_rectangle_int_t = record
     x, y, width, height: LongInt;
   end;
-  
+
   cairo_rectangle_list_t = record
     status: cairo_status_t;
     rectangles: Pcairo_rectangle_t;
     num_rectangles: LongInt;
   end;
-  
+
   cairo_text_cluster_t = record
     num_bytes, num_glyphs: LongInt;
   end;
-  
+
   cairo_script_interpreter_hooks_t = record
     closure: Pointer;
     surface_create: csi_surface_create_func_t;
@@ -517,7 +517,7 @@ type
     show_page: csi_show_page_func_t;
     copy_page: csi_copy_page_func_t;
   end;
-  
+
 function cairo_version: LongInt; cdecl; external LIB_CAIRO;
 function cairo_version_string: PAnsiChar; cdecl; external LIB_CAIRO;
 //Helper function to retrieve decoded version

packages/cairo/src/cairoft.pp

@@ -1,11 +1,11 @@
 {$IFNDEF FPC_DOTTEDUNITS}
-unit CairoFT; 
+unit CairoFT;
 {$ENDIF FPC_DOTTEDUNITS}
 {
     This file is part of the Free Pascal libraries.
     Copyright (c) 2003-2008 by the Free Pascal development team
 
-    Translation of cairo-ft.h 
+    Translation of cairo-ft.h
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -18,7 +18,7 @@ unit CairoFT;
 
 Based on:
 
- Original translation of cairo-ft.h by Jeffrey Pohlmeyer 
+ Original translation of cairo-ft.h by Jeffrey Pohlmeyer
  updated to version 1.4 by Luiz Américo Pereira Câmara 2007
  updated to version 1.12 by Valdinilson Lourenço da Cunha 2012
 

packages/cairo/src/cairogobject.pp

@@ -53,7 +53,7 @@ uses Api.Cairo.Lib;
 uses cairo;
 {$ENDIF FPC_DOTTEDUNITS}
 
-const 
+const
 {$ifdef MSWINDOWS}
   LIB_CAIROGOBJECT = LIB_CAIRO;
   {$IFDEF FPC}

packages/cairo/src/cairowin32.pp

@@ -5,7 +5,7 @@ unit CairoWin32;
     This file is part of the Free Pascal libraries.
     Copyright (c) 2003-2008 by the Free Pascal development team
 
-    Translation of cairo-win32.h 
+    Translation of cairo-win32.h
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.

packages/cairo/src/cairoxlib.pp

@@ -5,7 +5,7 @@ unit CairoXlib;
     This file is part of the Free Pascal libraries.
     Copyright (c) 2003-2008 by the Free Pascal development team
 
-    Translation of cairo-ft.h 
+    Translation of cairo-ft.h
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -17,9 +17,9 @@ unit CairoXlib;
  **********************************************************************
 
  Translation of cairo-xlib.h version 1.4
- by Jeffrey Pohlmeyer 
+ by Jeffrey Pohlmeyer
  updated to version 1.4 by Luiz Américo Pereira Câmara 2007
- 
+
  - Translation and addition of cairo-xlib-xrender.h
  - updated to version 1.12
  by Valdinilson Lourenço da Cunha 2012
@@ -39,7 +39,7 @@ uses
 uses
   Cairo, x, xlib, xrender;
 {$ENDIF FPC_DOTTEDUNITS}
-  
+
 function  cairo_xlib_surface_create(dpy: PDisplay; drawable: TDrawable; visual: PVisual; width, height: LongInt): Pcairo_surface_t; cdecl; external LIB_CAIRO;
 function  cairo_xlib_surface_create_for_bitmap(dpy: PDisplay; bitmap: TPixmap; screen: PScreen; width, height: LongInt): Pcairo_surface_t; cdecl; external LIB_CAIRO;
 procedure cairo_xlib_surface_set_size(surface: Pcairo_surface_t; width, height: LongInt); cdecl; external LIB_CAIRO;

packages/cdrom/README.txt

@@ -13,8 +13,8 @@ The other units are support units, needed by various implementations.
 
 The unit presents 2 calls:
 
-Type 
-  TTocEntry = Record 
+Type
+  TTocEntry = Record
     min, sec, frame : Integer
   end;
   PTocEntry = ^TTocEntry;
@@ -41,7 +41,7 @@ extra entry at the end of the array, describing the lead-out.
 unit discid
 -----------
 
-The DISCID unit calculates a DISC-ID as needed by a freecddb server to 
+The DISCID unit calculates a DISC-ID as needed by a freecddb server to
 query for the contents of a disc.
 
 Function CDDBDiscID(Const CDTOC : Array of TTocEntry; Count : Integer) : integer ;
@@ -53,7 +53,7 @@ function can be used as input for this function.
 Function GetCDDBQueryString(Const Tracks : Array of TTocEntry; Count : Integer) : String;
 
 This function returns a query string as expected by a freecddb server.
-It consists of the disc id, number of tracks, and the frame fields of the 
+It consists of the disc id, number of tracks, and the frame fields of the
 TCDToc records in the tracks array.
 
 unit lincd
@@ -94,7 +94,7 @@ TTOCTrack = packed record
   trackNumber,
   rsvd2 : Byte;
   addr : Array[0..3] of byte;
-end;  
+end;
 
 TTOC = packed Record
   toclen : word;
@@ -106,7 +106,7 @@ end;
 Const
   AccessMethodNames : Array[TCDAccessMethod] of string
                     = ('None','ASPI','SPTI','IOCTL');
-                    
+
 Function  GetCDAccessMethod : TCDAccessMethod;
 
 Returns the current CD-rom detection method.
@@ -169,7 +169,7 @@ Bare translation of the scsidefs.h windows SDK header.
 cdromioctl.pp
 -------------
 
-This unit contains some records and constants defined in window's 
+This unit contains some records and constants defined in window's
 cdromioctl.h
 
 

packages/cdrom/src/fpcddb.pp

@@ -34,10 +34,10 @@ interface
 
 {$IFDEF FPC_DOTTEDUNITS}
 uses
-  System.Classes, System.SysUtils; 
+  System.Classes, System.SysUtils;
 {$ELSE FPC_DOTTEDUNITS}
 uses
-  Classes, SysUtils; 
+  Classes, SysUtils;
 {$ENDIF FPC_DOTTEDUNITS}
 
 Type

packages/cdrom/src/lincd.pp

@@ -1242,7 +1242,7 @@ begin
   {$endif}
   If DeviceMajor in [IDE0_MAJOR,IDE1_MAJOR,IDE2_MAJOR,IDE3_MAJOR] then
     Result:=TestCDRomIOCTL(Device)
-  else 
+  else
     begin
     Result:= DeviceMajor=SCSI_CDROM_MAJOR;
     If not Result then
@@ -1260,7 +1260,7 @@ begin
           fpClose(F);
         end;
       end;
-    end;  
+    end;
 end;
 
 Function TestCDRomIOCTL(Device : AnsiString) : Boolean;

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

@@ -34,9 +34,9 @@ uses
   Classes, SysUtils;
 {$ENDIF FPC_DOTTEDUNITS}
 
-const 
+const
   CHMPackageVersion = '3.3.1'; // to be put in readme
-  
+
 type
   {$PACKRECORDS C}
   TITSFHeader= record
@@ -51,12 +51,12 @@ type
     PosFromZero: QWord;
     Length: QWord;
   end;
-  
+
   //Version 3 has this qword. 2 does not
   TITSFHeaderSuffix = record
     Offset: QWord; // offset within file of content section 0
   end;
-  
+
   TITSPHeaderPrefix = record
     Unknown1: LongWord;// = $01FE
     Unknown2: LongWord;// = 0
@@ -64,7 +64,7 @@ type
     Unknown3: LongWord;// =0
     Unknown4: LongWord;// =0
   end;
-  
+
   TITSPHeader = record
     ITSPsig: array [0..3] of AnsiChar; // = 'ITSP'
     Version: LongWord;             // =1
@@ -85,9 +85,9 @@ type
     Unknown4: LongInt; // = -1
     Unknown5: LongInt; // = -1
   end;
-  
+
   TDirChunkType = (ctPMGL, ctPMGI, ctAOLL, ctAOLI, ctUnknown);
-  
+
   TPMGListChunk = record
     PMGLsig: array [0..3] of AnsiChar;
     UnusedSpace: Longword; ///!!! this value can also represent the size of quickref area in the end of the chunk
@@ -99,28 +99,28 @@ 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;
     DecompressedLength: QWord;
   end;
-  
+
   TPMGIIndexChunk = record
     PMGIsig: array [0..3] of AnsiChar;
     UnusedSpace: LongWord; // has a quickref area
   end;
-  
+
   TPMGIIndexChunkEntry = record
     Name: String;
     ListingChunk: DWord;
   end;
 
-  
+
 const
   ITSFHeaderGUID : TGuid = '{7C01FD10-7BAA-11D0-9E0C-00A0C922E6EC}';
   ITSFFileSig: array [0..3] of AnsiChar = 'ITSF';
-  
+
   ITSPHeaderGUID : TGuid = '{5D02926A-212E-11D0-9DF9-00A0C922E6EC}';
   ITSPHeaderSig: array [0..3] of AnsiChar = 'ITSP';
 
@@ -130,7 +130,7 @@ const
   // returns the number of bytes written to the stream
   function WriteCompressedInteger(const Stream: TStream; ANumber: DWord): DWord;
   function WriteCompressedInteger(Buffer: Pointer; ANumber: DWord): DWord;
-  
+
   // stupid needed function
   function ChmCompareText(const S1, S2: String): Integer; inline;
 
@@ -200,7 +200,7 @@ begin
   end;
 
   {$pop}
-  
+
   buf := @Value;
   Result := TheEnd+1;
   Move(Value, Buffer^, Result);

packages/chm/src/chmfiftimain.pas

@@ -395,7 +395,7 @@ constructor TChmSearchWriter.Create ( AStream: TStream;
 begin
   FStream := AStream;
   FWordList := AWordList;
-  FActiveLeafNode:=NIL; 
+  FActiveLeafNode:=NIL;
 end;
 
 destructor TChmSearchWriter.Destroy;
@@ -649,7 +649,7 @@ var
   i,
   j: Integer;
   Doc: TIndexDocument;
-//  proced
+//  proceed
 begin
   StartPos := FWriteStream.Position;
   LastDocIndex := 0;

packages/chm/src/chmfilewriter.pas

@@ -192,7 +192,7 @@ begin
     Writer.AppendIndex(FIndexStream);
     if MakeBinaryIndex then
     begin
-      Error(chmnote,'CHM has binary index');      
+      Error(chmnote,'CHM has binary index');
       Writer.AppendBinaryIndexFromSiteMap(FIndex,False);
     end;
   end;

packages/chm/src/chmsitemap.pas

@@ -159,17 +159,17 @@ type
     property InternalData: Dword read FInternalData write FInternalData;
     property ParentName : String read getparentname;
   end;
-  
+
 
   { TChmSiteMapTree }
   TSiteMapType = (stTOC, stIndex);
-  
+
   TSiteMapTag = (smtUnknown, smtNone, smtHTML, smtHEAD, smtBODY);
   TSiteMapTags = set of TSiteMapTag;
 
   TSiteMapBodyTag = (smbtUnknown, smbtNone, smbtUL, smbtLI, smbtOBJECT, smbtPARAM);
   TSiteMapBodyTags = set of TSiteMapBodyTag;
-  
+
   TLIObjectParamType = (ptName, ptLocal, ptKeyword);
 
   TChmSiteMap = class
@@ -627,7 +627,7 @@ begin
       WriteParam('Font', Font);
   Dec(Indent, 8);
   WriteString('</OBJECT>');
-  
+
   // And now the items
   if Items.Count > 0 then begin
     WriteString('<UL>');
@@ -637,9 +637,9 @@ begin
     Dec(Indent, 8);
     WriteString('</UL>');
   end;
-  
+
   WriteString('</BODY></HTML>');
-  
+
   AStream.Size := AStream.Position;
 end;
 

packages/chm/src/chmspecialfiles.pas

@@ -33,16 +33,16 @@ uses
 uses
   Classes, SysUtils, chmtypes;
 {$ENDIF FPC_DOTTEDUNITS}
-  
 
-  
+
+
   function WriteNameListToStream(const AStream: TStream; SectionNames: TSectionNames): Integer;
   function WriteControlDataToStream(const AStream: TStream; const LZXResetInterval, WindowSize, CacheSize: DWord): Integer;
   function WriteSpanInfoToStream(const AStream: TStream; UncompressedSize: QWord): Integer;
   function WriteTransformListToStream(const AStream: TStream): Integer;
   function WriteResetTableToStream(const AStream: TStream; ResetTableStream: TMemoryStream): Integer;
   function WriteContentToStream(const AStream: TStream; ContentStream: TStream): Integer;
-  
+
 implementation
 
 function WriteNameListToStream(const AStream: TStream; SectionNames: TSectionNames): Integer;
@@ -72,7 +72,7 @@ begin
     Inc(Size, 14);
     Inc(NEntries);
   end;
-  
+
   AStream.WriteWord(NToLE(Size));
   AStream.WriteWord(NToLE(NEntries));
   if snUnCompressed in SectionNames then begin
@@ -83,7 +83,7 @@ begin
     AStream.WriteWord(NToLE(Word(12)));
     AStream.Write(MSCompressedName[1], 13*2);
   end;
-  
+
   Result := Size * SizeOf(Word);
 end;
 

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
@@ -518,7 +518,7 @@ begin
   nav_style         :=getnextint(txt,ind,len,flags,valid_navigation_pane_style);
   navpanewidth      :=getnextint(txt,ind,len,flags,valid_navigation_pane_width);
   buttons           :=getnextint(txt,ind,len,flags,valid_buttons);
-  
+
   (* initialize arr[] *)
   arr[0] :=0;
   arr[1] :=0;
@@ -537,7 +537,7 @@ begin
     (* looking for a max 4 int followed by a closing "]" *)
     repeat
       if k > 0 then s2:=getnext(txt,ind,len);
-      
+
       j:=pos(']',s2);
       if j>0 then delete(s2,j,1);
       if length(trim(s2))>0 then
@@ -546,7 +546,7 @@ begin
       inc(k);
     until (bArr <> True) or (j<>0) or (ind>len);
   end;
-   
+
   left  :=arr[0];
   top   :=arr[1];
   right :=arr[2];

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.
 
 
@@ -139,7 +139,7 @@ uses
 {$IFDEF DEBUGLN_ON}
   // dummy, default debugging
   procedure debugproc(s: String);
-  // for custom debugging, assign this in your units 
+  // for custom debugging, assign this in your units
   var debugln: procedure(s: String) = debugproc;
 {$ENDIF}
 
@@ -152,7 +152,7 @@ type
   // when text  found in the HTML
   TOnFoundText = procedure(Text: AnsiString) of object;
 
-  // Lars's modified html parser, case insensitive or case sensitive 
+  // Lars's modified html parser, case insensitive or case sensitive
 
   { THTMLParser }
 
@@ -181,7 +181,7 @@ implementation
 
 // default debugging, do nothing, let user do his own by assigning DebugLn var
 procedure debugproc(s: String);
-begin 
+begin
 end;
 
 function CopyBuffer(StartIndex: PAnsiChar; Length: Integer): AnsiString;
@@ -216,11 +216,11 @@ end;
 
 { default dummy "do nothing" events if events are unassigned }
 procedure THTMLParser.NilOnFoundTag(NoCaseTag, ActualTag: AnsiString);
-begin 
+begin
 end;
 
 procedure THTMLParser.NilOnFoundText(Text: AnsiString);
-begin 
+begin
 end;
 
 function THTMLParser.CurrentPos: Integer;

packages/chm/src/htmlindexer.pas

@@ -143,7 +143,7 @@ begin
 end;
 
 Function CompareProcObj(Node1, Node2: Pointer): integer;
-var n1,n2 : TIndexedWord; 
+var n1,n2 : TIndexedWord;
 begin
   n1:=TIndexedWord(Node1); n2:=TIndexedWord(Node2);
   Result := CompareText(n1.theword, n2.theword);
@@ -157,12 +157,12 @@ end;
 
 { TIndexedWordList }
 function TIndexedWordList.AddGetWord(AWord: AnsiString; IsTitle: Boolean): TIndexedWord;
-var 
+var
 {$ifdef userb}
    key : AnsiString;
 {$else}
    n : TAVLTreeNode;
-{$endif}   
+{$endif}
 begin
   Result := nil;
   AWord := LowerCase(AWord);
@@ -182,7 +182,7 @@ begin
   if assigned(n) then
    result:=TIndexedWord(n.Data);
   {$endif}
-  
+
   if Result = nil then
   begin
     Inc(FTotalDifferentWordLength, Length(AWord));
@@ -323,7 +323,7 @@ procedure FreeObject(const Obj:TIndexedWord);
 begin
  obj.free;
 end;
- 
+
 
 destructor TIndexedWordList.Destroy;
 begin
@@ -390,17 +390,17 @@ procedure TIndexedWordList.ForEach(Proc:TForEachMethod);
 var key : AnsiString;
     val:TIndexedWord;
 {$else}
-var   
+var
     AVLNode   : TAVLTreeNode;
 {$endif}
 begin
  {$ifdef userb}
-    if favltree.FirstNode(key,val) then 
+    if favltree.FirstNode(key,val) then
       begin  // Scan it forward
         repeat
           proc(val);
         until not favltree.FindNext(key,val);
-      end;         
+      end;
  {$else}
    AVLNode:=fAVLTree.FindLowest;
    while (AVLNode<>nil) do
@@ -409,25 +409,25 @@ begin
         AVLNode:=FAVLTree.FindSuccessor(AVLNode)
       end;
  {$endif}
-end; 
+end;
 
-procedure TIndexedWordList.ForEach(Proc:TForEachProcedure;state:pointer); 
+procedure TIndexedWordList.ForEach(Proc:TForEachProcedure;state:pointer);
 
 {$ifdef userb}
 var key : AnsiString;
     val:TIndexedWord;
 {$else}
-var   
+var
     AVLNode   : TAVLTreeNode;
 {$endif}
 begin
  {$ifdef userb}
-    if favltree.FirstNode(key,val) then 
+    if favltree.FirstNode(key,val) then
       begin  // Scan it forward
         repeat
           proc(val,state);
         until not favltree.FindNext(key,val);
-      end;         
+      end;
  {$else}
    AVLNode:=fAVLTree.FindLowest;
    while (AVLNode<>nil) do
@@ -436,7 +436,7 @@ begin
         AVLNode:=FAVLTree.FindSuccessor(AVLNode)
       end;
   {$endif}
-end; 
+end;
 
 { TIndexedWord }
 function TIndexedWord.GetDocument ( TopicIndexNum: Integer ) : TIndexDocument;
@@ -492,7 +492,7 @@ begin
   if FLastEntry>=Length(WordIndex) Then
   SetLength(WordIndex, Length(WordIndex)+GrowSpeed);
   WordIndex[FLastEntry] := AIndex;
-  Inc(FLastEntry); 
+  Inc(FLastEntry);
 end;
 
 constructor TIndexDocument.Create ( ADocumentIndex: Integer ) ;
@@ -503,7 +503,7 @@ end;
 
 function TIndexDocument.GetWordIndex(i:integer):integer;
 begin
-  result:=WordIndex[i];  
+  result:=WordIndex[i];
 end;
 
 function TIndexDocument.getindexentries:integer;

packages/chm/src/htmlutil.pas

@@ -18,33 +18,33 @@
   See the file COPYING.FPC, included in this distribution,
   for details about the copyright.
 }
-{ modified from jsFastHtmlParser  for use with freepascal 
-  
+{ modified from jsFastHtmlParser  for use with freepascal
+
  Original Author:
   James Azarja
 
  Contributor:
   Lars aka L505
-  http://z505.com 
+  http://z505.com
 
  Note: this isn't perfect, it needs to be improved.. see comments  }
-  
+
 {$IFNDEF FPC_DOTTEDUNITS}
-unit HTMLUtil; 
+unit HTMLUtil;
 {$ENDIF FPC_DOTTEDUNITS}
 
-{$ifdef fpc} 
-{$MODE Delphi} 
+{$ifdef fpc}
+{$MODE Delphi}
 {$H+}
 {$endif}
 
 interface
 
 {$IFDEF FPC_DOTTEDUNITS}
-uses 
+uses
   System.SysUtils, System.StrUtils;
 {$ELSE FPC_DOTTEDUNITS}
-uses 
+uses
   SysUtils, strutils;
 {$ENDIF FPC_DOTTEDUNITS}
 
@@ -82,10 +82,10 @@ var
   S : PAnsiChar;
 begin
   P := PAnsiChar(Tag);
-  while P^ in ['<',' ',#9] do 
+  while P^ in ['<',' ',#9] do
     inc(P);
   S := P;
-  while Not (P^ in [' ','>',#0]) do 
+  while Not (P^ in [' ','>',#0]) do
     inc(P);
   if P > S then
     Result := CopyBuffer( S, P-S)
@@ -100,10 +100,10 @@ var
   S : PAnsiChar;
 begin
   P := PAnsiChar(uppercase(Tag));
-  while P^ in ['<',' ',#9] do 
+  while P^ in ['<',' ',#9] do
     inc(P);
   S := P;
-  while Not (P^ in [' ','>',#0]) do 
+  while Not (P^ in [' ','>',#0]) do
     inc(P);
   if P > S then
     Result := CopyBuffer( S, P-S)
@@ -142,7 +142,7 @@ begin
     // Skip spaces and '='
     while (P^ in ['=', ' ']) do
       inc(P);
-    
+
     while not (P^ in [' ','>',#0]) do
     begin
       if (P^ in ['"','''']) then
@@ -166,7 +166,7 @@ begin
     P:= PAnsiChar(Tag);
     S:= P;
     inc(S, Start);
- 
+
     result:= CopyBuffer(S, L);
   end;
 end;
@@ -184,7 +184,7 @@ begin
   P:= PAnsiChar(namevalpair);
   S:= StrPos(P, '=');
 
-  if S <> nil then     
+  if S <> nil then
   begin
     inc(S); // skip equal
     while S^ = ' ' do inc(S);  // skip any spaces after =
@@ -202,12 +202,12 @@ begin
       inc(P);
 
     if (P <> S) then { Thanks to Dave Keighan ([email protected]) }
-      Result:= CopyBuffer(S, P - S); 
+      Result:= CopyBuffer(S, P - S);
   end;
 end;
 
 
-{ return value of an attribute (attribname_ci), case ignored for NAME portion, but return value case is preserved } 
+{ return value of an attribute (attribname_ci), case ignored for NAME portion, but return value case is preserved }
 function GetVal(const tag, attribname_ci: string): string;
 var namevalpair: string;
 begin
@@ -222,7 +222,7 @@ end;
   BELOW FUNCTIONS ARE OBSOLETE OR RARELY NEEDED SINCE THEY EITHER CONTAIN BUGS
   OR THEY ARE TOO CASE SENSITIVE (FOR THE TAG NAME PORTION OF THE ATTRIBUTE  }
 
-{ James old buggy code for testing purposes. 
+{ James old buggy code for testing purposes.
   Bug: when finding 'ID', function finds "width", even though width <> "id" }
 function GetNameValPair_JAMES(tag, attribname_ci: string): string;
 var
@@ -247,9 +247,9 @@ begin
     while not (P^ in ['=',' ','>',#0]) do
       inc(P);
 
-    if (P^ = '=') then 
+    if (P^ = '=') then
        inc(P);
-    
+
     while not (P^ in [' ','>',#0]) do
     begin
 
@@ -303,9 +303,9 @@ begin
     while not (P^ in ['=',' ','>',#0]) do
       inc(P);
 
-    if (P^ = '=') then 
+    if (P^ = '=') then
       inc(P);
-    
+
     while not (P^ in [' ','>',#0]) do
     begin
 
@@ -320,13 +320,13 @@ begin
       while not (P^ in [C, '>', #0]) do
         inc(P);
 
-      if (P^<>'>') then 
+      if (P^<>'>') then
         inc(P); { Skip current character, except '>' }
       break;
     end;
 
     if P > S then
-      Result:= CopyBuffer(S, P - S) 
+      Result:= CopyBuffer(S, P - S)
     else
       Result:= '';
   end;
@@ -344,13 +344,13 @@ end.
 { return value (case preserved) from a name=value pair, ignores case in given NAME= portion }
 function GetValFromNameVal(namevalpair: string): string;
 
-  type 
+  type
     TAttribPos = record
       startpos: longword; // start pos of value
       len: longword;      // length of value
     end;
 
-  { returns case insensitive start position and length of just the value 
+  { returns case insensitive start position and length of just the value
     substring in name=value pair}
   function ReturnPos(attribute: string): TAttribPos;
   var
@@ -363,20 +363,20 @@ function GetValFromNameVal(namevalpair: string): string;
     P:= PAnsiChar(uppercase(Attribute));
     // get substring including and everything after equal
     S:= StrPos(P, '=');
-    result.startpos:= pos('=', P); 
+    result.startpos:= pos('=', P);
 
     if S <> nil then
     begin
-      inc(S);  
+      inc(S);
       // set to character after =
       inc(result.startpos);
-      P:= S; 
+      P:= S;
 
       if (P^ in ['"','''']) then
       begin
         C:= P^;
-        // skip quote 
-        inc(P); 
+        // skip quote
+        inc(P);
         inc(result.startpos);
       end else
         C:= ' ';
@@ -386,7 +386,7 @@ function GetValFromNameVal(namevalpair: string): string;
       while not (P^ in [C, #0]) do
         inc(P);
 
-      if (P <> S) then 
+      if (P <> S) then
       begin
         result.len:= p - s;
       end;
@@ -394,7 +394,7 @@ function GetValFromNameVal(namevalpair: string): string;
 
   end;
 
-var 
+var
   found: TAttribPos;
 begin
   found:= ReturnPos(namevalpair);

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/chm/src/paslznonslide.pas

@@ -123,8 +123,8 @@ begin
   lzi^.block_buf_size := wsize + lzi^.max_dist;
   lzi^.block_buf := GetMem(lzi^.block_buf_size);
   lzi^.block_bufe := lzi^.block_buf + lzi^.block_buf_size;
-  
-  
+
+
   //assert(lzi^.block_buf != NULL);
 
   lzi^.cur_loc := 0;
@@ -151,7 +151,7 @@ end;
 procedure lz_reset(lzi: plz_info);
 var
   residual: longint;
-  
+
 begin
   residual := lzi^.chars_in_buf - lzi^.block_loc;
   move(PByte(lzi^.block_buf)[lzi^.block_loc], lzi^.block_buf[0], residual);
@@ -210,7 +210,7 @@ begin
 
   FillChar(prevtab[0], sizeof(prevtab) * lzi^.chars_in_buf, 0);
   FillChar(lentab[0], sizeof(prevtab) * lzi^.chars_in_buf, 0);
-  
+
   bbp := lzi^.block_buf;
   bbe := bbp + lzi^.chars_in_buf;
   while (bbp < bbe) do begin
@@ -283,7 +283,7 @@ begin
       bytes_to_move := lzi^.max_dist + residual;
       if (bytes_to_move > lzi^.chars_in_buf) then
 	bytes_to_move := lzi^.chars_in_buf;
- 
+
       move(PByte(lzi^.block_buf)[lzi^.chars_in_buf - bytes_to_move], lzi^.block_buf, bytes_to_move);
 
       lzi^.block_loc := bytes_to_move - residual;
@@ -338,7 +338,7 @@ begin
       Inc(lenp, len);
       Inc(lzi^.cur_loc, len);
       Inc(lzi^.block_loc, len);
-      
+
       //assert(nchars >= len);
 
       Dec(nchars, len);

packages/chm/src/paslzx.pas

@@ -53,14 +53,14 @@ uses
 uses
   Classes, SysUtils;
 {$ENDIF FPC_DOTTEDUNITS}
-  
+
 const
   DECR_OK = 0;
   DECR_DATAFORMAT =  1;
   DECR_ILLEGALDATA = 2;
   DECR_NOMEMORY = 3;
-  
-  
+
+
   // some constants defined by the LZX specification
   LZX_MIN_MATCH             =   2;
   LZX_MAX_MATCH             =   257;
@@ -73,7 +73,7 @@ const
   LZX_ALIGNED_NUM_ELEMENTS  =   8;  // aligned offset tree #elements
   LZX_NUM_PRIMARY_LENGTHS   =   7;  // this one missing from spec!
   LZX_NUM_SECONDARY_LENGTHS =   249;// length tree #elements
-  
+
   // LZX huffman defines: tweak tablebits as desired
   LZX_PRETREE_MAXSYMBOLS    = LZX_PRETREE_NUM_ELEMENTS;
   LZX_PRETREE_TABLEBITS     = 6;
@@ -85,14 +85,14 @@ const
   LZX_ALIGNED_TABLEBITS     = 7;
 
   LZX_LENTABLE_SAFETY       = 64; // we allow length table decoding overruns
-  
+
   extra_bits: array [0..50] of Byte = (
     0,  0,  0,  0,  1,  1,  2,  2,  3,  3,  4,  4,  5,  5,  6,  6,
     7,  7,  8,  8,  9,  9,  10, 10, 11, 11, 12, 12, 13, 13, 14, 14,
     15, 15, 16, 16, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
     17, 17, 17
   );
-  
+
   position_base: array [0..50] of dword = (
           0,       1,       2,      3,      4,      6,      8,     12,     16,     24,     32,       48,      64,      96,     128,     192,
         256,     384,     512,    768,   1024,   1536,   2048,   3072,   4096,   6144,   8192,    12288,   16384,   24576,   32768,   49152,
@@ -156,23 +156,23 @@ type
     LengthTable: TLZX_LENGTH_TABLE;
     AlignedTAble: TLZX_ALIGNED_TABLE;
   end;
-  
+
   // create an lzx state object
   function LZXinit(window: LongInt): PLZXState;
-  
+
   // destroy an lzx state object
   procedure LZXteardown(pState: PLZXState);
-  
+
   // reset an lzx stream
   function LZXreset(pState: PLZXState): LongInt;
-  
+
   function LZXdecompress(pState: PLZXstate; inpos, outpos: PByte; inlen, outlen: LongInt): LongInt;
 
 implementation
 
 const
   ULONG_BITS = sizeof(LongInt)shl 3;
-  
+
 function make_decode_table(nsyms: dword; nbits: dword; length: PByte; table: PWord): LongInt;
 var
   Sym: Word;
@@ -318,7 +318,7 @@ begin
     bits := TBufBits.Create;
     bits.bitbuf := lb^.bb;
     bits.bitsleft := lb^.bl;
-    
+
     inpos := lb^.ip;
 
 
@@ -356,7 +356,7 @@ begin
         else if (z = 18) then begin
             y := bits.read(5, inpos);
             Inc(y, 20);
-            while y > 0 do begin 
+            while y > 0 do begin
               dec(y);
               lens[x] := 0;
               inc(x);
@@ -394,8 +394,8 @@ begin
     Result := 0;
     bits.Free;
 end;
-  
-  
+
+
 //////////////////////////////////////////////////////////////////////////////////////
 
 function LZXinit(window: LongInt): PLZXState;
@@ -438,7 +438,7 @@ begin
     pState^.R0 := 1;
     pState^.R1 := 1;
     pState^.R2 := 1;
-    
+
     pState^.main_elements   := LZX_NUM_CHARS + (posn_slots shl 3);
     pState^.header_read     := 0;
     pState^.frames_read     := 0;
@@ -577,7 +577,7 @@ var
          Exit;
       end;
     end;
-    
+
 begin
     endinp := inpos + inlen;
     window := pState^.window;
@@ -587,7 +587,7 @@ begin
     R0 := pState^.R0;
     R1 := pState^.R1;
     R2 := pState^.R2;
-    
+
     togo := outlen;//, this_run, main_element, aligned_bits;
     bits := TBufBits.Create;
     bits.Init;
@@ -616,7 +616,7 @@ begin
             pState^.block_type := Word(bits.read(3, inpos));
             i := bits.read(16, inpos);
             j := bits.read(8, inpos);
-            
+
             pState^.block_length := (i shl 8) or j;
             pState^.block_remaining :=  pState^.block_length;
 

packages/chm/src/paslzxcomp.pas

@@ -55,16 +55,16 @@ uses paslznonslide;
   {
       File lzx_compress.h, part of lzxcomp library
       Copyright (C) 2002 Matthew T. Russotto
-  
+
       This program is free software; you can redistribute it and/or modify
       it under the terms of the GNU Lesser General Public License as published by
       the Free Software Foundation; version 2.1 only
-  
+
       This program is distributed in the hope that it will be useful,
       but WITHOUT ANY WARRANTY; without even the implied warranty of
       MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
       GNU Lesser General Public License for more details.
-  
+
       You should have received a copy of the GNU Lesser General Public License
       along with this program; if not, write to the Free Software
       Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
@@ -87,13 +87,13 @@ uses paslznonslide;
           len_compressed_output : longint;
           len_uncompressed_input : longint;
        end;
-       
+
   phuff_entry = ^huff_entry;
   huff_entry = record
    codelength: smallint;
    code: word;
   end;
-       
+
   lzx_data = record
     in_arg : pointer;
     out_arg: pointer;
@@ -151,10 +151,10 @@ uses math, sysutils;
 {$ENDIF FPC_DOTTEDUNITS}
 var
   rloge2: double; // set in initialization section
-  
+
 const
   num_position_slots: array [0..6] of smallint = (30, 32, 34, 36, 38, 42, 50);
-  
+
   extra_bits: array [0..50] of Byte = (
     0,  0,  0,  0,  1,  1,  2,  2,  3,  3,  4,  4,  5,  5,  6,  6,
     7,  7,  8,  8,  9,  9,  10, 10, 11, 11, 12, 12, 13, 13, 14, 14,
@@ -474,7 +474,7 @@ var
   lzud: plzx_data;
 begin
   lzud := plzx_data(lzi^.user_data);
-  
+
   chars_read := lzud^.get_bytes(lzud^.in_arg, n, buf);
   Dec(lzud^.left_in_frame, chars_read mod LZX_FRAME_SIZE);
   if (lzud^.left_in_frame < 0) then
@@ -516,7 +516,7 @@ begin
     Inc(c2);
     Inc(j);
   end;
-  
+
   if (j = match_len) then begin
     match_locp^ := -loc;
     Exit(0);
@@ -823,7 +823,7 @@ begin
       //* literal */
       if not(block_code < NUM_CHARS) then
       raise Exception.Create('block_code < NUM_CHARS');
-      
+
       huffe := @lzxd^.main_tree[block_code];
       lzx_write_bits(lzxd, huffe^.codelength, huffe^.code);
       Inc(frame_count);
@@ -1013,7 +1013,7 @@ begin
     if (lzxd^.left_in_frame = 0) then begin
       lzxd^.left_in_frame := LZX_FRAME_SIZE;
     end;
-    
+
     if ((lzxd^.subdivide<0)
       or (lzxd^.left_in_block = 0)
       or ((lz_left_to_process(lzxd^.lzi) = 0) and lzxd^.at_eof(lzxd^.in_arg))) then begin
@@ -1037,7 +1037,7 @@ begin
       //* handle extra bits */
       uncomp_bits := 0;
       comp_bits := 0;
-      
+
       build_huffman_tree(LZX_ALIGNED_SIZE, 7, @lzxd^.aligned_freq_table[0], @lzxd^.aligned_tree[0]);
       for i := 0 to LZX_ALIGNED_SIZE-1 do begin
 	Inc(uncomp_bits, lzxd^.aligned_freq_table[i]* 3);
@@ -1111,7 +1111,7 @@ begin
   if ((wsize_code < 15) or (wsize_code > 21)) then begin
     Exit(-1);
   end;
-  
+
   //lzx_init_static(); I hardcoded this instead
 
   New(lzxd);

packages/cocoaint/src/AVFoundation.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/AVKit.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/Accounts.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/AddressBook.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/AppKit.pas

@@ -39,7 +39,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -55,7 +55,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/AppleScriptObjC.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/AudioVideoBridging.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/Automator.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CFOpenDirectory.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CalendarStore.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CloudKit.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CocoaAll.pas

@@ -40,7 +40,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -56,7 +56,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals
@@ -217,16 +217,16 @@ uses
   Api.Cocoa.DefinedClassesFoundation, Api.Cocoa.DefinedClassesCoreImage, Api.Cocoa.DefinedClassesQuartzCore, Api.Cocoa.DefinedClassesCoreData, Api.Cocoa.DefinedClassesAppKit, System.CTypes, MacOsApi.MacOSAll;
 {$else}
   Api.Cocoa.DefinedClassesFoundation, Api.Cocoa.DefinedClassesCoreImage, Api.Cocoa.DefinedClassesQuartzCore, Api.Cocoa.DefinedClassesCoreData, Api.Cocoa.DefinedClassesAppKit, System.CTypes, MacOsApi.MacTypes,
-  MacOsApi.MacOSXPosix, MacOsApi.AEDataModel, MacOsApi.IconsCore, MacOsApi.IOSurfaceAPI, MacOsApi.SecBase, MacOsApi.SecTrust, MacOsApi.Macgl, MacOsApi.CGLTypes, MacOsApi.CFBase, MacOsApi.CFArray, MacOsApi.CFBag, 
-  MacOsApi.CFCharacterSet, MacOsApi.CFData, MacOsApi.CFDate, MacOsApi.CFDictionary, MacOsApi.CFNumber, MacOsApi.CFPropertyList, MacOsApi.CFSet, MacOsApi.CFString, MacOsApi.CFStringEncodingExt, 
-  MacOsApi.CFTimeZone, MacOsApi.CFTree, MacOsApi.CFURL, MacOsApi.CFXMLNode, MacOsApi.CFXMLParser, MacOsApi.CFMachPort, MacOsApi.CFMessagePort, MacOsApi.CFRunLoop, MacOsApi.CFSocket, 
-  MacOsApi.CFBinaryHeap, MacOsApi.CFBitVector, MacOsApi.CFBundle, MacOsApi.CFByteOrders, MacOsApi.CFPlugIn, MacOsApi.CFPreferences, MacOsApi.CFURLAccess, MacOsApi.CFUUID, MacOsApi.CFLocale, 
-  MacOsApi.CFStream, MacOsApi.CFDateFormatter, MacOsApi.CFNumberFormatter, MacOsApi.CFCalendar, MacOsApi.CFUserNotification, MacOsApi.CFNotificationCenter, MacOsApi.CFAttributedString, 
-  MacOsApi.CFNetworkErrorss, MacOsApi.CGBase, MacOsApi.CGAffineTransforms, MacOsApi.CGBitmapContext, MacOsApi.CGColor, MacOsApi.CGColorSpace, MacOsApi.CGContext, MacOsApi.CGDataConsumer, 
-  MacOsApi.CGDataProvider, MacOsApi.CGDirectDisplay, MacOsApi.CGDirectPalette, MacOsApi.CGDisplayConfiguration, MacOsApi.CGDisplayFades, MacOsApi.CGErrors, MacOsApi.CGEvent, 
-  MacOsApi.CGEventSource, MacOsApi.CGEventTypes, MacOsApi.CGFont, MacOsApi.CGFunction, MacOsApi.CGGLContext, MacOsApi.CGGeometry, MacOsApi.CGImage, MacOsApi.CGLayer, MacOsApi.CGPDFArray, 
-  MacOsApi.CGPDFContentStream, MacOsApi.CGPDFContext, MacOsApi.CGPDFDictionary, MacOsApi.CGPDFDocument, MacOsApi.CGPDFObject, MacOsApi.CGPDFOperatorTable, MacOsApi.CGPDFPage, 
-  MacOsApi.CGPDFScanner, MacOsApi.CGPDFStream, MacOsApi.CGPDFString, MacOsApi.CGPSConverter, MacOsApi.CGPath, MacOsApi.CGPattern, MacOsApi.CGRemoteOperation, MacOsApi.CGSession, 
+  MacOsApi.MacOSXPosix, MacOsApi.AEDataModel, MacOsApi.IconsCore, MacOsApi.IOSurfaceAPI, MacOsApi.SecBase, MacOsApi.SecTrust, MacOsApi.Macgl, MacOsApi.CGLTypes, MacOsApi.CFBase, MacOsApi.CFArray, MacOsApi.CFBag,
+  MacOsApi.CFCharacterSet, MacOsApi.CFData, MacOsApi.CFDate, MacOsApi.CFDictionary, MacOsApi.CFNumber, MacOsApi.CFPropertyList, MacOsApi.CFSet, MacOsApi.CFString, MacOsApi.CFStringEncodingExt,
+  MacOsApi.CFTimeZone, MacOsApi.CFTree, MacOsApi.CFURL, MacOsApi.CFXMLNode, MacOsApi.CFXMLParser, MacOsApi.CFMachPort, MacOsApi.CFMessagePort, MacOsApi.CFRunLoop, MacOsApi.CFSocket,
+  MacOsApi.CFBinaryHeap, MacOsApi.CFBitVector, MacOsApi.CFBundle, MacOsApi.CFByteOrders, MacOsApi.CFPlugIn, MacOsApi.CFPreferences, MacOsApi.CFURLAccess, MacOsApi.CFUUID, MacOsApi.CFLocale,
+  MacOsApi.CFStream, MacOsApi.CFDateFormatter, MacOsApi.CFNumberFormatter, MacOsApi.CFCalendar, MacOsApi.CFUserNotification, MacOsApi.CFNotificationCenter, MacOsApi.CFAttributedString,
+  MacOsApi.CFNetworkErrorss, MacOsApi.CGBase, MacOsApi.CGAffineTransforms, MacOsApi.CGBitmapContext, MacOsApi.CGColor, MacOsApi.CGColorSpace, MacOsApi.CGContext, MacOsApi.CGDataConsumer,
+  MacOsApi.CGDataProvider, MacOsApi.CGDirectDisplay, MacOsApi.CGDirectPalette, MacOsApi.CGDisplayConfiguration, MacOsApi.CGDisplayFades, MacOsApi.CGErrors, MacOsApi.CGEvent,
+  MacOsApi.CGEventSource, MacOsApi.CGEventTypes, MacOsApi.CGFont, MacOsApi.CGFunction, MacOsApi.CGGLContext, MacOsApi.CGGeometry, MacOsApi.CGImage, MacOsApi.CGLayer, MacOsApi.CGPDFArray,
+  MacOsApi.CGPDFContentStream, MacOsApi.CGPDFContext, MacOsApi.CGPDFDictionary, MacOsApi.CGPDFDocument, MacOsApi.CGPDFObject, MacOsApi.CGPDFOperatorTable, MacOsApi.CGPDFPage,
+  MacOsApi.CGPDFScanner, MacOsApi.CGPDFStream, MacOsApi.CGPDFString, MacOsApi.CGPSConverter, MacOsApi.CGPath, MacOsApi.CGPattern, MacOsApi.CGRemoteOperation, MacOsApi.CGSession,
   MacOsApi.CGShading, MacOsApi.CGWindowLevels, MacOsApi.CVBase, MacOsApi.CVImageBuffer, MacOsApi.CVPixelBuffer;
 {$endif}
 {$ELSE FPC_DOTTEDUNITS}

packages/cocoaint/src/Collaboration.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CoreAudio.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CoreAudioKit.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CoreBluetooth.pas

@@ -36,7 +36,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -52,7 +52,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CoreData.pas

@@ -39,7 +39,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -55,7 +55,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals

packages/cocoaint/src/CoreImage.pas

@@ -39,7 +39,7 @@
 {$define __MAC_10_8 := 1080}
 {$define __MAC_10_9 := 1090}
 {$define __MAC_10_10 := 1100}
-{$define __MAC_NA   := 9999}   
+{$define __MAC_NA   := 9999}
 
 {$define __IPHONE_2_0 := 20000}
 {$define __IPHONE_2_1 := 20100}
@@ -55,7 +55,7 @@
 {$define __IPHONE_6_0 := 60000}
 {$define __IPHONE_7_0 := 70000}
 {$define __IPHONE_8_0 := 80000}
-{$define __IPHONE_NA  := 99999}  
+{$define __IPHONE_NA  := 99999}
 {$define __IPHONE_LATEST  := __IPHONE_8_0}
 
 // Target Conditionals