fix result time

This commit is contained in:
red-prig 2022-06-07 23:12:11 +03:00
parent 40971c73c1
commit 8e5887ce2a

View File

@ -196,23 +196,35 @@ begin
begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout;
pTimeout^:=0;
end;
Result:=ETIMEDOUT;
Break;
end;
STATUS_ABANDONED:
begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout*100;
end;
Result:=EPERM;
Break;
end;
STATUS_SUCCESS:
begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout*100;
end;
Result:=0;
Break;
end;
else
begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout*100;
end;
Result:=EINVAL;
Break;
end;