paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 15:59:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation

Browse Source 
git-svn-id: trunk@35359 -
This commit is contained in:
michael 2017-01-29 14:50:46 +00:00
parent a809705fb8
commit 892b616adf
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -544,9 +544,9 @@ begin
begin
lifl:=TPasImplForLoop(lsmt);
//TODO variable
write(s1,'for ',lifl.VariableName,':= ',lifl.StartValue,' ');
write(s1,'for ',lifl.Variable.Name,':= ',lifl.StartExpr.GetDeclaration(True),' ');
if lifl.Down then write('down');
writeln('to ',lifl.EndValue,' do');
writeln('to ',lifl.EndExpr.GetDeclaration(True),' do');
GetTPasImplBlock(TPasImplBlock(lifl),lindent+1,0,false,false);
DoSem:=false;
end
@ -1147,8 +1147,8 @@ procedure GetTypes(pe:TPasElement; lindent:integer);
Result:=true;
writeln(';');
write(s,'case ');
if prct.VariantName <>'' then write(prct.VariantName,'=');
write(TPasType(prct.VariantType).Name);
if prct.VariantEl.GetDeclaration(True) <>'' then write(prct.VariantEl.GetDeclaration(True),'=');
write(TPasType(prct.VariantEl).Name);
writeln(' of');
if assigned(prct.Variants)then
if prct.Variants.Count >0 then
@ -1235,8 +1235,8 @@ procedure GetTypes(pe:TPasElement; lindent:integer);
if assigned(prct.Variants) then
begin
write(s1,'case ');
if prct.VariantName <>'' then write(prct.VariantName,'=');
write(TPasType(prct.VariantType).Name);
if prct.VariantEl.Name <>'' then write(prct.VariantEl.Name,'=');
write(TPasType(prct.VariantEl).Name);
writeln(' of');
if assigned(prct.Variants)then
if prct.Variants.Count >0 then