From d6e9d2174a59de04a69629c2d22f612cff490b43 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Fri, 20 Oct 2006 10:44:50 +0000
Subject: [PATCH] Add a few assertions about *_LLEN in adns.c.

---
 adns/adns.c      | 2 ++
 debian/changelog | 3 +++
 2 files changed, 5 insertions(+)

diff --git a/adns/adns.c b/adns/adns.c
index 2a86f4a..a21de01 100644
--- a/adns/adns.c
+++ b/adns/adns.c
@@ -524,6 +524,7 @@ static void make_resultstatus(Tcl_Interp *ip, adns_status status,
   results[1]= cht_ret_int(ip, status);
   results[2]= cht_ret_string(ip, adns_errabbrev(status));
   results[3]= cht_ret_string(ip, adns_strerror(status));
+  assert(RESULTSTATUS_LLEN==4);
 }
 
 static Tcl_Obj *make_resultrdata(Tcl_Interp *ip, adns_answer *answer) {
@@ -554,6 +555,7 @@ static void make_resultlist(Tcl_Interp *ip, adns_answer *answer,
   results[4]= cht_ret_string(ip, answer->owner);
   results[5]= cht_ret_string(ip, answer->cname ? answer->cname : "");
   results[6]= make_resultrdata(ip, answer);
+  assert(RESULTLIST_LLEN==7);
 }
 
 /*---------- synchronous query handling ----------*/
diff --git a/debian/changelog b/debian/changelog
index 76235c6..bbf511e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -3,6 +3,9 @@ chiark-tcl (1.0.2) unstable; urgency=low
   Bugfixes:
   * Do not adns_cancel in the middle of adns_forallqueries.
 
+  Internal improvements:
+  * Add a few assertions about *_LLEN in adns.c.
+
  --
 
 chiark-tcl (1.0.1) unstable; urgency=low
-- 
2.30.2