paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 13:40:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: reduced output

Browse Source 
git-svn-id: trunk@417 -
This commit is contained in:
lazarus 2001-11-12 22:20:19 +00:00
parent 3b1dd8add9
commit b3dd5353c5
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codetools.pas
View File

@ -3422,7 +3422,6 @@ begin
// read all constants Name = <Const>; or Name : type = <Const>;
repeat
ReadNextAtom; // name
writeln(' TPascalParserTool.KeyWordFuncConst Name=',GetAtom);
if AtomIsIdentifier(false) then begin
CreateChildNode;
CurNode.Desc:=ctnConstDefinition;
@ -3430,7 +3429,6 @@ writeln(' TPascalParserTool.KeyWordFuncConst Name=',GetAtom);
if AtomIsChar(':') then begin
// read type
ReadNextAtom;
writeln(' TPascalParserTool.KeyWordFuncConst Type=',GetAtom);
TypeKeyWordFuncList.DoItUpperCase(UpperSrc,CurPos.StartPos,
CurPos.EndPos-CurPos.StartPos);
end;
@ -3439,7 +3437,6 @@ writeln(' TPascalParserTool.KeyWordFuncConst Type=',GetAtom);
// read constant
repeat
ReadNextAtom;
writeln(' TPascalParserTool.KeyWordFuncConst Value=',GetAtom);
if AtomIsChar('(') or AtomIsChar('[') then begin
ReadTilBracketClose(true);
ReadNextAtom;