X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=grs.c;h=6c05faa411c236262b0f169b4421959260350958;hb=e2c43820d02a17f663b564b9d139fb188c370bfc;hp=fc62ff99fd504c157221e4ee130bfebb38ec6559;hpb=0b17556c40fba07f064ed5e48015604568c9f583;p=ir-tcl-moved-to-github.git

diff --git a/grs.c b/grs.c
index fc62ff9..6c05faa 100644
--- a/grs.c
+++ b/grs.c
@@ -1,11 +1,17 @@
 /*
  * IR toolkit for tcl/tk
- * (c) Index Data 1995
+ * (c) Index Data 1995-1997
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: grs.c,v $
- * Revision 1.8  1996-07-03 13:31:10  adam
+ * Revision 1.10  1997-09-09 10:19:52  adam
+ * New MSV5.0 port with fewer warnings.
+ *
+ * Revision 1.9  1996/08/16 15:07:44  adam
+ * First work on Explain.
+ *
+ * Revision 1.8  1996/07/03  13:31:10  adam
  * The xmalloc/xfree functions from YAZ are used to manage memory.
  *
  * Revision 1.7  1996/06/05  09:26:20  adam
@@ -200,7 +206,7 @@ static int ir_tcl_get_grs_r (Tcl_Interp *interp, IrTcl_GRS_Record *grs_record,
                     }
                     else
                     {
-                        int len = strlen(cp1+1);
+                        size_t len = strlen(cp1+1);
                         if (cp1[len] == ')')
                             len--;
                         if (len && strlen(e->tagVal.str) == len &&