Fixed log message.

[ir-tcl-moved-to-github.git] / mem.c

diff --git a/mem.c b/mem.c
index 12ece38..f8ee885 100644 (file)
--- a/mem.c
+++ b/mem.c
@@ -1,11 +1,17 @@
 /*
  * 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.2  1995-08-29 15:30:15  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
  * Work on GRS records.
  *
  * Revision 1.1  1995/08/04  11:32:40  adam
@@ -26,7 +32,7 @@
  */
 void *ir_tcl_malloc (size_t n)
 {
-    void *p = malloc (n);
+    void *p = xmalloc (n);
     if (!p)
     {
         logf (LOG_FATAL, "Out of memory. %ld bytes requested", (long) n);
@@ -48,12 +54,12 @@ int ir_tcl_strdup (Tcl_Interp *interp, char** p, const char *s)
         return TCL_OK;
     }
     len = strlen(s)+1;
-    *p = malloc (len);
+    *p = xmalloc (len);
     if (!*p)
     {
         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";
@@ -68,7 +74,7 @@ int ir_tcl_strdup (Tcl_Interp *interp, char** p, const char *s)
  */
 int ir_tcl_strdel (Tcl_Interp *interp, char **p)
 {
-    free (*p);
+    xfree (*p);
     *p = NULL;
     return TCL_OK;
 }