diff options
| author | gingold | 2006-06-16 18:41:15 +0000 |
|---|---|---|
| committer | gingold | 2006-06-16 18:41:15 +0000 |
| commit | a8db752954f060217f21417bd98077a215fab971 (patch) | |
| tree | d1a786459661d992376bb583423f790bb1cf8f38 /translate/grt/grt-images.adb | |
| parent | 549cfe1c332be3633121dfd6d29b98afc24d2650 (diff) | |
| download | ghdl-a8db752954f060217f21417bd98077a215fab971.tar.gz ghdl-a8db752954f060217f21417bd98077a215fab971.tar.bz2 ghdl-a8db752954f060217f21417bd98077a215fab971.zip | |
bug fixes
Diffstat (limited to 'translate/grt/grt-images.adb')
| -rw-r--r-- | translate/grt/grt-images.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/translate/grt/grt-images.adb b/translate/grt/grt-images.adb index 396a0ea..5f8a081 100644 --- a/translate/grt/grt-images.adb +++ b/translate/grt/grt-images.adb @@ -68,6 +68,13 @@ package body Grt.Images is Return_Enum (Res, Rti, Ghdl_E8'Pos (Val)); end Ghdl_Image_E8; + procedure Ghdl_Image_E32 + (Res : Std_String_Ptr; Val : Ghdl_E32; Rti : Ghdl_Rti_Access) + is + begin + Return_Enum (Res, Rti, Ghdl_E32'Pos (Val)); + end Ghdl_Image_E32; + procedure Ghdl_Image_I32 (Res : Std_String_Ptr; Val : Ghdl_I32) is Str : String (1 .. 11); |