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

+ treat the new modify-in-place inline nodes as having side effects in

Browse Source 
check_for_sideeffect()

git-svn-id: trunk@35774 -
This commit is contained in:
nickysn 2017-04-11 14:59:38 +00:00
parent 5bb77905cd
commit 7b40bdaa6e
1 changed files with 2 additions and 1 deletions

3
compiler/nutils.pas
View File

@ -1328,7 +1328,8 @@ implementation
in_val_x,in_reset_x,in_rewrite_x,in_reset_typedfile,in_rewrite_typedfile,
in_reset_typedfile_name,in_rewrite_typedfile_name,in_settextbuf_file_x,
in_inc_x,in_dec_x,in_include_x_y,in_exclude_x_y,in_break,in_continue,in_setlength_x,
in_finalize_x,in_new_x,in_dispose_x,in_exit,in_copy_x,in_initialize_x,in_leave,in_cycle])
in_finalize_x,in_new_x,in_dispose_x,in_exit,in_copy_x,in_initialize_x,in_leave,in_cycle,
in_and_assign_x_y,in_or_assign_x_y,in_xor_assign_x_y,in_neg_assign_x,in_not_assign_x])
) then
result:=fen_norecurse_true;
end;