浏览代码

* fix from r13288

git-svn-id: trunk@13289 -
Jonas Maebe 16 年之前
父节点
当前提交
f5a24d0f5b
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/pinline.pas

+ 4 - 1
compiler/pinline.pas

@@ -79,7 +79,10 @@ implementation
         p:=comp_expr(true);
         { calc return type }
         if is_new then
-          set_varstate(p,vs_written,[])
+          begin
+            set_varstate(p,vs_written,[]);
+            valid_for_var(p,true);
+          end
         else
           set_varstate(p,vs_readwritten,[vsf_must_be_valid]);
         if (m_mac in current_settings.modeswitches) and