* serialize.c (krb5_ser_pack_int64, krb5_ser_unpack_int64): New functions

git-svn-id: svn://anonsvn.mit.edu/krb5/branches/raeburn-gssapi-cfx@15824 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/lib/krb5/krb/ChangeLog b/src/lib/krb5/krb/ChangeLog
index 5d777909a6bdde88caf655ac5454e7b5c7975693..2f9e5a3da2e19202c34e38efb1e7b214202896cf 100644 (file)
--- a/src/lib/krb5/krb/ChangeLog
+++ b/src/lib/krb5/krb/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-25  Ken Raeburn  <raeburn@mit.edu>
+
+       * serialize.c (krb5_ser_pack_int64, krb5_ser_unpack_int64): New
+       functions.
+
 2003-09-02  Tom Yu  <tlyu@mit.edu>
 
        * conv_creds.c (krb524_convert_creds_plain): Apply patch from

diff --git a/src/lib/krb5/krb/serialize.c b/src/lib/krb5/krb/serialize.c
index 7c5f17a4cd009902417880aea7e727bc040eda69..9cbcef78d97231981735dec8d850f651d9d3866d 100644 (file)
--- a/src/lib/krb5/krb/serialize.c
+++ b/src/lib/krb5/krb/serialize.c
@@ -174,7 +174,7 @@ krb5_internalize_opaque(krb5_context kcontext, krb5_magic odtype, krb5_pointer *
 }
 \f
 /*
- * krb5_ser_pack_int32()       - Pack a 4-byte integer if space is availble.
+ * krb5_ser_pack_int32()       - Pack a 4-byte integer if space is available.
  *                               Update buffer pointer and remaining space.
  */
 krb5_error_code KRB5_CALLCONV
@@ -193,6 +193,23 @@ krb5_ser_pack_int32(krb5_int32 iarg, krb5_octet **bufp, size_t *remainp)
        return(ENOMEM);
 }
 \f
+/*
+ * krb5_ser_pack_int64()       - Pack an 8-byte integer if space is available.
+ *                               Update buffer pointer and remaining space.
+ */
+krb5_error_code KRB5_CALLCONV
+krb5_ser_pack_int64(krb5_int64 iarg, krb5_octet **bufp, size_t *remainp)
+{
+    if (*remainp >= sizeof(krb5_int64)) {
+       store_64_be(iarg, (unsigned char *)*bufp);
+       *bufp += sizeof(krb5_int64);
+       *remainp -= sizeof(krb5_int64);
+       return(0);
+    }
+    else
+       return(ENOMEM);
+}
+\f
 /*
  * krb5_ser_pack_bytes()       - Pack a string of bytes.
  */
@@ -228,6 +245,22 @@ krb5_ser_unpack_int32(krb5_int32 *intp, krb5_octet **bufp, size_t *remainp)
        return(ENOMEM);
 }
 \f
+/*
+ * krb5_ser_unpack_int64()     - Unpack an 8-byte integer if it's there.
+ */
+krb5_error_code KRB5_CALLCONV
+krb5_ser_unpack_int64(krb5_int64 *intp, krb5_octet **bufp, size_t *remainp)
+{
+    if (*remainp >= sizeof(krb5_int64)) {
+       *intp = load_64_be((unsigned char *)*bufp);
+       *bufp += sizeof(krb5_int64);
+       *remainp -= sizeof(krb5_int64);
+       return(0);
+    }
+    else
+       return(ENOMEM);
+}
+\f
 /*
  * krb5_ser_unpack_bytes()     - Unpack a byte string if it's there.
  */