From 17f571cf26a90257f8b89e6abda823e294749e88 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 1 Mar 2016 15:31:26 +0000 Subject: [PATCH] components: less hints git-svn-id: trunk@51788 - --- components/IdeInspector/ideinspector.pas | 11 ++++---- components/IdeLazLogger/idelazlogger.pas | 1 + components/IndustrialStuff/industrial.pas | 1 + .../PascalScript/Source/pascalscript.pas | 15 ++++++----- components/aarre/src/aarrebase.pas | 1 + components/activex/LazActiveX.pas | 1 + components/aggpas/lazarus/aggpaslcl.pas | 1 + components/anchordocking/anchordockpkg.pas | 1 + .../design/anchordockingdsgn.pas | 1 + components/cairocanvas/cairocanvas_pkg.pas | 1 + .../chmhelp/packages/help/lhelpcontrolpkg.pas | 2 ++ .../chmhelp/packages/idehelp/chmhelppkg.pas | 1 + components/codetools/codetools.pas | 1 + components/codetools/ide/cody.pas | 1 + components/compilers/c/lazc.pas | 13 ++++----- components/customdrawn/customdrawn.pas | 1 + components/customform/demo/appforms.pas | 13 ++++----- components/customform/lazcustforms.pas | 15 ++++++----- components/daemon/lazdaemon.pas | 15 ++++++----- components/datadict/lazdatadict.pas | 17 ++++++------ components/datetimectrls/datetimectrls.pas | 1 + components/dbexport/lazdbexport.pas | 17 ++++++------ components/debuggerintf/debuggerintf.pas | 1 + components/education/educationlaz.pas | 27 ++++++++++--------- components/externhelp/externhelp.pas | 11 ++++---- components/favorites/favorites.pas | 1 + components/filebrowser/idefilebrowser.pas | 1 + .../fpcunit/console/fpcunitconsolerunner.pas | 7 ++--- components/fpcunit/fpcunittestrunner.pas | 5 ++-- components/fpcunit/ide/fpcunitide.pas | 15 ++++++----- components/fpdebug/fpdebug.pas | 1 + .../fppkg/src/lazaruspackagemanager.pas | 11 ++++---- components/fppkg/svn/svnpkg.pas | 7 ++--- components/fpvectorial/fpvectorialpkg.pas | 1 + components/fpweb/weblaz.pas | 2 ++ components/googleapis/lazgoogleapis.pas | 1 + components/h2pas/h2paswizard.pas | 13 ++++----- components/ideintf/ideintf.pas | 1 + components/images/imagesforlazarus.pas | 11 ++++---- components/instantfpc/instantfpclaz.pas | 1 + .../jcf2/IdePlugin/lazarus/jcfidelazarus.pas | 19 +++++++------ .../lazcontrols/design/lazcontroldsgn.pas | 1 + components/lazcontrols/lazcontrols.pas | 1 + .../lazdebuggergdbmi/lazdebuggergdbmi.pas | 7 ++--- 44 files changed, 161 insertions(+), 115 deletions(-) diff --git a/components/IdeInspector/ideinspector.pas b/components/IdeInspector/ideinspector.pas index 0fff38e944..f8e421e12d 100644 --- a/components/IdeInspector/ideinspector.pas +++ b/components/IdeInspector/ideinspector.pas @@ -2,8 +2,9 @@ This source is only used to compile and install the package. } -unit IdeInspector; +unit IdeInspector; +{$warn 5023 off : no warning about unused units} interface uses @@ -11,11 +12,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('MainInspector', @MainInspector.Register); -end; + RegisterUnit('MainInspector', @MainInspector.Register); +end; initialization - RegisterPackage('IdeInspector', @Register); + RegisterPackage('IdeInspector', @Register); end. diff --git a/components/IdeLazLogger/idelazlogger.pas b/components/IdeLazLogger/idelazlogger.pas index 4313d57b20..9057047b98 100644 --- a/components/IdeLazLogger/idelazlogger.pas +++ b/components/IdeLazLogger/idelazlogger.pas @@ -4,6 +4,7 @@ unit IdeLazLogger; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/IndustrialStuff/industrial.pas b/components/IndustrialStuff/industrial.pas index 006838ecd2..1cff754a5f 100644 --- a/components/IndustrialStuff/industrial.pas +++ b/components/IndustrialStuff/industrial.pas @@ -4,6 +4,7 @@ unit industrial; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/PascalScript/Source/pascalscript.pas b/components/PascalScript/Source/pascalscript.pas index 1aae9aeafd..5168d7d169 100644 --- a/components/PascalScript/Source/pascalscript.pas +++ b/components/PascalScript/Source/pascalscript.pas @@ -4,15 +4,18 @@ unit pascalscript; +{$warn 5023 off : no warning about unused units} interface uses - uPSRuntime, uPSR_stdctrls, PascalScript_Core_Reg, uPSC_buttons, uPSC_classes, - uPSC_controls, uPSC_dateutils, uPSC_DB, uPSC_dll, uPSC_extctrls, uPSC_forms, uPSC_graphics, - uPSC_menus, uPSC_std, uPSC_stdctrls, uPSCompiler, uPSComponent, uPSComponent_Controls, - uPSComponent_DB, uPSComponent_Default, uPSComponent_Forms, uPSComponent_StdCtrls, uPSUtils, - uPSDebugger, uPSDisassembly, uPSPreProcessor, uPSR_buttons, uPSR_classes, uPSR_controls, - uPSR_dateutils, uPSR_DB, uPSR_dll, uPSR_extctrls, uPSR_forms, uPSR_graphics, uPSR_menus, + uPSRuntime, uPSR_stdctrls, PascalScript_Core_Reg, uPSC_buttons, + uPSC_classes, uPSC_controls, uPSC_dateutils, uPSC_DB, uPSC_dll, + uPSC_extctrls, uPSC_forms, uPSC_graphics, uPSC_menus, uPSC_std, + uPSC_stdctrls, uPSCompiler, uPSComponent, uPSComponent_Controls, + uPSComponent_DB, uPSComponent_Default, uPSComponent_Forms, + uPSComponent_StdCtrls, uPSUtils, uPSDebugger, uPSDisassembly, + uPSPreProcessor, uPSR_buttons, uPSR_classes, uPSR_controls, uPSR_dateutils, + uPSR_DB, uPSR_dll, uPSR_extctrls, uPSR_forms, uPSR_graphics, uPSR_menus, uPSR_std, uPSC_comobj, uPSComponent_COM, uPSR_comobj, LazarusPackageIntf; implementation diff --git a/components/aarre/src/aarrebase.pas b/components/aarre/src/aarrebase.pas index f50505e197..bc49614643 100644 --- a/components/aarre/src/aarrebase.pas +++ b/components/aarre/src/aarrebase.pas @@ -4,6 +4,7 @@ unit aarrebase; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/activex/LazActiveX.pas b/components/activex/LazActiveX.pas index 9c8df97396..a414dfecc5 100644 --- a/components/activex/LazActiveX.pas +++ b/components/activex/LazActiveX.pas @@ -4,6 +4,7 @@ unit LazActiveX; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/aggpas/lazarus/aggpaslcl.pas b/components/aggpas/lazarus/aggpaslcl.pas index cc7d28e216..e5da56fcac 100644 --- a/components/aggpas/lazarus/aggpaslcl.pas +++ b/components/aggpas/lazarus/aggpaslcl.pas @@ -4,6 +4,7 @@ unit AggPasLCL; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/anchordocking/anchordockpkg.pas b/components/anchordocking/anchordockpkg.pas index d61ff62874..2254c03124 100644 --- a/components/anchordocking/anchordockpkg.pas +++ b/components/anchordocking/anchordockpkg.pas @@ -4,6 +4,7 @@ unit anchordockpkg; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/anchordocking/design/anchordockingdsgn.pas b/components/anchordocking/design/anchordockingdsgn.pas index e8154ebce3..2e2cdbade3 100644 --- a/components/anchordocking/design/anchordockingdsgn.pas +++ b/components/anchordocking/design/anchordockingdsgn.pas @@ -4,6 +4,7 @@ unit AnchorDockingDsgn; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/cairocanvas/cairocanvas_pkg.pas b/components/cairocanvas/cairocanvas_pkg.pas index 0634f8eda6..ee413de56f 100644 --- a/components/cairocanvas/cairocanvas_pkg.pas +++ b/components/cairocanvas/cairocanvas_pkg.pas @@ -4,6 +4,7 @@ unit cairocanvas_pkg; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/chmhelp/packages/help/lhelpcontrolpkg.pas b/components/chmhelp/packages/help/lhelpcontrolpkg.pas index 5f5fa50d37..f68000f370 100644 --- a/components/chmhelp/packages/help/lhelpcontrolpkg.pas +++ b/components/chmhelp/packages/help/lhelpcontrolpkg.pas @@ -4,6 +4,7 @@ unit lhelpcontrolpkg; +{$warn 5023 off : no warning about unused units} interface uses @@ -19,3 +20,4 @@ end; initialization RegisterPackage('lhelpcontrolpkg', @Register); end. + diff --git a/components/chmhelp/packages/idehelp/chmhelppkg.pas b/components/chmhelp/packages/idehelp/chmhelppkg.pas index 10dca738cd..06800871a7 100644 --- a/components/chmhelp/packages/idehelp/chmhelppkg.pas +++ b/components/chmhelp/packages/idehelp/chmhelppkg.pas @@ -4,6 +4,7 @@ unit ChmHelpPkg; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/codetools/codetools.pas b/components/codetools/codetools.pas index 2bf0b8175d..a70fc23f32 100644 --- a/components/codetools/codetools.pas +++ b/components/codetools/codetools.pas @@ -4,6 +4,7 @@ unit CodeTools; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/codetools/ide/cody.pas b/components/codetools/ide/cody.pas index c72b7c5c12..bcac6dd770 100644 --- a/components/codetools/ide/cody.pas +++ b/components/codetools/ide/cody.pas @@ -4,6 +4,7 @@ unit Cody; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/compilers/c/lazc.pas b/components/compilers/c/lazc.pas index 98e11bbb90..0348492d9a 100644 --- a/components/compilers/c/lazc.pas +++ b/components/compilers/c/lazc.pas @@ -1,9 +1,10 @@ -{ This file was automatically created by Lazarus. do not edit! +{ This file was automatically created by Lazarus. Do not edit! This source is only used to compile and install the package. } -unit lazc; +unit LazC; +{$warn 5023 off : no warning about unused units} interface uses @@ -11,11 +12,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('LazCUtil', @LazCUtil.Register); -end; + RegisterUnit('LazCUtil', @LazCUtil.Register); +end; initialization - RegisterPackage('LazC', @Register); + RegisterPackage('LazC', @Register); end. diff --git a/components/customdrawn/customdrawn.pas b/components/customdrawn/customdrawn.pas index 737b14fd7a..601294ef52 100644 --- a/components/customdrawn/customdrawn.pas +++ b/components/customdrawn/customdrawn.pas @@ -4,6 +4,7 @@ unit customdrawn; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/customform/demo/appforms.pas b/components/customform/demo/appforms.pas index af4e6cb6d0..80ff8c7360 100644 --- a/components/customform/demo/appforms.pas +++ b/components/customform/demo/appforms.pas @@ -1,20 +1,21 @@ { This file was automatically created by Lazarus. Do not edit! -This source is only used to compile and install the package. + This source is only used to compile and install the package. } -unit appforms; +unit appforms; +{$warn 5023 off : no warning about unused units} interface uses - AppForm, dbappform, regappforms, LazarusPackageIntf; + AppForm, dbappform, regappforms, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin -end; +end; initialization - RegisterPackage('appforms', @Register); + RegisterPackage('appforms', @Register); end. diff --git a/components/customform/lazcustforms.pas b/components/customform/lazcustforms.pas index 95b932e8c1..05b29e44bd 100644 --- a/components/customform/lazcustforms.pas +++ b/components/customform/lazcustforms.pas @@ -1,21 +1,22 @@ { This file was automatically created by Lazarus. Do not edit! -This source is only used to compile and install the package. + This source is only used to compile and install the package. } -unit LazCustForms; +unit LazCustForms; +{$warn 5023 off : no warning about unused units} interface uses - custforms, LazarusPackageIntf; + custforms, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin - RegisterUnit('custforms', @custforms.Register); -end; + RegisterUnit('custforms', @custforms.Register); +end; initialization - RegisterPackage('LazCustForms', @Register); + RegisterPackage('LazCustForms', @Register); end. diff --git a/components/daemon/lazdaemon.pas b/components/daemon/lazdaemon.pas index 022df7267c..9b6a57a44c 100644 --- a/components/daemon/lazdaemon.pas +++ b/components/daemon/lazdaemon.pas @@ -1,21 +1,22 @@ { This file was automatically created by Lazarus. Do not edit! -This source is only used to compile and install the package. + This source is only used to compile and install the package. } -unit lazdaemon; +unit lazdaemon; +{$warn 5023 off : no warning about unused units} interface uses - RegLazDaemon, daemonapp, lazdaemonapp, LazarusPackageIntf; + RegLazDaemon, daemonapp, lazdaemonapp, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin - RegisterUnit('RegLazDaemon', @RegLazDaemon.Register); -end; + RegisterUnit('RegLazDaemon', @RegLazDaemon.Register); +end; initialization - RegisterPackage('lazdaemon', @Register); + RegisterPackage('lazdaemon', @Register); end. diff --git a/components/datadict/lazdatadict.pas b/components/datadict/lazdatadict.pas index 50b7a44bdd..65a21b00cf 100644 --- a/components/datadict/lazdatadict.pas +++ b/components/datadict/lazdatadict.pas @@ -1,23 +1,24 @@ -{ Este arquivo foi automaticamente criado pelo Lazarus. Não edite! - Este fonte é usado apenas para compilar e instalar o pacote. +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. } -unit lazdatadict; +unit lazdatadict; +{$warn 5023 off : no warning about unused units} interface uses - frmconfprojdatadict, idedatadict, reglazdatadict, frmconfdatadict, + frmconfprojdatadict, idedatadict, reglazdatadict, frmconfdatadict, frmSelectCodeGenerator, fpcodegenerator, frmBaseConfigCodeGenerator, frmgeneratedcode, ldd_consts, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin - RegisterUnit('reglazdatadict', @reglazdatadict.Register); -end; + RegisterUnit('reglazdatadict', @reglazdatadict.Register); +end; initialization - RegisterPackage('lazdatadict', @Register); + RegisterPackage('lazdatadict', @Register); end. diff --git a/components/datetimectrls/datetimectrls.pas b/components/datetimectrls/datetimectrls.pas index a9a2fc72d4..58070a82d5 100644 --- a/components/datetimectrls/datetimectrls.pas +++ b/components/datetimectrls/datetimectrls.pas @@ -4,6 +4,7 @@ unit DateTimeCtrls; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/dbexport/lazdbexport.pas b/components/dbexport/lazdbexport.pas index 24e3ba2f05..bd27761379 100644 --- a/components/dbexport/lazdbexport.pas +++ b/components/dbexport/lazdbexport.pas @@ -1,22 +1,23 @@ -{ Este arquivo foi automaticamente criado pelo Lazarus. Não edite! - Este fonte é usado apenas para compilar e instalar o pacote. +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. } -unit lazdbexport; +unit lazdbexport; +{$warn 5023 off : no warning about unused units} interface uses - regdbexport, fpdataexporter, frmSelectExportFormat, frmexportprogress, + regdbexport, fpdataexporter, frmSelectExportFormat, frmexportprogress, frmBaseConfigExport, sdb_consts, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin - RegisterUnit('regdbexport', @regdbexport.Register); -end; + RegisterUnit('regdbexport', @regdbexport.Register); +end; initialization - RegisterPackage('lazdbexport', @Register); + RegisterPackage('lazdbexport', @Register); end. diff --git a/components/debuggerintf/debuggerintf.pas b/components/debuggerintf/debuggerintf.pas index 8011217f7a..19bc70ca53 100644 --- a/components/debuggerintf/debuggerintf.pas +++ b/components/debuggerintf/debuggerintf.pas @@ -4,6 +4,7 @@ unit DebuggerIntf; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/education/educationlaz.pas b/components/education/educationlaz.pas index 186062a6e7..7b5e2b8a03 100644 --- a/components/education/educationlaz.pas +++ b/components/education/educationlaz.pas @@ -2,8 +2,9 @@ This source is only used to compile and install the package. } -unit EducationLaz; +unit EducationLaz; +{$warn 5023 off : no warning about unused units} interface uses @@ -13,19 +14,19 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('EduEnvOptsFrame', @EduEnvOptsFrame.Register); - RegisterUnit('EduPkgSystem', @EduPkgSystem.Register); - RegisterUnit('EduCompPalette', @EduCompPalette.Register); - RegisterUnit('EduMenu', @EduMenu.Register); - RegisterUnit('EduNewProgram', @EduNewProgram.Register); - RegisterUnit('EduPropsEvents', @EduPropsEvents.Register); - RegisterUnit('EduOIPages', @EduOIPages.Register); - RegisterUnit('EduOptionsDlg', @EduOptionsDlg.Register); - RegisterUnit('EduSpeedButtons', @EduSpeedButtons.Register); -end; + RegisterUnit('EduEnvOptsFrame', @EduEnvOptsFrame.Register); + RegisterUnit('EduPkgSystem', @EduPkgSystem.Register); + RegisterUnit('EduCompPalette', @EduCompPalette.Register); + RegisterUnit('EduMenu', @EduMenu.Register); + RegisterUnit('EduNewProgram', @EduNewProgram.Register); + RegisterUnit('EduPropsEvents', @EduPropsEvents.Register); + RegisterUnit('EduOIPages', @EduOIPages.Register); + RegisterUnit('EduOptionsDlg', @EduOptionsDlg.Register); + RegisterUnit('EduSpeedButtons', @EduSpeedButtons.Register); +end; initialization - RegisterPackage('EducationLaz', @Register); + RegisterPackage('EducationLaz', @Register); end. diff --git a/components/externhelp/externhelp.pas b/components/externhelp/externhelp.pas index 1ed8d4631b..f0f37ce0fc 100644 --- a/components/externhelp/externhelp.pas +++ b/components/externhelp/externhelp.pas @@ -2,8 +2,9 @@ This source is only used to compile and install the package. } -unit ExternHelp; +unit ExternHelp; +{$warn 5023 off : no warning about unused units} interface uses @@ -11,11 +12,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('ExternHelpFrm', @ExternHelpFrm.Register); -end; + RegisterUnit('ExternHelpFrm', @ExternHelpFrm.Register); +end; initialization - RegisterPackage('ExternHelp', @Register); + RegisterPackage('ExternHelp', @Register); end. diff --git a/components/favorites/favorites.pas b/components/favorites/favorites.pas index f7a20a077a..5cc33ae4d3 100644 --- a/components/favorites/favorites.pas +++ b/components/favorites/favorites.pas @@ -4,6 +4,7 @@ unit favorites; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/filebrowser/idefilebrowser.pas b/components/filebrowser/idefilebrowser.pas index f08d73047b..08cdc6f19b 100644 --- a/components/filebrowser/idefilebrowser.pas +++ b/components/filebrowser/idefilebrowser.pas @@ -4,6 +4,7 @@ unit idefilebrowser; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/fpcunit/console/fpcunitconsolerunner.pas b/components/fpcunit/console/fpcunitconsolerunner.pas index 984ca069d2..62bf769779 100644 --- a/components/fpcunit/console/fpcunitconsolerunner.pas +++ b/components/fpcunit/console/fpcunitconsolerunner.pas @@ -1,13 +1,14 @@ { This file was automatically created by Lazarus. Do not edit! -This source is only used to compile and install the package. + This source is only used to compile and install the package. } -unit fpcunitconsolerunner; +unit fpcunitconsolerunner; +{$warn 5023 off : no warning about unused units} interface uses - consoletestrunner; + consoletestrunner; implementation diff --git a/components/fpcunit/fpcunittestrunner.pas b/components/fpcunit/fpcunittestrunner.pas index 32fa0a4d86..f0ff565d58 100644 --- a/components/fpcunit/fpcunittestrunner.pas +++ b/components/fpcunit/fpcunittestrunner.pas @@ -2,12 +2,13 @@ This source is only used to compile and install the package. } -unit FPCUnitTestRunner; +unit FPCUnitTestRunner; +{$warn 5023 off : no warning about unused units} interface uses - GuiTestRunner; + GuiTestRunner; implementation diff --git a/components/fpcunit/ide/fpcunitide.pas b/components/fpcunit/ide/fpcunitide.pas index f3aff8f0da..841352968d 100644 --- a/components/fpcunit/ide/fpcunitide.pas +++ b/components/fpcunit/ide/fpcunitide.pas @@ -1,9 +1,10 @@ -{ Este arquivo foi automaticamente criado pelo Lazarus. Não edite! - Este fonte é usado apenas para compilar e instalar o pacote. +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. } -unit fpcunitide; +unit fpcunitide; +{$warn 5023 off : no warning about unused units} interface uses @@ -11,11 +12,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('FPCUnitLazIDEIntf', @FPCUnitLazIDEIntf.Register); -end; + RegisterUnit('FPCUnitLazIDEIntf', @FPCUnitLazIDEIntf.Register); +end; initialization - RegisterPackage('fpcunitide', @Register); + RegisterPackage('fpcunitide', @Register); end. diff --git a/components/fpdebug/fpdebug.pas b/components/fpdebug/fpdebug.pas index d73212f442..34320a969e 100644 --- a/components/fpdebug/fpdebug.pas +++ b/components/fpdebug/fpdebug.pas @@ -4,6 +4,7 @@ unit fpdebug; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/fppkg/src/lazaruspackagemanager.pas b/components/fppkg/src/lazaruspackagemanager.pas index e61f3a0528..883b723b51 100644 --- a/components/fppkg/src/lazaruspackagemanager.pas +++ b/components/fppkg/src/lazaruspackagemanager.pas @@ -2,8 +2,9 @@ This source is only used to compile and install the package. } -unit LazarusPackageManager; +unit LazarusPackageManager; +{$warn 5023 off : no warning about unused units} interface uses @@ -13,11 +14,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('LazPackageManagerIntf', @LazPackageManagerIntf.Register); -end; + RegisterUnit('LazPackageManagerIntf', @LazPackageManagerIntf.Register); +end; initialization - RegisterPackage('LazarusPackageManager', @Register); + RegisterPackage('LazarusPackageManager', @Register); end. diff --git a/components/fppkg/svn/svnpkg.pas b/components/fppkg/svn/svnpkg.pas index dfcda97032..7b3486315b 100644 --- a/components/fppkg/svn/svnpkg.pas +++ b/components/fppkg/svn/svnpkg.pas @@ -1,13 +1,14 @@ { This file was automatically created by Lazarus. Do not edit! -This source is only used to compile and install the package. + This source is only used to compile and install the package. } -unit svnpkg; +unit svnpkg; +{$warn 5023 off : no warning about unused units} interface uses - SvnClasses, SvnCommand; + SvnClasses, SvnCommand; implementation diff --git a/components/fpvectorial/fpvectorialpkg.pas b/components/fpvectorial/fpvectorialpkg.pas index d023eecefb..ab0c0f9a8e 100644 --- a/components/fpvectorial/fpvectorialpkg.pas +++ b/components/fpvectorial/fpvectorialpkg.pas @@ -4,6 +4,7 @@ unit fpvectorialpkg; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/fpweb/weblaz.pas b/components/fpweb/weblaz.pas index aff134a3ee..c01410802d 100644 --- a/components/fpweb/weblaz.pas +++ b/components/fpweb/weblaz.pas @@ -4,6 +4,7 @@ unit weblaz; +{$warn 5023 off : no warning about unused units} interface uses @@ -29,3 +30,4 @@ end; initialization RegisterPackage('weblaz', @Register); end. + diff --git a/components/googleapis/lazgoogleapis.pas b/components/googleapis/lazgoogleapis.pas index 0603790801..b3c22fabdd 100644 --- a/components/googleapis/lazgoogleapis.pas +++ b/components/googleapis/lazgoogleapis.pas @@ -4,6 +4,7 @@ unit lazgoogleapis; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/h2pas/h2paswizard.pas b/components/h2pas/h2paswizard.pas index 7902f6a97e..1a74daa312 100644 --- a/components/h2pas/h2paswizard.pas +++ b/components/h2pas/h2paswizard.pas @@ -2,21 +2,22 @@ This source is only used to compile and install the package. } -unit H2PasWizard; +unit H2PasWizard; +{$warn 5023 off : no warning about unused units} interface uses - H2PasConvert, H2PasDlg, H2PasStrConsts, IDETextConvListEdit, + H2PasConvert, H2PasDlg, H2PasStrConsts, IDETextConvListEdit, IDETextConvListAdd, LazarusPackageIntf; implementation -procedure Register; +procedure Register; begin - RegisterUnit('H2PasDlg', @H2PasDlg.Register); -end; + RegisterUnit('H2PasDlg', @H2PasDlg.Register); +end; initialization - RegisterPackage('H2PasWizard', @Register); + RegisterPackage('H2PasWizard', @Register); end. diff --git a/components/ideintf/ideintf.pas b/components/ideintf/ideintf.pas index 13930cbc8c..4a745a0677 100644 --- a/components/ideintf/ideintf.pas +++ b/components/ideintf/ideintf.pas @@ -4,6 +4,7 @@ unit IDEIntf; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/images/imagesforlazarus.pas b/components/images/imagesforlazarus.pas index 6612f90574..424c8fcd3d 100644 --- a/components/images/imagesforlazarus.pas +++ b/components/images/imagesforlazarus.pas @@ -2,8 +2,9 @@ This source is only used to compile and install the package. } -unit ImagesForLazarus; +unit ImagesForLazarus; +{$warn 5023 off : no warning about unused units} interface uses @@ -11,11 +12,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('LazTGA', @LazTGA.Register); -end; + RegisterUnit('LazTGA', @LazTGA.Register); +end; initialization - RegisterPackage('ImagesForLazarus', @Register); + RegisterPackage('ImagesForLazarus', @Register); end. diff --git a/components/instantfpc/instantfpclaz.pas b/components/instantfpc/instantfpclaz.pas index 83ea8d35ff..270eda1c2a 100644 --- a/components/instantfpc/instantfpclaz.pas +++ b/components/instantfpc/instantfpclaz.pas @@ -4,6 +4,7 @@ unit InstantFPCLaz; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/jcf2/IdePlugin/lazarus/jcfidelazarus.pas b/components/jcf2/IdePlugin/lazarus/jcfidelazarus.pas index 01086e66f6..e01392abdf 100644 --- a/components/jcf2/IdePlugin/lazarus/jcfidelazarus.pas +++ b/components/jcf2/IdePlugin/lazarus/jcfidelazarus.pas @@ -1,15 +1,14 @@ -{ Этот файл был автоматически создан Lazarus. Н - редактировать! - Исходный код используется только для комп - ляции и установки пакета. +{ This file was automatically created by Lazarus. Do not edit! + This source is only used to compile and install the package. } -unit jcfidelazarus; +unit jcfidelazarus; +{$warn 5023 off : no warning about unused units} interface uses - JcfIdeMain, JcfIdeRegister, AsmKeywords, BuildParseTree, BuildTokenList, + JcfIdeMain, JcfIdeRegister, AsmKeywords, BuildParseTree, BuildTokenList, ParseError, ParseTreeNode, ParseTreeNodeType, PreProcessorExpressionParser, PreProcessorExpressionTokenise, PreProcessorExpressionTokens, PreProcessorParseTree, SourceToken, SourceTokenList, Tokens, TokenUtils, @@ -46,11 +45,11 @@ uses implementation -procedure Register; +procedure Register; begin - RegisterUnit('JcfIdeRegister', @JcfIdeRegister.Register); -end; + RegisterUnit('JcfIdeRegister', @JcfIdeRegister.Register); +end; initialization - RegisterPackage('jcfidelazarus', @Register); + RegisterPackage('jcfidelazarus', @Register); end. diff --git a/components/lazcontrols/design/lazcontroldsgn.pas b/components/lazcontrols/design/lazcontroldsgn.pas index 4cde36f54a..2220bca2ec 100644 --- a/components/lazcontrols/design/lazcontroldsgn.pas +++ b/components/lazcontrols/design/lazcontroldsgn.pas @@ -4,6 +4,7 @@ unit LazControlDsgn; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/lazcontrols/lazcontrols.pas b/components/lazcontrols/lazcontrols.pas index 136025ffad..c836f73937 100644 --- a/components/lazcontrols/lazcontrols.pas +++ b/components/lazcontrols/lazcontrols.pas @@ -4,6 +4,7 @@ unit LazControls; +{$warn 5023 off : no warning about unused units} interface uses diff --git a/components/lazdebuggergdbmi/lazdebuggergdbmi.pas b/components/lazdebuggergdbmi/lazdebuggergdbmi.pas index d9c1fea9e3..7709c79f67 100644 --- a/components/lazdebuggergdbmi/lazdebuggergdbmi.pas +++ b/components/lazdebuggergdbmi/lazdebuggergdbmi.pas @@ -4,12 +4,13 @@ unit LazDebuggerGdbmi; +{$warn 5023 off : no warning about unused units} interface uses - CmdLineDebugger, DebugUtils, GDBTypeInfo, GDBMIMiscClasses, IDEMiniLibC, GDBMIDebugger, - GDBMIDebugInstructions, GDBMIServerDebugger, SSHGDBMIDebugger, GdbmiStringConstants, - LazarusPackageIntf; + CmdLineDebugger, DebugUtils, GDBTypeInfo, GDBMIMiscClasses, IDEMiniLibC, + GDBMIDebugger, GDBMIDebugInstructions, GDBMIServerDebugger, + SSHGDBMIDebugger, GdbmiStringConstants, LazarusPackageIntf; implementation