diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-05 06:05:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-05 06:05:19 +0200 |
| commit | fe6ff5794545ce9f7d00985b55cf9d5b18725ea0 (patch) | |
| tree | 9a61d61c8981ac292c27a94a2cf5c9aa1bf62143 /simulate/elaboration.adb | |
| parent | 6d8c5299f20b4cd8f1e049f7eea454c00a3102b7 (diff) | |
| download | ghdl-fe6ff5794545ce9f7d00985b55cf9d5b18725ea0.tar.gz ghdl-fe6ff5794545ce9f7d00985b55cf9d5b18725ea0.tar.bz2 ghdl-fe6ff5794545ce9f7d00985b55cf9d5b18725ea0.zip | |
First run (using mcode) of OSVVM_2014_01.
Diffstat (limited to 'simulate/elaboration.adb')
| -rw-r--r-- | simulate/elaboration.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/simulate/elaboration.adb b/simulate/elaboration.adb index c0e5d903d..391798fa2 100644 --- a/simulate/elaboration.adb +++ b/simulate/elaboration.adb @@ -87,7 +87,7 @@ package body Elaboration is when Iir_Value_I64 | Iir_Value_F64 - | Iir_Value_B2 + | Iir_Value_B1 | Iir_Value_E32 => Res := Create_Signal_Value (null); @@ -146,10 +146,10 @@ package body Elaboration is begin if Kind = Implicit_Transaction then T := 0; - Init := Create_B2_Value (False); + Init := Create_B1_Value (False); else T := Execute_Time_Attribute (Instance, Signal); - Init := Create_B2_Value (False); + Init := Create_B1_Value (False); end if; Sig := Create_Signal_Value (null); Instance.Objects (Info.Slot) := Sig; @@ -448,8 +448,8 @@ package body Elaboration is Res := Bounds.Left; else case Get_Info (Get_Base_Type (Decl)).Scalar_Mode is - when Iir_Value_B2 => - Res := Create_B2_Value (False); + when Iir_Value_B1 => + Res := Create_B1_Value (False); when Iir_Value_E32 => Res := Create_E32_Value (0); when Iir_Value_I64 => @@ -1222,7 +1222,7 @@ package body Elaboration is Sig := Create_Signal_Value (null); Instance.Objects (Info.Slot) := Sig; Instance.Objects (Info.Slot + 1) := - Unshare (Create_B2_Value (False), Instance_Pool); + Unshare (Create_B1_Value (False), Instance_Pool); Signals_Table.Append ((Kind => Guard_Signal, Decl => Guard, @@ -1473,7 +1473,7 @@ package body Elaboration is -- evaluates to TRUE, and no block statement otherwise. Scheme := Get_Generation_Scheme (Generate); Lit := Execute_Expression (Instance, Scheme); - if Lit.B2 /= True then + if Lit.B1 /= True then return; end if; |