From 0341f9b770084da8ccb8e7be7039ce4a7abfdc88 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Sat, 15 Jan 2000 09:18:42 +0000 Subject: [PATCH] Bug fix: some elements where treated as OPTIONAL when they shouldn't. --- util/yc.tcl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/util/yc.tcl b/util/yc.tcl index 49627cc..e5463b7 100755 --- a/util/yc.tcl +++ b/util/yc.tcl @@ -3,12 +3,14 @@ exec tclsh "$0" "$@" # # YC: ASN.1 Compiler for YAZ -# (c) Index Data 1996-1999 +# (c) Index Data 1996-2000 # See the file LICENSE for details. -# Sebastian Hammer, Adam Dickmeiss # # $Log: yc.tcl,v $ -# Revision 1.4 1999-12-16 23:36:19 adam +# Revision 1.5 2000-01-15 09:18:42 adam +# Bug fix: some elements where treated as OPTIONAL when they shouldn't. +# +# Revision 1.4 1999/12/16 23:36:19 adam # Implemented ILL protocol. Minor updates ASN.1 compiler. # # Revision 1.3 1999/11/30 13:47:12 adam @@ -266,7 +268,7 @@ proc asnOptional {} { return 1 } elseif {[lex-name-move DEFAULT]} { lex - return 1 + return 0 } return 0 } -- 1.7.10.4