paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 03:59:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: pastree: Don't create TPasUnresolvedTypeRef for empty AUnresolvedTypeName in TPasProcedureType.CreateArgument (parameter can be declared without type with additional modifiers)

Browse Source 
git-svn-id: trunk@36624 -
This commit is contained in:
maciej-izak 2017-07-01 17:06:13 +00:00
parent c5941e109f
commit f475ba39ba
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2742,7 +2742,8 @@ function TPasProcedureType.CreateArgument(const AName,
begin begin
Result := TPasArgument.Create(AName, Self); Result := TPasArgument.Create(AName, Self);
Args.Add(Result); Args.Add(Result);
Result.ArgType := TPasUnresolvedTypeRef.Create(AUnresolvedTypeName, Result); if AUnresolvedTypeName<>'' then
Result.ArgType := TPasUnresolvedTypeRef.Create(AUnresolvedTypeName, Result);
end; end;
procedure TPasProcedureType.ForEachCall(const aMethodCall: TOnForEachPasElement; procedure TPasProcedureType.ForEachCall(const aMethodCall: TOnForEachPasElement;