File itcl-3.4-segfaultinit.patch of Package itcl

Overview Repositories Revisions Requests Users Attributes Meta

File itcl-3.4-segfaultinit.patch of Package itcl

diff -Naur incrtcl-20071231cvs.orig/generic/itcl_methods.c incrtcl-20071231cvs.new/generic/itcl_methods.c
--- incrtcl-20071231cvs.orig/generic/itcl_methods.c	2007-10-23 00:58:29.000000000 +0200
+++ incrtcl-20071231cvs.new/generic/itcl_methods.c	2009-11-21 01:18:43.000000000 +0100
@@ -622,12 +622,7 @@
      *  Allocate some space to hold the implementation.
      */
     mcode = (ItclMemberCode*)ckalloc(sizeof(ItclMemberCode));
-    mcode->flags        = 0;
-    mcode->argcount     = 0;
-    mcode->arglist      = NULL;
-    mcode->procPtr      = NULL;
-    mcode->cfunc.objCmd = NULL;
-    mcode->clientData   = NULL;
+    memset(mcode, 0, sizeof(ItclMemberCode));
 
     if (arglist) {
         if (Itcl_CreateArgList(interp, arglist, &argc, &args)
@@ -656,6 +651,7 @@
     procPtr->iPtr = (Interp*)interp;
     procPtr->refCount = 1;
     procPtr->cmdPtr = (Command*)ckalloc(sizeof(Command));
+    memset(procPtr->cmdPtr, 0, sizeof(Command));
     procPtr->cmdPtr->nsPtr = (Namespace*)cdefn->namesp;
 
     if (body) {

Places

File itcl-3.4-segfaultinit.patch of Package itcl

Places