diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-05 10:32:34 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-06 20:10:56 +0200 |
| commit | 61116ef4c5c8eb1fa28e89b7fbf58bc55c8c02b2 (patch) | |
| tree | 5c3b8618ee17ed9b1c3b13ddbfbdb1106b6abaed | |
| parent | beb01818f52362329556f663dcb176747f8cbb89 (diff) | |
| download | ghdl-61116ef4c5c8eb1fa28e89b7fbf58bc55c8c02b2.tar.gz ghdl-61116ef4c5c8eb1fa28e89b7fbf58bc55c8c02b2.tar.bz2 ghdl-61116ef4c5c8eb1fa28e89b7fbf58bc55c8c02b2.zip | |
synth-decls: fix type range of enumerations.
| -rw-r--r-- | src/synth/synth-decls.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index 9c3ead57a..41da02795 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -198,10 +198,10 @@ package body Synth.Decls is W : Width; begin W := Uns32 (Clog2 (Uns64 (Nbr_El))); - Rng := (Dir => Iir_Downto, + Rng := (Dir => Iir_To, Is_Signed => False, - Left => Int64 (Nbr_El - 1), - Right => 0); + Left => 0, + Right => Int64 (Nbr_El - 1)); Typ := Create_Discrete_Type (Rng, Scalar_Size_To_Size (Def), W); end; |