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

* give more information about array types in error messages

Browse Source 
(dynamic, open, const open array) (mantis 8021)

git-svn-id: trunk@5720 -
This commit is contained in:
Jonas Maebe 2006-12-26 17:19:00 +00:00
parent f56d53c0e1
commit f6473ac074
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -2353,10 +2353,12 @@ implementation
if (ado_isvariant in arrayoptions) or ((highrange=-1) and (lowrange=0)) then
GetTypeName:='Array Of Const'
else
GetTypeName:='Array Of '+elementdef.typename;
GetTypeName:='Array Of Const/Constant Open Array of '+elementdef.typename;
end
else if ((highrange=-1) and (lowrange=0)) or (ado_IsDynamicArray in arrayoptions) then
GetTypeName:='Array Of '+elementdef.typename
else if (ado_IsDynamicArray in arrayoptions) then
GetTypeName:='Dynamic Array Of '+elementdef.typename
else if ((highrange=-1) and (lowrange=0)) then
GetTypeName:='Open Array Of '+elementdef.typename
else
begin
result := '';