diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-03-29 04:43:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-03-29 04:43:00 +0100 |
| commit | 7f7fdf816df6c7dcb24f202c6c88f1efcd752f29 (patch) | |
| tree | 681529ac80d3b6d36b7feab161506487a3495c40 | |
| parent | e7b2039857db4ba617c5a399c11cc4ff4c969959 (diff) | |
| download | ghdl-7f7fdf816df6c7dcb24f202c6c88f1efcd752f29.tar.gz ghdl-7f7fdf816df6c7dcb24f202c6c88f1efcd752f29.tar.bz2 ghdl-7f7fdf816df6c7dcb24f202c6c88f1efcd752f29.zip | |
Set some missing flags (was harmless).
| -rw-r--r-- | canon.adb | 1 | ||||
| -rw-r--r-- | iirs.ads | 2 | ||||
| -rw-r--r-- | sem_assocs.adb | 1 | ||||
| -rw-r--r-- | translate/gcc/Make-lang.in | 5 | ||||
| -rw-r--r-- | translate/ghdldrv/Makefile | 3 | ||||
| -rw-r--r-- | translate/ghdldrv/ghdlsimul.adb | 1 |
6 files changed, 8 insertions, 5 deletions
@@ -802,6 +802,7 @@ package body Canon is -- No association, use default expr. Assoc_El := Create_Iir (Iir_Kind_Association_Element_Open); Set_Artificial_Flag (Assoc_El, True); + Set_Whole_Association_Flag (Assoc_El, True); Location_Copy (Assoc_El, Loc); Set_Formal (Assoc_El, Inter); Sub_Chain_Append (N_Chain, Last, Assoc_El); @@ -322,6 +322,8 @@ package Iirs is -- Only for Iir_Kind_Association_Element_By_Individual: -- Get/Set_Individual_Association_Chain (Field4) -- + -- A function call or a type conversion for the association. + -- FIXME: should be a name ? -- Only for Iir_Kind_Association_Element_By_Expression: -- Get/Set_In_Conversion (Field4) -- diff --git a/sem_assocs.adb b/sem_assocs.adb index 178bf6d2c..d752c7949 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -697,6 +697,7 @@ package body Sem_Assocs is case Get_Kind (Atype) is when Iir_Kind_Array_Subtype_Definition => Finish_Individual_Assoc_Array_Subtype (Assoc, Atype, 1); + Set_Actual_Type (Assoc, Atype); when Iir_Kind_Array_Type_Definition => Atype := Create_Array_Subtype (Atype, Get_Location (Assoc)); Set_Index_Constraint_Flag (Atype, True); diff --git a/translate/gcc/Make-lang.in b/translate/gcc/Make-lang.in index 5eab2db24..f3d5f98f8 100644 --- a/translate/gcc/Make-lang.in +++ b/translate/gcc/Make-lang.in @@ -166,11 +166,6 @@ vhdl.distclean: vhdl.extraclean: vhdl.maintainer-clean: - $(RM) $(agcc_srcdir)/agcc-trees.ads $(agcc_srcdir)/agcc-hwint.ads - $(RM) $(agcc_srcdir)/agcc-hwint.ads $(agcc_srcdir)/agcc-gconfig.ads - $(RM) $(agcc_srcdir)/agcc-real.ads $(agcc_srcdir)/agcc-machmode.ads - $(RM) $(agcc_srcdir)/agcc-tm.ads - $(RM) $(agcc_exedir)/gen_tree.o $(agcc_exedir)/gen_tree # Stage hooks: diff --git a/translate/ghdldrv/Makefile b/translate/ghdldrv/Makefile index 221a4a609..fe859f273 100644 --- a/translate/ghdldrv/Makefile +++ b/translate/ghdldrv/Makefile @@ -166,6 +166,9 @@ clean: force $(RM) -f b~*.ad? *~ default_pathes.ads ghdl_simul $(RM) -rf ../lib +clean-c: force + $(RM) -f memsegs_c.o chkstk.o linux.o times.o grt-cbinding.o grt-cvpi.o + force: .PHONY: force clean diff --git a/translate/ghdldrv/ghdlsimul.adb b/translate/ghdldrv/ghdlsimul.adb index 0e8f29660..107cc6742 100644 --- a/translate/ghdldrv/ghdlsimul.adb +++ b/translate/ghdldrv/ghdlsimul.adb @@ -68,6 +68,7 @@ package body Ghdlsimul is Canon.Canon_Flag_Add_Labels := True; Canon.Canon_Flag_Sequentials_Stmts := True; + Canon.Canon_Flag_Expressions := True; end Compile_Init; procedure Compile_Elab |