rpms/ghdl/devel ghdl-llvmpath.patch, NONE, 1.1 ghdl-svn126.patch, NONE, 1.1 ghdl-grtadac.patch, 1.1, 1.2 ghdl.spec, 1.53, 1.54 ghdl-svn110.patch, 1.1, NONE
sailer
sailer at fedoraproject.org
Sun Sep 20 13:53:47 UTC 2009
- Previous message (by thread): rpms/sslogger/devel import.log, NONE, 1.1 sslogger.spec, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
- Next message (by thread): rpms/xfwm4/F-11 xfwm4.spec,1.38,1.39
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Author: sailer
Update of /cvs/extras/rpms/ghdl/devel
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv26352
Modified Files:
ghdl-grtadac.patch ghdl.spec
Added Files:
ghdl-llvmpath.patch ghdl-svn126.patch
Removed Files:
ghdl-svn110.patch
Log Message:
update to svn126 (new vhdl2008 features)
ghdl-llvmpath.patch:
Makefile.in | 2 ++
1 file changed, 2 insertions(+)
--- NEW FILE ghdl-llvmpath.patch ---
--- gcc/vhdl/Makefile.in.llvm 2009-09-20 13:47:57.000000000 +0200
+++ gcc/vhdl/Makefile.in 2009-09-20 13:48:45.000000000 +0200
@@ -169,6 +169,8 @@
echo "package Default_Pathes is" >> tmp-dpathes.ads
echo " Compiler_Gcc : constant String :=" >> tmp-dpathes.ads
echo " \"$(libexecsubdir)/ghdl1$(exeext)\";" >> tmp-dpathes.ads
+ echo " Compiler_Llvm : constant String :=" >> tmp-dpathes.ads
+ echo " \"$(libexecsubdir)/ghdl1$(exeext)\";" >> tmp-dpathes.ads
echo " Compiler_Debug : constant String :=\"\";" >> tmp-dpathes.ads
echo " Compiler_Mcode : constant String :=\"\";" >> tmp-dpathes.ads
echo " Post_Processor : constant String :=\"\";" >> tmp-dpathes.ads
ghdl-svn126.patch:
P | 24
Warn_Undriven | 104 ---
end | 614 +++++++++++++--------
ghdl-0.28dev/README | 10
ghdl-0.28dev/vhdl/Make-lang.in | 14
ghdl-0.28dev/vhdl/Makefile.in | 42 +
ghdl-0.28dev/vhdl/back_end.adb | 9
ghdl-0.28dev/vhdl/back_end.ads | 2
ghdl-0.28dev/vhdl/bug.adb | 2
ghdl-0.28dev/vhdl/bug.ads | 2
ghdl-0.28dev/vhdl/canon.adb | 235 +++++++-
ghdl-0.28dev/vhdl/canon.ads | 8
ghdl-0.28dev/vhdl/configuration.adb | 7
ghdl-0.28dev/vhdl/configuration.ads | 2
ghdl-0.28dev/vhdl/disp_tree.adb | 59 +-
ghdl-0.28dev/vhdl/disp_tree.ads | 2
ghdl-0.28dev/vhdl/disp_vhdl.adb | 164 ++++-
ghdl-0.28dev/vhdl/disp_vhdl.ads | 2
ghdl-0.28dev/vhdl/errorout.adb | 22
ghdl-0.28dev/vhdl/errorout.ads | 2
ghdl-0.28dev/vhdl/evaluation.adb | 37 -
ghdl-0.28dev/vhdl/evaluation.ads | 5
ghdl-0.28dev/vhdl/files_map.adb | 11
ghdl-0.28dev/vhdl/files_map.ads | 2
ghdl-0.28dev/vhdl/flags.adb | 13
ghdl-0.28dev/vhdl/flags.ads | 21
ghdl-0.28dev/vhdl/ghdl.texi | 45 +
ghdl-0.28dev/vhdl/ghdldrv/ghdl_gcc.adb | 1
ghdl-0.28dev/vhdl/ghdldrv/ghdldrv.adb | 148 +++--
ghdl-0.28dev/vhdl/ghdldrv/ghdldrv.ads | 5
ghdl-0.28dev/vhdl/ghdldrv/ghdllocal.adb | 52 +
ghdl-0.28dev/vhdl/ghdldrv/ghdllocal.ads | 3
ghdl-0.28dev/vhdl/ghdldrv/ghdlmain.adb | 7
ghdl-0.28dev/vhdl/ghdldrv/ghdlprint.adb | 31 -
ghdl-0.28dev/vhdl/grt/grt-astdio.adb | 6
ghdl-0.28dev/vhdl/grt/grt-avhpi.adb | 16
ghdl-0.28dev/vhdl/grt/grt-c.ads | 11
ghdl-0.28dev/vhdl/grt/grt-disp.adb | 3
ghdl-0.28dev/vhdl/grt/grt-disp_rti.adb | 13
ghdl-0.28dev/vhdl/grt/grt-disp_signals.adb | 9
ghdl-0.28dev/vhdl/grt/grt-disp_tree.adb | 18
ghdl-0.28dev/vhdl/grt/grt-errors.adb | 5
ghdl-0.28dev/vhdl/grt/grt-files.adb | 26
ghdl-0.28dev/vhdl/grt/grt-files.ads | 2
ghdl-0.28dev/vhdl/grt/grt-images.adb | 5
ghdl-0.28dev/vhdl/grt/grt-images.ads | 2
ghdl-0.28dev/vhdl/grt/grt-lib.adb | 10
ghdl-0.28dev/vhdl/grt/grt-main.adb | 7
ghdl-0.28dev/vhdl/grt/grt-modules.adb | 1
ghdl-0.28dev/vhdl/grt/grt-names.adb | 1
ghdl-0.28dev/vhdl/grt/grt-options.adb | 2
ghdl-0.28dev/vhdl/grt/grt-options.ads | 2
ghdl-0.28dev/vhdl/grt/grt-processes.adb | 37 -
ghdl-0.28dev/vhdl/grt/grt-processes.ads | 2
ghdl-0.28dev/vhdl/grt/grt-rtis_addr.adb | 1
ghdl-0.28dev/vhdl/grt/grt-rtis_utils.adb | 21
ghdl-0.28dev/vhdl/grt/grt-sdf.adb | 2
ghdl-0.28dev/vhdl/grt/grt-signals.adb | 11
ghdl-0.28dev/vhdl/grt/grt-signals.ads | 31 -
ghdl-0.28dev/vhdl/grt/grt-stats.adb | 1
ghdl-0.28dev/vhdl/grt/grt-table.adb | 113 +++
ghdl-0.28dev/vhdl/grt/grt-table.ads | 68 ++
ghdl-0.28dev/vhdl/grt/grt-unithread.adb | 1
ghdl-0.28dev/vhdl/grt/grt-unithread.ads | 1
ghdl-0.28dev/vhdl/grt/grt-vcd.adb | 83 +-
ghdl-0.28dev/vhdl/grt/grt-vcd.ads | 17
ghdl-0.28dev/vhdl/grt/grt-vcdz.adb | 45 -
ghdl-0.28dev/vhdl/grt/grt-vital_annotate.adb | 19
ghdl-0.28dev/vhdl/grt/grt-vital_annotate.ads | 6
ghdl-0.28dev/vhdl/grt/grt-vpi.adb | 16
ghdl-0.28dev/vhdl/grt/grt-vstrings.adb | 16
ghdl-0.28dev/vhdl/grt/grt-waves.adb | 386 +++++++------
ghdl-0.28dev/vhdl/grt/grt.adc | 4
ghdl-0.28dev/vhdl/ieee-std_logic_1164.adb | 11
ghdl-0.28dev/vhdl/ieee-std_logic_1164.ads | 2
ghdl-0.28dev/vhdl/ieee-vital_timing.adb | 9
ghdl-0.28dev/vhdl/ieee-vital_timing.ads | 2
ghdl-0.28dev/vhdl/iir_chain_handling.adb | 2
ghdl-0.28dev/vhdl/iir_chain_handling.ads | 2
ghdl-0.28dev/vhdl/iir_chains.adb | 2
ghdl-0.28dev/vhdl/iir_chains.ads | 8
ghdl-0.28dev/vhdl/iirs.adb | 206 +++++--
ghdl-0.28dev/vhdl/iirs.ads | 139 +++-
ghdl-0.28dev/vhdl/iirs_utils.adb | 16
ghdl-0.28dev/vhdl/iirs_utils.ads | 6
ghdl-0.28dev/vhdl/lang.opt | 8
ghdl-0.28dev/vhdl/libraries.adb | 14
ghdl-0.28dev/vhdl/libraries.ads | 2
ghdl-0.28dev/vhdl/libraries/std/textio_body.vhdl | 8
ghdl-0.28dev/vhdl/lists.adb | 32 -
ghdl-0.28dev/vhdl/lists.ads | 2
ghdl-0.28dev/vhdl/name_table.adb | 5
ghdl-0.28dev/vhdl/name_table.ads | 2
ghdl-0.28dev/vhdl/nodes.adb | 5
ghdl-0.28dev/vhdl/nodes.ads | 4
ghdl-0.28dev/vhdl/options.adb | 221 +++++++
ghdl-0.28dev/vhdl/options.ads | 27
ghdl-0.28dev/vhdl/ortho-lang.c | 102 +--
ghdl-0.28dev/vhdl/ortho_front.adb | 7
ghdl-0.28dev/vhdl/ortho_ident.adb | 1
ghdl-0.28dev/vhdl/parse.adb | 252 +++++++-
ghdl-0.28dev/vhdl/parse.ads | 2
ghdl-0.28dev/vhdl/post_sems.adb | 2
ghdl-0.28dev/vhdl/post_sems.ads | 2
ghdl-0.28dev/vhdl/scan-scan_literal.adb | 27
ghdl-0.28dev/vhdl/scan.adb | 48 +
ghdl-0.28dev/vhdl/scan.ads | 2
ghdl-0.28dev/vhdl/sem.adb | 177 ++++--
ghdl-0.28dev/vhdl/sem.ads | 2
ghdl-0.28dev/vhdl/sem_assocs.adb | 32 -
ghdl-0.28dev/vhdl/sem_assocs.ads | 2
ghdl-0.28dev/vhdl/sem_decls.adb | 184 ++----
ghdl-0.28dev/vhdl/sem_decls.ads | 2
ghdl-0.28dev/vhdl/sem_expr.adb | 578 ++++++++++++++++----
ghdl-0.28dev/vhdl/sem_expr.ads | 6
ghdl-0.28dev/vhdl/sem_names.adb | 67 +-
ghdl-0.28dev/vhdl/sem_names.ads | 2
ghdl-0.28dev/vhdl/sem_scopes.adb | 3
ghdl-0.28dev/vhdl/sem_scopes.ads | 2
ghdl-0.28dev/vhdl/sem_specs.adb | 5
ghdl-0.28dev/vhdl/sem_specs.ads | 2
ghdl-0.28dev/vhdl/sem_stmts.adb | 26
ghdl-0.28dev/vhdl/sem_stmts.ads | 2
ghdl-0.28dev/vhdl/sem_types.adb | 662 ++++++++++++++++-------
ghdl-0.28dev/vhdl/sem_types.ads | 8
ghdl-0.28dev/vhdl/std_names.adb | 54 +
ghdl-0.28dev/vhdl/std_names.ads | 88 ++-
ghdl-0.28dev/vhdl/std_package.adb | 23
ghdl-0.28dev/vhdl/std_package.ads | 2
ghdl-0.28dev/vhdl/str_table.adb | 2
ghdl-0.28dev/vhdl/str_table.ads | 2
ghdl-0.28dev/vhdl/tokens.adb | 2
ghdl-0.28dev/vhdl/tokens.ads | 2
ghdl-0.28dev/vhdl/trans_analyzes.adb | 2
ghdl-0.28dev/vhdl/trans_be.adb | 1
ghdl-0.28dev/vhdl/translation.adb | 458 +++++++--------
ghdl-0.28dev/vhdl/types.ads | 6
ghdl-0.28dev/vhdl/version.ads | 4
ghdl-0.28dev/vhdl/xrefs.adb | 2
ghdl-0.28dev/vhdl/xrefs.ads | 2
140 files changed, 4238 insertions(+), 2081 deletions(-)
--- NEW FILE ghdl-svn126.patch ---
diff -urN ghdl-0.27/README ghdl-0.28dev/README
--- ghdl-0.27/README 2008-07-01 01:59:59.000000000 +0200
+++ ghdl-0.28dev/README 2009-09-20 09:07:54.000000000 +0200
@@ -4,7 +4,7 @@
Copyright:
**********
-GHDL is copyright (c) 2002, 2003, 2004, 2005, 2006, 2007 Tristan Gingold.
+GHDL is copyright (c) 2002 - 2008 Tristan Gingold.
See the GHDL manual for more details.
This program is free software; you can redistribute it and/or modify
@@ -27,9 +27,9 @@
***************************
Required:
-* the sources of gcc-4.2.4 (at least the core part).
+* the sources of gcc-4.3.1 (at least the core part).
Note: other versions of gcc sources have not been tested.
-* the Ada95 GNAT compiler (GNAT GPL 2005 are known to work;
+* the Ada95 GNAT compiler (GNAT GPL 2008 are known to work;
Ada compilers in most Linux distributions are more or less buggy)
* GNU/Linux for ix86 (pc systems) (porting is necessary for other systems)
@@ -53,12 +53,12 @@
file from it).
* move or copy the vhdl directory of ghdl into the gcc subdirectory of
the gcc distribution.
- You should have a gcc-4.2.4/gcc/vhdl directory.
+ You should have a gcc-4.3.1/gcc/vhdl directory.
* configure gcc with the --enable-languages=vhdl option. You may of course
add other languages.
Refer to the gcc installation documentation.
* compile gcc.
- 'make CFLAGS="-O"' is OK (gcc 2.8.1 bugs with -O2 on some files).
+ 'make CFLAGS="-O"' is OK
* install gcc. This installs the ghdl driver too.
'make install' is OK.
diff -urN ghdl-0.27/vhdl/back_end.adb ghdl-0.28dev/vhdl/back_end.adb
--- ghdl-0.27/vhdl/back_end.adb 2005-09-22 23:26:01.000000000 +0200
+++ ghdl-0.28dev/vhdl/back_end.adb 2009-09-20 09:06:46.000000000 +0200
@@ -12,11 +12,10 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
-with Flags;
-with Types; use Types;
+with Flags; use Flags;
with Iirs_Utils; use Iirs_Utils;
package body Back_End is
@@ -27,11 +26,13 @@
return String
is
begin
- case Flags.Vhdl_Std is
+ case Vhdl_Std is
when Vhdl_87 =>
return Image_Identifier (Library) & "-obj87.cf";
when Vhdl_93c | Vhdl_93 | Vhdl_00 | Vhdl_02 =>
return Image_Identifier (Library) & "-obj93.cf";
+ when Vhdl_08 =>
+ return Image_Identifier (Library) & "-obj08.cf";
end case;
end Default_Library_To_File_Name;
end Back_End;
diff -urN ghdl-0.27/vhdl/back_end.ads ghdl-0.28dev/vhdl/back_end.ads
--- ghdl-0.27/vhdl/back_end.ads 2006-08-16 08:17:07.000000000 +0200
+++ ghdl-0.28dev/vhdl/back_end.ads 2009-09-20 09:06:46.000000000 +0200
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Iirs; use Iirs;
diff -urN ghdl-0.27/vhdl/bug.adb ghdl-0.28dev/vhdl/bug.adb
--- ghdl-0.27/vhdl/bug.adb 2006-08-19 13:56:15.000000000 +0200
+++ ghdl-0.28dev/vhdl/bug.adb 2009-09-20 09:06:46.000000000 +0200
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Ada.Text_IO; use Ada.Text_IO;
diff -urN ghdl-0.27/vhdl/bug.ads ghdl-0.28dev/vhdl/bug.ads
--- ghdl-0.27/vhdl/bug.ads 2005-10-15 13:34:53.000000000 +0200
+++ ghdl-0.28dev/vhdl/bug.ads 2009-09-20 09:06:46.000000000 +0200
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Ada.Exceptions; use Ada.Exceptions;
diff -urN ghdl-0.27/vhdl/canon.adb ghdl-0.28dev/vhdl/canon.adb
--- ghdl-0.27/vhdl/canon.adb 2007-03-21 04:47:14.000000000 +0100
+++ ghdl-0.28dev/vhdl/canon.adb 2009-09-20 09:06:46.000000000 +0200
@@ -1,5 +1,5 @@
-- Canonicalization pass
--- Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold
+-- Copyright (C) 2002, 2003, 2004, 2005, 2008 Tristan Gingold
--
-- GHDL is free software; you can redistribute it and/or modify it under
-- the terms of the GNU General Public License as published by the Free
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Errorout; use Errorout;
@@ -21,9 +21,8 @@
with Name_Table;
with Sem;
with Std_Names;
-with Types; use Types;
with Iir_Chains; use Iir_Chains;
-with Flags;
+with Flags; use Flags;
package body Canon is
-- Canonicalize a list of declarations. LIST can be null.
@@ -239,6 +238,10 @@
--Canon_Extract_Sensitivity
-- (Get_Prefix (Expr), Sensitivity_List, Is_Target);
+ when Iir_Kinds_Scalar_Type_Attribute =>
+ Canon_Extract_Sensitivity
+ (Get_Parameter (Expr), Sensitivity_List, Is_Target);
+
when Iir_Kind_Aggregate =>
declare
Aggr_Type : Iir;
@@ -270,6 +273,226 @@
end case;
end Canon_Extract_Sensitivity;
+ procedure Canon_Extract_Sensitivity_If_Not_Null
+ (Expr: Iir; Sensitivity_List: Iir_List; Is_Target: Boolean := False) is
+ begin
+ if Expr /= Null_Iir then
+ Canon_Extract_Sensitivity (Expr, Sensitivity_List, Is_Target);
+ end if;
+ end Canon_Extract_Sensitivity_If_Not_Null;
+
+ procedure Canon_Extract_Sequential_Statement_Chain_Sensitivity
+ (Chain : Iir; List : Iir_List)
+ is
+ Stmt : Iir;
+ begin
+ Stmt := Chain;
+ while Stmt /= Null_Iir loop
+ case Get_Kind (Stmt) is
+ when Iir_Kind_Assertion_Statement =>
+ -- LRM08 11.3
+ -- * For each assertion, report, next, exit or return
+ -- statement, apply the rule of 10.2 to each expression
+ -- in the statement, and construct the union of the
+ -- resulting sets.
+ Canon_Extract_Sensitivity
+ (Get_Assertion_Condition (Stmt), List);
+ Canon_Extract_Sensitivity
+ (Get_Severity_Expression (Stmt), List);
+ Canon_Extract_Sensitivity
+ (Get_Report_Expression (Stmt), List);
+ when Iir_Kind_Report_Statement =>
+ -- LRM08 11.3
+ -- See assertion_statement case.
+ Canon_Extract_Sensitivity
+ (Get_Severity_Expression (Stmt), List);
+ Canon_Extract_Sensitivity
+ (Get_Report_Expression (Stmt), List);
+ when Iir_Kind_Next_Statement
+ | Iir_Kind_Exit_Statement =>
+ -- LRM08 11.3
+ -- See assertion_statement case.
+ Canon_Extract_Sensitivity
+ (Get_Condition (Stmt), List);
+ when Iir_Kind_Return_Statement =>
+ -- LRM08 11.3
+ -- See assertion_statement case.
+ Canon_Extract_Sensitivity_If_Not_Null
+ (Get_Expression (Stmt), List);
+ when Iir_Kind_Variable_Assignment_Statement =>
[...12561 lines suppressed...]
for I in Mode_Value .. Mode_Signal loop
case Info.Type_Mode is
when Type_Mode_Array =>
@@ -25666,6 +25643,8 @@
else
Val := Get_Null_Loc;
end if;
+ when Type_Mode_Fat_Array =>
+ Val := Get_Null_Loc;
when others =>
Error_Kind ("generate_array_subtype_definition", Atype);
end case;
@@ -25678,7 +25657,7 @@
procedure Generate_Record_Type_Definition (Atype : Iir)
is
- El_Chain : Iir;
+ El_List : Iir_List;
El : Iir;
Prev : Rti_Block;
El_Arr : O_Dnode;
@@ -25692,13 +25671,14 @@
return;
end if;
- El_Chain := Get_Element_Declaration_Chain (Atype);
+ El_List := Get_Elements_Declaration_List (Atype);
Max_Depth := 0;
-- Generate elements.
Push_Rti_Node (Prev, False);
- El := El_Chain;
- while El /= Null_Iir loop
+ for I in Natural loop
+ El := Get_Nth_Element (El_List, I);
+ exit when El = Null_Iir;
declare
Type_Rti : O_Dnode;
El_Name : O_Dnode;
@@ -25742,7 +25722,6 @@
Pop_Identifier_Prefix (Mark);
end;
- El := Get_Chain (El);
end loop;
El_Arr := Generate_Rti_Array (Create_Identifier ("RTIARRAY"));
Pop_Rti_Node (Prev);
@@ -25764,8 +25743,7 @@
New_Record_Aggr_El (Aggr, New_Name_Address (Name));
New_Record_Aggr_El
(Aggr, New_Unsigned_Literal
- (Ghdl_Index_Type,
- Unsigned_64 (Get_Number_Element_Declaration (Atype))));
+ (Ghdl_Index_Type, Unsigned_64 (Get_Nbr_Elements (El_List))));
New_Record_Aggr_El (Aggr,
New_Global_Address (El_Arr, Ghdl_Rti_Arr_Acc));
Finish_Record_Aggr (Aggr, Res);
@@ -25830,8 +25808,7 @@
| Iir_Kind_File_Type_Definition =>
Generate_Fileacc_Type_Definition (Atype);
when Iir_Kind_Record_Subtype_Definition
- | Iir_Kind_Access_Subtype_Definition
- | Iir_Kind_Unconstrained_Array_Subtype_Definition =>
+ | Iir_Kind_Access_Subtype_Definition =>
-- FIXME: No separate infos (yet).
null;
when Iir_Kind_Record_Type_Definition =>
@@ -25950,6 +25927,7 @@
declare
Mark : Id_Mark_Type;
Tmp : O_Dnode;
+ pragma Unreferenced (Tmp);
begin
Push_Identifier_Prefix (Mark, "OT");
Tmp := Generate_Type_Definition (Decl_Type);
@@ -27015,7 +26993,6 @@
-- Generic pointer.
Ghdl_Ptr_Type := New_Access_Type (Char_Type_Node);
- Const_Ptr_Type_Node := Ghdl_Ptr_Type;
New_Type_Decl (Get_Identifier ("__ghdl_ptr"), Ghdl_Ptr_Type);
-- Create record
@@ -28252,6 +28229,7 @@
is
Lib_Mark, Unit_Mark : Id_Mark_Type;
Info : Ortho_Info_Acc;
+ pragma Unreferenced (Info);
begin
Update_Node_Infos;
@@ -28384,8 +28362,7 @@
Free_Info (I);
end if;
when Iir_Kind_Record_Subtype_Definition
- | Iir_Kind_Access_Subtype_Definition
- | Iir_Kind_Unconstrained_Array_Subtype_Definition =>
+ | Iir_Kind_Access_Subtype_Definition =>
null;
when Iir_Kind_Enumeration_Type_Definition
| Iir_Kind_Array_Type_Definition
@@ -28395,9 +28372,11 @@
| Iir_Kind_Enumeration_Subtype_Definition =>
Free_Type_Info (Info, True);
when Iir_Kind_Array_Subtype_Definition =>
- Free_Var (Info.T.Array_Bounds);
- Info.T := Ortho_Info_Type_Array_Init;
- Free_Type_Info (Info, True);
+ if Get_Index_Constraint_Flag (I) then
+ Free_Var (Info.T.Array_Bounds);
+ Info.T := Ortho_Info_Type_Array_Init;
+ Free_Type_Info (Info, True);
+ end if;
when others =>
-- By default, info are not shared.
-- The exception is infos for implicit subprograms, but
@@ -28518,6 +28497,7 @@
procedure Gen_Setup_Info
is
Cst : O_Dnode;
+ pragma Unreferenced (Cst);
begin
Cst := Create_String (Flags.Flag_String,
Get_Identifier ("__ghdl_flag_string"),
@@ -28555,8 +28535,7 @@
-- Check port.
El := Get_Port_Chain (Entity);
while El /= Null_Iir loop
- if Get_Kind (Get_Type (El)) in
- Iir_Kinds_Unconstrained_Array_Type_Definition
+ if not Is_Fully_Constrained_Type (Get_Type (El))
and then Get_Default_Value (El) = Null_Iir
then
Error ("(" & Disp_Node (El)
@@ -28831,6 +28810,7 @@
F : FILEs;
R : int;
S : size_t;
+ pragma Unreferenced (R, S); -- FIXME
Id : Name_Id;
Lib : Iir_Library_Declaration;
File : Iir_Design_File;
diff -urN ghdl-0.27/vhdl/types.ads ghdl-0.28dev/vhdl/types.ads
--- ghdl-0.27/vhdl/types.ads 2008-04-07 05:20:31.000000000 +0200
+++ ghdl-0.28dev/vhdl/types.ads 2009-09-20 09:06:46.000000000 +0200
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Interfaces;
@@ -20,10 +20,6 @@
package Types is
pragma Preelaborate (Types);
- -- List of vhdl standards.
- -- VHDL_93c is vhdl_93 with backward compatibility with 87 (file).
- type Vhdl_Std_Type is (Vhdl_87, Vhdl_93c, Vhdl_93, Vhdl_00, Vhdl_02);
-
-- A tri state type.
type Tri_State_Type is (Unknown, False, True);
diff -urN ghdl-0.27/vhdl/version.ads ghdl-0.28dev/vhdl/version.ads
--- ghdl-0.27/vhdl/version.ads 2008-07-01 01:59:18.000000000 +0200
+++ ghdl-0.28dev/vhdl/version.ads 2009-09-20 09:06:46.000000000 +0200
@@ -1,5 +1,5 @@
package Version is
Ghdl_Release : constant String :=
- "GHDL 0.27 (20080701) [Sokcho edition]";
- Ghdl_Ver : constant String := "0.27";
+ "GHDL 0.28dev (20080721) [Sokcho edition]";
+ Ghdl_Ver : constant String := "0.28dev";
end Version;
diff -urN ghdl-0.27/vhdl/xrefs.adb ghdl-0.28dev/vhdl/xrefs.adb
--- ghdl-0.27/vhdl/xrefs.adb 2005-09-22 23:33:32.000000000 +0200
+++ ghdl-0.28dev/vhdl/xrefs.adb 2009-09-20 09:06:46.000000000 +0200
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with GNAT.Table;
diff -urN ghdl-0.27/vhdl/xrefs.ads ghdl-0.28dev/vhdl/xrefs.ads
--- ghdl-0.27/vhdl/xrefs.ads 2005-09-22 23:23:46.000000000 +0200
+++ ghdl-0.28dev/vhdl/xrefs.ads 2009-09-20 09:06:46.000000000 +0200
@@ -12,7 +12,7 @@
-- for more details.
--
-- You should have received a copy of the GNU General Public License
--- along with GCC; see the file COPYING. If not, write to the Free
+-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Types; use Types;
ghdl-grtadac.patch:
Makefile.in | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
Index: ghdl-grtadac.patch
===================================================================
RCS file: /cvs/extras/rpms/ghdl/devel/ghdl-grtadac.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- ghdl-grtadac.patch 7 Oct 2008 11:37:49 -0000 1.1
+++ ghdl-grtadac.patch 20 Sep 2009 13:53:46 -0000 1.2
@@ -1,9 +1,9 @@
--- gcc-4.2.4/gcc/vhdl/Makefile.in.grtadac 2008-10-07 10:08:26.000000000 +0200
+++ gcc-4.2.4/gcc/vhdl/Makefile.in 2008-10-07 10:09:00.000000000 +0200
-@@ -81,7 +81,7 @@
+@@ -80,7 +80,7 @@
+ X_ADAFLAGS =
T_ADAFLAGS =
- CC = cc
-ADAC = $(CC)
+ADAC = gcc
Index: ghdl.spec
===================================================================
RCS file: /cvs/extras/rpms/ghdl/devel/ghdl.spec,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -p -r1.53 -r1.54
--- ghdl.spec 26 Jul 2009 00:14:31 -0000 1.53
+++ ghdl.spec 20 Sep 2009 13:53:46 -0000 1.54
@@ -1,11 +1,11 @@
%global gccver 4.3.1
%global ghdlver 0.27
-%global ghdlsvnver 110
+%global ghdlsvnver 126
Summary: A VHDL simulator, using the GCC technology
Name: ghdl
Version: %{ghdlver}
-Release: 0.%{ghdlsvnver}svn.8%{?dist}
+Release: 0.%{ghdlsvnver}svn.0%{?dist}
License: GPLv2+
Group: Development/Languages
URL: http://ghdl.free.fr/
@@ -27,8 +27,7 @@ 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?13574
-Patch108: ghdl-textio.patch
+Patch108: ghdl-llvmpath.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
Requires(post): /sbin/install-info
Requires(preun): /sbin/install-info
@@ -128,10 +127,10 @@ pushd ghdl-%{ghdlver}
%{__mv} vhdl ../gcc/
popd
#patch102 -p1 -b .makeinfo
-%patch104 -p0 -b .libgnat43
+%patch104 -p0 -b .libgnat44
%patch105 -p1 -b .grtadac
%patch106 -p0 -b .ppc64abort
-%patch108 -p0 -b .textio
+%patch108 -p0 -b .llvm
%build
%{__rm} -fr obj-%{gcc_target_platform}
@@ -314,6 +313,9 @@ popd
%changelog
+* Sun Sep 20 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.27-0.126svn.0
+- update to svn126
+
* Sun Jul 26 2009 Thomas Sailer <t.sailer at alumni.ethz.ch> - 0.27-0.110svn.8
- this gcc does not understand -mtune=atom
--- ghdl-svn110.patch DELETED ---
- Previous message (by thread): rpms/sslogger/devel import.log, NONE, 1.1 sslogger.spec, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2
- Next message (by thread): rpms/xfwm4/F-11 xfwm4.spec,1.38,1.39
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the fedora-extras-commits
mailing list