projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Spell fix of an error message.
[ir-tcl-moved-to-github.git]
/
grs.c
diff --git
a/grs.c
b/grs.c
index
afcaa4b
..
f5e4d22
100644
(file)
--- a/
grs.c
+++ b/
grs.c
@@
-1,11
+1,17
@@
/*
* IR toolkit for tcl/tk
/*
* IR toolkit for tcl/tk
- * (c) Index Data 1995
+ * (c) Index Data 1995-1996
* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: grs.c,v $
* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: grs.c,v $
- * Revision 1.7 1996-06-05 09:26:20 adam
+ * 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
* Bug fix: the change above introduced an error.
*
* Revision 1.6 1996/06/05 08:59:23 adam
* Bug fix: the change above introduced an error.
*
* Revision 1.6 1996/06/05 08:59:23 adam
@@
-59,22
+65,22
@@
void ir_tcl_grs_del (IrTcl_GRS_Record **grs_record)
case Z_StringOrNumeric_numeric:
break;
default:
case Z_StringOrNumeric_numeric:
break;
default:
- free (e->tagVal.str);
+ xfree (e->tagVal.str);
}
switch (e->dataWhich)
{
case Z_ElementData_octets:
}
switch (e->dataWhich)
{
case Z_ElementData_octets:
- free (e->tagData.octets.buf);
+ xfree (e->tagData.octets.buf);
break;
case Z_ElementData_numeric:
break;
case Z_ElementData_date:
break;
case Z_ElementData_numeric:
break;
case Z_ElementData_date:
- free (e->tagData.str);
+ xfree (e->tagData.str);
break;
case Z_ElementData_ext:
break;
case Z_ElementData_string:
break;
case Z_ElementData_ext:
break;
case Z_ElementData_string:
- free (e->tagData.str);
+ xfree (e->tagData.str);
break;
case Z_ElementData_trueOrFalse:
case Z_ElementData_oid:
break;
case Z_ElementData_trueOrFalse:
case Z_ElementData_oid:
@@
-89,8
+95,8
@@
void ir_tcl_grs_del (IrTcl_GRS_Record **grs_record)
break;
}
}
break;
}
}
- free ((*grs_record)->entries);
- free (*grs_record);
+ xfree ((*grs_record)->entries);
+ xfree (*grs_record);
*grs_record = NULL;
}
*grs_record = NULL;
}