瀏覽代碼

* adjust error message when attributes are unbound

git-svn-id: trunk@42410 -
svenbarth 6 年之前
父節點
當前提交
b7a8dd9479
共有 2 個文件被更改,包括 5 次插入5 次删除
  1. 4 4
      compiler/msg/errore.msg
  2. 1 1
      compiler/pdecl.pas

+ 4 - 4
compiler/msg/errore.msg

@@ -146,7 +146,7 @@ general_t_unitscope=01027_T_Using unit scope: $1
 #
 # Scanner
 #
-# 02106 is the last used one
+# 02105 is the last used one
 #
 % \section{Scanner messages.}
 % 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
 % 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_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}
 #
 # Parser
 #
-# 03348 is the last used one
+# 03350 is the last used one
 #
 % \section{Parser messages}
 % 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
 % 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_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:
 % \begin{verbatim}
 % Type

+ 1 - 1
compiler/pdecl.pas

@@ -1088,7 +1088,7 @@ implementation
              had_generic:=false;
            first:=false;
            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
                (in_structure and