* Patch from Ondrej Pokorny to convert unit names to CamelCase (bug ID 33481)

git-svn-id: trunk@38616 -

packages/cdrom/src/wincd.pp

@@ -1,6 +1,6 @@
 {
 }
-unit wincd;
+unit WinCD;
 
 {$mode objfpc}
 {$h+}

packages/dblib/src/dblib.pp

@@ -25,7 +25,7 @@
                     7.4 - MS SQL Server 2012/2014
       tds version can be set using env.var. TDSVER or in freetds.conf or .freetds.conf
 }
-unit dblib;
+unit DBLib;
 
 {$IFDEF FPC}{$mode objfpc}{$ENDIF}{$H+}
 

packages/fcl-base/src/contnrs.pp

@@ -16,7 +16,7 @@
 {$H+}
 {$ifdef CLASSESINLINE}{$inline on}{$endif}
 
-unit contnrs;
+unit Contnrs;
 
 interface
 

packages/fcl-base/src/fileinfo.pp

@@ -13,7 +13,7 @@
 
  **********************************************************************}
 
-unit fileinfo;
+unit FileInfo;
 
 {$mode objfpc}
 {$h+}

packages/fcl-base/src/maskutils.pp

@@ -19,7 +19,7 @@
 }
 
 
-unit maskutils;
+unit MaskUtils;
 
 {$mode objfpc}{$H+}
 {.$define debug_maskutils}

packages/fcl-base/src/rttiutils.pp

@@ -29,7 +29,7 @@
 
 {$mode objfpc}
 {$H+}
-unit rttiutils;
+unit RttiUtils;
 
 interface
 

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

@@ -14,7 +14,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit db;
+unit DB;
 
 {$mode objfpc}
 

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

@@ -1,4 +1,4 @@
-unit dbcoll;
+unit DBColl;
 
 interface
 

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

@@ -14,7 +14,7 @@
 
  **********************************************************************}
 
-unit dbconst;
+unit DBConst;
 
 Interface
 

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

@@ -12,7 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit sqlscript;
+unit SQLScript;
 
 {$mode objfpc}{$H+}
 

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

@@ -1,4 +1,4 @@
-unit sqltypes;
+unit SQLTypes;
 
 interface
 

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

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddcodegen;
+unit FPDDCodeGen;
 
 {$mode objfpc}{$H+}
 

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

@@ -1,4 +1,4 @@
-unit fpddpopcode;
+unit FPDDPopCode;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpdddbf.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddDbf;
+unit FPDDDBF;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpdddiff.pp

@@ -12,7 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
   **********************************************************************}
-unit fpdddiff;
+unit FPDDDiff;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddfb.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddfb;
+unit FPDDFB;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddmssql.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddmssql;
+unit FPDDMSSQL;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddmysql40.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddmysql40;
+unit FPDDMySQL40;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddmysql41.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddmysql41;
+unit FPDDMySQL41;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddmysql50.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddmysql50;
+unit FPDDMySQL50;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddmysql51.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddmysql51;
+unit FPDDMySQL51;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddmysql55.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddmysql55;
+unit FPDDMySQL55;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddodbc.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddodbc;
+unit FPDDODBC;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddoracle.pp

@@ -14,7 +14,7 @@
 
  **********************************************************************}
 
-unit fpddoracle;
+unit FPDDOracle;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddpq.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddpq;
+unit FPDDPQ;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddregstd.pp

@@ -25,7 +25,7 @@
   are registered.
 
 }
-unit fpddregstd;
+unit FPDDRegStd;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddsqldb.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddsqldb;
+unit FPDDSQLDB;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/datadict/fpddsqlite3.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpddsqlite3;
+unit FPDDSQLite3;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/sqldb/mssql/mssqlconn.pp

@@ -34,7 +34,7 @@
                "TextSize=16777216" - set maximum size of text/image data returned
                "ApplicationName=YourAppName" - Set the app name for the connection. MSSQL 2000 and higher only
 }
-unit mssqlconn;
+unit MSSQLConn;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -1,4 +1,4 @@
-unit pqconnection;
+unit PQConnection;
 
 {$mode objfpc}{$H+}
 

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

@@ -12,7 +12,7 @@
 
  **********************************************************************}
 
-unit sqldb;
+unit SQLDB;
 
 {$mode objfpc}
 {$H+}

packages/fcl-db/src/sqldb/sqldblib.pp

