summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-07-02 17:32:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-07-02 17:32:09 (GMT)
commit6a5b1cac3ea1b9455b6dba65237231556903590b (patch)
treea4a020d4883ca681749bede9b30a1eaa380e116d
parente866d24f95b719da53f4fcc0d0b5df23fd0916ed (diff)
downloadtcl-6a5b1cac3ea1b9455b6dba65237231556903590b.zip
tcl-6a5b1cac3ea1b9455b6dba65237231556903590b.tar.gz
tcl-6a5b1cac3ea1b9455b6dba65237231556903590b.tar.bz2
* generic/tclCompExpr.c: Removed dead code, old implementations
* generic/tclEvent.c: of expr parsing and compiling, including the * generic/tclInt.h: routine TclFinalizeCompilation().
-rw-r--r--generic/tclInt.h31
1 files changed, 1 insertions, 30 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index fd58efe..435f6bd 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.322 2007/07/02 17:13:48 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.323 2007/07/02 17:32:09 dgp Exp $
*/
#ifndef _TCLINT
@@ -2350,9 +2350,6 @@ MODULE_SCOPE int TclParseNumber(Tcl_Interp *interp, Tcl_Obj *objPtr,
int numBytes, CONST char **endPtrPtr, int flags);
MODULE_SCOPE void TclParseInit(Tcl_Interp *interp, CONST char *string,
int numBytes, Tcl_Parse *parsePtr);
-#if 0
-MODULE_SCOPE int TclParseInteger(CONST char *string, int numBytes);
-#endif
MODULE_SCOPE int TclParseAllWhiteSpace(CONST char *src, int numBytes);
MODULE_SCOPE int TclProcessReturn(Tcl_Interp *interp,
int code, int level, Tcl_Obj *returnOpts);
@@ -2922,15 +2919,6 @@ MODULE_SCOPE Tcl_Obj * TclPtrIncrObjVar (Tcl_Interp *interp,
Var *varPtr, Var *arrayPtr, CONST char *part1,
CONST char *part2, Tcl_Obj *incrPtr,
CONST int flags);
-#if 0
-MODULE_SCOPE Tcl_Obj * TclPtrIncrVar(Tcl_Interp *interp,
- Var *varPtr, Var *arrayPtr, CONST char *part1,
- CONST char *part2, CONST long i, CONST int flags);
-MODULE_SCOPE Tcl_Obj * TclPtrIncrWideVar(Tcl_Interp *interp,
- Var *varPtr, Var *arrayPtr, CONST char *part1,
- CONST char *part2, CONST Tcl_WideInt i,
- CONST int flags);
-#endif
MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr);
/*
@@ -3152,23 +3140,6 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr);
objPtr->bytes = NULL;\
}\
-
-#if 0
-/*
- *----------------------------------------------------------------
- * Macro used by the Tcl core to get a Tcl_WideInt value out of a Tcl_Obj of
- * the "wideInt" type.
- *----------------------------------------------------------------
- */
-
-#ifndef NO_WIDE_TYPE
-# define TclGetWide(resultVar, objPtr) \
- (resultVar) = (objPtr)->internalRep.wideValue
-# define TclGetLongFromWide(resultVar, objPtr) \
- (resultVar) = Tcl_WideAsLong((objPtr)->internalRep.wideValue)
-#endif
-#endif
-
/*
*----------------------------------------------------------------
* Macro used by the Tcl core get a unicode char from a utf string. It checks