From 60e2338ef145f14ebee26f8f3d383ccefaff2e4b Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 26 Jun 2016 08:52:18 +0200 Subject: trans-chap4: remove a when others. --- src/vhdl/translate/trans-chap4.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index 8469e1cca..40abae61d 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -841,8 +841,8 @@ package body Trans.Chap4 is New_Assign_Stmt (M2Lv (Value), Init_Val); -- Create the signal. - case Type_Info.Type_Mode is - when Type_Mode_B1 => + case Type_Mode_Scalar (Type_Info.Type_Mode) is + when Type_Mode_Scalar (Type_Mode_B1) => Create_Subprg := Ghdl_Create_Signal_B1; when Type_Mode_E8 => Create_Subprg := Ghdl_Create_Signal_E8; @@ -856,8 +856,6 @@ package body Trans.Chap4 is Create_Subprg := Ghdl_Create_Signal_I64; when Type_Mode_F64 => Create_Subprg := Ghdl_Create_Signal_F64; - when others => - Error_Kind ("elab_signal_non_composite", Targ_Type); end case; Start_Association (Assoc, Create_Subprg); -- cgit v1.2.3