projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0b673e3
)
Fixed bug in do_responseStatus.
author
Adam Dickmeiss
<adam@indexdata.dk>
Tue, 27 Mar 2001 16:27:21 +0000
(16:27 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Tue, 27 Mar 2001 16:27:21 +0000
(16:27 +0000)
CHANGELOG
patch
|
blob
|
history
ir-tcl.c
patch
|
blob
|
history
diff --git
a/CHANGELOG
b/CHANGELOG
index
79604fb
..
91cd9d9
100644
(file)
--- a/
CHANGELOG
+++ b/
CHANGELOG
@@
-1,4
+1,4
@@
-$Id: CHANGELOG,v 1.45 2001-03-26 11:39:34 adam Exp $
+$Id: CHANGELOG,v 1.46 2001-03-27 16:27:21 adam Exp $
06/19/95 Release of ir-tcl-1.0b
------------------------------------------------------
06/19/95 Release of ir-tcl-1.0b
------------------------------------------------------
@@
-141,3
+141,6
@@
$Id: CHANGELOG,v 1.45 2001-03-26 11:39:34 adam Exp $
03/26/01 Fixed bug in ir_deleteDiags. Thanks to Rustam T. Usmanov
<rustam@unilib.neva.ru>
03/26/01 Fixed bug in ir_deleteDiags. Thanks to Rustam T. Usmanov
<rustam@unilib.neva.ru>
+03/27/01 Fixed bug in do_responseStatus. Thanks to Rustam T. Usmanov
+ <rustam@unilib.neva.ru>
+
diff --git
a/ir-tcl.c
b/ir-tcl.c
index
c6e789b
..
13f5603
100644
(file)
--- a/
ir-tcl.c
+++ b/
ir-tcl.c
@@
-4,7
+4,10
@@
* See the file LICENSE for details.
*
* $Log: ir-tcl.c,v $
* See the file LICENSE for details.
*
* $Log: ir-tcl.c,v $
- * Revision 1.117 2001-03-26 11:39:34 adam
+ * Revision 1.118 2001-03-27 16:27:21 adam
+ * Fixed bug in do_responseStatus.
+ *
+ * Revision 1.117 2001/03/26 11:39:34 adam
* Fixed bug in ir_deleteDiags - crash when receiving multiple diags.
*
* Revision 1.116 2001/02/09 11:58:04 adam
* Fixed bug in ir_deleteDiags - crash when receiving multiple diags.
*
* Revision 1.116 2001/02/09 11:58:04 adam
@@
-2786,6
+2789,10
@@
static int do_responseStatus (void *o, Tcl_Interp *interp,
Tcl_AppendElement (interp, "NSD");
return ir_diagResult (interp, obj->nonSurrogateDiagnosticList,
obj->nonSurrogateDiagnosticNum);
Tcl_AppendElement (interp, "NSD");
return ir_diagResult (interp, obj->nonSurrogateDiagnosticList,
obj->nonSurrogateDiagnosticNum);
+ case Z_Records_multipleNSD:
+ Tcl_AppendElement (interp, "NSD");
+ return ir_diagResult (interp, obj->nonSurrogateDiagnosticList,
+ obj->nonSurrogateDiagnosticNum);
}
return TCL_OK;
}
}
return TCL_OK;
}