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

codetools: FindSMartHint: replace comments to single space

Browse Source 
git-svn-id: trunk@30696 -
This commit is contained in:
mattias 2011-05-12 16:40:23 +00:00
parent 1b7397b2a3
commit 27c0fdd062
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/finddeclarationtool.pas
View File

@ -2202,7 +2202,7 @@ begin
Result:=Result+' = ' Result:=Result+' = '
else else
Result:=Result+': '; Result:=Result+': ';
Result := Result + ExtractNode(TypeNode, []); Result := Result + ExtractNode(TypeNode, [phpCommentsToSpace]);
end; end;
ctnClass, ctnClassInterface, ctnDispinterface, ctnClass, ctnClassInterface, ctnDispinterface,
ctnObject, ctnRecordType, ctnObject, ctnRecordType,
@ -2214,7 +2214,7 @@ begin
end; end;
ctnConstant: ctnConstant:
begin begin
NodeStr:=' = '+ExtractNode(TypeNode,[]); NodeStr:=' = '+ExtractNode(TypeNode,[phpCommentsToSpace]);
Result:=Result+copy(NodeStr,1,50); Result:=Result+copy(NodeStr,1,50);
end; end;
end; end;
@ -2225,7 +2225,7 @@ begin
DebugLn('TFindDeclarationTool.FindSmartHint const without subnode "',ExtractNode(Node,[]),'"'); DebugLn('TFindDeclarationTool.FindSmartHint const without subnode "',ExtractNode(Node,[]),'"');
NodeStr:=ExtractCode(Node.StartPos NodeStr:=ExtractCode(Node.StartPos
+GetIdentLen(@Src[Node.StartPos]), +GetIdentLen(@Src[Node.StartPos]),
Node.EndPos,[]); Node.EndPos,[phpCommentsToSpace]);
Result:=Result+copy(NodeStr,1,50); Result:=Result+copy(NodeStr,1,50);
end; end;
end; end;
@ -2239,7 +2239,7 @@ begin
Result:=Result+ExtractProcHead(Node, Result:=Result+ExtractProcHead(Node,
[phpAddClassName,phpWithStart,phpWithVarModifiers,phpWithParameterNames, [phpAddClassName,phpWithStart,phpWithVarModifiers,phpWithParameterNames,
phpWithDefaultValues,phpWithResultType,phpWithOfObject]); phpWithDefaultValues,phpWithResultType,phpWithOfObject,phpCommentsToSpace]);
end; end;
ctnProperty, ctnProperty,