소스 검색

* 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 }