paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:29:31 +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

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

@ -1027,6 +1027,13 @@ var
begin
if o=nil then
Result:='nil'
else if o is TPasArrayType then
begin
if TPasArrayType(o).ElType = nil then
Result:='array of const'
else
Result:=Format('TArray<%s>', [TPasArrayType(o).ElType.Name]);
end
else if o is TPasElement then
begin
Result:=TPasElement(o).Name;