diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-07-31 05:53:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-07-31 05:53:58 +0200 |
| commit | 64025f9a660e39b627e91c08d988138032e11b0e (patch) | |
| tree | 7a9b15376932aa5d64b17cb743de485faa0c9832 /src/synth/synth-expr.adb | |
| parent | e2a988ff5777dc81708842676564e3fa32a2b910 (diff) | |
| download | ghdl-64025f9a660e39b627e91c08d988138032e11b0e.tar.gz ghdl-64025f9a660e39b627e91c08d988138032e11b0e.tar.bz2 ghdl-64025f9a660e39b627e91c08d988138032e11b0e.zip | |
synth: fix a crash in instantiation.
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index b1e88ea3c..943608aaf 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -130,7 +130,7 @@ package body Synth.Expr is begin if Etype = Logic_Type then From_Std_Logic (Enum, Val, Zx); - elsif Etype = Boolean_Type then + elsif Etype = Boolean_Type or Etype = Bit_Type then From_Bit (Enum, Val); Zx := 0; else |