paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-22 13:52:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get rid of the scanner message for attributes for real this time (sometimes I *really* hate Git -.-)

Browse Source 
git-svn-id: trunk@42413 -
This commit is contained in:
svenbarth 2019-07-13 09:37:44 +00:00
parent 4d6b8a6c45
commit 04a50733ad
4 changed files with 697 additions and 694 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/msg/errore.msg
View File

@ -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,8 +432,6 @@ 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

5
compiler/msgidx.inc
View File

@ -129,7 +129,6 @@ const
scan_w_setpeosversion_not_support=02103;
scan_w_setpesubsysversion_not_support=02104;
scan_n_changecputype=02105;
scan_e_unresolved_attribute=02106;
parser_e_syntax_error=03000;
parser_e_dont_nest_interrupt=03004;
parser_w_proc_directive_ignored=03005;
@ -1113,9 +1112,9 @@ const
option_info=11024;
option_help_pages=11025;
MsgTxtSize = 83507;
MsgTxtSize = 83464;
MsgIdxMax : array[1..20] of longint=(
28,107,352,126,99,61,142,34,221,68,
28,106,352,126,99,61,142,34,221,68,
62,20,30,1,1,1,1,1,1,1
);

1380
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

2
compiler/pdecobj.pas
View File

@ -1143,7 +1143,7 @@ implementation
procedure check_unbound_attributes;
begin
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);
rtti_attrs_def.free;
rtti_attrs_def:=nil;
end;