From a8db752954f060217f21417bd98077a215fab971 Mon Sep 17 00:00:00 2001
From: gingold
Date: Fri, 16 Jun 2006 18:41:15 +0000
Subject: bug fixes

---
 translate/grt/grt-images.adb | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'translate/grt/grt-images.adb')

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);
-- 
cgit