paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: remove obsolete LinkScannerRangeNames, use WriteStr

Browse Source 
git-svn-id: trunk@33240 -
This commit is contained in:
juha 2011-11-02 23:17:47 +00:00
parent c58e2a0d75
commit e68a06ceba
1 changed files with 1 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/codetools/linkscanner.pas
View File

@ -583,23 +583,6 @@ var
PSourceLinkMemManager: TPSourceLinkMemManager;
PSourceChangeStepMemManager: TPSourceChangeStepMemManager;
const
LinkScannerRangeNames: array[TLinkScannerRange] of string = (
'lsrNone',
'lsrInit',
'lsrSourceType',
'lsrSourceName',
'lsrInterfaceStart',
'lsrMainUsesSectionStart',
'lsrMainUsesSectionEnd',
'lsrImplementationStart',
'lsrImplementationUsesSectionStart',
'lsrImplementationUsesSectionEnd',
'lsrInitializationStart',
'lsrFinalizationStart',
'lsrEnd'
);
procedure AddCodeToUniqueList(ACode: Pointer; UniqueSortedCodeList: TFPList);
function IndexOfCodeInUniqueList(ACode: Pointer;
UniqueSortedCodeList: TList): integer;
@ -656,7 +639,7 @@ end;
function dbgs(r: TLinkScannerRange): string; overload;
begin
Result:=LinkScannerRangeNames[r];
WriteStr(Result, r);
end;
procedure AddCodeToUniqueList(ACode: Pointer; UniqueSortedCodeList: TFPList);