diff options
Diffstat (limited to 'src/vhdl/iirs.ads')
| -rw-r--r-- | src/vhdl/iirs.ads | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index e3c298cf5..af9c7478b 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -5297,7 +5297,7 @@ package Iirs is -- Purity depth of an impure subprogram. Iir_Depth_Impure : constant Iir_Int32 := -1; - type Base_Type is (Base_None, Base_2, Base_8, Base_10, Base_16); + type Number_Base_Type is (Base_None, Base_2, Base_8, Base_10, Base_16); -- design file subtype Iir_Design_File is Iir; @@ -5758,8 +5758,8 @@ package Iirs is -- Base of a bit string. Base_None for a string literal. -- Field: Odigit1 (pos) - function Get_Bit_String_Base (Lit : Iir) return Base_Type; - procedure Set_Bit_String_Base (Lit : Iir; Base : Base_Type); + function Get_Bit_String_Base (Lit : Iir) return Number_Base_Type; + procedure Set_Bit_String_Base (Lit : Iir; Base : Number_Base_Type); -- Bit string is signed. -- Field: Flag1 |