From 3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75 Mon Sep 17 00:00:00 2001 From: Brian Drummond Date: Thu, 5 Oct 2017 19:19:01 +0100 Subject: Improved error reporting, Issue #26 --- src/vhdl/translate/trans-chap8.adb | 2 ++ src/vhdl/translate/translation.adb | 4 ++++ 2 files changed, 6 insertions(+) (limited to 'src/vhdl') 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); -- cgit v1.2.3