diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-03-23 07:41:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-03-23 07:41:43 +0100 |
| commit | 5010476ea75405dbcacebd97283f1d3dbb932601 (patch) | |
| tree | f124442c14c3d780f250e1b3dd5d5e65c65d2917 /src | |
| parent | b9bd50be737ff13967edf442717673fd9100941f (diff) | |
| download | ghdl-5010476ea75405dbcacebd97283f1d3dbb932601.tar.gz ghdl-5010476ea75405dbcacebd97283f1d3dbb932601.tar.bz2 ghdl-5010476ea75405dbcacebd97283f1d3dbb932601.zip | |
vhdl-std_package: declare missing wildcard types
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-std_package.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-std_package.adb b/src/vhdl/vhdl-std_package.adb index d64f6e6ec..e656ccf42 100644 --- a/src/vhdl/vhdl-std_package.adb +++ b/src/vhdl/vhdl-std_package.adb @@ -114,6 +114,8 @@ package body Vhdl.Std_Package is Wildcard_Psl_Bitvector_Type); Create_Known_Iir (Iir_Kind_Wildcard_Type_Definition, Wildcard_Psl_Boolean_Type); + -- NOTE: if a wildcard type definition is added, it should also be + -- declared below. end Create_First_Nodes; procedure Create_Std_Standard_Package (Parent : Iir_Library_Declaration) @@ -1389,6 +1391,11 @@ package body Vhdl.Std_Package is Create_Wildcard_Type (Wildcard_Any_Aggregate_Type, "any aggregate type"); Create_Wildcard_Type (Wildcard_Any_String_Type, "any string type"); Create_Wildcard_Type (Wildcard_Any_Access_Type, "any access type"); + Create_Wildcard_Type (Wildcard_Any_Integer_Type, "any integer type"); + Create_Wildcard_Type (Wildcard_Psl_Bit_Type, "a PSL bit type"); + Create_Wildcard_Type (Wildcard_Psl_Bitvector_Type, + "a PSL bitvector type"); + Create_Wildcard_Type (Wildcard_Psl_Boolean_Type, "a PSL boolean type"); Error_Type := Utils.Create_Error_Type (Wildcard_Any_Type); Set_Error_Origin (Error_Type, Null_Iir); |