rpms/itcl/devel itcl-3.4-segfaultinit.patch, NONE, 1.1 itcl.spec, 1.14, 1.15

[Michael Thomas]

Author: wart

Update of /cvs/pkgs/rpms/itcl/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv30561

Modified Files:
	itcl.spec 
Added Files:
	itcl-3.4-segfaultinit.patch 
Log Message:
Add 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) {


Index: itcl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/itcl/devel/itcl.spec,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- itcl.spec	25 Jul 2009 03:41:12 -0000	1.14
+++ itcl.spec	7 Dec 2009 16:25:57 -0000	1.15
@@ -3,7 +3,7 @@
 
 Name:           itcl
 Version:        3.4
-Release:        5%{?dist}
+Release:        6%{?dist}
 Summary:        Object oriented extensions to Tcl and Tk
 
 Group:          Development/Libraries
@@ -16,6 +16,7 @@ Patch0:         itcl-3.4-tclbindir.patch
 Patch1:         itcl-3.4-libdir.patch
 Patch2:         itcl-3.4-soname.patch
 Patch3:         itcl-3.4-findinit.patch
+Patch4:         itcl-3.4-segfaultinit.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 Requires:  tcl(abi) = 8.5
@@ -38,6 +39,7 @@ Development headers and libraries for li
 %patch1 -p1
 %patch2 -p1
 %patch3 -p1
+%patch4 -p1
 
 %build
 %configure
@@ -73,6 +75,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_libdir}/itclConfig.sh
 
 %changelog
+* Mon Dec 7 2009 Wart <wart at kobold.org> - 3.4-6
+- Fix segfault during startup (BZ #539453)
+
 * Fri Jul 24 2009 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 3.4-5
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild