1 files changed, 10 insertions, 10 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads
index 8a79629aa..56edca1b6 100644
--- a/src/vhdl/iirs.ads
+++ b/src/vhdl/iirs.ads
@@ -328,10 +328,10 @@ package Iirs is
    --  True if the integer specifying the length is present.
    --   Get/Set_Has_Length (Flag3)
 
-   -- Iir_Kind_Integer_Literal (Int)
+   -- Iir_Kind_Integer_Literal (Short)
    --
    --  Get/Set the value of the integer.
-   --   Get/Set_Value (Int64)
+   --   Get/Set_Value (Field4,Field5)
    --
    --   Get/Set_Literal_Origin (Field2)
    --
@@ -339,10 +339,10 @@ package Iirs is
    --
    --   Get/Set_Expr_Staticness (State1)
 
-   -- Iir_Kind_Floating_Point_Literal (Fp)
+   -- Iir_Kind_Floating_Point_Literal (Short)
    --
    --  The value of the literal.
-   --   Get/Set_Fp_Value (Fp64)
+   --   Get/Set_Fp_Value (Field4,Field5)
    --
    --   Get/Set_Literal_Origin (Field2)
    --
@@ -357,8 +357,8 @@ package Iirs is
    --
    --   Get/Set_Expr_Staticness (State1)
 
-   -- Iir_Kind_Physical_Int_Literal (Int)
-   -- Iir_Kind_Physical_Fp_Literal (Fp)
+   -- Iir_Kind_Physical_Int_Literal (Short)
+   -- Iir_Kind_Physical_Fp_Literal (Short)
    --
    --   Get/Set_Literal_Origin (Field2)
    --
@@ -375,11 +375,11 @@ package Iirs is
    --
    -- Only for Iir_Kind_Physical_Int_Literal:
    --  The multiplicand.
-   --   Get/Set_Value (Int64)
+   --   Get/Set_Value (Field4,Field5)
    --
    -- Only for Iir_Kind_Physical_Fp_Literal:
    --  The multiplicand.
-   --   Get/Set_Fp_Value (Fp64)
+   --   Get/Set_Fp_Value (Field4,Field5)
 
    -- Iir_Kind_Simple_Aggregate (Short)
    --  This node can only be generated by evaluation: it is an unidimentional
@@ -5718,7 +5718,7 @@ package Iirs is
    --  literals.
 
    --  Value of an integer/physical literal.
-   --  Field: Int64
+   --  Field: Field4,Field5 (grp)
    function Get_Value (Lit : Iir) return Iir_Int64;
    procedure Set_Value (Lit : Iir; Val : Iir_Int64);
 
@@ -5737,7 +5737,7 @@ package Iirs is
    procedure Set_Physical_Unit_Value (Unit : Iir; Lit : Iir);
 
    --  Value of a floating point literal.
-   --  Field: Fp64
+   --  Field: Field4,Field5 (grp)
    function Get_Fp_Value (Lit : Iir) return Iir_Fp64;
    procedure Set_Fp_Value (Lit : Iir; Val : Iir_Fp64);