diff options
| -rw-r--r-- | parse.adb | 2 | ||||
| -rw-r--r-- | translate/ghdldrv/Makefile | 3 | ||||
| -rw-r--r-- | translate/translation.adb | 3 |
3 files changed, 5 insertions, 3 deletions
@@ -3987,7 +3987,7 @@ package body Parse is when Iir_Kind_Attribute_Name => -- Support issue 3060 Error_Msg_Parse ("Attribute cannot be applied to procedure call"); when others => - -- Support issue 2686 : no testcase, at least improve the error message + -- Support issue 2686 : no testcase, but improve the error message Error_Kind("parenthesis_name_to_procedure_call", Name); -- raise Internal_Error; end case; diff --git a/translate/ghdldrv/Makefile b/translate/ghdldrv/Makefile index b4199a990..159519ccf 100644 --- a/translate/ghdldrv/Makefile +++ b/translate/ghdldrv/Makefile @@ -106,7 +106,8 @@ LIB08_DIR:=../lib/v08 LIBSRC_DIR:=../../libraries REL_DIR:=../.. -GHDL=ghdl +#GHDL=ghdl +GHDL=ghdl_mcode ANALYZE:=../../../ghdldrv/$(GHDL) -a $(LIB_CFLAGS) LN=ln -s CP=cp diff --git a/translate/translation.adb b/translate/translation.adb index 67ca578c8..a71e23820 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -10345,7 +10345,8 @@ package body Translation is -- part 2 of fix for https://gna.org/bugs/?19195 Open_Temp; Stabilize (Name_Node); - New_Assign_Stmt (Get_Var (Alias_Info.Alias_Var), M2Addr (Name_Node)); + New_Assign_Stmt (Get_Var (Alias_Info.Alias_Var), + M2Addr (Name_Node)); Close_Temp; when others => raise Internal_Error; |