@@ -1,4 +1,4 @@
-unit sqldblib;
+unit SQLDBLib;
 
 {$mode objfpc}{$H+}
 

packages/fcl-db/src/sqldb/sqlite/sqlite3backup.pas

@@ -1,4 +1,4 @@
-unit sqlite3backup;
+unit SQLite3Backup;
 
 { SQLite3 backup class.
 

packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp

@@ -23,7 +23,7 @@
 
 } 
  
-unit sqlite3conn;
+unit SQLite3Conn;
 {$mode objfpc}
 {$h+}
 

packages/fcl-db/src/sqlite/customsqliteds.pas

@@ -1,4 +1,4 @@
-unit CustomSqliteDS;
+unit CustomSQLiteDS;
 
 {
   This is TCustomSqliteDataset, a TDataset descendant class for use with fpc compiler

packages/fcl-db/src/sqlite/sqlite3ds.pas

@@ -1,4 +1,4 @@
-unit Sqlite3DS;
+unit SQLite3DS;
 
 {
   This is TSqlite3Dataset, a TDataset descendant class for use with fpc compiler

packages/fcl-db/src/sqlite/sqliteds.pas

@@ -1,4 +1,4 @@
-unit SqliteDS;
+unit SQLiteDS;
 
 {
   This is TSqliteDataset, a TDataset descendant class for use with fpc compiler

packages/fcl-image/src/fpimage.pp

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     Copyright (c) 2003 by the Free Pascal development team
 
-    fpImage base definitions.
+    FPImage base definitions.
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -13,7 +13,7 @@
 
  **********************************************************************}
 {$mode objfpc}{$h+}
-unit FPimage;
+unit FPImage;
 
 interface
 

packages/fcl-image/src/fpimgbarcode.pp

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpimgbarcode;
+unit FPImgBarCode;
 
 {$mode objfpc}{$H+}
 

packages/fcl-image/src/fpimgqrcode.pp

@@ -12,7 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit fpimgqrcode;
+unit FPImgQRCode;
 
 {$mode objfpc}{$H+}
 

packages/fcl-image/src/fpqrcodegen.pp

@@ -17,7 +17,7 @@
     https://www.nayuki.io/page/qr-code-generator-library
   **********************************************************************}
 {$mode objfpc}
-unit fpqrcodegen;
+unit FPQRCodeGen;
 
 interface
 

packages/fcl-image/src/pngcomn.pp

@@ -13,7 +13,7 @@
 
  **********************************************************************}
 {$mode objfpc}{$h+}
-unit PNGcomn;
+unit PNGComn;
 
 interface
 

packages/fcl-registry/src/registry.pp

@@ -1,4 +1,4 @@
-Unit registry;
+Unit Registry;
 
 {$mode objfpc}
 {$H+}

packages/fcl-web/src/webdata/sqldbwebdata.pp

@@ -1,4 +1,4 @@
-unit sqldbwebdata;
+unit SQLDBWebData;
 
 {$mode objfpc}{$H+}
 

packages/fpindexer/src/dbindexer.pp

@@ -13,7 +13,7 @@
 
  **********************************************************************}
  
-unit dbIndexer;
+unit DBIndexer;
 
 {$mode objfpc}{$H+}
 

packages/fpindexer/src/fpindexer.pp

@@ -13,7 +13,7 @@
 
  **********************************************************************}
  
-unit fpIndexer;
+unit FPIndexer;
 
 {$mode objfpc}{$H+}
 

packages/fpindexer/src/fpmasks.pp

@@ -19,7 +19,7 @@
  *                                                                           *
  *****************************************************************************
 }
-unit fpmasks;
+unit FPMasks;
 
 {$mode objfpc}{$H+}
 

packages/fv/src/sysmsg.pas

@@ -19,7 +19,7 @@
    MA 02110-1301, USA.
 
  ****************************************************************************}
-Unit sysmsg;
+Unit SysMsg;
 
 interface
 {$i platform.inc}

packages/graph/src/win32/wincrt.pp

@@ -14,7 +14,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit wincrt;
+unit WinCRT;
 
   interface
 

packages/graph/src/win32/winmouse.pp

@@ -14,7 +14,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit winmouse;
+unit WinMouse;
 
   interface
     { initializes the mouse with the default values for the current screen mode }

packages/libpng/src/png.pp

@@ -1,7 +1,7 @@
 {$ifndef NO_SMART_LINK}
 {$smartlink on}
 {$endif}
