diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclCmdMZ.c | 18 |
2 files changed, 6 insertions, 17 deletions
@@ -1,3 +1,8 @@ +2001-07-16 Jeff Hobbs <jeffh@ActiveState.com> + + * generic/tclCmdMZ.c: Removed extra copy of the SCAN_* macros + #defined in generic/tclScan.c. (porter) [Bug 441230] + 2001-07-12 Donal K. Fellows <fellowsd@cs.man.ac.uk> * tests/unixInit.test (unixInit-2.8): Added extra constraint, diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 1024430..49708d7 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.40 2001/07/12 13:15:09 dkf Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.41 2001/07/16 18:35:50 hobbs Exp $ */ #include "tclInt.h" @@ -22,22 +22,6 @@ #include "tclRegexp.h" /* - * Flag values used by Tcl_ScanObjCmd. - */ - -#define SCAN_NOSKIP 0x1 /* Don't skip blanks. */ -#define SCAN_SUPPRESS 0x2 /* Suppress assignment. */ -#define SCAN_UNSIGNED 0x4 /* Read an unsigned value. */ -#define SCAN_WIDTH 0x8 /* A width value was supplied. */ - -#define SCAN_SIGNOK 0x10 /* A +/- character is allowed. */ -#define SCAN_NODIGITS 0x20 /* No digits have been scanned. */ -#define SCAN_NOZERO 0x40 /* No zero digits have been scanned. */ -#define SCAN_XOK 0x80 /* An 'x' is allowed. */ -#define SCAN_PTOK 0x100 /* Decimal point is allowed. */ -#define SCAN_EXPOK 0x200 /* An exponent is allowed. */ - -/* * Structure used to hold information about variable traces: */ |