1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_insts.adb b/src/synth/synth-vhdl_insts.adb
index 13ebed7f1..bf487ad0c 100644
--- a/src/synth/synth-vhdl_insts.adb
+++ b/src/synth/synth-vhdl_insts.adb
@@ -186,7 +186,7 @@ package body Synth.Vhdl_Insts is
    begin
       case Typ.Kind is
          when Type_Vector =>
-            Hash_Bound (C, Typ.Vbound);
+            Hash_Bound (C, Typ.Abound);
          when Type_Array =>
             declare
                T : Type_Acc;