From 9c3b7fe67a88239b1595370b388bb72fbc656d28 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 2 Dec 2018 20:31:51 +0000
Subject: Remove some dead code

---
 generic/tclObj.c | 45 ---------------------------------------------
 1 file changed, 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
-- 
cgit v0.12