-unit png;
+unit PNG;
 
 interface
 

packages/paszlib/src/paszlib.pas

@@ -1,4 +1,4 @@
-unit paszlib;
+unit PasZLib;
 
 {$inline on}
 

packages/paszlib/src/trees.pas

@@ -1,4 +1,4 @@
-unit trees;
+unit Trees;
 
 {$T-}
 {$define ORG_DEBUG}

packages/paszlib/src/zbase.pas

@@ -1,4 +1,4 @@
-unit zbase;
+unit ZBase;
 
 
 { Original:

packages/paszlib/src/zcompres.pas

@@ -1,4 +1,4 @@
-Unit zCompres;
+Unit ZCompres;
 
 { compress.c -- compress a memory buffer
   Copyright (C) 1995-1998 Jean-loup Gailly.

packages/paszlib/src/zdeflate.pas

@@ -1,4 +1,4 @@
-unit zdeflate;
+unit ZDeflate;
 
 {$goto on}
 

packages/paszlib/src/zinflate.pas

@@ -1,4 +1,4 @@
-unit  zinflate;
+unit  ZInflate;
 
 {  inflate.c -- zlib interface to inflate modules
    Copyright (C) 1995-1998 Mark Adler

packages/paszlib/src/zip.pas

@@ -1,4 +1,4 @@
-unit zip;
+unit Zip;
 
 { zip.c -- IO on .zip files using zlib
   zip.h -- IO for compress .zip files using zlib

packages/paszlib/src/zipper.pp

@@ -13,7 +13,7 @@
  **********************************************************************}
 {$mode objfpc}
 {$h+}
-unit zipper;
+unit Zipper;
 
 Interface
 

packages/paszlib/src/ziputils.pas

@@ -1,4 +1,4 @@
-unit ziputils;
+unit ZipUtils;
 
 { ziputils.pas - IO on .zip files using zlib
   - definitions, declarations and routines used by both

packages/paszlib/src/zstream.pp

@@ -1,4 +1,4 @@
-unit zstream;
+unit ZStream;
 
 {**********************************************************************
     This file is part of the Free Pascal free component library.

packages/paszlib/src/zuncompr.pas

@@ -1,4 +1,4 @@
-unit zuncompr;
+unit ZUncompr;
 
 { uncompr.c -- decompress a memory buffer
   Copyright (C) 1995-1998 Jean-loup Gailly.

packages/rtl-extra/src/win/winsock.pp

@@ -19,7 +19,7 @@
 {$endif}
 {$mode fpc}
 
-unit winsock;
+unit WinSock;
 
   interface
 

packages/rtl-objpas/src/inc/convutil.inc

@@ -3,7 +3,7 @@
    Copyright (c) 2004 by Marco van de Voort
    member of the Free Pascal development team.
 
-   An implementation for unit convutils, which converts between
+   An implementation for unit ConvUtils, which converts between
    units and simple combinations of them.
 
    Based on a guessed interface derived from some programs on the web. (Like
@@ -18,7 +18,7 @@
 
 **********************************************************************}
 
-unit convutils;
+unit ConvUtils;
 
 interface
 

packages/rtl-objpas/src/inc/dateutil.inc

@@ -15,7 +15,7 @@
 
  **********************************************************************}
 
-unit dateutils;
+unit DateUtils;
 
 interface
 

packages/rtl-objpas/src/inc/stdconvs.pp

@@ -15,7 +15,7 @@
 
 **********************************************************************}
 
-unit stdconvs;
+unit StdConvs;
 
 interface
 

packages/rtl-objpas/src/inc/strutils.pp

@@ -15,7 +15,7 @@
 {$mode objfpc}
 {$h+}
 {$inline on}
-unit strutils;
+unit StrUtils;
 
 interface
 

packages/rtl-objpas/src/inc/variants.pp

@@ -23,7 +23,7 @@
 {$inline on}
 {$define VARIANTINLINE}
 
-unit variants;
+unit Variants;
 
 interface
 

packages/rtl-objpas/src/win/varutils.pp

@@ -19,7 +19,7 @@
 {$smartlink on}
 {$endif}
 
-Unit varutils;
+Unit VarUtils;
 
 Interface
 

packages/sqlite/src/sqlite.pp

@@ -4,7 +4,7 @@
   {$linklib c}
 {$endif}
 
-unit sqlite;
+unit SQLite;
 
 interface
 

packages/sqlite/src/sqlite3.pp

@@ -1,4 +1,4 @@
-unit sqlite3;
+unit SQLite3;
 
 {$i sqlite3.inc}
 

packages/sqlite/src/sqlite3db.pas

@@ -6,7 +6,7 @@ O. Rinaudo - 2005 - [email protected]
 G. Marcou  - 2007 - [email protected]
 *************************************************************}
 
-unit SQLite3db;
+unit SQLite3DB;
 
 interface
 

packages/sqlite/src/sqlite3dyn.pp

@@ -1,4 +1,4 @@
-unit sqlite3dyn;
+unit SQLite3Dyn;
 
 {$DEFINE LOAD_DYNAMICALLY}
 

packages/sqlite/src/sqlitedb.pas

@@ -1,7 +1,7 @@
 {$mode objfpc}
 {$h+}
 
-unit SQLitedb;
+unit SQLiteDB;
 
 interface
 

packages/unzip/src/ziptypes.pp

@@ -1,6 +1,6 @@
 {
 }
-UNIT ziptypes;
+UNIT ZipTypes;
 {
 Type definitions for UNZIP
   * original version by Christian Ghisler

packages/winunits-base/src/comconst.pp

@@ -14,7 +14,7 @@
 {$mode objfpc}
 {$H+}
 {$inline on}
-unit comconst;
+unit ComConst;
 
   interface
 

packages/winunits-base/src/commdlg.pp

@@ -13,7 +13,7 @@
     Note these functions were in the windows unit in older versions
 
  **********************************************************************}
-unit commdlg;
+unit CommDlg;
 
 interface
 {$mode delphi} // interface

packages/winunits-base/src/comobj.pp

@@ -14,7 +14,7 @@
 {$mode objfpc}
 {$H+}
 {$inline on}
-unit comobj;
+unit ComObj;
 
   interface
 

packages/winunits-base/src/comserv.pp

@@ -14,7 +14,7 @@
 {$mode objfpc}
 {$H+}
 {$inline on}
-unit comserv;
+unit ComServ;
 
 interface
 

packages/winunits-base/src/mmsystem.pp

@@ -6,7 +6,7 @@
 {*********************************} (*   LCC-win32 (c) Jacob Navia   *)
                                     (*********************************)
 
-Unit mmsystem;
+Unit MMSystem;
 {$ifndef NO_SMART_LINK}
   {$smartlink on}
 {$endif}

packages/winunits-base/src/ole2.pp

@@ -13,7 +13,7 @@
 
  **********************************************************************}
 {$MODE OBJFPC}
-unit ole2;
+unit Ole2;
 
   interface
 

packages/winunits-base/src/richedit.pp

@@ -1,5 +1,5 @@
 { Converted by H2Pas from richedit.h }
-unit richedit;
+unit RichEdit;
 
 {$mode objfpc}
 {$calling stdcall}

packages/winunits-base/src/stdole2.pas

@@ -1,4 +1,4 @@
-Unit stdole2;
+Unit StdOle2;
 
 //  Imported on 24/12/2011 13:43:11 from C:\WINDOWS\system32\stdole2.tlb
 //  Modified by Ludo Brands to remove redeclarations

packages/winunits-base/src/winhttp.pp

@@ -23,7 +23,7 @@ Abstract:
     Contains manifests, macros, types and prototypes for Windows HTTP Services
 
 }	
-unit winhttp;
+unit WinHTTP;
 interface
 
 uses windows;

packages/winunits-base/src/wininet.pp

@@ -1,4 +1,4 @@
-unit wininet;
+unit WinINet;
 //+-------------------------------------------------------------------------
 //
 //  Microsoft Windows

packages/winunits-base/src/winspool.pp

@@ -1,4 +1,4 @@
-unit winspool;
+unit Winspool;
 
 interface
 

packages/winunits-base/src/winutils.pp

@@ -14,7 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}{$H+}
-unit winutils;
+unit WinUtils;
 
 Interface
 

