diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-07-14 07:47:21 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-07-14 07:47:21 +0200 |
| commit | e0ece4a694de1b31cb71f17e8d7178dab9c15893 (patch) | |
| tree | b6a231ab30cea473cd33fe233036b6b3fcfffcc9 | |
| parent | 162456bdbbfd341e1d755229e3ea48ca282e94ec (diff) | |
| download | ghdl-e0ece4a694de1b31cb71f17e8d7178dab9c15893.tar.gz ghdl-e0ece4a694de1b31cb71f17e8d7178dab9c15893.tar.bz2 ghdl-e0ece4a694de1b31cb71f17e8d7178dab9c15893.zip | |
Detect wait timeout overflow.
Fix #382
| -rw-r--r-- | src/grt/grt-processes.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index 208a99b18..6c6e959d7 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -524,9 +524,14 @@ package body Grt.Processes is -- LRM93 8.1 Error ("negative timeout clause"); end if; - Proc.Timeout := Current_Time + Time; Proc.State := State_Delayed; - Update_Process_First_Timeout (Proc); + if Time <= Std_Time'Last - Current_Time then + Proc.Timeout := Current_Time + Time; + Update_Process_First_Timeout (Proc); + else + -- Delay past the end of the times. + Proc.Timeout := Std_Time'Last; + end if; end Ghdl_Process_Wait_Timeout; -- Verilog. |