diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-10-14 06:19:33 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-10-14 06:19:33 +0200 |
| commit | 0e199cbea1070c016d29348cd659b9e6ca688afb (patch) | |
| tree | 169e2c21b5e84998f03c2de76feed3e61cea503c /translate/ghdldrv | |
| parent | 68d26922e31aad3cb34dd3b7689bcec75ad70fcb (diff) | |
| download | ghdl-0e199cbea1070c016d29348cd659b9e6ca688afb.tar.gz ghdl-0e199cbea1070c016d29348cd659b9e6ca688afb.tar.bz2 ghdl-0e199cbea1070c016d29348cd659b9e6ca688afb.zip | |
Initial support for package header and package instantiation.
Diffstat (limited to 'translate/ghdldrv')
| -rw-r--r-- | translate/ghdldrv/Makefile | 2 | ||||
| -rw-r--r-- | translate/ghdldrv/ghdlrun.adb | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/translate/ghdldrv/Makefile b/translate/ghdldrv/Makefile index c4464268d..888014bf7 100644 --- a/translate/ghdldrv/Makefile +++ b/translate/ghdldrv/Makefile @@ -166,7 +166,7 @@ grt.links: install.all: install.v87 install.v93 install.standard install.gcc: - $(MAKE) GHDL=ghdl_gcc install.v08 #install.v87 install.v93 install.v08 + $(MAKE) GHDL=ghdl_gcc install.v87 install.v93 install.v08 install.mcode: $(MAKE) GHDL=ghdl_mcode install.v87 install.v93 install.v08 diff --git a/translate/ghdldrv/ghdlrun.adb b/translate/ghdldrv/ghdlrun.adb index d4ac38740..f6237214e 100644 --- a/translate/ghdldrv/ghdlrun.adb +++ b/translate/ghdldrv/ghdlrun.adb @@ -76,6 +76,9 @@ package body Ghdlrun is Translation.Foreign_Hook := Foreign_Hook'Access; + -- FIXME: add a flag to force unnesting. + -- Translation.Flag_Unnest_Subprograms := True; + -- The design is always analyzed in whole. Flags.Flag_Whole_Analyze := True; @@ -541,6 +544,8 @@ package body Ghdlrun is Grt.Images.Ghdl_To_String_E8'Address); Def (Trans_Decls.Ghdl_To_String_E32, Grt.Images.Ghdl_To_String_E32'Address); + Def (Trans_Decls.Ghdl_To_String_Char, + Grt.Images.Ghdl_To_String_Char'Address); Def (Trans_Decls.Ghdl_To_String_P32, Grt.Images.Ghdl_To_String_P32'Address); Def (Trans_Decls.Ghdl_To_String_P64, |