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 begin
if (pTimeout<>nil) then if (pTimeout<>nil) then
begin begin
pTimeout^:=timeout; pTimeout^:=0;
end; end;
Result:=ETIMEDOUT; Result:=ETIMEDOUT;
Break; Break;
end; end;
STATUS_ABANDONED: STATUS_ABANDONED:
begin begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout*100;
end;
Result:=EPERM; Result:=EPERM;
Break; Break;
end; end;
STATUS_SUCCESS: STATUS_SUCCESS:
begin begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout*100;
end;
Result:=0; Result:=0;
Break; Break;
end; end;
else else
begin begin
if (pTimeout<>nil) then
begin
pTimeout^:=timeout*100;
end;
Result:=EINVAL; Result:=EINVAL;
Break; Break;
end; end;