From 3836bf240e627ff6ac4ad69f506c6b4fd4fb079c Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Tue, 27 Mar 2001 16:27:21 +0000 Subject: [PATCH] Fixed bug in do_responseStatus. --- CHANGELOG | 5 ++++- ir-tcl.c | 9 ++++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/CHANGELOG b/CHANGELOG index 79604fb..91cd9d9 100644 --- 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 ------------------------------------------------------ @@ -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 +03/27/01 Fixed bug in do_responseStatus. Thanks to Rustam T. Usmanov + + diff --git a/ir-tcl.c b/ir-tcl.c index c6e789b..13f5603 100644 --- a/ir-tcl.c +++ b/ir-tcl.c @@ -4,7 +4,10 @@ * 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 @@ -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); + case Z_Records_multipleNSD: + Tcl_AppendElement (interp, "NSD"); + return ir_diagResult (interp, obj->nonSurrogateDiagnosticList, + obj->nonSurrogateDiagnosticNum); } return TCL_OK; } -- 1.7.10.4