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

codetools: accelerated TSourceLog.BuildLineRanges

Browse Source 
git-svn-id: trunk@25670 -
This commit is contained in:
mattias 2010-05-26 22:11:33 +00:00
parent aa707c4feb
commit 9590345c0c
1 changed files with 22 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
components/codetools/sourcelog.pas
View File

@ -84,7 +84,7 @@ type
destructor Destroy; override;
end;
TLineRange = record
TLineRange = packed record
StartPos, EndPos: integer;
end;
PLineRange = ^TLineRange;
@ -629,41 +629,45 @@ end;
procedure TSourceLog.BuildLineRanges;
var
p,line:integer;
line:integer;
Cap: Integer;
SrcEnd: PChar;
SrcStart: PChar;
p: PChar;
begin
{$IFOPT R+}{$DEFINE RangeChecking}{$ENDIF}
{$R-}
//DebugLn('[TSourceLog.BuildLineRanges] A Self=',DbgS(Self),',LineCount=',FLineCount,' Len=',SourceLength);
//DebugLn(['[TSourceLog.BuildLineRanges] A Self=',DbgS(Self),',LineCount=',FLineCount,' Len=',SourceLength]);
if FLineCount>=0 then exit;
if FLineRanges<>nil then begin
FreeMem(FLineRanges);
FLineRanges:=nil;
end;
// build line range list
FLineCount:=0;
if FSource='' then exit;
Cap:=100;
GetMem(FLineRanges,Cap*SizeOf(TLineRange));
p:=1;
if FSource='' then begin
ReAllocMem(FLineRanges,0);
exit;
end;
Cap:=length(FSource) div 20+100;
ReAllocMem(FLineRanges,Cap*SizeOf(TLineRange));
line:=0;
FLineRanges[line].StartPos:=1;
while (p<=fSrcLen) do begin
if (not (FSource[p] in [#10,#13])) then begin
SrcStart:=PChar(FSource);
SrcEnd:=SrcStart+FSrcLen;
p:=SrcStart;
while (p<SrcEnd) do begin
if (not (p^ in [#10,#13])) then begin
inc(p);
end else begin
// new line
FLineRanges[line].EndPos:=p;
FLineRanges[line].EndPos:=p-SrcStart+1;
inc(line);
if line>=Cap then begin
Cap:=Cap*2;
ReAllocMem(FLineRanges,Cap*SizeOf(TLineRange));
end;
inc(p);
if (p<=fSrcLen) and (FSource[p] in [#10,#13])
and (FSource[p]<>FSource[p-1]) then
if (p[1] in [#10,#13]) and (p^<>p[1]) then
inc(p,2)
else
inc(p);
FLineRanges[line].StartPos:=p;
FLineRanges[line].StartPos:=p-SrcStart+1;
end;
end;
FLineRanges[line].EndPos:=fSrcLen+1;