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

  1. generic/tclEnsemble.c | 8 ++++----
  2. 1 file changed, 4 insertions(+), 4 deletions(-)
  3.  
  4. diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
  5. index 51cf61daba..be9c90d4bf 100644
  6. --- a/generic/tclEnsemble.c
  7. +++ b/generic/tclEnsemble.c
  8. @@ -2158,15 +2158,15 @@ TclSpellFix(
  9. if (search[0] == NULL) {
  10. store = (Tcl_Obj **)search[2];
  11. } else {
  12. - Tcl_Obj **tmp = ckalloc(3 * sizeof(Tcl_Obj *));
  13. + Tcl_Obj ***tmp = ckalloc(3 * sizeof(Tcl_Obj **));
  14. tmp[0] = NULL;
  15. - tmp[1] = (Tcl_Obj *)iPtr->ensembleRewrite.sourceObjs;
  16. - tmp[2] = (Tcl_Obj *)ckalloc(size * sizeof(Tcl_Obj *));
  17. + tmp[1] = (Tcl_Obj **)iPtr->ensembleRewrite.sourceObjs;
  18. + tmp[2] = (Tcl_Obj **)ckalloc(size * sizeof(Tcl_Obj *));
  19. memcpy(tmp[2], tmp[1], size*sizeof(Tcl_Obj *));
  20.  
  21. iPtr->ensembleRewrite.sourceObjs = (Tcl_Obj *const *) tmp;
  22. TclNRAddCallback(interp, FreeER, tmp, NULL, NULL, NULL);
  23. - store = (Tcl_Obj **)tmp[2];
  24. + store = tmp[2];
  25. }
  26.  
  27. store[idx] = fix;
  28.  

Comments

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

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