paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-02 16:32:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@48664 -
This commit is contained in:
mattias 2015-04-06 17:50:54 +00:00
parent db6d5c1a01
commit 838eb3d9c4
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/customcodetool.pas
View File

@ -133,7 +133,7 @@ type
procedure RaiseLastError;
procedure DoProgress; inline;
procedure NotifyAboutProgress;
procedure FetchScannerSource(Range: TLinkScannerRange); virtual;
procedure FetchScannerSource; virtual;
function InternalAtomIsIdentifier: boolean; inline;
public
Tree: TCodeTree;
@ -494,7 +494,7 @@ begin
end;
end;
procedure TCustomCodeTool.FetchScannerSource(Range: TLinkScannerRange);
procedure TCustomCodeTool.FetchScannerSource;
begin
// update scanned code
if FLastScannerChangeStep=Scanner.ChangeStep then begin
@ -1983,7 +1983,7 @@ begin
// scan
FLastProgressPos:=0;
Scanner.Scan(Range,CheckFilesOnDisk);
FetchScannerSource(Range);
FetchScannerSource;
// init parsing values
CurPos:=StartAtomPosition;
LastAtoms.Clear;

6
components/codetools/pascalparsertool.pas
View File

@ -43,7 +43,7 @@ uses
MemCheck,
{$ENDIF}
Classes, SysUtils, FileProcs, CodeToolsStrConsts, CodeTree, CodeAtom, ExprEval,
CustomCodeTool, MultiKeyWordListTool, KeywordFuncLists, BasicCodeTools,
CustomCodeTool, MultiKeyWordListTool, KeywordFuncLists,
CodeToolsStructs, LinkScanner, CodeCache, AVL_Tree;
type
@ -143,7 +143,7 @@ type
FLastDefineStatic: Boolean;
FLastDefineEmbedded: Boolean;
FLastDefineTargetCPU: String;
procedure FetchScannerSource(Range: TLinkScannerRange); override;
procedure FetchScannerSource; override;
// sections
function KeyWordFuncSection: boolean;
function KeyWordFuncEndPoint: boolean;
@ -5177,7 +5177,7 @@ begin
ReadNextAtom;
end;
procedure TPascalParserTool.FetchScannerSource(Range: TLinkScannerRange);
procedure TPascalParserTool.FetchScannerSource;
var
AllChanged: Boolean;
NewSrc: String;