diff options
| author | gingold | 2006-10-02 04:33:36 +0000 |
|---|---|---|
| committer | gingold | 2006-10-02 04:33:36 +0000 |
| commit | a81f695b15865268fea6ee062a381ba8e43a02b4 (patch) | |
| tree | 8bc86734eda054c31b705ceab4f4762e96422750 /translate/ghdldrv | |
| parent | f51d97cdfbb61a3c1b0456b32b5076d03ba5f8ac (diff) | |
| download | ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.tar.gz ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.tar.bz2 ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.zip | |
direct drivers and bugs fix
Diffstat (limited to 'translate/ghdldrv')
| -rw-r--r-- | translate/ghdldrv/Makefile | 7 | ||||
| -rw-r--r-- | translate/ghdldrv/ghdlrun.adb | 13 |
2 files changed, 10 insertions, 10 deletions
diff --git a/translate/ghdldrv/Makefile b/translate/ghdldrv/Makefile index e9d940b..229fb14 100644 --- a/translate/ghdldrv/Makefile +++ b/translate/ghdldrv/Makefile @@ -17,6 +17,7 @@ # 02111-1307, USA. GNATFLAGS=-gnaty3befhkmr -gnata -gnatwu -gnatwl -aI../.. -aI.. -aI../grt -aO.. -g -gnatf GRT_FLAGS=-g +LIB_CFLAGS=-g -O2 # Optimize, do not forget to use MODE=--genfast for iirs.adb. #GNATFLAGS+=-O -gnatn @@ -36,8 +37,8 @@ GRTSRCDIR=../grt include $(GRTSRCDIR)/Makefile.inc ghdl_mcode: GRT_FLAGS+=-DWITH_GNAT_RUN_TIME -ghdl_mcode: default_pathes.ads $(GRT_ADD_OBJS) memsegs_c.o force - gnatmake -aI../../ortho/mcode $(GNATFLAGS) ghdl_mcode $(GNAT_BARGS) -largs memsegs_c.o $(GNAT_LARGS) $(GRT_ADD_OBJS) $(subst @,$(GRTSRCDIR),$(GRT_EXTRA_LIB)) +ghdl_mcode: default_pathes.ads $(GRT_ADD_OBJS) memsegs_c.o chkstk.o force + gnatmake -aI../../ortho/mcode $(GNATFLAGS) ghdl_mcode $(GNAT_BARGS) -largs memsegs_c.o chkstk.o $(GNAT_LARGS) $(GRT_ADD_OBJS) $(subst @,$(GRTSRCDIR),$(GRT_EXTRA_LIB)) memsegs_c.o: ../../ortho/mcode/memsegs_c.c $(CC) -c -g -o $@ $< @@ -64,8 +65,6 @@ bootstrap.old: force $(MAKE) -C ../../libraries EXT=obj \ ANALYSE="$(PWD)/ghdl -a -g" std-obj93.cf -LIB_CFLAGS=-g -O2 - LIB93_DIR:=../lib/v93 LIB87_DIR:=../lib/v87 LIBSRC_DIR:=../../libraries diff --git a/translate/ghdldrv/ghdlrun.adb b/translate/ghdldrv/ghdlrun.adb index ed12e2c..4bae12d 100644 --- a/translate/ghdldrv/ghdlrun.adb +++ b/translate/ghdldrv/ghdlrun.adb @@ -39,7 +39,6 @@ with Ortho_Code.Abi; with Types; with Iirs; use Iirs; with Flags; -with Back_End; with Errorout; use Errorout; with Libraries; with Canon; @@ -82,17 +81,12 @@ package body Ghdlrun is procedure Compile_Init (Analyze_Only : Boolean) is begin - Back_End.Sem_Foreign := Trans_Be.Sem_Foreign'Access; - if Analyze_Only then return; end if; Translation.Foreign_Hook := Foreign_Hook'Access; - -- Initialize. - Back_End.Finish_Compilation := Trans_Be.Finish_Compilation'Access; - -- The design is always analyzed in whole. Flags.Flag_Whole_Analyze := True; @@ -355,8 +349,14 @@ package body Ghdlrun is Def (Trans_Decls.Ghdl_Now, Grt.Types.Current_Time'Address); + Def (Trans_Decls.Ghdl_Signal_Active_Chain, + Grt.Signals.Ghdl_Signal_Active_Chain'Address); + Def (Trans_Decls.Ghdl_Process_Add_Driver, Grt.Signals.Ghdl_Process_Add_Driver'Address); + Def (Trans_Decls.Ghdl_Signal_Direct_Driver, + Grt.Signals.Ghdl_Signal_Direct_Driver'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Source, Grt.Signals.Ghdl_Signal_Add_Source'Address); Def (Trans_Decls.Ghdl_Signal_In_Conversion, @@ -709,5 +709,6 @@ package body Ghdlrun is Disp_Long_Help'Access); Ghdlcomp.Register_Commands; Register_Command (new Command_Run_Help); + Trans_Be.Register_Translation_Back_End; end Register_Commands; end Ghdlrun; |