diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-02 20:31:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-02 20:31:51 (GMT) |
| commit | 9c3b7fe67a88239b1595370b388bb72fbc656d28 (patch) | |
| tree | 34f638a0208be7540052443c43f0d7a118a0f650 /generic/tclObj.c | |
| parent | cd23455ba5f42be2575ad074f2ba41e3c100bb04 (diff) | |
| download | tcl-9c3b7fe67a88239b1595370b388bb72fbc656d28.zip tcl-9c3b7fe67a88239b1595370b388bb72fbc656d28.tar.gz tcl-9c3b7fe67a88239b1595370b388bb72fbc656d28.tar.bz2 | |
Remove some dead code
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 69e9b98..560a1e7 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2516,19 +2516,6 @@ UpdateStringOfInt( (void) Tcl_InitStringRep(objPtr, NULL, TclFormatInt(dst, objPtr->internalRep.wideValue)); } - -#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 && !defined(TCL_WIDE_INT_IS_LONG) -static void -UpdateStringOfOldInt( - register Tcl_Obj *objPtr) /* Int object whose string rep to update. */ -{ - char *dst = Tcl_InitStringRep( objPtr, NULL, TCL_INTEGER_SPACE); - - TclOOM(dst, TCL_INTEGER_SPACE + 1); - (void) Tcl_InitStringRep(objPtr, NULL, - TclFormatInt(dst, objPtr->internalRep.longValue)); -} -#endif /* *---------------------------------------------------------------------- @@ -2658,38 +2645,6 @@ Tcl_DbNewLongObj( /* *---------------------------------------------------------------------- * - * Tcl_SetLongObj -- - * - * Modify an object to be an integer object and to have the specified - * long integer value. - * - * Results: - * None. - * - * Side effects: - * The object's old string rep, if any, is freed. Also, any old internal - * rep is freed. - * - *---------------------------------------------------------------------- - */ - -#undef Tcl_SetLongObj -void -Tcl_SetLongObj( - register Tcl_Obj *objPtr, /* Object whose internal rep to init. */ - register long longValue) /* Long integer used to initialize the - * object's value. */ -{ - if (Tcl_IsShared(objPtr)) { - Tcl_Panic("%s called with shared object", "Tcl_SetLongObj"); - } - - TclSetIntObj(objPtr, longValue); -} - -/* - *---------------------------------------------------------------------- - * * Tcl_GetLongFromObj -- * * Attempt to return an long integer from the Tcl object "objPtr". If the |