From 61116ef4c5c8eb1fa28e89b7fbf58bc55c8c02b2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 5 Apr 2020 10:32:34 +0200
Subject: synth-decls: fix type range of enumerations.

---
 src/synth/synth-decls.adb | 6 +++---
 1 file 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;
-- 
cgit v1.2.3