浏览代码

+ propagate also widechar/pointer constants

florian 1 年之前
父节点
当前提交
b3c1f294ba
共有 1 个文件被更改,包括 2 次插入0 次删除
  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