aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl
diff options
context:
space:
mode:
authorBrian Drummond <brian@shapes.demon.co.uk>2017-10-05 19:19:01 +0100
committerTristan Gingold <tgingold@free.fr>2017-10-06 20:40:30 +0200
commit3ed10bea5275a9a0f8d6cc6c13b90bc02cb42d75 (patch)
treec419fba15feb91741e0a24fac82805a0176a566c /src/vhdl
parentda6dd57e9e5ee865cbd0cc9246eebcad957adae6 (diff)
downloadghdl-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.adb2
-rw-r--r--src/vhdl/translate/translation.adb4
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);