diff options
Diffstat (limited to 'src')
| -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; |