Browse Source

* Fix tw1041 test failure

git-svn-id: trunk@16571 -
pierre 14 years ago
parent
commit
9276fa437f
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/go32v2/sysutils.pp

+ 1 - 1
rtl/go32v2/sysutils.pp

@@ -558,7 +558,7 @@ BEGIN
        Do_DiskData:=int64(rec.TotalAllocUnits)*rec.SecPerClus*rec.BytePerSec;
        Do_DiskData:=int64(rec.TotalAllocUnits)*rec.SecPerClus*rec.BytePerSec;
     end
     end
    else
    else
-    Do_DiskData:=-1;
+    OldDosDiskData;
   end
   end
  else
  else
   OldDosDiskData;
   OldDosDiskData;