diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-06-08 06:21:04 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-06-08 06:21:04 +0200 |
| commit | bbc36065b2806bc6b96e747b347facff06d5272b (patch) | |
| tree | 22aa022827ad1d87b023c93eccad66a7f38e27b5 /src/grt/grt-vpi.adb | |
| parent | b61499b3f0264f106b8aaf0992d98e36695d2471 (diff) | |
| download | ghdl-bbc36065b2806bc6b96e747b347facff06d5272b.tar.gz ghdl-bbc36065b2806bc6b96e747b347facff06d5272b.tar.bz2 ghdl-bbc36065b2806bc6b96e747b347facff06d5272b.zip | |
grt-vcd: add get_vcd_value_kind
Diffstat (limited to 'src/grt/grt-vpi.adb')
| -rw-r--r-- | src/grt/grt-vpi.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index 5d75db2c1..df5d1e639 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -1050,7 +1050,7 @@ package body Grt.Vpi is V : constant Ghdl_B1 := Ghdl_B1 (Vec (J) = '1' or Vec (J) = 'H'); begin - case Info.Val is + case Vcd_Value_Valid (Info.Val) is when Vcd_Effective => Ghdl_Signal_Force_Effective_B1 (To_Signal_Arr_Ptr (Info.Ptr)(J), V); @@ -1070,7 +1070,7 @@ package body Grt.Vpi is declare V : constant Ghdl_E8 := Std_Ulogic'Pos (Vec (J)); begin - case Info.Val is + case Vcd_Value_Valid (Info.Val) is when Vcd_Effective => Ghdl_Signal_Force_Effective_E8 (To_Signal_Arr_Ptr (Info.Ptr)(J), V); @@ -1093,7 +1093,7 @@ package body Grt.Vpi is V := V or Shift_Left (1, Natural (Vec'Last - I)); end if; end loop; - case Info.Val is + case Vcd_Value_Valid (Info.Val) is when Vcd_Effective => Ghdl_Signal_Force_Effective_E8 (To_Signal_Arr_Ptr (Info.Ptr)(0), V); @@ -1120,7 +1120,7 @@ package body Grt.Vpi is end if; end loop; V := To_Ghdl_I32 (R); - case Info.Val is + case Vcd_Value_Valid (Info.Val) is when Vcd_Effective => Ghdl_Signal_Force_Effective_I32 (To_Signal_Arr_Ptr (Info.Ptr)(0), V); |