From 8e5887ce2a18a9c0d4f6ffd33c240dd5a7cdd563 Mon Sep 17 00:00:00 2001
From: red-prig <vdpasha@mail.ru>
Date: Tue, 7 Jun 2022 23:12:11 +0300
Subject: [PATCH] fix result time

---
 sys/sys_kernel.pas | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/sys/sys_kernel.pas b/sys/sys_kernel.pas
index 205e57c..acf0b1f 100644
--- a/sys/sys_kernel.pas
+++ b/sys/sys_kernel.pas
@@ -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;