Browse Source

* fixed uninitialized result of handle_typed_read_write in
case no error occurred

git-svn-id: trunk@6802 -

Jonas Maebe 18 years ago
parent
commit
3b3060cec5
1 changed files with 1 additions and 0 deletions
  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 }