summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-03-20 22:32:54 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-03-20 22:32:54 (GMT)
commit3e6b1cd7c58db82bcfccf38659be021a9fc2e816 (patch)
tree8122bd8381b2e47476bfc909a4e7f9786d400fd5
parentdc50ee15ae46a3ae3eda860803ae394bc8ddc86b (diff)
downloadtcl-3e6b1cd7c58db82bcfccf38659be021a9fc2e816.zip
tcl-3e6b1cd7c58db82bcfccf38659be021a9fc2e816.tar.gz
tcl-3e6b1cd7c58db82bcfccf38659be021a9fc2e816.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 6307d16..182e6e3 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 aea1f4f..fcddd10 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.118 2003/02/10 10:26:25 vincentdarley Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.118.2.1 2003/03/20 22:33:02 dgp Exp $
*/
#ifndef _TCLINT
@@ -1381,37 +1381,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).
*/