diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-04-27 04:45:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-05-09 21:16:25 +0200 |
commit | c00e693a478890068c90804e0e64d79f14f5c2aa (patch) | |
tree | c1934ca103d954124a74d379b8e61e9ada8fdffd /src/ghdldrv | |
parent | 47b7ace6a702830d33fb1a26bc49e9362147aa4b (diff) | |
download | ghdl-c00e693a478890068c90804e0e64d79f14f5c2aa.tar.gz ghdl-c00e693a478890068c90804e0e64d79f14f5c2aa.tar.bz2 ghdl-c00e693a478890068c90804e0e64d79f14f5c2aa.zip |
Create default value for ports.
Fix #328
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlrun.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index 55165fac4..3f0cd10c6 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -363,6 +363,8 @@ package body Ghdlrun is Grt.Signals.Ghdl_Signal_Next_Assign_B1'Address); Def (Trans_Decls.Ghdl_Signal_Associate_B1, Grt.Signals.Ghdl_Signal_Associate_B1'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Port_Driver_B1, + Grt.Signals.Ghdl_Signal_Add_Port_Driver_B1'Address); Def (Trans_Decls.Ghdl_Create_Signal_E8, Grt.Signals.Ghdl_Create_Signal_E8'Address); @@ -376,6 +378,8 @@ package body Ghdlrun is Grt.Signals.Ghdl_Signal_Next_Assign_E8'Address); Def (Trans_Decls.Ghdl_Signal_Associate_E8, Grt.Signals.Ghdl_Signal_Associate_E8'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Port_Driver_E8, + Grt.Signals.Ghdl_Signal_Add_Port_Driver_E8'Address); Def (Trans_Decls.Ghdl_Create_Signal_E32, Grt.Signals.Ghdl_Create_Signal_E32'Address); @@ -389,6 +393,8 @@ package body Ghdlrun is Grt.Signals.Ghdl_Signal_Next_Assign_E32'Address); Def (Trans_Decls.Ghdl_Signal_Associate_E32, Grt.Signals.Ghdl_Signal_Associate_E32'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Port_Driver_E32, + Grt.Signals.Ghdl_Signal_Add_Port_Driver_E32'Address); Def (Trans_Decls.Ghdl_Create_Signal_I32, Grt.Signals.Ghdl_Create_Signal_I32'Address); @@ -402,6 +408,8 @@ package body Ghdlrun is Grt.Signals.Ghdl_Signal_Next_Assign_I32'Address); Def (Trans_Decls.Ghdl_Signal_Associate_I32, Grt.Signals.Ghdl_Signal_Associate_I32'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Port_Driver_I32, + Grt.Signals.Ghdl_Signal_Add_Port_Driver_I32'Address); Def (Trans_Decls.Ghdl_Create_Signal_I64, Grt.Signals.Ghdl_Create_Signal_I64'Address); @@ -415,6 +423,8 @@ package body Ghdlrun is Grt.Signals.Ghdl_Signal_Next_Assign_I64'Address); Def (Trans_Decls.Ghdl_Signal_Associate_I64, Grt.Signals.Ghdl_Signal_Associate_I64'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Port_Driver_I64, + Grt.Signals.Ghdl_Signal_Add_Port_Driver_I64'Address); Def (Trans_Decls.Ghdl_Create_Signal_F64, Grt.Signals.Ghdl_Create_Signal_F64'Address); @@ -428,6 +438,8 @@ package body Ghdlrun is Grt.Signals.Ghdl_Signal_Next_Assign_F64'Address); Def (Trans_Decls.Ghdl_Signal_Associate_F64, Grt.Signals.Ghdl_Signal_Associate_F64'Address); + Def (Trans_Decls.Ghdl_Signal_Add_Port_Driver_F64, + Grt.Signals.Ghdl_Signal_Add_Port_Driver_F64'Address); Def (Trans_Decls.Ghdl_Signal_Attribute_Register_Prefix, Grt.Signals.Ghdl_Signal_Attribute_Register_Prefix'Address); |