From 5e2f96156fec5ae669bf055c54fc2f4fa1f6fdab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Love=20H=C3=B6rnquist=20=C3=85strand?= <lha@kth.se>
Date: Fri, 3 Oct 2003 04:52:06 +0000
Subject: [PATCH] add krb5_principal_set_type

git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@12949 ec53bebd-3082-4978-b11e-865c3cabbd6b
---
 lib/krb5/principal.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lib/krb5/principal.c b/lib/krb5/principal.c
index f9393a61d..1456c561f 100644
--- a/lib/krb5/principal.c
+++ b/lib/krb5/principal.c
@@ -59,6 +59,14 @@ krb5_free_principal(krb5_context context,
     }
 }
 
+void
+krb5_principal_set_type(krb5_context context,
+			krb5_principal principal,
+			int type)
+{
+    princ_type(principal) = type;
+}
+
 int
 krb5_principal_get_type(krb5_context context,
 			krb5_principal principal)