rpms/itcl/F-12 itcl-3.4-segfaultinit.patch,NONE,1.1

[Michael Thomas]

Author: wart

Update of /cvs/pkgs/rpms/itcl/F-12
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv13832

Added Files:
	itcl-3.4-segfaultinit.patch 
Log Message:
Patch for bz# 539453



itcl-3.4-segfaultinit.patch:
 itcl_methods.c |    8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

--- NEW FILE itcl-3.4-segfaultinit.patch ---
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) {