paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-24 17:43:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checked compiler warnings, clean up, fixed compile with fpc 2.6.4

Browse Source 
git-svn-id: trunk@48228 -
This commit is contained in:
mattias 2015-03-10 15:28:11 +00:00
parent a950c69696
commit b98e5b914f
21 changed files with 23 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convcodetool.pas
View File

@ -38,7 +38,7 @@ uses
LazarusIDEStrConsts, LazIDEIntf, FormEditor, IDEExternToolIntf, LazarusIDEStrConsts, LazIDEIntf, FormEditor, IDEExternToolIntf,
// codetools // codetools
CodeToolManager, StdCodeTools, CodeTree, CodeAtom, CodeToolManager, StdCodeTools, CodeTree, CodeAtom,
FindDeclarationTool, PascalReaderTool, PascalParserTool, LFMTrees, FindDeclarationTool, LFMTrees,
ExprEval, KeywordFuncLists, BasicCodeTools, LinkScanner, ExprEval, KeywordFuncLists, BasicCodeTools, LinkScanner,
CodeCache, SourceChanger, CustomCodeTool, CodeToolsStructs, CodeCache, SourceChanger, CustomCodeTool, CodeToolsStructs,
// Converter // Converter

2
debugger/debugattachdialog.pas
View File

@ -9,7 +9,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, DbgIntfDebuggerBase, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, DbgIntfDebuggerBase, Forms, Controls, Graphics, Dialogs,
StdCtrls, ComCtrls, LCLType, Contnrs, LazarusIDEStrConsts, BaseDebugManager, Debugger; StdCtrls, ComCtrls, LCLType, LazarusIDEStrConsts, BaseDebugManager, Debugger;
type type

2
designer/objinspext.pas
View File

@ -19,7 +19,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, StdCtrls, TypInfo, Classes, SysUtils, LCLProc, Forms, Controls, Buttons, StdCtrls, TypInfo,
ExtCtrls, Dialogs, Menus, ComCtrls, Grids, CustomTimer, ExtCtrls, Dialogs, Menus, ComCtrls, Grids, CustomTimer,
DirectoryCacher, CodeToolManager, CodeCache, PropEdits, CodeToolManager, CodeCache, PropEdits,
LazIDEIntf, ProjectIntf, ObjectInspector, OIFavoriteProperties, LazIDEIntf, ProjectIntf, ObjectInspector, OIFavoriteProperties,
DialogProcs, FileUtil, LazConf, BaseIDEIntf, IDEDialogs, LazConfigStorage, DialogProcs, FileUtil, LazConf, BaseIDEIntf, IDEDialogs, LazConfigStorage,
LazarusIDEStrConsts; LazarusIDEStrConsts;

2
ide/addtoprojectdlg.pas
View File

@ -81,7 +81,7 @@ type
FilesListView: TListView; FilesListView: TListView;
procedure AddFileButtonClick(Sender: TObject); procedure AddFileButtonClick(Sender: TObject);
procedure AddFileListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; procedure AddFileListViewSelectItem(Sender: TObject; {%H-}Item: TListItem;
Selected: Boolean); {%H-}Selected: Boolean);
procedure AddToProjectDialogClose(Sender: TObject; procedure AddToProjectDialogClose(Sender: TObject;
var {%H-}CloseAction: TCloseAction); var {%H-}CloseAction: TCloseAction);
procedure DependPkgNameComboBoxChange(Sender: TObject); procedure DependPkgNameComboBoxChange(Sender: TObject);

2
ide/checkcompileropts.pas
View File

@ -34,7 +34,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs, FileUtil, Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs, FileUtil,
Clipbrd, StdCtrls, Buttons, Process, AVL_Tree, Menus, ExtCtrls, Clipbrd, StdCtrls, Buttons, Process, AVL_Tree, Menus, ExtCtrls,
UTF8Process, ButtonPanel, ComCtrls, ButtonPanel, ComCtrls,
// codetools // codetools
KeywordFuncLists, CodeToolManager, FileProcs, DefineTemplates, KeywordFuncLists, CodeToolManager, FileProcs, DefineTemplates,
CodeToolsStructs, CodeToolsStructs,

6
ide/codebrowser.pas
View File

