From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 29 May 1996 20:28:08 +0000 (+0000)
Subject: Bug fix: Function ir_tcl_grs_del sometimes free'd bad memory.
X-Git-Tag: IRTCL.1.4~124
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=6b30d597fbae7be341e4b48056c72a2b0b8808f1;p=ir-tcl-moved-to-github.git

Bug fix: Function ir_tcl_grs_del sometimes free'd bad memory.
---

diff --git a/grs.c b/grs.c
index c58d7c6..b8e9548 100644
--- a/grs.c
+++ b/grs.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: grs.c,v $
- * Revision 1.4  1996-05-29 06:37:42  adam
+ * Revision 1.5  1996-05-29 20:28:08  adam
+ * Bug fix: Function ir_tcl_grs_del sometimes free'd bad memory.
+ *
+ * Revision 1.4  1996/05/29  06:37:42  adam
  * Function ir_tcl_get_grs_r enhanced so that specific elements can be
  * extracted.
  *
@@ -45,7 +48,7 @@ void ir_tcl_grs_del (IrTcl_GRS_Record **grs_record)
     e = (*grs_record)->entries;
     for (i = 0; i < (*grs_record)->noTags; i++, e++)
     {
-        switch (e->tagType)
+        switch (e->tagWhich)
         {
         case Z_StringOrNumeric_numeric:
             break;