paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* warn if the compiler hides an eventual "+" operator overload if modeswitch ArrayOperators is active

Browse Source 
git-svn-id: trunk@39261 -
This commit is contained in:
svenbarth 2018-06-20 19:53:56 +00:00
parent 7522a34a67
commit fa78bb0e89
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -127,6 +127,7 @@ implementation
{$ENDIF}
globtype,systems,constexp,compinnr,
cutils,verbose,globals,widestr,
tokens,
symconst,symdef,symsym,symcpu,symtable,defutil,defcmp,
cgbase,
htypechk,pass_1,
@ -1316,6 +1317,13 @@ implementation
{ allow operator overloading }
hp:=self;
if is_dynamic_array(left.resultdef) and is_dynamic_array(right.resultdef) and
(nodetype=addn) and
(m_array_operators in current_settings.modeswitches) and
isbinaryoverloaded(hp,[ocf_check_non_overloadable,ocf_check_only]) then
message3(parser_w_operator_overloaded_hidden_3,left.resultdef.typename,arraytokeninfo[_PLUS].str,right.resultdef.typename);
if isbinaryoverloaded(hp,[]) then
begin
result:=hp;