diff options
| -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 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 |