Index: generic/tclGetDate.y
===================================================================
RCS file: /cvsroot/tcl/generic/tclGetDate.y,v
retrieving revision 1.2
diff -c -r1.2 tclGetDate.y
*** tclGetDate.y	1998/09/14 18:39:59	1.2
--- tclGetDate.y	1999/02/11 00:15:55
***************
*** 811,824 ****
      int                 sign;
  
      for ( ; ; ) {
!         while (isspace((unsigned char) (*yyInput))) {
              yyInput++;
  	}
  
!         if (isdigit(c = *yyInput) || c == '-' || c == '+') {
              if (c == '-' || c == '+') {
                  sign = c == '-' ? -1 : 1;
!                 if (!isdigit(*++yyInput)) {
                      /*
  		     * skip the '-' sign
  		     */
--- 811,824 ----
      int                 sign;
  
      for ( ; ; ) {
!         while (isspace(UCHAR(*yyInput))) {
              yyInput++;
  	}
  
!         if (isdigit(UCHAR(c = *yyInput)) || c == '-' || c == '+') {
              if (c == '-' || c == '+') {
                  sign = c == '-' ? -1 : 1;
!                 if (!isdigit(UCHAR(*++yyInput))) {
                      /*
  		     * skip the '-' sign
  		     */
***************
*** 827,833 ****
              } else {
                  sign = 0;
  	    }
!             for (yylval.Number = 0; isdigit(c = *yyInput++); ) {
                  yylval.Number = 10 * yylval.Number + c - '0';
  	    }
              yyInput--;
--- 827,833 ----
              } else {
                  sign = 0;
  	    }
!             for (yylval.Number = 0; isdigit(UCHAR(c = *yyInput++)); ) {
                  yylval.Number = 10 * yylval.Number + c - '0';
  	    }
              yyInput--;
***************
*** 837,843 ****
              return sign ? tSNUMBER : tUNUMBER;
          }
          if (isalpha(UCHAR(c))) {
!             for (p = buff; isalpha(c = *yyInput++) || c == '.'; ) {
                  if (p < &buff[sizeof buff - 1]) {
                      *p++ = c;
  		}
--- 837,843 ----
              return sign ? tSNUMBER : tUNUMBER;
          }
          if (isalpha(UCHAR(c))) {
!             for (p = buff; isalpha(UCHAR(c = *yyInput++)) || c == '.'; ) {
                  if (p < &buff[sizeof buff - 1]) {
                      *p++ = c;
  		}
Index: unix/Makefile.in
===================================================================
RCS file: /cvsroot/tcl/unix/Makefile.in,v
retrieving revision 1.17
diff -c -r1.17 Makefile.in
*** Makefile.in	1999/02/02 23:00:07	1.17
--- Makefile.in	1999/02/11 00:15:58
***************
*** 403,409 ****
  gendate:
  	yacc -l $(GENERIC_DIR)/tclGetDate.y
  	sed -e 's/yy/TclDate/g' -e '/^#include <values.h>/d' \
! 	    -e 's/SCCSID/RCS: @(#) $Id: Makefile.in,v 1.17 1999/02/02 23:00:07 stanton Exp $'
  	    -e '/#ifdef __STDC__/,/#endif/d' -e '/TclDateerrlab:/d' \
  	    -e '/TclDatenewstate:/d' -e '/#pragma/d' \
  	    <y.tab.c >$(GENERIC_DIR)/tclDate.c
--- 403,409 ----
  gendate:
  	yacc -l $(GENERIC_DIR)/tclGetDate.y
  	sed -e 's/yy/TclDate/g' -e '/^#include <values.h>/d' \
! 	    -e 's?SCCSID?RCS: @(#) $$Id: Makefile.in,v 1.17 1999/02/02 23:00:07 stanton Exp $$?' \
  	    -e '/#ifdef __STDC__/,/#endif/d' -e '/TclDateerrlab:/d' \
  	    -e '/TclDatenewstate:/d' -e '/#pragma/d' \
  	    <y.tab.c >$(GENERIC_DIR)/tclDate.c