瀏覽代碼

* fixed uninitialized result of handle_typed_read_write in
case no error occurred

git-svn-id: trunk@6802 -

Jonas Maebe 18 年之前
父節點
當前提交
3b3060cec5
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/ninl.pas

+ 1 - 0
compiler/ninl.pas

@@ -737,6 +737,7 @@ implementation
         temp:Ttempcreatenode;
 
     begin
+      found_error:=false;
       para:=Tcallparanode(params);
       do_read:=inlinenumber in [in_read_x,in_readln_x];
       { add the typesize to the filepara }