diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-03 11:43:42 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-06 20:10:54 +0200 |
| commit | 77d71c72f10cb8a1779dfddcf2a5053c728300ec (patch) | |
| tree | a6adcc528dc1845e16cf7b4c992a5384a5cf6f1a /src/vhdl/vhdl-nodes_meta.ads | |
| parent | 6ccedcb1f76081df973776f0e4e6909e21de8760 (diff) | |
| download | ghdl-77d71c72f10cb8a1779dfddcf2a5053c728300ec.tar.gz ghdl-77d71c72f10cb8a1779dfddcf2a5053c728300ec.tar.bz2 ghdl-77d71c72f10cb8a1779dfddcf2a5053c728300ec.zip | |
vhdl: add scalar_size. Size of scalar types is computed during analysis.
Diffstat (limited to 'src/vhdl/vhdl-nodes_meta.ads')
| -rw-r--r-- | src/vhdl/vhdl-nodes_meta.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes_meta.ads b/src/vhdl/vhdl-nodes_meta.ads index 82bf5dbdb..dd48460d8 100644 --- a/src/vhdl/vhdl-nodes_meta.ads +++ b/src/vhdl/vhdl-nodes_meta.ads @@ -50,6 +50,7 @@ package Vhdl.Nodes_Meta is Type_Number_Base_Type, Type_PSL_NFA, Type_PSL_Node, + Type_Scalar_Size, Type_Source_File_Entry, Type_Source_Ptr, Type_String8_Id, @@ -329,6 +330,7 @@ package Vhdl.Nodes_Meta is Field_Alias_Declaration, Field_Referenced_Name, Field_Expr_Staticness, + Field_Scalar_Size, Field_Error_Origin, Field_Operand, Field_Left, @@ -591,6 +593,11 @@ package Vhdl.Nodes_Meta is procedure Set_PSL_Node (N : Iir; F : Fields_Enum; V: PSL_Node); + function Get_Scalar_Size + (N : Iir; F : Fields_Enum) return Scalar_Size; + procedure Set_Scalar_Size + (N : Iir; F : Fields_Enum; V: Scalar_Size); + function Get_Source_File_Entry (N : Iir; F : Fields_Enum) return Source_File_Entry; procedure Set_Source_File_Entry @@ -894,6 +901,7 @@ package Vhdl.Nodes_Meta is function Has_Alias_Declaration (K : Iir_Kind) return Boolean; function Has_Referenced_Name (K : Iir_Kind) return Boolean; function Has_Expr_Staticness (K : Iir_Kind) return Boolean; + function Has_Scalar_Size (K : Iir_Kind) return Boolean; function Has_Error_Origin (K : Iir_Kind) return Boolean; function Has_Operand (K : Iir_Kind) return Boolean; function Has_Left (K : Iir_Kind) return Boolean; |