paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 01:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed to take expressions into account

Browse Source 
git-svn-id: trunk@22053 -
This commit is contained in:
michael 2012-08-09 19:31:36 +00:00
parent 647bd0ec1c
commit a43d433081
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-passrc/examples/test_parser.pp
View File

@ -488,8 +488,8 @@ begin
begin begin
write(s); write(s);
for l:=0 to lics.Expressions.Count-2 do for l:=0 to lics.Expressions.Count-2 do
write(DelQuot(lics.Expressions[l]),','); write(DelQuot(TPasExpr(lics.Expressions[l]).GetDeclaration(True)),',');
write(DelQuot(lics.Expressions[lics.Expressions.Count-1]),': '); // !!bug too much ' in expression write(DelQuot(TPasExpr(lics.Expressions[lics.Expressions.Count-1]).GetDeclaration(True)),': '); // !!bug too much ' in expression
//if not assigned(lics.Body) then writeln('TPasImplCaseStatement missing BODY'); //if not assigned(lics.Body) then writeln('TPasImplCaseStatement missing BODY');
//if assigned(lics.Body) and (TPasImplBlock(lics.Body).Elements.Count >0) then //if assigned(lics.Body) and (TPasImplBlock(lics.Body).Elements.Count >0) then
// GetTPasImplBlock(TPasImplBlock(lics.Body),lindent+1,0,false,true) // GetTPasImplBlock(TPasImplBlock(lics.Body),lindent+1,0,false,true)
@ -509,8 +509,8 @@ begin
if liwd.Expressions.Count>0 then if liwd.Expressions.Count>0 then
begin begin
for l:=0 to liwd.Expressions.Count-2 do for l:=0 to liwd.Expressions.Count-2 do
write(liwd.Expressions[l],','); write(TPasExpr(liwd.Expressions[l]).GetDeclaration(true),',');
write(liwd.Expressions[liwd.Expressions.Count-1]); write(TPasExpr(liwd.Expressions[liwd.Expressions.Count-1]).GetDeclaration(true));
end; end;
writeln(' do'); writeln(' do');
//if TPasImplBlock(liwd.Body).Elements.Count >0 then //if TPasImplBlock(liwd.Body).Elements.Count >0 then