Posted to tcl by sebres at Tue Nov 20 15:57:48 GMT 2018view raw
- 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?