From 276e78d5b48853ae3bca02c3491db21dacd5a210 Mon Sep 17 00:00:00 2001 From: Brian Drummond Date: Tue, 3 Dec 2013 16:37:43 +0000 Subject: Style errors and mcode Makefile change --- parse.adb | 2 +- translate/ghdldrv/Makefile | 3 ++- translate/translation.adb | 3 ++- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/parse.adb b/parse.adb index ec25fa2f5..dc1fad6f5 100644 --- a/parse.adb +++ b/parse.adb @@ -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; -- cgit v1.2.3