rpms/ghdl/devel grt-processtimeoutchain.patch, 1.2, 1.3 ghdl.spec, 1.62, 1.63

[sailer]

Author: sailer

Update of /cvs/extras/rpms/ghdl/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv8759

Modified Files:
	ghdl.spec 
Added Files:
	grt-processtimeoutchain.patch 
Log Message:
fix the process timeout chain bugfix


grt-processtimeoutchain.patch:
 grt-processes.adb |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

Index: grt-processtimeoutchain.patch
===================================================================
RCS file: grt-processtimeoutchain.patch
diff -N grt-processtimeoutchain.patch
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ grt-processtimeoutchain.patch	30 Dec 2009 01:57:26 -0000	1.3
@@ -0,0 +1,20 @@
+--- gcc/vhdl/grt/grt-processes.adb.orig	2009-12-30 02:51:24.000000000 +0100
++++ gcc/vhdl/grt/grt-processes.adb	2009-12-30 02:52:27.000000000 +0100
+@@ -304,8 +304,6 @@
+       if Proc.Timeout_Chain_Prev /= null then
+          Proc.Timeout_Chain_Prev.Timeout_Chain_Next :=
+            Proc.Timeout_Chain_Next;
+-         --  Be sure a second call won't corrupt the chain.
+-         Proc.Timeout_Chain_Prev := null;
+       elsif Process_Timeout_Chain = Proc then
+          --  Only if Proc is in the chain.
+          Process_Timeout_Chain := Proc.Timeout_Chain_Next;
+@@ -315,6 +313,8 @@
+            Proc.Timeout_Chain_Prev;
+          Proc.Timeout_Chain_Next := null;
+       end if;
++      --  Be sure a second call won't corrupt the chain.
++      Proc.Timeout_Chain_Prev := null;
+    end Remove_Process_From_Timeout_Chain;
+ 
+    procedure Ghdl_Process_Wait_Set_Timeout (Time : Std_Time)


Index: ghdl.spec
===================================================================
RCS file: /cvs/extras/rpms/ghdl/devel/ghdl.spec,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -p -r1.62 -r1.63
--- ghdl.spec	30 Dec 2009 00:29:51 -0000	1.62
+++ ghdl.spec	30 Dec 2009 01:57:25 -0000	1.63
@@ -5,7 +5,7 @@
 Summary: A VHDL simulator, using the GCC technology
 Name: ghdl
 Version: %{ghdlver}
-Release: 0.%{ghdlsvnver}svn.1%{?dist}
+Release: 0.%{ghdlsvnver}svn.2%{?dist}
 License: GPLv2+
 Group: Development/Languages
 URL: http://ghdl.free.fr/
@@ -29,6 +29,8 @@ Patch106: ghdl-ppc64abort.patch
 Patch107: ieee-mathreal.patch
 # https://gna.org/bugs/index.php?15015
 Patch108: grt-stats.patch
+# https://gna.org/bugs/index.php?14930                                     
+Patch109: grt-processtimeoutchain.patch                                    
 BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 Requires(post): /sbin/install-info
 Requires(preun): /sbin/install-info
@@ -135,6 +137,7 @@ popd
 %patch105 -p1 -b .grtadac
 %patch106 -p0 -b .ppc64abort
 %patch108 -p0 -b .grtstats
+%patch109 -p0 -b .processtimeoutchain
 
 %build
 %{__rm} -fr obj-%{gcc_target_platform}
@@ -332,6 +335,9 @@ P64=%{buildroot}/%{_libdir}/gcc/%{gcc_ta
 
 
 %changelog
+* Wed Dec 30 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.28-0.133svn.2
+- fix the Process Timeout Chain bugfix
+
 * Wed Dec 30 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.28-0.133svn.1
 - fix crash when running ./tb --stats