2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@5676 -

Jonas Maebe 18 жил өмнө
parent
commit
24ba57fe91

+ 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