From aff4a6805928a04db9a7afba79ec2475dbe749f8 Mon Sep 17 00:00:00 2001
From: John Kohl <jtkohl@mit.edu>
Date: Thu, 1 Feb 1990 15:14:13 +0000
Subject: [PATCH] *** empty log message ***

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@224 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/lib/krb5/krb/rd_error.c | 47 +++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 src/lib/krb5/krb/rd_error.c

diff --git a/src/lib/krb5/krb/rd_error.c b/src/lib/krb5/krb/rd_error.c
new file mode 100644
index 000000000..2c73fb193
--- /dev/null
+++ b/src/lib/krb5/krb/rd_error.c
@@ -0,0 +1,47 @@
+/*
+ * $Source$
+ * $Author$
+ *
+ * Copyright 1990 by the Massachusetts Institute of Technology.
+ *
+ * For copying and distribution information, please see the file
+ * <krb5/mit-copyright.h>.
+ *
+ * krb5_rd_error() routine
+ */
+
+#if !defined(lint) && !defined(SABER)
+static char rcsid_rd_error_c[] =
+"$Id$";
+#endif	/* !lint & !SABER */
+
+#include <krb5/copyright.h>
+
+#include <krb5/krb5.h>
+#include <krb5/asn1.h>
+
+#include <krb5/ext-proto.h>
+
+/*
+ Parses an error message from enc_errbuf and fills in the contents of estruct.
+
+ Upon return dec_error->client,server,text, if non-NULL, point to allocated
+ storage which the caller should free when finished.
+
+ returns system errors
+ */
+
+krb5_error_code
+krb5_rd_error( krb5_data *enc_errbuf,
+	       krb5_error *dec_error )
+{
+    krb5_error_code retval;
+    krb5_error *new_dec_error;
+
+    if (retval = decode_krb5_error(enc_errbuf, &new_dec_error))
+	return(retval);
+    *dec_error = *new_dec_error;
+    (void)free((char *)new_dec_error);
+    return 0;
+}
+
-- 
2.26.2