From f89317700ba5ea28151a61538f066376a4ad57dc Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 11 Sep 2025 08:33:20 +0000
Subject: Change a panic into a runtime error: "can't convert value to type
 arithseries"

---
 generic/tclArithSeries.c | 31 +------------------------------
 1 file changed, 1 insertion(+), 30 deletions(-)

diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c
index 6272218..ca2a5c0 100755
--- a/generic/tclArithSeries.c
+++ b/generic/tclArithSeries.c
@@ -85,8 +85,6 @@ static void		DupArithSeriesInternalRep(Tcl_Obj *srcPtr,
 			    Tcl_Obj *copyPtr);
 static void		FreeArithSeriesInternalRep(Tcl_Obj *arithSeriesObjPtr);
 static void		UpdateStringOfArithSeries(Tcl_Obj *arithSeriesObjPtr);
-static int		SetArithSeriesFromAny(Tcl_Interp *interp,
-			    Tcl_Obj *objPtr);
 static int		ArithSeriesInOperation(Tcl_Interp *interp,
 			    Tcl_Obj *valueObj, Tcl_Obj *arithSeriesObj,
 			    int *boolResult);
@@ -98,7 +96,7 @@ static const Tcl_ObjType arithSeriesType = {
     FreeArithSeriesInternalRep,		/* freeIntRepProc */
     DupArithSeriesInternalRep,		/* dupIntRepProc */
     UpdateStringOfArithSeries,		/* updateStringProc */
-    SetArithSeriesFromAny,		/* setFromAnyProc */
+    NULL,				/* setFromAnyProc */
     TCL_OBJTYPE_V2(
     ArithSeriesObjLength,
     TclArithSeriesObjIndex,
@@ -870,33 +868,6 @@ ArithSeriesObjLength(
 }
 
 /*
- * SetArithSeriesFromAny --
- *
- *	The Arithmetic Series object is just an way to optimize
- *	Lists space complexity, so no one should try to convert
- *	a string to an Arithmetic Series object.
- *
- *	This function is here just to populate the Type structure.
- *
- * Results:
- *	The result is always TCL_ERROR. But see Side Effects.
- *
- * Side effects:
- *	Tcl Panic if called.
- *
- *----------------------------------------------------------------------
- */
-
-static int
-SetArithSeriesFromAny(
-    TCL_UNUSED(Tcl_Interp *),		/* Used for error reporting if not NULL. */
-    TCL_UNUSED(Tcl_Obj *))		/* The object to convert. */
-{
-    Tcl_Panic("SetArithSeriesFromAny: should never be called");
-    return TCL_ERROR;
-}
-
-/*
  *----------------------------------------------------------------------
  *
  * TclArithSeriesObjRange --
-- 
cgit v0.12