diff options
Diffstat (limited to 'src/vhdl/evaluation.adb')
| -rw-r--r-- | src/vhdl/evaluation.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 76464a7..589ab1f 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -199,7 +199,8 @@ package body Evaluation is return Build_Enumeration_Constant (Iir_Index32 (Get_Enum_Pos (Val)), Origin); - when Iir_Kind_Physical_Int_Literal => + when Iir_Kind_Physical_Int_Literal + | Iir_Kind_Physical_Fp_Literal => Res := Create_Iir (Iir_Kind_Physical_Int_Literal); Set_Unit_Name (Res, Get_Primary_Unit_Name (Get_Base_Type (Get_Type (Origin)))); |