diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-12-26 09:25:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-12-26 10:25:21 +0100 |
| commit | 1be382f13fe7d6b94dffec14922012fd463d4d04 (patch) | |
| tree | e0c14b8777f8d0802564a3a4cd58151e5492d8e5 /src/simul/simul-vhdl_simul.adb | |
| parent | ec534f56b3dfe5b4dbfae63303bc0c23ce68d4eb (diff) | |
| download | ghdl-1be382f13fe7d6b94dffec14922012fd463d4d04.tar.gz ghdl-1be382f13fe7d6b94dffec14922012fd463d4d04.tar.bz2 ghdl-1be382f13fe7d6b94dffec14922012fd463d4d04.zip | |
simul: handle transaction attribute
Diffstat (limited to 'src/simul/simul-vhdl_simul.adb')
| -rw-r--r-- | src/simul/simul-vhdl_simul.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb index 5e120e217..8ee08d1a0 100644 --- a/src/simul/simul-vhdl_simul.adb +++ b/src/simul/simul-vhdl_simul.adb @@ -2786,9 +2786,10 @@ package body Simul.Vhdl_Simul is Write_Sig (E.Sig, S); Register_Prefix (E.Pfx.Typ, To_Memory_Ptr (E.Pfx)); when Mode_Transaction => - -- Create_Implicit_Signal - -- (E.Sig, E.Val, E.Time, E.Prefix, E.Kind); - raise Internal_Error; + S := Grt.Signals.Ghdl_Create_Transaction_Signal + (To_Ghdl_Value_Ptr (To_Address (E.Val))); + Write_Sig (E.Sig, S); + Register_Prefix (E.Pfx.Typ, To_Memory_Ptr (E.Pfx)); when Mode_Delayed => Create_Delayed_Signal (E.Sig, E.Val, To_Memory_Ptr (E.Pfx), E.Typ, E.Time); |