packages/winunits-base/src/winver.pp

@@ -14,7 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
-unit winver;
+unit WinVer;
 
 Interface
 

packages/zlib/src/zlib.pp

@@ -1,7 +1,7 @@
 {$ifndef NO_SMART_LINK}
 {$smartlink on}
 {$endif}
-unit zlib;
+unit ZLib;
 
 interface
 

rtl/inc/strings.pp

@@ -12,7 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit strings;
+unit Strings;
 {$S-}
 {$inline on}
 interface

rtl/inc/thread.inc

@@ -211,25 +211,25 @@ begin
   CurrentTM.InitCriticalSection(cs);
 end;
 
-procedure DoneCriticalsection(var cs : TRTLCriticalSection);
+procedure DoneCriticalSection(var cs : TRTLCriticalSection);
 
 begin
   CurrentTM.DoneCriticalSection(cs);
 end;
 
-procedure EnterCriticalsection(var cs : TRTLCriticalSection);
+procedure EnterCriticalSection(var cs : TRTLCriticalSection);
 
 begin
   CurrentTM.EnterCriticalSection(cs);
 end;
 
-function TryEnterCriticalsection(var cs : TRTLCriticalSection):longint;
+function TryEnterCriticalSection(var cs : TRTLCriticalSection):longint;
 
 begin
   result:=CurrentTM.TryEnterCriticalSection(cs);
 end;
 
