diff options
| author | gingold | 2009-12-30 13:27:55 +0000 |
|---|---|---|
| committer | gingold | 2009-12-30 13:27:55 +0000 |
| commit | f529e7bae13bfb58075c495552a9cbfdd0f10f88 (patch) | |
| tree | 994923d0dee7f6f331202c7df5985736428cb1a1 | |
| parent | 4600532b78f9c901cd32cc079f2567708dc81fc8 (diff) | |
| download | ghdl-f529e7bae13bfb58075c495552a9cbfdd0f10f88.tar.gz ghdl-f529e7bae13bfb58075c495552a9cbfdd0f10f88.tar.bz2 ghdl-f529e7bae13bfb58075c495552a9cbfdd0f10f88.zip | |
Fix previous change.
Correction from Thomas Sailer.
| -rw-r--r-- | translate/grt/grt-processes.adb | 4 |
1 files 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) |