diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-03-14 14:09:00 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-03-14 14:09:00 +0100 |
| commit | 14df57a76e86ba265e5af45f75fb824323577c5a (patch) | |
| tree | be29b14fbb2c92f046e20adcf2c800b74f881a9f /src/grt/grt-values.ads | |
| parent | f82a4c49a364b78f13bdbecf99bd11cf8734978e (diff) | |
| download | ghdl-14df57a76e86ba265e5af45f75fb824323577c5a.tar.gz ghdl-14df57a76e86ba265e5af45f75fb824323577c5a.tar.bz2 ghdl-14df57a76e86ba265e5af45f75fb824323577c5a.zip | |
generic override: handle enumerated types.
Diffstat (limited to 'src/grt/grt-values.ads')
| -rw-r--r-- | src/grt/grt-values.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/grt/grt-values.ads b/src/grt/grt-values.ads index b1747b4e0..5f1e5169d 100644 --- a/src/grt/grt-values.ads +++ b/src/grt/grt-values.ads @@ -63,6 +63,10 @@ package Grt.Values is (S : Std_String_Basep; Len : Ghdl_Index_Type; Init_Pos : Ghdl_Index_Type) return Ghdl_I64; + -- Return the value of STR for enumerated type RTI. + function Value_Enum + (S : Std_String_Basep; Len : Ghdl_Index_Type; Rti : Ghdl_Rti_Access) + return Ghdl_Index_Type; private pragma Export (Ada, Ghdl_Value_B1, "__ghdl_value_b1"); pragma Export (C, Ghdl_Value_E8, "__ghdl_value_e8"); |