Browse Source

+ propagate also widechar/pointer constants

florian 1 year ago
parent
commit
b3c1f294ba
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/optconstprop.pas

+ 2 - 0
compiler/optconstprop.pas

@@ -346,6 +346,8 @@ unit optconstprop;
                        (is_constintnode(a.right) or
                         is_constboolnode(a.right) or
                         is_constcharnode(a.right) or
+                        is_constwidecharnode(a.right) or
+                        is_constwidestringnode(a.right) or
                         is_constenumnode(a.right) or
                         is_conststringnode(a.right) or
                         is_constpointernode(a.right)) then