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/vhdl | |
| parent | da6dd57e9e5ee865cbd0cc9246eebcad957adae6 (diff) | |
| download | ghdl-3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75.tar.gz ghdl-3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75.tar.bz2 ghdl-3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75.zip | |
Improved error reporting, Issue #26
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/translate/translation.adb | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 2d74663e5..0d10a3d80 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -3309,6 +3309,7 @@ package body Trans.Chap8 is Start_Association (Constr, Ghdl_Process_Wait_Timeout); New_Association (Constr, Chap7.Translate_Expression (Timeout, Time_Type_Definition)); + Assoc_Filename_Line (Constr, Get_Line_Number (Stmt)); New_Procedure_Call (Constr); Close_Temp; end if; @@ -3333,6 +3334,7 @@ package body Trans.Chap8 is Start_Association (Constr, Ghdl_Process_Wait_Set_Timeout); New_Association (Constr, Chap7.Translate_Expression (Timeout, Time_Type_Definition)); + Assoc_Filename_Line (Constr, Get_Line_Number (Stmt)); New_Procedure_Call (Constr); end if; diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index ecf5c778a..42620ba91 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -1712,6 +1712,8 @@ package body Translation is O_Storage_External); New_Interface_Decl (Interfaces, Param, Get_Identifier ("time"), Std_Time_Otype); + New_Interface_Decl (Interfaces, Param, Wki_Filename, Char_Ptr_Type); + New_Interface_Decl (Interfaces, Param, Wki_Line, Ghdl_I32_Type); Finish_Subprogram_Decl (Interfaces, Ghdl_Process_Wait_Timeout); -- void __ghdl_process_wait_set_timeout (time : std_time); @@ -1720,6 +1722,8 @@ package body Translation is O_Storage_External); New_Interface_Decl (Interfaces, Param, Get_Identifier ("time"), Std_Time_Otype); + New_Interface_Decl (Interfaces, Param, Wki_Filename, Char_Ptr_Type); + New_Interface_Decl (Interfaces, Param, Wki_Line, Ghdl_I32_Type); Finish_Subprogram_Decl (Interfaces, Ghdl_Process_Wait_Set_Timeout); -- void __ghdl_process_wait_add_sensitivity (sig : __ghdl_signal_ptr); |