diff options
| author | Brian Drummond <brian@shapes.demon.co.uk> | 2017-10-04 19:07:53 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-05 06:17:14 +0200 |
| commit | 3e7685f0960aa730f39569c16fea18134e69e61f (patch) | |
| tree | 0065b5fb186f35042c6fb776f6c79425457b4e94 /src/grt | |
| parent | ffd9fe10d40a133786358828cfab361377b9e8de (diff) | |
| download | ghdl-3e7685f0960aa730f39569c16fea18134e69e61f.tar.gz ghdl-3e7685f0960aa730f39569c16fea18134e69e61f.tar.bz2 ghdl-3e7685f0960aa730f39569c16fea18134e69e61f.zip | |
Process name reported on runtime error (negative delays) : see Issue #26
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-processes.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index 6c6e959d7..de39cde53 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -394,6 +394,7 @@ package body Grt.Processes is begin if Time < 0 then -- LRM93 8.1 + Disp_Process_Name (Get_Error_Stream, Proc); Error ("negative timeout clause"); end if; Proc.Timeout := Current_Time + Time; @@ -522,6 +523,7 @@ package body Grt.Processes is end if; if Time < 0 then -- LRM93 8.1 + Disp_Process_Name (Get_Error_Stream, Proc); Error ("negative timeout clause"); end if; Proc.State := State_Delayed; |