paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 03:58:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed TPascalParserTool.ExtractNextAtom adding space between words

Browse Source 
git-svn-id: trunk@30695 -
This commit is contained in:
mattias 2011-05-12 16:33:47 +00:00
parent 7cd017040a
commit 1b7397b2a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -4487,7 +4487,7 @@ begin
// -> check if a space must be inserted // -> check if a space must be inserted
if AddAtom if AddAtom
and ( ((phpCommentsToSpace in Attr) and (CurPos.StartPos>LastAtomEndPos)) and ( ((phpCommentsToSpace in Attr) and (CurPos.StartPos>LastAtomEndPos))
or ((CurPos.StartPos<=SrcLen) and (IsIdentStartChar[Src[CurPos.StartPos]]) or ((CurPos.StartPos<=SrcLen) and (IsIdentChar[Src[CurPos.StartPos]])
and ExtractStreamEndIsIdentChar) and ExtractStreamEndIsIdentChar)
) )
then begin then begin