diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-11-04 08:05:19 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-11-05 06:38:19 +0100 |
| commit | b106247a9843880bcfa3611444e20696f0fb35ae (patch) | |
| tree | 614fb373a86c6ff16a7239478bb2b5780b6901d9 /src/vhdl/iirs.adb | |
| parent | 4c7c53b2fb53cd6ff03776b4ce47f6e9f30fd52f (diff) | |
| download | ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.tar.gz ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.tar.bz2 ghdl-b106247a9843880bcfa3611444e20696f0fb35ae.zip | |
ownership: check tree after sem and canon.
Diffstat (limited to 'src/vhdl/iirs.adb')
| -rw-r--r-- | src/vhdl/iirs.adb | 14 |
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 |