* use a more detailed error message if a type is not allowed for a generic constant parameter

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45092 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 1 deletions

diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas
index 57b69f2dc7..9c0fba9eef 100644
--- a/compiler/pgenutil.pas
+++ b/compiler/pgenutil.pas
@@ -1435,7 +1435,7 @@ uses
                       tconstsym(result[i]).constdef:=def;
                     end
                   else
-                    Message(type_e_mismatch);
+                    Message1(type_e_generic_const_type_not_allowed,def.fulltypename);
                 end;
               { after type restriction const list terminates }
               is_const:=false;