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