diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-06-26 08:52:18 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-06-28 05:47:52 +0200 |
| commit | 60e2338ef145f14ebee26f8f3d383ccefaff2e4b (patch) | |
| tree | e6154e11564f9861f2756f24e6c29df30eb34b24 | |
| parent | 7a5d99241f2aabe633728348dabc4cd4d075a1f5 (diff) | |
| download | ghdl-60e2338ef145f14ebee26f8f3d383ccefaff2e4b.tar.gz ghdl-60e2338ef145f14ebee26f8f3d383ccefaff2e4b.tar.bz2 ghdl-60e2338ef145f14ebee26f8f3d383ccefaff2e4b.zip | |
trans-chap4: remove a when others.
| -rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 6 |
1 files 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); |