From f529e7bae13bfb58075c495552a9cbfdd0f10f88 Mon Sep 17 00:00:00 2001
From: gingold
Date: Wed, 30 Dec 2009 13:27:55 +0000
Subject: Fix previous change. Correction from Thomas Sailer.

---
 translate/grt/grt-processes.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/translate/grt/grt-processes.adb b/translate/grt/grt-processes.adb
index 4f556d9..72d3f8e 100644
--- a/translate/grt/grt-processes.adb
+++ b/translate/grt/grt-processes.adb
@@ -304,8 +304,6 @@ package body Grt.Processes is
       if Proc.Timeout_Chain_Prev /= null then
          Proc.Timeout_Chain_Prev.Timeout_Chain_Next :=
            Proc.Timeout_Chain_Next;
-         --  Be sure a second call won't corrupt the chain.
-         Proc.Timeout_Chain_Prev := null;
       elsif Process_Timeout_Chain = Proc then
          --  Only if Proc is in the chain.
          Process_Timeout_Chain := Proc.Timeout_Chain_Next;
@@ -315,6 +313,8 @@ package body Grt.Processes is
            Proc.Timeout_Chain_Prev;
          Proc.Timeout_Chain_Next := null;
       end if;
+      --  Be sure a second call won't corrupt the chain.
+      Proc.Timeout_Chain_Prev := null;
    end Remove_Process_From_Timeout_Chain;
 
    procedure Ghdl_Process_Wait_Set_Timeout (Time : Std_Time)
-- 
cgit