From f6473ac07467ad4054aade5c8f6e33136dca18ac Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 26 Dec 2006 17:19:00 +0000
Subject: [PATCH]   * give more information about array types in error messages
     (dynamic, open, const open array) (mantis 8021)

git-svn-id: trunk@5720 -
---
 compiler/symdef.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 3f368e2cff..2d6066a048 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -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 := '';