paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed error message for attempts to initialise typed const

Browse Source 
classes/interfaces (mantis 8006)

git-svn-id: trunk@5676 -
This commit is contained in:
Jonas Maebe 2006-12-22 14:12:26 +00:00
parent 8b73c85df2
commit 24ba57fe91
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ptconst.pas
View File

@ -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