|
@@ -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;
|
|
|
|
|