summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-03-20 22:33:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-03-20 22:33:28 (GMT)
commit4ade466c44615be091e19c177e11eef5524163c4 (patch)
tree6721114e5384dfab374e6f3f3994990c5a562a53
parent97dfe82b36e19d08b902a2509b3797907d0268cb (diff)
downloadtcl-4ade466c44615be091e19c177e11eef5524163c4.zip
tcl-4ade466c44615be091e19c177e11eef5524163c4.tar.gz
tcl-4ade466c44615be091e19c177e11eef5524163c4.tar.bz2
* generic/tclInt.h: Removed definition of ParseValue struct that
is no longer used.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclInt.h33
2 files changed, 6 insertions, 32 deletions
diff --git a/ChangeLog b/ChangeLog
index bc43340..1d47a00 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-20 Don Porter <dgp@users.sourceforge.net>
+
+ * generic/tclInt.h: Removed definition of ParseValue struct that
+ is no longer used.
+
2003-03-19 Miguel Sofer <msofer@users.sf.net>
* generic/tclCompile.c:
diff --git a/generic/tclInt.h b/generic/tclInt.h
index cd68b14..4ee4b5b 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInt.h,v 1.120 2003/03/13 02:48:53 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.121 2003/03/20 22:33:44 dgp Exp $
*/
#ifndef _TCLINT
@@ -1377,37 +1377,6 @@ typedef struct Interp {
#define INTERP_TRACE_IN_PROGRESS 0x200
/*
- *----------------------------------------------------------------
- * Data structures related to command parsing. These are used in
- * tclParse.c and its clients.
- *----------------------------------------------------------------
- */
-
-/*
- * The following data structure is used by various parsing procedures
- * to hold information about where to store the results of parsing
- * (e.g. the substituted contents of a quoted argument, or the result
- * of a nested command). At any given time, the space available
- * for output is fixed, but a procedure may be called to expand the
- * space available if the current space runs out.
- */
-
-typedef struct ParseValue {
- char *buffer; /* Address of first character in
- * output buffer. */
- char *next; /* Place to store next character in
- * output buffer. */
- char *end; /* Address of the last usable character
- * in the buffer. */
- void (*expandProc) _ANSI_ARGS_((struct ParseValue *pvPtr, int needed));
- /* Procedure to call when space runs out;
- * it will make more space. */
- ClientData clientData; /* Arbitrary information for use of
- * expandProc. */
-} ParseValue;
-
-
-/*
* Maximum number of levels of nesting permitted in Tcl commands (used
* to catch infinite recursion).
*/