Преглед изворни кода

* align DosError returned for invalid (unused) handle in GetFTime and SetFTime to TP/BP

git-svn-id: trunk@29529 -
Tomas Hajny пре 10 година
родитељ
комит
37acf48426
1 измењених фајлова са 7 додато и 1 уклоњено
  1. 7 1
      rtl/os2/dos.pas

+ 7 - 1
rtl/os2/dos.pas

@@ -135,6 +135,8 @@ begin
    begin
    begin
     Time:=0;
     Time:=0;
     OSErrorWatch (DosError);
     OSErrorWatch (DosError);
+    if DosError = 87 then
+     DosError := 6; (* Align to TP/BP behaviour *)
    end;
    end;
 end;
 end;
 
 
@@ -157,7 +159,11 @@ begin
      OSErrorWatch (RC);
      OSErrorWatch (RC);
    end
    end
   else
   else
-   OSErrorWatch (RC);
+   begin
+    OSErrorWatch (RC);
+    if RC = 87 then
+     RC := 6;
+   end;
   DosError := integer (RC);
   DosError := integer (RC);
 end;
 end;