Browse Source

* fixed error message for attempts to initialise typed const
classes/interfaces (mantis 8006)

git-svn-id: trunk@5676 -

Jonas Maebe 18 years ago
parent
commit
24ba57fe91
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ptconst.pas

+ 1 - 1
compiler/ptconst.pas

@@ -922,7 +922,7 @@ implementation
               n:=comp_expr(true);
               n:=comp_expr(true);
               if n.nodetype<>niln then
               if n.nodetype<>niln then
                 begin
                 begin
-                  Message(type_e_no_const_packed_array);
+                  Message(parser_e_type_const_not_possible);
                   consume_all_until(_SEMICOLON);
                   consume_all_until(_SEMICOLON);
                 end
                 end
               else
               else