diff options
| author | Brian Drummond <brian@shapes.demon.co.uk> | 2017-10-05 19:19:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-06 20:40:30 +0200 |
| commit | 3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75 (patch) | |
| tree | c419fba15feb91741e0a24fac82805a0176a566c /src/grt/grt-processes.ads | |
| parent | da6dd57e9e5ee865cbd0cc9246eebcad957adae6 (diff) | |
| download | ghdl-3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75.tar.gz ghdl-3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75.tar.bz2 ghdl-3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75.zip | |
Improved error reporting, Issue #26
Diffstat (limited to 'src/grt/grt-processes.ads')
| -rw-r--r-- | src/grt/grt-processes.ads | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/grt/grt-processes.ads b/src/grt/grt-processes.ads index e09f553e5..818b81f7d 100644 --- a/src/grt/grt-processes.ads +++ b/src/grt/grt-processes.ads @@ -124,7 +124,9 @@ package Grt.Processes is procedure Ghdl_Process_Wait_Exit; -- Wait for a timeout (without sensitivity): wait for X; - procedure Ghdl_Process_Wait_Timeout (Time : Std_Time); + procedure Ghdl_Process_Wait_Timeout (Time : Std_Time; + Filename : Ghdl_C_String; + Line : Ghdl_I32); -- Full wait statement: -- 1. Call Ghdl_Process_Wait_Set_Timeout (if there is a timeout) @@ -135,7 +137,9 @@ package Grt.Processes is -- 4. Call Ghdl_Process_Wait_Close -- Add a timeout for a wait. - procedure Ghdl_Process_Wait_Set_Timeout (Time : Std_Time); + procedure Ghdl_Process_Wait_Set_Timeout (Time : Std_Time; + Filename : Ghdl_C_String; + Line : Ghdl_I32); -- Add a sensitivity for a wait. procedure Ghdl_Process_Wait_Add_Sensitivity (Sig : Ghdl_Signal_Ptr); -- Wait until timeout or sensitivity. |