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

codetools: h2p: added safety check

Browse Source 
git-svn-id: trunk@14660 -
This commit is contained in:
mattias 2008-03-26 17:52:58 +00:00
parent dce2481e79
commit fc6e52e515
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
components/codetools/nonpascalcodetools.pas
View File

@ -410,28 +410,32 @@ begin
{$R-}
Result:=Source;
DstPos:=1;
SrcPos:=1;
SrcPos:=StartPos;
SrcLen:=length(Source);
if EndPos<1 then EndPos:=SrcLen+1;
if SrcLen>EndPos then SrcLen:=EndPos;
repeat
ReadRawNextCAtom(Source,SrcPos,AtomStart);
if AtomStart>=EndPos then break;
if not (Source[AtomStart] in [#10,#13]) then begin
if IsIdentChar[Source[AtomStart]]
and ((DstPos=1) or (IsIdentChar[Result[DstPos-1]])) then begin
// space needed between words/numbers
Result[DstPos]:=' ';
inc(DstPos);
if EndPos>SrcLen then EndPos:=SrcLen+1;
if SrcPos<EndPos then begin
repeat
ReadRawNextCAtom(Source,SrcPos,AtomStart);
if AtomStart>=EndPos then break;
if not (Source[AtomStart] in [#10,#13]) then begin
if IsIdentChar[Source[AtomStart]]
and ((DstPos=1) or (IsIdentChar[Result[DstPos-1]])) then begin
// space needed between words/numbers
Result[DstPos]:=' ';
inc(DstPos);
end;
// copy word
while AtomStart<SrcPos do begin
Result[DstPos]:=Source[AtomStart];
inc(AtomStart);
inc(DstPos);
end;
end;
// copy word
while AtomStart<SrcPos do begin
Result[DstPos]:=Source[AtomStart];
inc(AtomStart);
inc(DstPos);
end;
end;
until false;
until false;
end;
if DstPos>length(Result)+1 then
raise Exception.Create('');
SetLength(Result,DstPos-1);
{$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF}
end;