1 files changed, 7 insertions, 7 deletions
diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb
index b14e6175a..a5a12a742 100644
--- a/src/vhdl/iirs.adb
+++ b/src/vhdl/iirs.adb
@@ -1428,7 +1428,7 @@ package body Iirs is
       pragma Assert (Target /= Null_Iir);
       pragma Assert (Has_Open_Flag (Get_Kind (Target)),
                      "no field Open_Flag");
-      return Get_Flag15 (Target);
+      return Get_Flag7 (Target);
    end Get_Open_Flag;
 
    procedure Set_Open_Flag (Target : Iir; Flag : Boolean) is
@@ -1436,7 +1436,7 @@ package body Iirs is
       pragma Assert (Target /= Null_Iir);
       pragma Assert (Has_Open_Flag (Get_Kind (Target)),
                      "no field Open_Flag");
-      Set_Flag15 (Target, Flag);
+      Set_Flag7 (Target, Flag);
    end Set_Open_Flag;
 
    function Get_After_Drivers_Flag (Target : Iir) return Boolean is
@@ -2050,9 +2050,9 @@ package body Iirs is
    end Set_Nature;
 
    type Iir_Mode_Conv is record
-      Flag12: Boolean;
       Flag13: Boolean;
       Flag14: Boolean;
+      Flag15: Boolean;
    end record;
    pragma Pack (Iir_Mode_Conv);
    pragma Assert (Iir_Mode_Conv'Size = Iir_Mode'Size);
@@ -2066,9 +2066,9 @@ package body Iirs is
       pragma Assert (Target /= Null_Iir);
       pragma Assert (Has_Mode (Get_Kind (Target)),
                      "no field Mode");
-      Conv.Flag12 := Get_Flag12 (Target);
       Conv.Flag13 := Get_Flag13 (Target);
       Conv.Flag14 := Get_Flag14 (Target);
+      Conv.Flag15 := Get_Flag15 (Target);
       return To_Iir_Mode (Conv);
    end Get_Mode;
 
@@ -2082,9 +2082,9 @@ package body Iirs is
       pragma Assert (Has_Mode (Get_Kind (Target)),
                      "no field Mode");
       Conv := To_Iir_Mode_Conv (Mode);
-      Set_Flag12 (Target, Conv.Flag12);
       Set_Flag13 (Target, Conv.Flag13);
       Set_Flag14 (Target, Conv.Flag14);
+      Set_Flag15 (Target, Conv.Flag15);
    end Set_Mode;
 
    function Get_Guarded_Signal_Flag (Target : Iir) return Boolean is
@@ -5614,7 +5614,7 @@ package body Iirs is
       pragma Assert (N /= Null_Iir);
       pragma Assert (Has_Is_Ref (Get_Kind (N)),
                      "no field Is_Ref");
-      return Get_Flag7 (N);
+      return Get_Flag12 (N);
    end Get_Is_Ref;
 
    procedure Set_Is_Ref (N : Iir; Ref : Boolean) is
@@ -5622,7 +5622,7 @@ package body Iirs is
       pragma Assert (N /= Null_Iir);
       pragma Assert (Has_Is_Ref (Get_Kind (N)),
                      "no field Is_Ref");
-      Set_Flag7 (N, Ref);
+      Set_Flag12 (N, Ref);
    end Set_Is_Ref;
 
    function Get_Is_Forward_Ref (N : Iir) return Boolean is