diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-07-02 17:32:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-07-02 17:32:09 (GMT) |
| commit | 6a5b1cac3ea1b9455b6dba65237231556903590b (patch) | |
| tree | a4a020d4883ca681749bede9b30a1eaa380e116d | |
| parent | e866d24f95b719da53f4fcc0d0b5df23fd0916ed (diff) | |
| download | tcl-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.h | 31 |
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 |