Posted to tcl by sebres at Tue Nov 20 15:57:48 GMT 2018view pretty

 generic/tclEnsemble.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index 51cf61daba..be9c90d4bf 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -2158,15 +2158,15 @@ TclSpellFix(
     if (search[0] == NULL) {
 	store = (Tcl_Obj **)search[2];
     }  else {
-	Tcl_Obj **tmp = ckalloc(3 * sizeof(Tcl_Obj *));
+	Tcl_Obj ***tmp = ckalloc(3 * sizeof(Tcl_Obj **));
 	tmp[0] = NULL;
-	tmp[1] = (Tcl_Obj *)iPtr->ensembleRewrite.sourceObjs;
-	tmp[2] = (Tcl_Obj *)ckalloc(size * sizeof(Tcl_Obj *));
+	tmp[1] = (Tcl_Obj **)iPtr->ensembleRewrite.sourceObjs;
+	tmp[2] = (Tcl_Obj **)ckalloc(size * sizeof(Tcl_Obj *));
 	memcpy(tmp[2], tmp[1], size*sizeof(Tcl_Obj *));
 
 	iPtr->ensembleRewrite.sourceObjs = (Tcl_Obj *const *) tmp;
 	TclNRAddCallback(interp, FreeER, tmp, NULL, NULL, NULL);
-	store = (Tcl_Obj **)tmp[2];
+	store = tmp[2];
     }
 
     store[idx] = fix;

Comments

Posted by avl at Thu Nov 22 10:35:00 GMT 2018 [text] [code]

Since when is "***" even supported in C?