From 3e7685f0960aa730f39569c16fea18134e69e61f Mon Sep 17 00:00:00 2001 From: Brian Drummond Date: Wed, 4 Oct 2017 19:07:53 +0100 Subject: Process name reported on runtime error (negative delays) : see Issue #26 --- src/grt/grt-processes.adb | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/grt') 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; -- cgit v1.2.3