From 19c2aaceb9610aee1de5197a92b87600e484bbde Mon Sep 17 00:00:00 2001
From: gingold
Date: Wed, 16 Dec 2009 04:39:02 +0000
Subject: FIx memory leak. From Thomas Sailer.

---
 translate/grt/grt-rtis_utils.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/translate/grt/grt-rtis_utils.adb b/translate/grt/grt-rtis_utils.adb
index 633af43..d01cea9 100644
--- a/translate/grt/grt-rtis_utils.adb
+++ b/translate/grt/grt-rtis_utils.adb
@@ -502,6 +502,7 @@ package body Grt.Rtis_Utils is
    begin
       Rtis_Utils.Get_Value (Name, Value, Type_Rti);
       Put (Stream, Name);
+      Free (Name);
    end Disp_Value;
 
    procedure Get_Enum_Value
-- 
cgit