kdc: zero KDCFastState padata before free

kdc/fast.c

@@ -560,3 +560,18 @@ _kdc_fast_unwrap_request(astgs_request_t r)
 
     return ret;
 }
+
+void
+_kdc_free_fast_state(KDCFastState *state)
+{
+    size_t i;
+
+    for (i = 0; i < state->fast_state.len; i++) {
+	PA_DATA *pa = &state->fast_state.val[i];
+
+	if (pa->padata_value.data)
+	    memset_s(pa->padata_value.data, 0,
+		     pa->padata_value.length, pa->padata_value.length);
+    }
+    free_KDCFastState(state);
+}

kdc/kerberos5.c

@@ -2505,7 +2505,7 @@ out:
 
     free_EncTicketPart(&r->et);
     free_EncKDCRepPart(&r->ek);
-    free_KDCFastState(&r->fast);
+    _kdc_free_fast_state(&r->fast);
 
     if (error_method.len)
 	free_METHOD_DATA(&error_method);