-procedure LeaveCriticalsection(var cs : TRTLCriticalSection);
+procedure LeaveCriticalSection(var cs : TRTLCriticalSection);
 
 begin
   CurrentTM.LeaveCriticalSection(cs);

rtl/inc/threadh.inc

@@ -153,10 +153,10 @@ function  GetCurrentThreadId : TThreadID;
 { it is also used to make the heap management      }
 { thread safe                                      }
 procedure InitCriticalSection(var cs : TRTLCriticalSection);
-procedure DoneCriticalsection(var cs : TRTLCriticalSection);
-procedure EnterCriticalsection(var cs : TRTLCriticalSection);
-procedure LeaveCriticalsection(var cs : TRTLCriticalSection);
-function  TryEnterCriticalsection(var cs : TRTLCriticalSection):longint;
+procedure DoneCriticalSection(var cs : TRTLCriticalSection);
+procedure EnterCriticalSection(var cs : TRTLCriticalSection);
+procedure LeaveCriticalSection(var cs : TRTLCriticalSection);
+function  TryEnterCriticalSection(var cs : TRTLCriticalSection):longint;
 function  BasicEventCreate(EventAttributes : Pointer; AManualReset,InitialState : Boolean;const Name : ansistring):pEventState;
 procedure basiceventdestroy(state:peventstate);
 procedure basiceventResetEvent(state:peventstate);

rtl/inc/typshrdh.inc

@@ -64,7 +64,7 @@
    packed
   {$endif FPC_REQUIRES_PROPER_ALIGNMENT}
   record
-       x : Longint; y : Longint;
+       X : Longint; Y : Longint;
      public
        {$ifdef VER3}
        constructor Create(ax,ay:Longint); overload;

rtl/objpas/character.pas

@@ -17,7 +17,7 @@
     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. }
-unit character;
+unit Character;
 
 interface
 {$ifndef VER2_4}

rtl/objpas/math.pp

@@ -36,7 +36,7 @@
  3. This notice may not be removed or altered from any source distribution.
 ----------------------------------------------------------------------------}
 {
-  This unit is an equivalent to the Delphi math unit
+  This unit is an equivalent to the Delphi Math unit
   (with some improvements)
 
   What's to do:
@@ -47,7 +47,7 @@
 {$MODE objfpc}
 {$inline on }
 {$GOTO on}
-unit math;
+unit Math;
 interface
 
 

rtl/objpas/sysconst.pp

@@ -12,7 +12,7 @@
 
  **********************************************************************}
 {$mode objfpc}
-unit sysconst;
+unit SysConst;
 
 interface
 

rtl/objpas/typinfo.pp

@@ -16,7 +16,7 @@
 { This unit provides the same Functionality as the TypInfo Unit }
 { of Delphi                                                     }
 
-unit typinfo;
+unit TypInfo;
 
   interface
 

rtl/win/messages.pp

@@ -1,4 +1,4 @@
-unit messages;
+unit Messages;
 
 
 interface

rtl/win/sysutils.pp

@@ -4,7 +4,7 @@
     Copyright (c) 1999-2000 by Florian Klaempfl
     member of the Free Pascal development team
 
-    Sysutils unit for win32
+    SysUtils unit for win32
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -14,7 +14,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
-unit sysutils;
+unit SysUtils;
 interface
 
 {$MODE objfpc}

rtl/win/windirs.pp

@@ -1,4 +1,4 @@
-unit windirs;
+unit WinDirs;
 
 {*******************************************************************************