rpms/ghdl/F-11 ghdl-svn138.patch, NONE, 1.1 .cvsignore, 1.13, 1.14 ghdl.spec, 1.55, 1.56 sources, 1.15, 1.16 ghdl-svn133.patch, 1.1, NONE grt-processtimeoutchain.patch, 1.2, NONE grt-stats.patch, 1.1, NONE

sailer sailer at fedoraproject.org
Fri Jan 29 14:23:14 UTC 2010


Author: sailer

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

Modified Files:
	.cvsignore ghdl.spec sources 
Added Files:
	ghdl-svn138.patch 
Removed Files:
	ghdl-svn133.patch grt-processtimeoutchain.patch 
	grt-stats.patch 
Log Message:
update to 0.29/svn138


ghdl-svn138.patch:
 ghdl.texi             |    7 ++++---
 grt/grt-processes.ads |    1 +
 grt/grt-signals.adb   |    1 +
 grt/grt-signals.ads   |    3 ++-
 grt/grt-vpi.ads       |    1 +
 sa_bools.adb          |   42 ------------------------------------------
 sa_bools.ads          |    8 --------
 sem_assocs.adb        |    2 ++
 8 files changed, 11 insertions(+), 54 deletions(-)

--- NEW FILE ghdl-svn138.patch ---
diff -urN ghdl-0.29-orig/vhdl/ghdl.texi ghdl-0.29/vhdl/ghdl.texi
--- ghdl-0.29-orig/vhdl/ghdl.texi	2010-01-09 15:11:15.000000000 +0100
+++ ghdl-0.29/vhdl/ghdl.texi	2010-01-29 12:45:20.000000000 +0100
@@ -1931,7 +1931,8 @@
 @node PSL implementation, Source representation, VHDL standards, GHDL implementation of VHDL
 @comment  node-name,  next,  previous,  up
 @section PSL implementation
-GHDL understands embedded PSL annotations in VHDL files, but in separate files.
+GHDL understands embedded PSL annotations in VHDL files, but not in
+separate files.
 
 As PSL annotations are embedded within comments, you must analyze and elaborate
 your design with option @option{-fpsl} to enable PSL annotations.
@@ -1941,8 +1942,8 @@
 same line) by a PSL keyword such as @code{assert} or @code{default}.
 To continue a PSL statement on the next line, just start a new comment.
 
