X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=mem.c;h=f8ee8855b98d635af3982e28f94247dd7c255934;hb=edb6ab7ea99d663f55466610ca7678af2c0fadd3;hp=d8de25732ad46789545cbf5224e7ed04100a6f21;hpb=0b17556c40fba07f064ed5e48015604568c9f583;p=ir-tcl-moved-to-github.git

diff --git a/mem.c b/mem.c
index d8de257..f8ee885 100644
--- a/mem.c
+++ b/mem.c
@@ -1,11 +1,14 @@
 /*
  * IR toolkit for tcl/tk
- * (c) Index Data 1995
+ * (c) Index Data 1995-1998
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: mem.c,v $
- * Revision 1.3  1996-07-03 13:31:14  adam
+ * Revision 1.4  1998-10-13 21:23:37  adam
+ * Fixed log message.
+ *
+ * Revision 1.3  1996/07/03 13:31:14  adam
  * The xmalloc/xfree functions from YAZ are used to manage memory.
  *
  * Revision 1.2  1995/08/29  15:30:15  adam
@@ -56,7 +59,7 @@ int ir_tcl_strdup (Tcl_Interp *interp, char** p, const char *s)
     {
         if (!interp) 
         {
-            logf (LOG_FATAL, "Out of memory in strdup. %ld bytes", len);
+            logf (LOG_FATAL, "Out of memory in strdup. %d bytes", len);
             exit (1);
         }
         interp->result = "strdup fail";