diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-12-16 04:39:02 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2009-12-16 04:39:02 +0000 |
| commit | 19c2aaceb9610aee1de5197a92b87600e484bbde (patch) | |
| tree | ee811f99e3ad9a9bdc68fb8c24f2ed3b2c8c184f /translate | |
| parent | 687eab944bacf7355d113e99551f4835d96db184 (diff) | |
| download | ghdl-19c2aaceb9610aee1de5197a92b87600e484bbde.tar.gz ghdl-19c2aaceb9610aee1de5197a92b87600e484bbde.tar.bz2 ghdl-19c2aaceb9610aee1de5197a92b87600e484bbde.zip | |
FIx memory leak.
From Thomas Sailer.
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/grt/grt-rtis_utils.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/translate/grt/grt-rtis_utils.adb b/translate/grt/grt-rtis_utils.adb index 633af4306..d01cea9e5 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 |