@ -49,7 +49,7 @@ uses
Dialogs, Clipbrd, LCLIntf, AVL_Tree, StdCtrls, ExtCtrls, ComCtrls, Buttons, Dialogs, Clipbrd, LCLIntf, AVL_Tree, StdCtrls, ExtCtrls, ComCtrls, Buttons,
Menus, HelpIntfs, Menus, HelpIntfs,
// codetools // codetools
CodeAtom, BasicCodeTools, DefineTemplates, CodeTree, CodeCache, BasicCodeTools, DefineTemplates, CodeTree, CodeCache,
CodeToolsStructs, CodeToolManager, PascalParserTool, LinkScanner, FileProcs, CodeToolsStructs, CodeToolManager, PascalParserTool, LinkScanner, FileProcs,
CodeIndex, StdCodeTools, SourceLog, CustomCodeTool, CodeIndex, StdCodeTools, SourceLog, CustomCodeTool,
// IDEIntf // IDEIntf
@ -383,7 +383,7 @@ type
public public
function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean; function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
var var
CodeBrowserView: TCodeBrowserView = nil; CodeBrowserView: TCodeBrowserView = nil;
@ -1878,8 +1878,6 @@ procedure TCodeBrowserView.GetNodeIdentifier(Tool: TStandardCodeTool;
Result:=LeftStr(Result, MAX_LEN)+'...'; Result:=LeftStr(Result, MAX_LEN)+'...';
end; end;
const
NodeFlags = [];
begin begin
if CTNode.StartPos>=CTNode.EndPos then begin if CTNode.StartPos>=CTNode.EndPos then begin
Identifier:=''; Identifier:='';

2
ide/codecontextform.pas
View File

@ -41,7 +41,7 @@ uses
Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds, Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds,
BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool, BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool,
IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager, IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager,
SourceChanger, SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts; SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts;
type type

2
ide/codehelp.pas
View File

@ -302,7 +302,7 @@ type
out CacheWasUsed: boolean): TCodeHelpParseResult; out CacheWasUsed: boolean): TCodeHelpParseResult;
function GetCodeContext(CodePos: PCodeXYPosition; function GetCodeContext(CodePos: PCodeXYPosition;
out FindContext: TFindContext; out FindContext: TFindContext;
Complete: boolean; {%H-}Complete: boolean;
out CacheWasUsed: boolean): TCodeHelpParseResult; out CacheWasUsed: boolean): TCodeHelpParseResult;
function GetElementChain(Code: TCodeBuffer; X, Y: integer; Complete: boolean; function GetElementChain(Code: TCodeBuffer; X, Y: integer; Complete: boolean;
out Chain: TCodeHelpElementChain; out Chain: TCodeHelpElementChain;

4
ide/findreplacedialog.pp
View File

@ -32,7 +32,7 @@ unit FindReplaceDialog;
interface interface
uses uses
Classes, Math, SysUtils, LCLProc, LCLType, Controls, StdCtrls, Forms, Buttons, Classes, SysUtils, LCLProc, LCLType, Controls, StdCtrls, Forms, Buttons,
ExtCtrls, Dialogs, Graphics, ButtonPanel, ExtCtrls, Dialogs, Graphics, ButtonPanel,
SynEditTypes, SynRegExpr, SynEdit, SynEditTypes, SynRegExpr, SynEdit,
IDEHelpIntf, IDEImagesIntf, IDEWindowIntf, IDEDialogs, IDEHelpIntf, IDEImagesIntf, IDEWindowIntf, IDEDialogs,
@ -69,7 +69,7 @@ type
WholeWordsOnlyCheckBox: TCheckBox; WholeWordsOnlyCheckBox: TCheckBox;
procedure EnableAutoCompleteSpeedButtonClick(Sender: TObject); procedure EnableAutoCompleteSpeedButtonClick(Sender: TObject);
procedure FormChangeBounds(Sender: TObject); procedure FormChangeBounds(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure OptionsGroupBoxResize(Sender: TObject); procedure OptionsGroupBoxResize(Sender: TObject);
procedure ReplaceWithCheckboxChange(Sender: TObject); procedure ReplaceWithCheckboxChange(Sender: TObject);

1
ide/fpdochints.pas
View File

@ -32,7 +32,6 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, StdCtrls, Classes, SysUtils, LCLProc, Forms, Controls, Graphics, StdCtrls,
CodeToolManager, CodeCache, IdentCompletionTool, CodeTree, CodeToolManager, CodeCache, IdentCompletionTool, CodeTree,
CodeAtom,
IDEHelpIntf, SrcEditorIntf, SrcEditHintFrm, CodeHelp; IDEHelpIntf, SrcEditorIntf, SrcEditHintFrm, CodeHelp;
type type

2
ide/frames/componentpalette_options.pas
View File

@ -25,7 +25,7 @@ unit componentpalette_options;
interface interface
uses uses
Classes, SysUtils, fgl, Graphics, Forms, Controls, StdCtrls, Dialogs, Buttons, Classes, SysUtils, Graphics, Forms, Controls, StdCtrls, Dialogs, Buttons,
ComCtrls, ExtCtrls, FileUtil, LCLProc, LCLType, Menus, IDEProcs, Laz2_XMLCfg, ComCtrls, ExtCtrls, FileUtil, LCLProc, LCLType, Menus, IDEProcs, Laz2_XMLCfg,
EnvironmentOpts, LazarusIDEStrConsts, IDEOptionsIntf, EnvironmentOpts, LazarusIDEStrConsts, IDEOptionsIntf,
IDEImagesIntf, DividerBevel, ComponentReg, ComponentPalette, IDEOptionDefs, IDEImagesIntf, DividerBevel, ComponentReg, ComponentPalette, IDEOptionDefs,

2
ide/ideoptionsdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, LCLType, Controls, Forms, ComCtrls, Buttons, Classes, SysUtils, LCLProc, LCLType, Controls, Forms, ComCtrls, Buttons,
ButtonPanel, ExtCtrls, EditBtn, StdCtrls, Dialogs, TreeFilterEdit, ButtonPanel, ExtCtrls, StdCtrls, Dialogs, TreeFilterEdit,
IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf, ProjectIntf, IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf, ProjectIntf,
EnvironmentOpts, LazarusIDEStrConsts, EditorOptions, EnvironmentOpts, LazarusIDEStrConsts, EditorOptions,
BuildModesManager, TransferMacros, project_save_options, Project, BuildModesManager, TransferMacros, project_save_options, Project,

2
ide/include/ide.inc
View File

@ -54,7 +54,7 @@
{$OPTIMIZATION NOSTACKFRAME} {$OPTIMIZATION NOSTACKFRAME}
{$ENDIF} {$ENDIF}
{$IF defined(Windows) and defined(HEAPTRC_WINDOW) and FPC_FULLVERSION>=20701} {$IF defined(Windows) and defined(HEAPTRC_WINDOW) and (FPC_FULLVERSION>=20701)}
{$DEFINE EnableRedirectStdErr} {$DEFINE EnableRedirectStdErr}
{$ENDIF} {$ENDIF}

2
ide/initialsetupdlgs.pas
View File

@ -40,7 +40,7 @@ unit InitialSetupDlgs;
interface interface
uses uses
Classes, SysUtils, contnrs, LCLProc, Forms, Controls, Buttons, Classes, SysUtils, LCLProc, Forms, Controls, Buttons,
Dialogs, FileUtil, lazutf8classes, LazFileUtils, LazFileCache, Dialogs, FileUtil, lazutf8classes, LazFileUtils, LazFileCache,
LazLogger, Graphics, ComCtrls, ExtCtrls, StdCtrls, DefineTemplates, LazLogger, Graphics, ComCtrls, ExtCtrls, StdCtrls, DefineTemplates,
CodeToolManager, FileProcs, TransferMacros, MacroDefIntf, GDBMIDebugger, CodeToolManager, FileProcs, TransferMacros, MacroDefIntf, GDBMIDebugger,

4
ide/macropromptdlg.pas
View File

@ -38,7 +38,7 @@ uses
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
MemCheck, MemCheck,
{$ENDIF} {$ENDIF}
Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls, ComCtrls, Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls,
Dialogs, LResources, LazarusIDEStrConsts; Dialogs, LResources, LazarusIDEStrConsts;
@ -51,7 +51,7 @@ type
procedure MacroPrompDialogResize(Sender: TObject); procedure MacroPrompDialogResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject); procedure OkButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender: TObject); procedure CancelButtonClick(Sender: TObject);
procedure DataEditKeyDown(Sender: TObject; var Key:Word; Shift:TShiftState); procedure DataEditKeyDown(Sender: TObject; var Key:Word; {%H-}Shift:TShiftState);
public public
constructor Create(AnOwner: TComponent); override; constructor Create(AnOwner: TComponent); override;
end; end;

2
ide/main.pp
View File

@ -64,7 +64,7 @@ uses
AsyncProcess, AsyncProcess,
{$ENDIF} {$ENDIF}
// lazutils // lazutils
LazUTF8, Laz2_XMLCfg, AvgLvlTree, LazUTF8, Laz2_XMLCfg,
// lcl // lcl
LCLProc, LCLType, LCLIntf, LConvEncoding, ComCtrls, LCLProc, LCLType, LCLIntf, LConvEncoding, ComCtrls,
FileUtil, LResources, Forms, Buttons, Menus, Controls, GraphType, FileUtil, LResources, Forms, Buttons, Menus, Controls, GraphType,

2
ide/patheditordlg.pas
View File

@ -22,7 +22,7 @@ interface
uses uses
Classes, SysUtils, types, Forms, Controls, Buttons, StdCtrls, Dialogs, Classes, SysUtils, types, Forms, Controls, Buttons, StdCtrls, Dialogs,
FileUtil, ButtonPanel, ExtCtrls, EditBtn, MacroIntf, IDEImagesIntf, LCLType, FileUtil, ButtonPanel, ExtCtrls, MacroIntf, IDEImagesIntf, LCLType,
Graphics, Menus, TransferMacros, LazarusIDEStrConsts, shortpathedit, Clipbrd, Graphics, Menus, TransferMacros, LazarusIDEStrConsts, shortpathedit, Clipbrd,
LCLProc; LCLProc;

2
ide/sourceeditprocs.pas
View File

@ -40,7 +40,7 @@ uses
SynEditHighlighter, SynRegExpr, SynCompletion, BasicCodeTools, CodeTree, SynEditHighlighter, SynRegExpr, SynCompletion, BasicCodeTools, CodeTree,
CodeAtom, CodeCache, SourceChanger, CustomCodeTool, CodeToolManager, CodeAtom, CodeCache, SourceChanger, CustomCodeTool, CodeToolManager,
PascalParserTool, KeywordFuncLists, FileProcs, IdentCompletionTool, PascalParserTool, KeywordFuncLists, FileProcs, IdentCompletionTool,
PascalReaderTool, SourceLog, PascalReaderTool,
LazIDEIntf, TextTools, IDETextConverter, DialogProcs, EditorOptions, LazIDEIntf, TextTools, IDETextConverter, DialogProcs, EditorOptions,
IDEImagesIntf, CodeToolsOptions; IDEImagesIntf, CodeToolsOptions;

2
ide/useunitdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Buttons, Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Buttons,
ButtonPanel, Dialogs, LCLProc, FileProcs, Graphics, LCLType, EditBtn, ButtonPanel, Dialogs, LCLProc, FileProcs, Graphics, LCLType,
SourceEditor, LazIDEIntf, IDEImagesIntf, LazarusIDEStrConsts, ProjectIntf, SourceEditor, LazIDEIntf, IDEImagesIntf, LazarusIDEStrConsts, ProjectIntf,
Project, CodeCache, CodeToolManager, IdentCompletionTool, CodeTree, Project, CodeCache, CodeToolManager, IdentCompletionTool, CodeTree,
ListFilterEdit, LinkScanner; ListFilterEdit, LinkScanner;

2
ide/viewunit_dlg.pp
View File

@ -42,7 +42,7 @@ interface
uses uses
SysUtils, Classes, Controls, Forms, Dialogs, Buttons, StdCtrls, SysUtils, Classes, Controls, Forms, Dialogs, Buttons, StdCtrls,
LazarusIdeStrConsts, IDEProcs, CustomFormEditor, LCLType, LCLIntf, LazarusIdeStrConsts, IDEProcs, CustomFormEditor, LCLType, LCLIntf,
ExtCtrls, ButtonPanel, Menus, AVL_Tree, ImgList, ComCtrls, ExtCtrls, ButtonPanel, Menus, AVL_Tree, ComCtrls,
PackageDefs, IDEWindowIntf, IDEHelpIntf, IDEImagesIntf, ListFilterEdit, PackageDefs, IDEWindowIntf, IDEHelpIntf, IDEImagesIntf, ListFilterEdit,
CodeToolsStructs, CodeToolManager, FileProcs, lazutf8sysutils, LazFileUtils, CodeToolsStructs, CodeToolManager, FileProcs, lazutf8sysutils, LazFileUtils,
LazLogger; LazLogger;

2
packager/installpkgsetdlg.pas
View File

@ -39,7 +39,7 @@ interface
uses uses
Classes, SysUtils, contnrs, LCLProc, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, contnrs, LCLProc, Forms, Controls, Graphics, Dialogs,
KeywordFuncLists, BasicCodeTools, StdCtrls, Buttons, FileUtil, ExtCtrls, KeywordFuncLists, BasicCodeTools, StdCtrls, Buttons, FileUtil, ExtCtrls,
ComCtrls, EditBtn, LCLType, ImgList, AvgLvlTree, Laz2_XMLCfg, LazUTF8, ComCtrls, LCLType, ImgList, AvgLvlTree, Laz2_XMLCfg, LazUTF8,
LazFileUtils, TreeFilterEdit, PackageIntf, IDEImagesIntf, IDEHelpIntf, LazFileUtils, TreeFilterEdit, PackageIntf, IDEImagesIntf, IDEHelpIntf,
IDEDialogs, IDEWindowIntf, LazarusIDEStrConsts, EnvironmentOpts, InputHistory, IDEDialogs, IDEWindowIntf, LazarusIDEStrConsts, EnvironmentOpts, InputHistory,
LazConf, IDEProcs, PackageDefs, PackageSystem, PackageLinks, LazConf, IDEProcs, PackageDefs, PackageSystem, PackageLinks,