diff options
Diffstat (limited to 'src/vhdl/simulate/simul-elaboration.adb')
| -rw-r--r-- | src/vhdl/simulate/simul-elaboration.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/simulate/simul-elaboration.adb b/src/vhdl/simulate/simul-elaboration.adb index f165662c2..b65614a6b 100644 --- a/src/vhdl/simulate/simul-elaboration.adb +++ b/src/vhdl/simulate/simul-elaboration.adb @@ -803,6 +803,8 @@ package body Simul.Elaboration is Kind := Quantity_Through; when Iir_Kind_Free_Quantity_Declaration => Kind := Quantity_Free; + when Iir_Kinds_Source_Quantity_Declaration => + raise Internal_Error; -- TODO. end case; Res := Create_Quantity_Value (Create_Scalar_Quantity (Kind, Decl, Block)); |