rpms/ghdl/F-10 ghdl-textio.patch,NONE,1.1 ghdl.spec,1.43,1.44

[Thomas M. Sailer]

Author: sailer

Update of /cvs/pkgs/rpms/ghdl/F-10
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv16162/F-10

Modified Files:
	ghdl.spec 
Added Files:
	ghdl-textio.patch 
Log Message:
fix bug in std.textio.read (string)


ghdl-textio.patch:

--- NEW FILE ghdl-textio.patch ---
--- gcc/vhdl/libraries/std/textio_body.vhdl.orig	2009-05-25 18:13:20.000000000 +0200
+++ gcc/vhdl/libraries/std/textio_body.vhdl	2009-05-25 18:14:31.000000000 +0200
@@ -1308,7 +1308,11 @@
       value := l (l'left to l'left + len - 1);
       trim (l, l'left + len);
     else
-      value := l (l'left downto l'left - len + 1);
+      if len = 1 then
+        value (value'left) := l (l'left);
+      else
+        value := l (l'left downto l'left - len + 1);
+      end if;
       trim (l, l'left - len);
     end if;
   end read;


Index: ghdl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/ghdl/F-10/ghdl.spec,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -p -r1.43 -r1.44
--- ghdl.spec	18 Apr 2009 11:21:26 -0000	1.43
+++ ghdl.spec	26 May 2009 15:32:13 -0000	1.44
@@ -5,7 +5,7 @@
 Summary: A VHDL simulator, using the GCC technology
 Name: ghdl
 Version: %{ghdlver}
-Release: 0.%{ghdlsvnver}svn.2%{?dist}
+Release: 0.%{ghdlsvnver}svn.3%{?dist}
 License: GPLv2+
 Group: Development/Languages
 URL: http://ghdl.free.fr/
@@ -25,6 +25,8 @@ Patch105: ghdl-grtadac.patch
 # Date: Thu, 02 Apr 2009 15:36:00 +0200                          
 # https://gna.org/bugs/index.php?13389                           
 Patch107: ieee-mathreal.patch                                    
+# https://gna.org/bugs/index.php?13574
+Patch108: ghdl-textio.patch
 BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 Requires(post): /sbin/install-info
 Requires(preun): /sbin/install-info
@@ -128,6 +130,7 @@ popd
 #patch102 -p1 -b .makeinfo
 %patch104 -p0 -b .libgnat43
 %patch105 -p1 -b .grtadac
+%patch108 -p0 -b .textio
 
 %build
 %{__rm} -fr obj-%{gcc_target_platform}
@@ -310,6 +313,9 @@ popd
 
 
 %changelog
+* Tue May 26 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.27-0.110svn.3
+- fix bug in std.textio.read (string)
+
 * Sat Apr 18 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.27-0.110svn.2
 - make ieee.math_real more standards compliant