diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-22 18:48:03 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-22 18:48:03 +0100 |
| commit | 777617b6c027da1cc3ffb2aec7d108fe4802a835 (patch) | |
| tree | 66d0a06b14f667c4f0dd4220933e112ca2e39d74 /src/synth/synth-stmts.adb | |
| parent | 14fabc924d198110afd39e7c94f7b37843109ad4 (diff) | |
| download | ghdl-777617b6c027da1cc3ffb2aec7d108fe4802a835.tar.gz ghdl-777617b6c027da1cc3ffb2aec7d108fe4802a835.tar.bz2 ghdl-777617b6c027da1cc3ffb2aec7d108fe4802a835.zip | |
synth-stmts: fix warnings.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index c1c90388a..68486da58 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1093,8 +1093,6 @@ package body Synth.Stmts is procedure Synth_Case_Statement_Static_Scalar (C : in out Seq_Context; Stmt : Node; Sel : Int64) is - use Vhdl.Sem_Expr; - Choices : constant Node := Get_Case_Statement_Alternative_Chain (Stmt); Choice : Node; Stmts : Node; @@ -1148,8 +1146,6 @@ package body Synth.Stmts is procedure Synth_Case_Statement (C : in out Seq_Context; Stmt : Node) is - use Vhdl.Sem_Expr; - Expr : constant Node := Get_Expression (Stmt); Sel : Value_Acc; begin |