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

* Better error message for array types (bug ID 37685, patch from Henrique Werlang)

Browse Source 
git-svn-id: trunk@46755 -
This commit is contained in:
michael 2020-09-03 08:38:43 +00:00
parent 3722c820c9
commit c7628c11c6
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
packages/fcl-passrc/src/pasresolveeval.pas
View File

@ -1027,20 +1027,27 @@ var
begin
if o=nil then
Result:='nil'
else if o is TPasElement then
else if o is TPasArrayType then
begin
Result:=TPasElement(o).Name;
if o is TPasGenericType then
begin
GenType:=TPasGenericType(o);
if (GenType.GenericTemplateTypes<>nil)
and (GenType.GenericTemplateTypes.Count>0) then
Result:=Result+GetGenericParamCommas(GenType.GenericTemplateTypes.Count);
end;
Result:=Result+':'+o.ClassName;
if TPasArrayType(o).ElType = nil then
Result:='array of const'
else
Result:=Format('TArray<%s>', [TPasArrayType(o).ElType.Name]);
end
else
Result:=o.ClassName;
else if o is TPasElement then
begin
Result:=TPasElement(o).Name;
if o is TPasGenericType then
begin
GenType:=TPasGenericType(o);
if (GenType.GenericTemplateTypes<>nil)
and (GenType.GenericTemplateTypes.Count>0) then
Result:=Result+GetGenericParamCommas(GenType.GenericTemplateTypes.Count);
end;
Result:=Result+':'+o.ClassName;
end
else
Result:=o.ClassName;
end;
function GetObjPath(o: TObject): string;