Jelajahi Sumber

* Fix do_erase which was wrong with inoutres setting

peter 22 tahun lalu
induk
melakukan
e0625ccb5d
1 mengubah file dengan 8 tambahan dan 3 penghapusan
  1. 8 3
      rtl/linux/osmain.inc

+ 8 - 3
rtl/linux/osmain.inc

@@ -180,8 +180,10 @@ Begin
      InOutRes := 2;
      exit;
    end;
-  Fpunlink(p);
-  Errno2Inoutres;
+  if Fpunlink(p)<0 then
+   Errno2Inoutres
+  Else
+   InOutRes:=0;
 End;
 
 { truncate at a given position }
@@ -614,7 +616,10 @@ End.
 *)
 {
  $Log$
- Revision 1.3  2002-12-23 22:23:43  peter
+ Revision 1.4  2002-12-24 19:45:40  peter
+   * Fix do_erase which was wrong with inoutres setting
+
+ Revision 1.3  2002/12/23 22:23:43  peter
    * fixed Getdir to not set Inoutres
    * broken symlinks are now ignored in getdir instead of aborting
      the search