diff options
Diffstat (limited to 'src/vhdl/iirs.adb')
-rw-r--r-- | src/vhdl/iirs.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/vhdl/iirs.adb b/src/vhdl/iirs.adb index dfbcf9d8c..1ad810da6 100644 --- a/src/vhdl/iirs.adb +++ b/src/vhdl/iirs.adb @@ -1505,21 +1505,21 @@ package body Iirs is Set_Field3 (We, An_Iir); end Set_Time; - function Get_Choice_Position (Choice : Iir) return Int32 is + function Get_Choice_Order (Choice : Iir) return Int32 is begin pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Position (Get_Kind (Choice)), - "no field Choice_Position"); + pragma Assert (Has_Choice_Order (Get_Kind (Choice)), + "no field Choice_Order"); return Int32'Val (Get_Field1 (Choice)); - end Get_Choice_Position; + end Get_Choice_Order; - procedure Set_Choice_Position (Choice : Iir; Pos : Int32) is + procedure Set_Choice_Order (Choice : Iir; Pos : Int32) is begin pragma Assert (Choice /= Null_Iir); - pragma Assert (Has_Choice_Position (Get_Kind (Choice)), - "no field Choice_Position"); + pragma Assert (Has_Choice_Order (Get_Kind (Choice)), + "no field Choice_Order"); Set_Field1 (Choice, Int32'Pos (Pos)); - end Set_Choice_Position; + end Set_Choice_Order; function Get_Associated_Expr (Target : Iir) return Iir is begin |