paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-20 21:08:18 +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 RaiseLastError;
procedure DoProgress; inline; procedure DoProgress; inline;
procedure NotifyAboutProgress; procedure NotifyAboutProgress;
procedure FetchScannerSource(Range: TLinkScannerRange); virtual; procedure FetchScannerSource; virtual;
function InternalAtomIsIdentifier: boolean; inline; function InternalAtomIsIdentifier: boolean; inline;
public public
Tree: TCodeTree; Tree: TCodeTree;
@ -494,7 +494,7 @@ begin
end; end;
end; end;
procedure TCustomCodeTool.FetchScannerSource(Range: TLinkScannerRange); procedure TCustomCodeTool.FetchScannerSource;
begin begin
// update scanned code // update scanned code
if FLastScannerChangeStep=Scanner.ChangeStep then begin if FLastScannerChangeStep=Scanner.ChangeStep then begin
@ -1983,7 +1983,7 @@ begin
// scan // scan
FLastProgressPos:=0; FLastProgressPos:=0;
Scanner.Scan(Range,CheckFilesOnDisk); Scanner.Scan(Range,CheckFilesOnDisk);
FetchScannerSource(Range); FetchScannerSource;
// init parsing values // init parsing values
CurPos:=StartAtomPosition; CurPos:=StartAtomPosition;
LastAtoms.Clear; LastAtoms.Clear;

6
components/codetools/pascalparsertool.pas
View File

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