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

* adjust error message when attributes are unbound

Browse Source 
git-svn-id: trunk@42410 -
This commit is contained in:
svenbarth 2019-07-12 22:08:17 +00:00
parent 87458a065c
commit b7a8dd9479
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/msg/errore.msg
View File

@ -146,7 +146,7 @@ general_t_unitscope=01027_T_Using unit scope: $1
# #
# Scanner # Scanner
# #
# 02106 is the last used one # 02105 is the last used one
# #
% \section{Scanner messages.} % \section{Scanner messages.}
% This section lists the messages that the scanner emits. The scanner takes % This section lists the messages that the scanner emits. The scanner takes
@ -432,13 +432,11 @@ scan_w_setpeosversion_not_support=02103_W_SETPEOSVERSION is not supported by the
scan_w_setpesubsysversion_not_support=02104_W_SETPESUBSYSVERSION is not supported by the target OS scan_w_setpesubsysversion_not_support=02104_W_SETPESUBSYSVERSION is not supported by the target OS
% The \var{\{\$SETPESUBSYSVERSION\}} directive is not supported by the target OS. % The \var{\{\$SETPESUBSYSVERSION\}} directive is not supported by the target OS.
scan_n_changecputype=02105_N_Changed CPU type to be consistent with specified controller scan_n_changecputype=02105_N_Changed CPU type to be consistent with specified controller
scan_e_unresolved_attribute=02106_E_Unresolved custom attribute: "$1".
% A custom attribute is defined, but there is no identifier to bind it to.
% \end{description} % \end{description}
# #
# Parser # Parser
# #
# 03348 is the last used one # 03350 is the last used one
# #
% \section{Parser messages} % \section{Parser messages}
% This section lists all parser messages. The parser takes care of the % This section lists all parser messages. The parser takes care of the
@ -1585,6 +1583,8 @@ parser_w_operator_overloaded_hidden_3=03347_W_Operator overload hidden by intern
parser_e_threadvar_must_be_class=03348_E_Thread variables inside classes or records must be class variables parser_e_threadvar_must_be_class=03348_E_Thread variables inside classes or records must be class variables
% A \var{threadvar} section inside a class or record was started without it being prefixed by \var{class}. % A \var{threadvar} section inside a class or record was started without it being prefixed by \var{class}.
parser_e_only_static_members_via_object_type=03349_E_Only static methods and static variables can be referenced through an object type parser_e_only_static_members_via_object_type=03349_E_Only static methods and static variables can be referenced through an object type
parser_e_unbound_attribute=03350_E_Unbound custom attribute: "$1".
% A custom attribute is defined, but there is no identifier to bind it to.
% This error occurs in a situation like the following: % This error occurs in a situation like the following:
% \begin{verbatim} % \begin{verbatim}
% Type % Type

2
compiler/pdecl.pas
View File

@ -1088,7 +1088,7 @@ implementation
had_generic:=false; had_generic:=false;
first:=false; first:=false;
if assigned(rtti_attrs_def) and (rtti_attrs_def.get_attribute_count>0) then if assigned(rtti_attrs_def) and (rtti_attrs_def.get_attribute_count>0) then
Message1(scan_e_unresolved_attribute,trtti_attribute(rtti_attrs_def.rtti_attributes[0]).typesym.prettyname); Message1(parser_e_unbound_attribute,trtti_attribute(rtti_attrs_def.rtti_attributes[0]).typesym.prettyname);
until ((token<>_ID) and (token<>_LECKKLAMMER)) or until ((token<>_ID) and (token<>_LECKKLAMMER)) or
(in_structure and (in_structure and