From 7b78b07d68cac0f57892711cd3d9363a5c7bf74e Mon Sep 17 00:00:00 2001 From: Ezra Peisach Date: Thu, 16 Jul 1998 16:01:37 +0000 Subject: [PATCH] * tcl_kadm5.c (parse_tl_data): Change cast from char * to krb5_octet *. (tcl_kadm5_free_principal_ent, tcl_kadm5_free_policy_ent): Add cast to value returned by Tcl_GetHashValue. * tcl_ovsec_kadm.c (tcl_ovsec_kadm_free_principal_ent): Cast return of Tcl_GetHashValue. git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@10650 dc483132-0cff-0310-8789-dd5450dbe970 --- src/kadmin/testing/util/ChangeLog | 10 ++++++++++ src/kadmin/testing/util/tcl_kadm5.c | 6 +++--- src/kadmin/testing/util/tcl_ovsec_kadm.c | 4 ++-- 3 files changed, 15 insertions(+), 5 deletions(-) diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog index 2528951e5..92e1e2c42 100644 --- a/src/kadmin/testing/util/ChangeLog +++ b/src/kadmin/testing/util/ChangeLog @@ -1,3 +1,13 @@ +Thu Jul 16 10:20:20 1998 Ezra Peisach + + * tcl_kadm5.c (parse_tl_data): Change cast from char * to + krb5_octet *. + (tcl_kadm5_free_principal_ent, tcl_kadm5_free_policy_ent): Add + cast to value returned by Tcl_GetHashValue. + + * tcl_ovsec_kadm.c (tcl_ovsec_kadm_free_principal_ent): Cast + return of Tcl_GetHashValue. + Fri Feb 27 23:32:38 1998 Theodore Ts'o * Makefile.in: Changed thisconfigdir to point at the kadmin diff --git a/src/kadmin/testing/util/tcl_kadm5.c b/src/kadmin/testing/util/tcl_kadm5.c index 034ac877a..c334850f2 100644 --- a/src/kadmin/testing/util/tcl_kadm5.c +++ b/src/kadmin/testing/util/tcl_kadm5.c @@ -937,7 +937,7 @@ static int parse_tl_data(Tcl_Interp *interp, char *list, retcode = TCL_ERROR; goto finished; } - tl->tl_data_contents = (char *) malloc(tmp+1); + tl->tl_data_contents = (krb5_octet *) malloc(tmp+1); strcpy(tl->tl_data_contents, argv1[2]); free(argv1); @@ -2371,7 +2371,7 @@ int tcl_kadm5_free_principal_ent(ClientData clientData, return TCL_ERROR; } - ent = Tcl_GetHashValue(entry); + ent = (kadm5_principal_ent_t) Tcl_GetHashValue(entry); if (ret = kadm5_free_principal_ent(server_handle, ent)) { stash_error(interp, ret); @@ -2427,7 +2427,7 @@ int tcl_kadm5_free_policy_ent(ClientData clientData, return TCL_ERROR; } - ent = Tcl_GetHashValue(entry); + ent = (kadm5_policy_ent_t) Tcl_GetHashValue(entry); if (ret = kadm5_free_policy_ent(server_handle, ent)) { stash_error(interp, ret); diff --git a/src/kadmin/testing/util/tcl_ovsec_kadm.c b/src/kadmin/testing/util/tcl_ovsec_kadm.c index 6c09aeaaf..9e27e9209 100644 --- a/src/kadmin/testing/util/tcl_ovsec_kadm.c +++ b/src/kadmin/testing/util/tcl_ovsec_kadm.c @@ -1856,7 +1856,7 @@ int tcl_ovsec_kadm_free_principal_ent(ClientData clientData, return TCL_ERROR; } - ent = Tcl_GetHashValue(entry); + ent = (ovsec_kadm_principal_ent_t) Tcl_GetHashValue(entry); if (ret = ovsec_kadm_free_principal_ent(server_handle, ent)) { stash_error(interp, ret); @@ -1912,7 +1912,7 @@ int tcl_ovsec_kadm_free_policy_ent(ClientData clientData, return TCL_ERROR; } - ent = Tcl_GetHashValue(entry); + ent = (ovsec_kadm_policy_ent_t) Tcl_GetHashValue(entry); if (ret = ovsec_kadm_free_policy_ent(server_handle, ent)) { stash_error(interp, ret); -- 2.26.2