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

codetools: reduced debugging

Browse Source 
git-svn-id: trunk@21986 -
This commit is contained in:
mattias 2009-10-02 18:57:58 +00:00
parent 1ffd720917
commit 2360f0fed7
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/stdcodetools.pas
View File

@ -3521,7 +3521,7 @@ begin
EndPos:=CurPos.EndPos; EndPos:=CurPos.EndPos;
end; end;
if EndPos<1 then exit; if EndPos<1 then exit;
DebugLn(['TStandardCodeTool.ExtractOperand "',dbgstr(copy(Src,StartPos,EndPOs-StartPos)),'"']); //DebugLn(['TStandardCodeTool.ExtractOperand "',dbgstr(copy(Src,StartPos,EndPOs-StartPos)),'"']);
Operand:=ExtractCode(StartPos,EndPos,[phpCommentsToSpace]); Operand:=ExtractCode(StartPos,EndPos,[phpCommentsToSpace]);
if WithoutTrailingPoints then begin if WithoutTrailingPoints then begin
while (Operand<>'') and (Operand[length(Operand)]='.') do while (Operand<>'') and (Operand[length(Operand)]='.') do