* 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

diff --git a/src/kadmin/testing/util/ChangeLog b/src/kadmin/testing/util/ChangeLog
index 2528951e59ba9b71e94594cc71c370c3bcbda704..92e1e2c4250ac43e96786953509cf3215661f271 100644 (file)
--- 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  <epeisach@mit.edu>
+
+       * 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  <tytso@rsts-11.mit.edu>
 
        * 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 034ac877a9e5e88d2c98cdc6c2711ea5ecde0774..c334850f2893a6f9da35bf456712751c680acf94 100644 (file)
--- 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 6c09aeaaf221df322fbe04b282dc6f8d6e622f70..9e27e92091c64aa9db1438a634c5b30711b6beca 100644 (file)
--- 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);