diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:53:30 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:53:30 +0200 |
| commit | 887496173322c262a976ac48d391d89255bf83f0 (patch) | |
| tree | 82ff89fc4413cbc89b0132ed993c12f33a954524 /src/grt/grt-types.ads | |
| parent | 473c83961abe4e2fb52c8812e46bf19a41fe52cf (diff) | |
| download | ghdl-887496173322c262a976ac48d391d89255bf83f0.tar.gz ghdl-887496173322c262a976ac48d391d89255bf83f0.tar.bz2 ghdl-887496173322c262a976ac48d391d89255bf83f0.zip | |
vhdl: add ghdl_integer_index_check_failed. For #1257
Improve error message in case of (integer) index not in bounds.
Diffstat (limited to 'src/grt/grt-types.ads')
| -rw-r--r-- | src/grt/grt-types.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/grt/grt-types.ads b/src/grt/grt-types.ads index 0aa6dcc79..e59a38313 100644 --- a/src/grt/grt-types.ads +++ b/src/grt/grt-types.ads @@ -72,6 +72,9 @@ package Grt.Types is Length : Ghdl_Index_Type; end record; + type Std_Integer_Range_Ptr is access Std_Integer_Trt; + pragma Convention (C, Std_Integer_Range_Ptr); + subtype Std_Character is Character; type Std_String_Uncons is array (Ghdl_Index_Type range <>) of Std_Character; subtype Std_String_Base is Std_String_Uncons (Ghdl_Index_Type); |