From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 20 Feb 1996 16:09:51 +0000 (+0000)
Subject: Bug fix: didn't set element set names stamp correctly on result
X-Git-Tag: IRTCL.1.4~152
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=bbe888d936adcb31a74a64c0327bd7e14b56a766;p=ir-tcl-moved-to-github.git

Bug fix: didn't set element set names stamp correctly on result
set records when element set names were set to the empty string.
---

diff --git a/ir-tcl.c b/ir-tcl.c
index 9eddd5f..68d04b4 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -5,7 +5,11 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.75  1996-02-19 15:41:53  adam
+ * Revision 1.76  1996-02-20 16:09:51  adam
+ * Bug fix: didn't set element set names stamp correctly on result
+ * set records when element set names were set to the empty string.
+ *
+ * Revision 1.75  1996/02/19  15:41:53  adam
  * Better log messages.
  * Minor improvement of connect method.
  *
@@ -297,6 +301,8 @@ static IrTcl_RecordList *new_IR_record (IrTcl_SetObj *setobj,
 {
     IrTcl_RecordList *rl;
 
+    if (elements && !*elements)
+        elements = NULL;
     for (rl = setobj->record_list; rl; rl = rl->next)
     {
         if (no == rl->no && (!rl->elements || !elements ||
@@ -2021,7 +2027,10 @@ static int do_resultCount (void *o, Tcl_Interp *interp,
     IrTcl_SetObj *obj = o;
 
     if (argc <= 0)
+    {
+        obj->resultCount = 0;
         return TCL_OK;
+    }
     return get_set_int (&obj->resultCount, interp, argc, argv);
 }