-A PSL statement is considered as a concurrent statement, and therefore is
-allowed only where processes are.
+A PSL statement is considered as a process.  So it is not allowed within
+a process.
 
 All PSL assertions must be clocked (GHDL doesn't support unclocked assertion).
 Furthermore only one clock per assertion is allowed.
diff -urN ghdl-0.29-orig/vhdl/grt/grt-processes.ads ghdl-0.29/vhdl/grt/grt-processes.ads
--- ghdl-0.29-orig/vhdl/grt/grt-processes.ads	2010-01-06 04:55:54.000000000 +0100
+++ ghdl-0.29/vhdl/grt/grt-processes.ads	2010-01-29 12:45:22.000000000 +0100
@@ -127,6 +127,7 @@
 private
    --  Access to a process subprogram.
    type Proc_Acc is access procedure (Self : System.Address);
+   pragma Convention (C, Proc_Acc);
 
    --  State of a process.
    type Process_State is
diff -urN ghdl-0.29-orig/vhdl/grt/grt-signals.adb ghdl-0.29/vhdl/grt/grt-signals.adb
--- ghdl-0.29-orig/vhdl/grt/grt-signals.adb	2009-12-29 08:07:07.000000000 +0100
+++ ghdl-0.29/vhdl/grt/grt-signals.adb	2010-01-29 12:45:22.000000000 +0100
@@ -1804,6 +1804,7 @@
    end Compute_Resolved_Signal;
 
    type Conversion_Func_Acc is access procedure (Instance : System.Address);
+   pragma Convention (C, Conversion_Func_Acc);
    function To_Conversion_Func_Acc is new Ada.Unchecked_Conversion
      (Source => System.Address, Target => Conversion_Func_Acc);
 
diff -urN ghdl-0.29-orig/vhdl/grt/grt-signals.ads ghdl-0.29/vhdl/grt/grt-signals.ads
--- ghdl-0.29-orig/vhdl/grt/grt-signals.ads	2009-12-29 08:07:07.000000000 +0100
+++ ghdl-0.29/vhdl/grt/grt-signals.ads	2010-01-29 12:45:22.000000000 +0100
@@ -76,7 +76,8 @@
 
    --  Function access type used to evaluate the guard expression.
    type Guard_Func_Acc is access function (This : System.Address)
-     return Ghdl_B2;
+                                          return Ghdl_B2;
+   pragma Convention (C, Guard_Func_Acc);
 
    --  Simply linked list of processes to be resumed in case of events.
 
diff -urN ghdl-0.29-orig/vhdl/grt/grt-vpi.ads ghdl-0.29/vhdl/grt/grt-vpi.ads
--- ghdl-0.29-orig/vhdl/grt/grt-vpi.ads	2009-12-29 08:07:07.000000000 +0100
+++ ghdl-0.29/vhdl/grt/grt-vpi.ads	2010-01-29 12:45:22.000000000 +0100
@@ -137,6 +137,7 @@
      (Source => Address, Target => p_cb_data);
 
    type cb_rtn_type is access function (Cb : p_cb_data) return Integer;
+   pragma Convention (C, cb_rtn_type);
 
    type s_cb_data is record
       Reason : Integer;
diff -urN ghdl-0.29-orig/vhdl/sa_bools.adb ghdl-0.29/vhdl/sa_bools.adb
--- ghdl-0.29-orig/vhdl/sa_bools.adb	2009-12-29 08:07:07.000000000 +0100
+++ ghdl-0.29/vhdl/sa_bools.adb	1970-01-01 01:00:00.000000000 +0100
@@ -1,42 +0,0 @@
-with PSL.Errors; use PSL.Errors;
-with Name_Table;
-with Types; use Types;
-with Ada.Text_IO;
-
-package body Sa_Bools is
-   function Sem (N : Node) return Node is
-   begin
-      case Get_Kind (N) is
-         when N_Or_Bool
-           | N_And_Bool =>
-            Set_Left (N, Sem (Get_Left (N)));
-            Set_Right (N, Sem (Get_Right (N)));
-            return N;
-         when N_Not_Bool =>
-            Set_Boolean (N, Sem (Get_Boolean (N)));
-            return N;
-         when N_Name =>
-            declare
-               use Name_Table;
-               Id : constant Name_Id := Get_Identifier (N);
-               Name : Node;
-            begin
-               Name := Node (Get_Info (Id));
-               if Name /= Null_Node then
-                  return Name;
-               end if;
-               Name := Create_Node (N_HDL_Expr);
-               Set_HDL_Node (Name, Int32 (Id));
-               Set_Info (Id, Int32 (Name));
-               return Name;
-            end;
-         when others =>
-            Error_Kind ("sem", N);
-      end case;
-   end Sem;
-
-   procedure Print_HDL_Expr (N : Node) is
-   begin
-      Ada.Text_IO.Put (Image (Name_Id (Get_HDL_Node (N))));
-   end Print_HDL_Expr;
-end Sa_Bools;
diff -urN ghdl-0.29-orig/vhdl/sa_bools.ads ghdl-0.29/vhdl/sa_bools.ads
--- ghdl-0.29-orig/vhdl/sa_bools.ads	2009-12-29 08:07:07.000000000 +0100
+++ ghdl-0.29/vhdl/sa_bools.ads	1970-01-01 01:00:00.000000000 +0100
@@ -1,8 +0,0 @@
-with PSL.Nodes; use PSL.Nodes;
-
-package Sa_Bools is
-   function Sem (N : Node) return Node;
-
-   procedure Print_HDL_Expr (N : Node);
-end Sa_Bools;
-
diff -urN ghdl-0.29-orig/vhdl/sem_assocs.adb ghdl-0.29/vhdl/sem_assocs.adb
--- ghdl-0.29-orig/vhdl/sem_assocs.adb	2009-12-29 08:07:07.000000000 +0100
+++ ghdl-0.29/vhdl/sem_assocs.adb	2010-01-29 12:45:24.000000000 +0100
@@ -467,6 +467,7 @@
       Sub : Iir;
       Formal_Object : Iir;
    begin
+      --  Recurse.
       Formal_Object := Name_To_Object (Formal);
       case Get_Kind (Formal_Object) is
          when Iir_Kind_Indexed_Name
@@ -518,6 +519,7 @@
       end case;
    end Add_Individual_Association_1;
 
+   --  Insert ASSOC into the tree of individual assoc rooted by IASSOC.
    procedure Add_Individual_Association (Iassoc : Iir; Assoc : Iir)
    is
       Formal : Iir;


Index: .cvsignore
===================================================================
RCS file: /cvs/pkgs/rpms/ghdl/F-11/.cvsignore,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- .cvsignore	5 Dec 2009 11:41:50 -0000	1.13
+++ .cvsignore	29 Jan 2010 14:23:13 -0000	1.14
@@ -5,3 +5,4 @@ gcc-core-4.2.4.tar.bz2
 gcc-core-4.3.1.tar.bz2
 gcc-core-4.3.4.tar.bz2
 ghdl-0.28.tar.bz2
+ghdl-0.29.tar.bz2


Index: ghdl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/ghdl/F-11/ghdl.spec,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -p -r1.55 -r1.56
--- ghdl.spec	30 Dec 2009 09:53:17 -0000	1.55
+++ ghdl.spec	29 Jan 2010 14:23:14 -0000	1.56
@@ -1,6 +1,6 @@
 %global gccver 4.3.4
-%global ghdlver 0.28
-%global ghdlsvnver 133
+%global ghdlver 0.29
+%global ghdlsvnver 138
 
 Summary: A VHDL simulator, using the GCC technology
 Name: ghdl
@@ -11,6 +11,7 @@ Group: Development/Languages
 URL: http://ghdl.free.fr/
 # HOWTO create source files from ghdl SVN at https://gna.org/projects/ghdl/
 # check out the SVN repo
+# svn co svn://svn.gna.org/svn/ghdl/trunk ghdl
 # cd translate/gcc/
 # ./dist.sh sources
 Source0: ftp://gcc.gnu.org/pub/gcc/releases/gcc-%{gccver}/gcc-core-%{gccver}.tar.bz2
@@ -27,10 +28,6 @@ Patch105: ghdl-grtadac.patch
 Patch106: ghdl-ppc64abort.patch
 # https://gna.org/bugs/index.php?13389
 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
@@ -136,8 +133,6 @@ popd
 %patch104 -p0 -b .libgnat44
 %patch105 -p1 -b .grtadac
 %patch106 -p0 -b .ppc64abort
-%patch108 -p0 -b .grtstats
-%patch109 -p0 -b .processtimeoutchain
 
 %build
 %{__rm} -fr obj-%{gcc_target_platform}
@@ -194,6 +189,7 @@ export TCFLAGS="$OPT_FLAGS"
         --enable-checking=release \
         --with-system-zlib \
         --enable-__cxa_atexit \
+        --disable-bootstrap \
         --disable-libunwind-exceptions \
         --disable-libgcj \
 %ifarch sparc
@@ -318,8 +314,10 @@ popd
 # %{gcc_target_platform}/%{gccver} subdirectory
 %{_libdir}/gcc/
 
-
 %changelog
+* Fri Jan 29 2010 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.29-0.138svn.1
+- update to 0.29/svn138
+
 * Wed Dec 30 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.28-0.133svn.1
 - fix the Process Timeout Chain bugfix
 


Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/ghdl/F-11/sources,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -p -r1.15 -r1.16
--- sources	5 Dec 2009 11:41:50 -0000	1.15
+++ sources	29 Jan 2010 14:23:14 -0000	1.16
@@ -1,2 +1,2 @@
 575b3220bb8e7060939c429fc8608d22  gcc-core-4.3.4.tar.bz2
-07c1883c2fcd795303056a8a95645f94  ghdl-0.28.tar.bz2
+fd3dc7a71ba521e442bef76f48177767  ghdl-0.29.tar.bz2


--- ghdl-svn133.patch DELETED ---


--- grt-processtimeoutchain.patch DELETED ---


--- grt-stats.patch DELETED ---



More information about the scm-commits mailing list