paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 03:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Anton fixing several constant expressions mantis 19409

Browse Source 
git-svn-id: trunk@17550 -
This commit is contained in:
marco 2011-05-24 20:12:09 +00:00
parent 9d580533d9
commit c1498aade1
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-passrc/src/pastree.pp
View File

@ -2640,13 +2640,17 @@ Var
I : Integer;
begin
Result := '';
For I:=0 to High(Params) do
begin
If (Result<>'') then
Result:=Result+', ';
Result:=Result+Params[I].GetDeclaration(Full);
end;
Result:='('+Result+')';
end;
if Kind = pekSet then
Result := '[' + Result + ']'
else
Result := '(' + Result + ')';
end;
procedure TParamsExpr.AddParam(xp:TPasExpr);
@ -2678,9 +2682,10 @@ Function TRecordValues.GetDeclaration(Full : Boolean):AnsiString;
Var
I : Integer;
begin
Result := '';
For I:=0 to High(Fields) do
begin
If Result='' then
If Result<>'' then
Result:=Result+'; ';
Result:=Result+Fields[I].Name+': '+Fields[i].ValueExp.getDeclaration(Full);
end;
@ -2739,9 +2744,10 @@ Var
I : Integer;
begin
Result := '';
For I:=0 to High(Values) do
begin
If Result='' then
If Result<>'' then
Result:=Result+', ';
Result:=Result+Values[i].getDeclaration(Full);
end;