From 27835ccebbd3248dac7ed683ff242fe2a3f62af8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 10 Feb 2021 18:58:01 +0100 Subject: vhdl-evaluation: minor simplification --- src/vhdl/vhdl-evaluation.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb index 9cce658c6..cd597462c 100644 --- a/src/vhdl/vhdl-evaluation.adb +++ b/src/vhdl/vhdl-evaluation.adb @@ -55,13 +55,11 @@ package body Vhdl.Evaluation is Unit := Get_Physical_Literal (Get_Named_Entity (Get_Unit_Name (Expr))); pragma Assert (Get_Kind (Unit) = Iir_Kind_Integer_Literal); - case Kind is + case Iir_Kinds_Physical_Literal (Kind) is when Iir_Kind_Physical_Int_Literal => return Get_Value (Expr) * Get_Value (Unit); when Iir_Kind_Physical_Fp_Literal => return Int64 (Get_Fp_Value (Expr) * Fp64 (Get_Value (Unit))); - when others => - raise Program_Error; end case; when Iir_Kind_Integer_Literal => return Get_Value (Expr); -- cgit v1.2.3