Browse Source

* ensure result is set

florian 5 months ago
parent
commit
b4b4896f7f
1 changed files with 1 additions and 2 deletions
  1. 1 2
      compiler/systems/t_msdos.pas

+ 1 - 2
compiler/systems/t_msdos.pas

@@ -449,8 +449,7 @@ begin
   BlockWrite(f,maxalloc,2);
   BlockWrite(f,maxalloc,2);
   close(f);
   close(f);
   {$pop}
   {$pop}
-  if ioresult<>0 then
-    Result:=true;
+  Result:=ioresult=0;
 end;
 end;
 
 
 {****************************************************************************
 {****************************************************************************