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?