diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-25 07:21:37 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-25 07:21:37 +0100 |
| commit | ee043778d9323fa1879389dee570c87d8f3903a7 (patch) | |
| tree | 60c0a0287c8fa8da6f5c109b8985ad9d8ef39431 /translate/grt/grt-rtis_utils.ads | |
| parent | da76e8be06184b9362ae4998a950cb2d31a347a0 (diff) | |
| download | ghdl-ee043778d9323fa1879389dee570c87d8f3903a7.tar.gz ghdl-ee043778d9323fa1879389dee570c87d8f3903a7.tar.bz2 ghdl-ee043778d9323fa1879389dee570c87d8f3903a7.zip | |
Get rid of union in ghdl_rtin_unit.
Replace ghdl_rtik_unit with ghdl_rtik_unit64 and ghdl_rtik_unitptr.
(Preliminary work for llvm).
Diffstat (limited to 'translate/grt/grt-rtis_utils.ads')
| -rw-r--r-- | translate/grt/grt-rtis_utils.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/translate/grt/grt-rtis_utils.ads b/translate/grt/grt-rtis_utils.ads index 232016d67..602c99dec 100644 --- a/translate/grt/grt-rtis_utils.ads +++ b/translate/grt/grt-rtis_utils.ads @@ -59,6 +59,9 @@ package Grt.Rtis_Utils is Value : Value_Union; Type_Rti : Ghdl_Rti_Access); + -- Get the name of a physical unit. + function Get_Physical_Unit_Name (Unit : Ghdl_Rti_Access) + return Ghdl_C_String; -- Disp a value. procedure Disp_Value (Stream : FILEs; Value : Value_Union; |