From ced62dd483a694a266fa72a9cbf4e2affcb8bebd Mon Sep 17 00:00:00 2001
From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= <tomasbrod@azet.sk>
Date: Fri, 16 Oct 2015 15:01:01 +0200
Subject: [PATCH] UnShedule all duplicate entries.

---
 ServerLoop.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ServerLoop.pas b/ServerLoop.pas
index 3e4e58c..bd4c429 100644
--- a/ServerLoop.pas
+++ b/ServerLoop.pas
@@ -346,13 +346,14 @@ procedure UnShedule(h:tOnTimer);
  var cur:^tSheduled;
  var pcur:^pointer;
  begin
+ if ShedTop=nil then AbstractError;
  pcur:=@ShedTop;
  cur:=pcur^;
  while assigned(cur) do begin
   if cur^.cb=h then begin
    pcur^:=cur^.next; {unlink from main list}
    cur^.next:=ShedUU; ShedUU:=cur; {link to unused}
-   break;
+   cur:=pcur^;
   end else begin
    pcur:=@cur^.next;
    cur:=pcur^;
-- 
2.11.4.GIT