From: ian <ian>
Date: Fri, 20 Oct 2006 10:44:50 +0000 (+0000)
Subject: Add a few assertions about *_LLEN in adns.c.
X-Git-Tag: debian/1.1.1~31
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d6e9d2174a59de04a69629c2d22f612cff490b43;p=chiark-tcl.git

Add a few assertions about *_LLEN in adns.c.
---

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