Fix memory leaks in test programs

Fix additional memory leaks detected by a newer asan (clang version
6.0.0) in test programs.

diff --git a/src/lib/krb5/krb/t_valid_times.c b/src/lib/krb5/krb/t_valid_times.c
index 1b469ffc252f108253809d88bd6b5a12a037080a..e4b5f1bce477ab3fb461bef7b43b3ac07356b023 100644 (file)
--- a/src/lib/krb5/krb/t_valid_times.c
+++ b/src/lib/krb5/krb/t_valid_times.c
@@ -105,5 +105,7 @@ main()
     ret = krb5int_validate_times(context, &times);
     assert(ret == KRB5KRB_AP_ERR_TKT_EXPIRED);
 
+    krb5_free_context(context);
+
     return 0;
 }

diff --git a/src/util/profile/prof_test1 b/src/util/profile/prof_test1
index 7d13c938921ad43eba25f521b811946ad8c7d0ab..fc675714d0af0b8761c98a18c900bd7c12da70f0 100644 (file)
--- a/src/util/profile/prof_test1
+++ b/src/util/profile/prof_test1
@@ -360,6 +360,7 @@ proc test10 {} {
        puts stderr "Error: test10: Did not find expected chores."
        exit 1
     }
+    profile_release $p
 }
 
 test1

diff --git a/src/util/profile/profile_tcl.c b/src/util/profile/profile_tcl.c
index eb9950a100a6db15506a4b08fa40aec97cc668b9..de61baecf69ec7207ac9eddefb2258cebf00f11a 100644 (file)
--- a/src/util/profile/profile_tcl.c
+++ b/src/util/profile/profile_tcl.c
@@ -2234,6 +2234,7 @@ _wrap_profile_get_string(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, i
     char *s = (arg6 && *arg6) ? *arg6 : "";
     Tcl_ListObjAppendElement(interp, Tcl_GetObjResult(interp),
       Tcl_NewStringObj(s, strlen(s)));
+    profile_release_string(s);
   }
   if (alloc2 == SWIG_NEWOBJ) free((char*)buf2);
   if (alloc3 == SWIG_NEWOBJ) free((char*)buf3);