Skip to content

R
riscv-gcc-1
Commit b4f94ac1 by Zack Weinberg
Options

update_version: Do not check in files which are unchanged. 

maintainer-scripts:
	* update_version: Do not check in files which are unchanged.
	* gcc_release: Only update the version in gcc/version.c.
gcc:
	* version.c (version_string): Now const char[].
	* version.h: Update to match.
gcc/ada:
	* Make-lang.in (EXTRA_GNATBIND_OBJS): Add version.o.
	* Makefile.in (TOOLS_LIBS): Add ../../version.o.
	* gnatvsn.ads: Gnat_Version_String is now a function.
	* gnatvsn.adb: New file.  When asked for Gnat_Version_String,
	copy the C version_string into a String and return it.
	* gnatcmd.adb, gnatkr.adb, gnatlbr.adb, gnatlink.adb,
	gnatls.adb,gnatmake.adb, gnatprep.adb, gnatpsta.adb:
	Remove pragma Ident (Gnat_Version_String).  If this was the
	sole use of package Gnatvsn, remove the with statement too.
	* gnat1drv.adb: Tweak -gnatv output.
gcc/f:
	* Make-lang.in (g77spec.o): Don't depend on f/version.h.
	(f/parse.o): Depend on version.h not f/version.h.
	(g77version.o, f/version.o): Delete all references.

	* com.c (ffecom_init_0): Fix transposed array indices in bsearch test.
	* g77spec.c: Don't include f/version.h or refer to ffe_version_string.
	* parse.c: Use version_string, not ffe_version_string.
	* version.c, version.h: Delete files.
libf2c:
	* libF77/Version.c: Rename junk to __LIBF77_VERSION__.  Add
	external decls for __LIBI77_VERSION__ and __LIBU77_VERSION__.
	Delete __G77_LIBF77_VERSION__
	(g77__fvers__): Print all three __LIB*77_VERSION__ strings,
	and __VERSION__ if we have it; nothing else.

	* libI77/Version.c: Provide only __LIBI77_VERSION__ (formerly junk).
	* libU77/Version.c: Provide only __LIBU77_VERSION__ (formerly junk).

From-SVN: r57461
parent 2e9ac471
Showing with 238 additions and 173 deletions
gcc/ChangeLog
2002-09-23 Zack Weinberg <zack@codesourcery.com>
* version.c (version_string): Now const char[].
* version.h: Update to match.
2002-09-23 Richard Henderson <rth@redhat.com> 2002-09-23 Richard Henderson <rth@redhat.com>
* config/i386/i386.h (MASK_ACCUMULATE_OUTGOING_ARGS_SET, MASK_MMX_SET, * config/i386/i386.h (MASK_ACCUMULATE_OUTGOING_ARGS_SET, MASK_MMX_SET,
...@@ -55,7 +60,7 @@ ...@@ -55,7 +60,7 @@
(c_common_decode_option): Process -fabi-version. (c_common_decode_option): Process -fabi-version.
* doc/invoke.texi (-fabi-version): Document it. * doc/invoke.texi (-fabi-version): Document it.
(-Wabi): Add information about bit-fields in unions. (-Wabi): Add information about bit-fields in unions.
2002-09-22 Jason Thorpe <thorpej@wasabisystems.com> 2002-09-22 Jason Thorpe <thorpej@wasabisystems.com>
* config/mips/netbsd.h (SUBTARGET_ASM_SPEC): Always pass -KPIC * config/mips/netbsd.h (SUBTARGET_ASM_SPEC): Always pass -KPIC
...@@ -214,7 +219,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz> ...@@ -214,7 +219,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz>
(real_to_target_fmt, real_from_target_fmt): New. (real_to_target_fmt, real_from_target_fmt): New.
(ieee_single_format, ieee_double_format, ieee_extended_motorola_format, (ieee_single_format, ieee_double_format, ieee_extended_motorola_format,
ieee_extended_intel_96_format, ieee_extended_intel_128_format, ieee_extended_intel_96_format, ieee_extended_intel_128_format,
ieee_quad_format, i370_single_format, i370_double_format, ieee_quad_format, i370_single_format, i370_double_format,
c4x_single_format, c4x_extended_format): Rename from s/_format//. c4x_single_format, c4x_extended_format): Rename from s/_format//.
(ieee_quad_format): Fix emin. (ieee_quad_format): Fix emin.
(format_for_size, init_real_once): Remove. (format_for_size, init_real_once): Remove.
...@@ -256,7 +261,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz> ...@@ -256,7 +261,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz>
for Intel 80-bit extended, if enabled. for Intel 80-bit extended, if enabled.
* config/m68k/m68k.c (override_options): Set real_format_for_mode * config/m68k/m68k.c (override_options): Set real_format_for_mode
for Motorola 96-bit extended. for Motorola 96-bit extended.
* config/vax/vax.h (OVERRIDE_OPTIONS): New. * config/vax/vax.h (OVERRIDE_OPTIONS): New.
* config/vax/vax.c (override_options): New. * config/vax/vax.c (override_options): New.
...@@ -451,30 +456,30 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz> ...@@ -451,30 +456,30 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz>
2002-09-19 Ulrich Weigand <uweigand@de.ibm.com> 2002-09-19 Ulrich Weigand <uweigand@de.ibm.com>
* config/s390/s390.c (addr_generation_dependency_p): Handle SUBREG * config/s390/s390.c (addr_generation_dependency_p): Handle SUBREG
and STRICT_LOW_PART within SET_DEST. and STRICT_LOW_PART within SET_DEST.
* config/s390/s390.md ("*extractqi", "*extracthi"): New insns with * config/s390/s390.md ("*extractqi", "*extracthi"): New insns with
splitters, replacing pre-reload splitters. splitters, replacing pre-reload splitters.
("*zero_extendhisi2_31", "*zero_extendqisi2_31", ("*zero_extendhisi2_31", "*zero_extendqisi2_31",
"*zero_extendqihi2_31"): New insns. "*zero_extendqihi2_31"): New insns.
("*zero_extendqihi2_64"): Do not clobber CC. ("*zero_extendqihi2_64"): Do not clobber CC.
2002-09-18 Devang Patel <dpatel@apple.com> 2002-09-18 Devang Patel <dpatel@apple.com>
* cp/cp-tree.h: New prototype for walk_vtabls(). * cp/cp-tree.h: New prototype for walk_vtabls().
* cp/decl.c (walk_vtables_r): New function. * cp/decl.c (walk_vtables_r): New function.
(struct cp_binding_level): Add new members, namespaces, (struct cp_binding_level): Add new members, namespaces,
names_size and vtables. names_size and vtables.
(add_decl_to_level): Add decl in namespaces or vtables (add_decl_to_level): Add decl in namespaces or vtables
chain, if conditions match. chain, if conditions match.
(walk_vtables): New function. (walk_vtables): New function.
(walk_namespaces_r): Travers separate namespace chain (walk_namespaces_r): Travers separate namespace chain
for namespace decls. for namespace decls.
(wrapup_globals_for_namespace): Use names_size instead (wrapup_globals_for_namespace): Use names_size instead
of list_length(). of list_length().
* cp/decl2.c (finish_file): Use walk_vtables() instead of * cp/decl2.c (finish_file): Use walk_vtables() instead of
walk_globals() to walk vtable decls. walk_globals() to walk vtable decls.
2002-09-19 Steve Ellcey <sje@cup.hp.com> 2002-09-19 Steve Ellcey <sje@cup.hp.com>
* config/ia64/hpux.h (CTORS_SECTION_ASM_OP): New. * config/ia64/hpux.h (CTORS_SECTION_ASM_OP): New.
...@@ -518,7 +523,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz> ...@@ -518,7 +523,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz>
2002-09-18 Richard Henderson <rth@redhat.com> 2002-09-18 Richard Henderson <rth@redhat.com>
* ifcvt.c (noce_process_if_block): Correctly detect X modified * ifcvt.c (noce_process_if_block): Correctly detect X modified
with INSN_B before COND_EARLIEST. Don't check A and B for with INSN_B before COND_EARLIEST. Don't check A and B for
modification in condition range. Reorder INSN_B for A==B properly. modification in condition range. Reorder INSN_B for A==B properly.
(if_convert): Iterate until no matches for a block. (if_convert): Iterate until no matches for a block.
...@@ -550,7 +555,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz> ...@@ -550,7 +555,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz>
2002-09-18 Richard Henderson <rth@redhat.com> 2002-09-18 Richard Henderson <rth@redhat.com>
* real.c (sticky_rshift_significand): Collect sticky as * real.c (sticky_rshift_significand): Collect sticky as
unsigned long, not bool. unsigned long, not bool.
2002-09-18 Ulrich Weigand <uweigand@de.ibm.com> 2002-09-18 Ulrich Weigand <uweigand@de.ibm.com>
...@@ -650,7 +655,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz> ...@@ -650,7 +655,7 @@ Tue Aug 27 20:07:01 CEST 2002 Jan Hubicka <jh@suse.cz>
2002-09-17 Steve Ellcey <sje@cup.hp.com> 2002-09-17 Steve Ellcey <sje@cup.hp.com>
* config/ia64/elf.h: Remove CPP_PREDEFINES. * config/ia64/elf.h: Remove CPP_PREDEFINES.
Tue Sep 17 13:58:04 2002 Nicola Pero <n.pero@mi.flashnet.it> Tue Sep 17 13:58:04 2002 Nicola Pero <n.pero@mi.flashnet.it>
...@@ -678,7 +683,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it> ...@@ -678,7 +683,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it>
* doc/objc.texi (Constant string objects): Extended documentation * doc/objc.texi (Constant string objects): Extended documentation
to make clear that the constant string class ivar layout is to make clear that the constant string class ivar layout is
completely fixed. completely fixed.
2002-09-17 Roger Sayle <roger@eyesopen.com> 2002-09-17 Roger Sayle <roger@eyesopen.com>
* cfgrtl.c (flow_delete_block_noexpunge): Delete orphaned * cfgrtl.c (flow_delete_block_noexpunge): Delete orphaned
...@@ -692,7 +697,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it> ...@@ -692,7 +697,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it>
2002-09-16 Richard Henderson <rth@redhat.com> 2002-09-16 Richard Henderson <rth@redhat.com>
PR fortran/3924 PR fortran/3924
* sdbout.c (sdbout_symbol): Don't handle offsets from a symbol. * sdbout.c (sdbout_symbol): Don't handle offsets from a symbol.
2002-09-16 Richard Henderson <rth@redhat.com> 2002-09-16 Richard Henderson <rth@redhat.com>
...@@ -701,10 +706,10 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it> ...@@ -701,10 +706,10 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it>
2002-09-16 Jeff Garzik <jgarzik@mandrakesoft.com> 2002-09-16 Jeff Garzik <jgarzik@mandrakesoft.com>
* config.gcc: Treat winchip_c6-*|winchip2-*|c3-* as pentium-mmx. * config.gcc: Treat winchip_c6-*|winchip2-*|c3-* as pentium-mmx.
* config/i386/i386.c (processor_alias_table): Add winchip-c6, * config/i386/i386.c (processor_alias_table): Add winchip-c6,
winchip2 and c3. winchip2 and c3.
* doc/invoke.texi: Mention new aliases. * doc/invoke.texi: Mention new aliases.
2002-09-16 John David Anglin <dave@hiauly1.hia.nrc.ca> 2002-09-16 John David Anglin <dave@hiauly1.hia.nrc.ca>
...@@ -931,7 +936,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it> ...@@ -931,7 +936,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it>
* config/s390/s390.c: Include "optabs.h". * config/s390/s390.c: Include "optabs.h".
(s390_expand_movstr, s390_expand_clrstr, s390_expand_cmpstr): New. (s390_expand_movstr, s390_expand_clrstr, s390_expand_cmpstr): New.
config/s390/s390-protos.h (s390_expand_movstr, s390_expand_clrstr, config/s390/s390-protos.h (s390_expand_movstr, s390_expand_clrstr,
s390_expand_cmpstr): Add prototypes. s390_expand_cmpstr): Add prototypes.
config/s390/s390.md ("movstrdi", "movstrsi"): Call s390_expand_movstr. config/s390/s390.md ("movstrdi", "movstrsi"): Call s390_expand_movstr.
("movstrdi_short"): Rename to "movstr_short_64". Change predicates ("movstrdi_short"): Rename to "movstr_short_64". Change predicates
...@@ -1234,7 +1239,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it> ...@@ -1234,7 +1239,7 @@ Tue Sep 17 13:40:13 2002 Nicola Pero <n.pero@mi.flashnet.it>
We need a temporary when passing, e.g. (long) x by const ref. We need a temporary when passing, e.g. (long) x by const ref.
* testsuite/g++.dg/other/constref[12].C: New, regression tests for * testsuite/g++.dg/other/constref[12].C: New, regression tests for
passing a cast expression to a function by const reference. passing a cast expression to a function by const reference.
2002-09-13 Richard Henderson <rth@redhat.com> 2002-09-13 Richard Henderson <rth@redhat.com>
* config/alpha/alpha.md (attr type): Add callpal. * config/alpha/alpha.md (attr type): Add callpal.
......
gcc/ada/ChangeLog
2002-09-23 Zack Weinberg <zack@codesourcery.com>
* Make-lang.in (EXTRA_GNATBIND_OBJS): Add version.o.
* Makefile.in (TOOLS_LIBS): Add ../../version.o.
* gnatvsn.ads: Gnat_Version_String is now a function.
* gnatvsn.adb: New file. When asked for Gnat_Version_String,
copy the C version_string into a String and return it.
* gnatcmd.adb, gnatkr.adb, gnatlbr.adb, gnatlink.adb,
gnatls.adb,gnatmake.adb, gnatprep.adb, gnatpsta.adb:
Remove pragma Ident (Gnat_Version_String). If this was the
sole use of package Gnatvsn, remove the with statement too.
* gnat1drv.adb: Tweak -gnatv output.
2002-09-17 Richard Henderson <rth@redhat.com> 2002-09-17 Richard Henderson <rth@redhat.com>
* trans.c (tree_transform): Use real_ldexp not REAL_VALUE_LDEXP. * trans.c (tree_transform): Use real_ldexp not REAL_VALUE_LDEXP.
...@@ -265,7 +278,7 @@ ...@@ -265,7 +278,7 @@
2002-04-21 Florian Weimer <fw@deneb.enyo.de> 2002-04-21 Florian Weimer <fw@deneb.enyo.de>
* gnat_ug.texi: New file. * gnat_ug.texi: New file.
* gnat_rm.texi: Do not include texiplus.texi. Include fdl.texi * gnat_rm.texi: Do not include texiplus.texi. Include fdl.texi
instead of gfdl.texi instead of gfdl.texi
...@@ -273,7 +286,7 @@ ...@@ -273,7 +286,7 @@
* xgnatug.adb, ug_words: New files. * xgnatug.adb, ug_words: New files.
* Makefile.in (doc, dvi): New targets. Build gnat_ug_*, * Makefile.in (doc, dvi): New targets. Build gnat_ug_*,
gnat_rm and gnat-style manuals. gnat_rm and gnat-style manuals.
2002-04-18 Neil Booth <neil@daikokuya.demon.co.uk> 2002-04-18 Neil Booth <neil@daikokuya.demon.co.uk>
...@@ -433,7 +446,7 @@ ...@@ -433,7 +446,7 @@
2002-03-23 Florian Weimer <fw@deneb.enyo.de> 2002-03-23 Florian Weimer <fw@deneb.enyo.de>
* gnat_rm.texi: Sync with ACT version. * gnat_rm.texi: Sync with ACT version.
(From Ben Brosgol <brosgol@gnat.com>) (From Ben Brosgol <brosgol@gnat.com>)
2002-03-20 Neil Booth <neil@daikokuya.demon.co.uk> 2002-03-20 Neil Booth <neil@daikokuya.demon.co.uk>
...@@ -1741,7 +1754,7 @@ ...@@ -1741,7 +1754,7 @@
2001-12-03 Robert Dewar <dewar@gnat.com> 2001-12-03 Robert Dewar <dewar@gnat.com>
* sinfo.ads: Minor reformatting. N_Freeze_Entity node does not * sinfo.ads: Minor reformatting. N_Freeze_Entity node does not
have Associated_Node. have Associated_Node.
2001-12-03 Robert Dewar <dewar@gnat.com> 2001-12-03 Robert Dewar <dewar@gnat.com>
...@@ -2114,7 +2127,7 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> ...@@ -2114,7 +2127,7 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
2001-10-26 Vincent Celier <celier@gnat.com> 2001-10-26 Vincent Celier <celier@gnat.com>
* g-os_lib.adb (Normalize_Pathname): Preserve the double slash * g-os_lib.adb (Normalize_Pathname): Preserve the double slash
("//") that precede the drive letter on Interix. ("//") that precede the drive letter on Interix.
2001-10-26 Geert Bosch <bosch@gnat.com> 2001-10-26 Geert Bosch <bosch@gnat.com>
...@@ -2123,7 +2136,7 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> ...@@ -2123,7 +2136,7 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
2001-10-25 Robert Dewar <dewar@gnat.com> 2001-10-25 Robert Dewar <dewar@gnat.com>
* sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name * sem_ch8.adb (Analyze_Package_Renaming): Skip analysis if Name
is Error. Similar change for other renaming cases. is Error. Similar change for other renaming cases.
2001-10-25 Robert Dewar <dewar@gnat.com> 2001-10-25 Robert Dewar <dewar@gnat.com>
...@@ -2133,22 +2146,22 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> ...@@ -2133,22 +2146,22 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
2001-10-25 Ed Schonberg <schonber@gnat.com> 2001-10-25 Ed Schonberg <schonber@gnat.com>
* par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array * par-ch3.adb (P_Subtype_Mark_Resync): for an anonymous array
return Error rather than Empty so that analysis can proceed. return Error rather than Empty so that analysis can proceed.
2001-10-25 Ed Schonberg <schonber@gnat.com> 2001-10-25 Ed Schonberg <schonber@gnat.com>
* sem_util.adb (Enter_Name): better handling of cascaded error * sem_util.adb (Enter_Name): better handling of cascaded error
messages when a unit appears in its own context. messages when a unit appears in its own context.
2001-10-25 Ed Schonberg <schonber@gnat.com> 2001-10-25 Ed Schonberg <schonber@gnat.com>
* sem_util.adb (Defining_Entity): in case of error, attach created * sem_util.adb (Defining_Entity): in case of error, attach created
entity to specification, so that semantic analysis can proceed. entity to specification, so that semantic analysis can proceed.
2001-10-25 Robert Dewar <dewar@gnat.com> 2001-10-25 Robert Dewar <dewar@gnat.com>
* sem_util.adb * sem_util.adb
(Defining_Entity): Deal with Error. (Defining_Entity): Deal with Error.
(Process_End_Label): Deal with bad end label for. (Process_End_Label): Deal with bad end label for.
2001-10-25 Ed Schonberg <schonber@gnat.com> 2001-10-25 Ed Schonberg <schonber@gnat.com>
...@@ -2168,20 +2181,20 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> ...@@ -2168,20 +2181,20 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
2001-10-25 Ed Schonberg <schonber@gnat.com> 2001-10-25 Ed Schonberg <schonber@gnat.com>
* sem_res.adb (Resolve_Call): if the call is actually an indexing * sem_res.adb (Resolve_Call): if the call is actually an indexing
operation on the result of a parameterless call, perform elaboration operation on the result of a parameterless call, perform elaboration
check after the node has been properly rewritten. check after the node has been properly rewritten.
* sem_ch12.adb (Copy_Generic_Node): after the proper body has been * sem_ch12.adb (Copy_Generic_Node): after the proper body has been
inlined within the generic tree, the defining identifier is not a inlined within the generic tree, the defining identifier is not a
compilation_unit. compilation_unit.
2001-10-25 Ed Schonberg <schonber@gnat.com> 2001-10-25 Ed Schonberg <schonber@gnat.com>
* sem_res.adb (Resolve): special-case resolution of Null in an * sem_res.adb (Resolve): special-case resolution of Null in an
instance or an inlined body to avoid view conflicts. instance or an inlined body to avoid view conflicts.
* sem_ch12.adb (Copy_Generic_Node): for allocators, check for view * sem_ch12.adb (Copy_Generic_Node): for allocators, check for view
compatibility by retrieving the access type of the generic copy. compatibility by retrieving the access type of the generic copy.
2001-10-25 Robert Dewar <dewar@gnat.com> 2001-10-25 Robert Dewar <dewar@gnat.com>
...@@ -2200,10 +2213,10 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> ...@@ -2200,10 +2213,10 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
2001-10-25 Pascal Obry <obry@gnat.com> 2001-10-25 Pascal Obry <obry@gnat.com>
* gnatmem.adb (Read_Next): fix Curs2 value to properly handle quiet * gnatmem.adb (Read_Next): fix Curs2 value to properly handle quiet
mode case for ALLOC case. mode case for ALLOC case.
* gnatmem.adb (Read_Next): correctly fix parsing in Quiet mode on * gnatmem.adb (Read_Next): correctly fix parsing in Quiet mode on
all platforms. Improvement of last change. all platforms. Improvement of last change.
2001-10-25 Robert Dewar <dewar@gnat.com> 2001-10-25 Robert Dewar <dewar@gnat.com>
...@@ -2216,25 +2229,25 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> ...@@ -2216,25 +2229,25 @@ Thu Nov 15 18:16:17 2001 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
2001-10-25 Pascal Obry <obry@gnat.com> 2001-10-25 Pascal Obry <obry@gnat.com>
* osint.adb (Read_Default_Search_Dirs): correctly detect relative * osint.adb (Read_Default_Search_Dirs): correctly detect relative
pathnames in UNIX and DOS style with drive letter. pathnames in UNIX and DOS style with drive letter.
(Is_Relative): new routine. (Is_Relative): new routine.
* osint.adb: Minor reformatting * osint.adb: Minor reformatting
* osint.adb (Is_Relative): implementation using * osint.adb (Is_Relative): implementation using
GNAT.OS_Lib.Is_Absolute_Path. Better fix. GNAT.OS_Lib.Is_Absolute_Path. Better fix.
2001-10-25 Pascal Obry <obry@gnat.com> 2001-10-25 Pascal Obry <obry@gnat.com>
* g-dirope.adb (Basename): correctly compute offset between the * g-dirope.adb (Basename): correctly compute offset between the
original Path and the translated one. original Path and the translated one.
* g-dirope.adb: (Base_Name): add some comments. * g-dirope.adb: (Base_Name): add some comments.
2001-10-25 Robert Dewar <dewar@gnat.com> 2001-10-25 Robert Dewar <dewar@gnat.com>
* exp_imgv.adb (Expand_Image_Attribute): Defend against bad use * exp_imgv.adb (Expand_Image_Attribute): Defend against bad use
in HIE mode, avoids compilation abandoned message in HIE mode, avoids compilation abandoned message
* exp_imgv.adb: Correct typo in previous change * exp_imgv.adb: Correct typo in previous change
......
gcc/ada/Make-lang.in
...@@ -181,7 +181,7 @@ GNATBIND_OBJS = \ ...@@ -181,7 +181,7 @@ GNATBIND_OBJS = \
# List of extra object files linked in with various programs. # List of extra object files linked in with various programs.
EXTRA_GNAT1_OBJS = prefix.o EXTRA_GNAT1_OBJS = prefix.o
EXTRA_GNATBIND_OBJS = prefix.o EXTRA_GNATBIND_OBJS = prefix.o version.o
# FIXME: handle with configure substitutions # FIXME: handle with configure substitutions
#ifeq ($(strip $(filter-out alpha% dec vms% openvms% alphavms%,$(host))),) #ifeq ($(strip $(filter-out alpha% dec vms% openvms% alphavms%,$(host))),)
......
gcc/ada/Makefile.in
...@@ -248,8 +248,8 @@ LIBIBERTY = ../../libiberty/libiberty.a ...@@ -248,8 +248,8 @@ LIBIBERTY = ../../libiberty/libiberty.a
# and the system's installed libraries. # and the system's installed libraries.
LIBS = $(INTLLIBS) $(LIBIBERTY) $(SYSLIBS) LIBS = $(INTLLIBS) $(LIBIBERTY) $(SYSLIBS)
LIBDEPS = $(INTLDEPS) $(LIBIBERTY) LIBDEPS = $(INTLDEPS) $(LIBIBERTY)
TOOLS_LIBS = ../../prefix.o $(LIBGNAT) ../../../libiberty/libiberty.a \ TOOLS_LIBS = ../../prefix.o ../../version.o $(LIBGNAT) \
$(SYSLIBS) ../../../libiberty/libiberty.a $(SYSLIBS)
# Specify the directories to be searched for header files. # Specify the directories to be searched for header files.
# Both . and srcdir are used, in that order, # Both . and srcdir are used, in that order,
......
gcc/ada/gnat1drv.adb
...@@ -130,7 +130,8 @@ begin ...@@ -130,7 +130,8 @@ begin
end if; end if;
Write_Str (Gnat_Version_String); Write_Str (Gnat_Version_String);
Write_Str (" Copyright 1992-2002 Free Software Foundation, Inc."); Write_Eol;
Write_Str ("Copyright 1992-2002 Free Software Foundation, Inc.");
Write_Eol; Write_Eol;
end if; end if;
......
gcc/ada/gnatcmd.adb
...@@ -57,7 +57,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib; ...@@ -57,7 +57,6 @@ with GNAT.OS_Lib; use GNAT.OS_Lib;
with Table; with Table;
procedure GNATCmd is procedure GNATCmd is
pragma Ident (Gnatvsn.Gnat_Version_String);
Ada_Include_Path : constant String := "ADA_INCLUDE_PATH"; Ada_Include_Path : constant String := "ADA_INCLUDE_PATH";
Ada_Objects_Path : constant String := "ADA_OBJECTS_PATH"; Ada_Objects_Path : constant String := "ADA_OBJECTS_PATH";
......
gcc/ada/gnatkr.adb
...@@ -27,12 +27,10 @@ ...@@ -27,12 +27,10 @@
with Ada.Characters.Handling; use Ada.Characters.Handling; with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Command_Line; use Ada.Command_Line; with Ada.Command_Line; use Ada.Command_Line;
with Gnatvsn;
with Krunch; with Krunch;
with System.IO; use System.IO; with System.IO; use System.IO;
procedure Gnatkr is procedure Gnatkr is
pragma Ident (Gnatvsn.Gnat_Version_String);
Count : Natural; Count : Natural;
Maxlen : Integer; Maxlen : Integer;
......
gcc/ada/gnatlbr.adb
...@@ -45,14 +45,12 @@ ...@@ -45,14 +45,12 @@
with Ada.Command_Line; use Ada.Command_Line; with Ada.Command_Line; use Ada.Command_Line;
with Ada.Text_IO; use Ada.Text_IO; with Ada.Text_IO; use Ada.Text_IO;
with GNAT.OS_Lib; use GNAT.OS_Lib; with GNAT.OS_Lib; use GNAT.OS_Lib;
with Gnatvsn; use Gnatvsn;
with Interfaces.C_Streams; use Interfaces.C_Streams; with Interfaces.C_Streams; use Interfaces.C_Streams;
with Osint; use Osint; with Osint; use Osint;
with Sdefault; use Sdefault; with Sdefault; use Sdefault;
with System; with System;
procedure GnatLbr is procedure GnatLbr is
pragma Ident (Gnat_Version_String);
type Lib_Mode is (None, Create, Set, Delete); type Lib_Mode is (None, Create, Set, Delete);
Next_Arg : Integer; Next_Arg : Integer;
......
gcc/ada/gnatlink.adb
...@@ -45,8 +45,6 @@ with Interfaces.C_Streams; use Interfaces.C_Streams; ...@@ -45,8 +45,6 @@ with Interfaces.C_Streams; use Interfaces.C_Streams;
procedure Gnatlink is procedure Gnatlink is
pragma Ident (Gnat_Version_String);
package Gcc_Linker_Options is new Table.Table ( package Gcc_Linker_Options is new Table.Table (
Table_Component_Type => String_Access, Table_Component_Type => String_Access,
Table_Index_Type => Integer, Table_Index_Type => Integer,
......
gcc/ada/gnatls.adb
...@@ -41,7 +41,6 @@ with Targparm; use Targparm; ...@@ -41,7 +41,6 @@ with Targparm; use Targparm;
with Types; use Types; with Types; use Types;
procedure Gnatls is procedure Gnatls is
pragma Ident (Gnat_Version_String);
Max_Column : constant := 80; Max_Column : constant := 80;
......
gcc/ada/gnatmake.adb
...@@ -27,12 +27,9 @@ ...@@ -27,12 +27,9 @@
-- Gnatmake usage: please consult the gnat documentation -- Gnatmake usage: please consult the gnat documentation
with Gnatvsn;
with Make; with Make;
procedure Gnatmake is procedure Gnatmake is
pragma Ident (Gnatvsn.Gnat_Version_String);
begin begin
-- The real work is done in Package Make. Gnatmake used to be a standalone -- The real work is done in Package Make. Gnatmake used to be a standalone
-- routine. Now Gnatmake's facilities have been placed in a package -- routine. Now Gnatmake's facilities have been placed in a package
......
gcc/ada/gnatprep.adb
...@@ -36,7 +36,6 @@ with GNAT.Command_Line; ...@@ -36,7 +36,6 @@ with GNAT.Command_Line;
with Gnatvsn; with Gnatvsn;
procedure GNATprep is procedure GNATprep is
pragma Ident (Gnatvsn.Gnat_Version_String);
type Strptr is access String; type Strptr is access String;
......
gcc/ada/gnatpsta.adb
...@@ -34,13 +34,11 @@ ...@@ -34,13 +34,11 @@
-- integer and floating point sizes. -- integer and floating point sizes.
with Ada.Text_IO; use Ada.Text_IO; with Ada.Text_IO; use Ada.Text_IO;
with Gnatvsn;
with Ttypef; use Ttypef; with Ttypef; use Ttypef;
with Ttypes; use Ttypes; with Ttypes; use Ttypes;
with Types; use Types; with Types; use Types;
procedure GnatPsta is procedure GnatPsta is
pragma Ident (Gnatvsn.Gnat_Version_String);
procedure P (Item : String) renames Ada.Text_IO.Put_Line; procedure P (Item : String) renames Ada.Text_IO.Put_Line;
......
gcc/ada/gnatvsn.adb 0 → 100644
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- G N A T V S N --
-- --
-- B o d y --
-- --
-- --
-- Copyright (C) 2002 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- ware Foundation; either version 2, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
-- MA 02111-1307, USA. --
-- --
-- As a special exception, if other files instantiate generics from this --
-- unit, or you link this unit with other files to produce an executable, --
-- this unit does not by itself cause the resulting executable to be --
-- covered by the GNU General Public License. This exception does not --
-- however invalidate any other reasons why the executable file might be --
-- covered by the GNU Public License. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
package body Gnatvsn is
-- Import the string constant defined in the (language-independent)
-- source file version.c.
-- The size is a lie; we have no way of writing the truth (the size
-- is variable and depends on the actual text of the constant).
-- FIXME: It should be possible to declare this to be a constant, but
-- that is rejected by the compiler ("invalid context for deferred
-- constant declaration"). Per Ada95 this constraint only applies to
-- deferred constants completed by a full constant declaration, not
-- deferred constants completed by a pragma Import.
Version_String : array (0 .. Ver_Len_Max) of aliased Character;
pragma Import (C, Version_String, "version_string");
-- Convert that string constant to an Ada String and return it.
-- This is essentially the same as the To_Ada routine in
-- Interfaces.C; that package is not linked into gnat1 so
-- we cannot use it.
function Gnat_Version_String return String
is
Count : Natural := 0;
begin
loop
if Version_String (Count) = Character'First then
exit;
else
Count := Count + 1;
end if;
end loop;
declare
R : String (1 .. Count);
begin
for J in R'Range loop
R (J) := Version_String (J - 1);
end loop;
return R;
end;
end Gnat_Version_String;
end Gnatvsn;
gcc/ada/gnatvsn.ads
...@@ -32,20 +32,16 @@ ...@@ -32,20 +32,16 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- This package spec holds version information for GNAT, GNATBIND and -- This package spec exports version information for GNAT, GNATBIND and
-- GNATMAKE. It is updated whenever the release number is changed. -- GNATMAKE.
package Gnatvsn is package Gnatvsn is
Gnat_Version_String : constant String := "3.3 20020923 (experimental)"; function Gnat_Version_String
return String;
-- Version output when GNAT (compiler), or its related tools, including -- Version output when GNAT (compiler), or its related tools, including
-- GNATBIND, GNATCHOP, GNATFIND, GNATLINK, GNATMAKE, GNATXREF, are run -- GNATBIND, GNATCHOP, GNATFIND, GNATLINK, GNATMAKE, GNATXREF, are run
-- (with appropriate verbose option switch set). -- (with appropriate verbose option switch set).
--
-- WARNING: some scripts rely on the format of this string. Any change
-- must be coordinated with a script maintainer. Furthermore, no
-- other variable in this package may have a name starting with
-- Gnat_Version_String.
Gnat_Version_Type : constant String := "FSF "; Gnat_Version_Type : constant String := "FSF ";
-- This string is set to one of three values: -- This string is set to one of three values:
......
gcc/f/ChangeLog
2002-09-23 Zack Weinberg <zack@codesourcery.com>
* Make-lang.in (g77spec.o): Don't depend on f/version.h.
(f/parse.o): Depend on version.h not f/version.h.
(g77version.o, f/version.o): Delete all references.
* com.c (ffecom_init_0): Fix transposed array indices in bsearch test.
* g77spec.c: Don't include f/version.h or refer to ffe_version_string.
* parse.c: Use version_string, not ffe_version_string.
* version.c, version.h: Delete files.
2002-09-23 Kazu Hirata <kazu@cs.umass.edu> 2002-09-23 Kazu Hirata <kazu@cs.umass.edu>
* ChangeLog: Follow spelling conventions. * ChangeLog: Follow spelling conventions.
...@@ -38,7 +49,7 @@ ...@@ -38,7 +49,7 @@
* bugs.texi (Known Bugs): Refer to gcc.gnu.org instead of * bugs.texi (Known Bugs): Refer to gcc.gnu.org instead of
www.gnu.org for onlinedocs. www.gnu.org for onlinedocs.
* news.texi (News): Ditto. * news.texi (News): Ditto.
2002-09-07 Jan Hubicka <jh@suse.cz> 2002-09-07 Jan Hubicka <jh@suse.cz>
* com.c (ffe_type_for_mode): Handle long double. * com.c (ffe_type_for_mode): Handle long double.
......
gcc/f/Make-lang.in
...@@ -65,21 +65,17 @@ F77 f77: f771$(exeext) ...@@ -65,21 +65,17 @@ F77 f77: f771$(exeext)
f77.extraclean f77.maintainer-clean f77.rebuilt \ f77.extraclean f77.maintainer-clean f77.rebuilt \
f77.stage1 f77.stage2 f77.stage3 f77.stage4 f77.stage1 f77.stage2 f77.stage3 f77.stage4
g77spec.o: $(srcdir)/f/g77spec.c $(srcdir)/f/version.h $(SYSTEM_H) $(GCC_H) \ g77spec.o: $(srcdir)/f/g77spec.c $(SYSTEM_H) $(GCC_H) \
$(CONFIG_H) $(CONFIG_H)
(SHLIB_LINK='$(SHLIB_LINK)' \ (SHLIB_LINK='$(SHLIB_LINK)' \
SHLIB_MULTILIB='$(SHLIB_MULTILIB)'; \ SHLIB_MULTILIB='$(SHLIB_MULTILIB)'; \
$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(DRIVER_DEFINES) \ $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(DRIVER_DEFINES) \
$(INCLUDES) $(srcdir)/f/g77spec.c) $(INCLUDES) $(srcdir)/f/g77spec.c)
g77version.o: $(srcdir)/f/version.c
$(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -o g77version.o \
$(srcdir)/f/version.c
# Create the compiler driver for g77. # Create the compiler driver for g77.
g77$(exeext): gcc.o g77spec.o g77version.o version.o prefix.o intl.o \ g77$(exeext): gcc.o g77spec.o version.o prefix.o intl.o \
$(LIBDEPS) $(EXTRA_GCC_OBJS) $(LIBDEPS) $(EXTRA_GCC_OBJS)
$(CC) $(ALL_CFLAGS) $(LDFLAGS) -o $@ gcc.o g77spec.o g77version.o \ $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o $@ gcc.o g77spec.o \
version.o prefix.o intl.o $(EXTRA_GCC_OBJS) $(LIBS) version.o prefix.o intl.o $(EXTRA_GCC_OBJS) $(LIBS)
# Create a version of the g77 driver which calls the cross-compiler. # Create a version of the g77 driver which calls the cross-compiler.
...@@ -93,7 +89,7 @@ F77_OBJS = f/bad.o f/bit.o f/bld.o f/com.o f/data.o f/equiv.o f/expr.o \ ...@@ -93,7 +89,7 @@ F77_OBJS = f/bad.o f/bit.o f/bld.o f/com.o f/data.o f/equiv.o f/expr.o \
f/global.o f/implic.o f/info.o f/intrin.o f/lab.o f/lex.o f/malloc.o \ f/global.o f/implic.o f/info.o f/intrin.o f/lab.o f/lex.o f/malloc.o \
f/name.o f/parse.o f/src.o f/st.o f/sta.o f/stb.o f/stc.o \ f/name.o f/parse.o f/src.o f/st.o f/sta.o f/stb.o f/stc.o \
f/std.o f/ste.o f/storag.o f/stp.o f/str.o f/sts.o f/stt.o f/stu.o \ f/std.o f/ste.o f/storag.o f/stp.o f/str.o f/sts.o f/stt.o f/stu.o \
f/stv.o f/stw.o f/symbol.o f/target.o f/top.o f/type.o f/version.o f/where.o f/stv.o f/stw.o f/symbol.o f/target.o f/top.o f/type.o f/where.o
# Use loose warnings for this front end. # Use loose warnings for this front end.
f-warn = f-warn =
...@@ -321,7 +317,7 @@ f77.mostlyclean: ...@@ -321,7 +317,7 @@ f77.mostlyclean:
-rm -f g77.aux g77.cps g77.ky g77.toc g77.vr g77.fn g77.kys \ -rm -f g77.aux g77.cps g77.ky g77.toc g77.vr g77.fn g77.kys \
g77.pg g77.tp g77.vrs g77.cp g77.fns g77.log g77.pgs g77.tps g77.pg g77.tp g77.vrs g77.cp g77.fns g77.log g77.pgs g77.tps
f77.clean: f77.clean:
-rm -f g77spec.o g77version.o -rm -f g77spec.o
f77.distclean: f77.distclean:
-rm -f f/Makefile -rm -f f/Makefile
f77.extraclean: f77.extraclean:
...@@ -332,7 +328,7 @@ f77.maintainer-clean: ...@@ -332,7 +328,7 @@ f77.maintainer-clean:
# The main makefile has already created stage?/f. # The main makefile has already created stage?/f.
G77STAGESTUFF = f/*$(objext) f/fini$(build_exeext) f/stamp-str \ G77STAGESTUFF = f/*$(objext) f/fini$(build_exeext) f/stamp-str \
f/str-*.h f/str-*.j g77spec.o g77version.o f/str-*.h f/str-*.j g77spec.o
f77.stage1: stage1-start f77.stage1: stage1-start
-mv -f $(G77STAGESTUFF) stage1/f -mv -f $(G77STAGESTUFF) stage1/f
...@@ -425,7 +421,7 @@ f/parse.o: f/parse.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/top.h f/malloc.h \ ...@@ -425,7 +421,7 @@ f/parse.o: f/parse.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/top.h f/malloc.h \
f/where.h glimits.h f/com.h f/com-rt.def $(TREE_H) f/bld.h f/bld-op.def \ f/where.h glimits.h f/com.h f/com-rt.def $(TREE_H) f/bld.h f/bld-op.def \
f/bit.h f/info.h f/info-b.def f/info-k.def f/info-w.def f/target.h f/bad.h \ f/bit.h f/info.h f/info-b.def f/info-k.def f/info-w.def f/target.h f/bad.h \
f/bad.def f/lex.h f/type.h f/intrin.h f/intrin.def f/lab.h f/symbol.h \ f/bad.def f/lex.h f/type.h f/intrin.h f/intrin.def f/lab.h f/symbol.h \
f/symbol.def f/equiv.h f/storag.h f/global.h f/name.h f/version.h flags.h f/symbol.def f/equiv.h f/storag.h f/global.h f/name.h version.h flags.h
f/src.o: f/src.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/src.h f/bad.h f/bad.def \ f/src.o: f/src.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/src.h f/bad.h f/bad.def \
f/where.h glimits.h f/top.h f/malloc.h f/where.h glimits.h f/top.h f/malloc.h
f/st.o: f/st.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/st.h f/bad.h f/bad.def \ f/st.o: f/st.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/st.h f/bad.h f/bad.def \
...@@ -527,6 +523,5 @@ f/top.o: f/top.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/top.h f/malloc.h f/where.h \ ...@@ -527,6 +523,5 @@ f/top.o: f/top.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/top.h f/malloc.h f/where.h \
f/intrin.def f/data.h f/expr.h f/implic.h f/src.h f/st.h flags.h \ f/intrin.def f/data.h f/expr.h f/implic.h f/src.h f/st.h flags.h \
toplev.h toplev.h
f/type.o: f/type.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/type.h f/malloc.h f/type.o: f/type.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/type.h f/malloc.h
f/version.o: f/version.c f/version.h
f/where.o: f/where.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/where.h glimits.h f/top.h \ f/where.o: f/where.c f/proj.h $(CONFIG_H) $(SYSTEM_H) f/where.h glimits.h f/top.h \
f/malloc.h f/lex.h $(GGC_H) gt-f-where.h f/malloc.h f/lex.h $(GGC_H) gt-f-where.h
gcc/f/com.c
...@@ -11124,7 +11124,7 @@ ffecom_init_0 () ...@@ -11124,7 +11124,7 @@ ffecom_init_0 ()
name = bsearch ("foo", &names[0], ARRAY_SIZE (names), sizeof (names[0]), name = bsearch ("foo", &names[0], ARRAY_SIZE (names), sizeof (names[0]),
(int (*)(const void *, const void *)) strcmp); (int (*)(const void *, const void *)) strcmp);
if (name != &names[0][2]) if (name != &names[2][0])
{ {
assert ("bsearch doesn't work, #define FFEPROJ_BSEARCH 0 in proj.h" assert ("bsearch doesn't work, #define FFEPROJ_BSEARCH 0 in proj.h"
== NULL); == NULL);
......
gcc/f/g77spec.c
...@@ -47,7 +47,6 @@ Boston, MA 02111-1307, USA. */ ...@@ -47,7 +47,6 @@ Boston, MA 02111-1307, USA. */
#include "config.h" #include "config.h"
#include "system.h" #include "system.h"
#include "gcc.h" #include "gcc.h"
#include <f/version.h>
#ifndef MATH_LIBRARY #ifndef MATH_LIBRARY
#define MATH_LIBRARY "-lm" #define MATH_LIBRARY "-lm"
...@@ -374,7 +373,7 @@ lang_specific_driver (in_argc, in_argv, in_added_libraries) ...@@ -374,7 +373,7 @@ lang_specific_driver (in_argc, in_argv, in_added_libraries)
case OPTION_version: case OPTION_version:
printf ("\ printf ("\
GNU Fortran (GCC %s) %s\n\ GNU Fortran (GCC) %s\n\
Copyright (C) 2002 Free Software Foundation, Inc.\n\ Copyright (C) 2002 Free Software Foundation, Inc.\n\
\n\ \n\
GNU Fortran comes with NO WARRANTY, to the extent permitted by law.\n\ GNU Fortran comes with NO WARRANTY, to the extent permitted by law.\n\
...@@ -382,7 +381,7 @@ You may redistribute copies of GNU Fortran\n\ ...@@ -382,7 +381,7 @@ You may redistribute copies of GNU Fortran\n\
under the terms of the GNU General Public License.\n\ under the terms of the GNU General Public License.\n\
For more information about these matters, see the file named COPYING\n\ For more information about these matters, see the file named COPYING\n\
or type the command `info -f g77 Copying'.\n\ or type the command `info -f g77 Copying'.\n\
", version_string, ffe_version_string); ", version_string);
exit (0); exit (0);
break; break;
......
gcc/f/parse.c
...@@ -35,7 +35,7 @@ ffe_parse_file (set_yydebug) ...@@ -35,7 +35,7 @@ ffe_parse_file (set_yydebug)
ffewhereFile wf; ffewhereFile wf;
if (ffe_is_version ()) if (ffe_is_version ())
fprintf (stderr, "GNU Fortran Front End version %s\n", ffe_version_string); fprintf (stderr, "GNU Fortran Front End version %s\n", version_string);
if (!ffe_is_pedantic ()) if (!ffe_is_pedantic ())
ffe_set_is_pedantic (pedantic); ffe_set_is_pedantic (pedantic);
......
gcc/f/version.c deleted 100644 → 0
#include "ansidecl.h"
#include "f/version.h"
const char *const ffe_version_string = "3.3 20020923 (experimental)";
gcc/f/version.h deleted 100644 → 0
#ifndef GCC_F_VERSION_H
#define GCC_F_VERSION_H
extern const char *const ffe_version_string;
#endif /* ! GCC_F_VERSION_H */
gcc/version.c
#include "ansidecl.h" #include "ansidecl.h"
#include "version.h" #include "version.h"
const char *const version_string = "3.3 20020923 (experimental)"; const char version_string[] = "3.3 20020923 (experimental)";
gcc/version.h
#ifndef GCC_VERSION_H #ifndef GCC_VERSION_H
#define GCC_VERSION_H #define GCC_VERSION_H
extern const char *const version_string; extern const char version_string[];
#endif /* ! GCC_VERSION_H */ #endif /* ! GCC_VERSION_H */
libf2c/ChangeLog
2002-09-23 Zack Weinberg <zack@codesourcery.com>
* libF77/Version.c: Rename junk to __LIBF77_VERSION__. Add
external decls for __LIBI77_VERSION__ and __LIBU77_VERSION__.
Delete __G77_LIBF77_VERSION__
(g77__fvers__): Print all three __LIB*77_VERSION__ strings,
and __VERSION__ if we have it; nothing else.
* libI77/Version.c: Provide only __LIBI77_VERSION__ (formerly junk).
* libU77/Version.c: Provide only __LIBU77_VERSION__ (formerly junk).
Sun Sep 22 23:43:37 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> Sun Sep 22 23:43:37 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* Makefile.in (all): Fix multilib parallel build. * Makefile.in (all): Fix multilib parallel build.
...@@ -199,7 +210,7 @@ Mon May 20 13:03:54 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> ...@@ -199,7 +210,7 @@ Mon May 20 13:03:54 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
2002-05-02 Alexandre Oliva <aoliva@redhat.com> 2002-05-02 Alexandre Oliva <aoliva@redhat.com>
* Makefile.in: Fix for multilibbed natives. * Makefile.in: Fix for multilibbed natives.
2002-04-15 Loren J. Rittle <ljrittle@acm.org> 2002-04-15 Loren J. Rittle <ljrittle@acm.org>
...@@ -353,7 +364,7 @@ Mon May 20 13:03:54 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> ...@@ -353,7 +364,7 @@ Mon May 20 13:03:54 2002 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
of shared libf2c to 0:0:0. of shared libf2c to 0:0:0.
2001-09-29 Juergen Pfeifer <juergen.pfeifer@gmx.net> 2001-09-29 Juergen Pfeifer <juergen.pfeifer@gmx.net>
Toon Moene <toon@moene.indiv.nluug.nl> Toon Moene <toon@moene.indiv.nluug.nl>
Make libf2c a shared library. Make libf2c a shared library.
...@@ -427,7 +438,7 @@ Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> ...@@ -427,7 +438,7 @@ Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libI77/Makefile.in: Add necessary dependencies on config.h. * libI77/Makefile.in: Add necessary dependencies on config.h.
2001-07-06 Toon Moene <toon@moene.indiv.nluug.nl> 2001-07-06 Toon Moene <toon@moene.indiv.nluug.nl>
Pedro Vazquez <vazquez@penelope.iqm.unicamp.br> Pedro Vazquez <vazquez@penelope.iqm.unicamp.br>
* libI77/configure.in: Check for fseeko, ftello. * libI77/configure.in: Check for fseeko, ftello.
* libI77/configure: Rebuilt. * libI77/configure: Rebuilt.
...@@ -454,7 +465,7 @@ Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> ...@@ -454,7 +465,7 @@ Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* libI77/fio.h: Include <sys/types.h> for off_t. * libI77/fio.h: Include <sys/types.h> for off_t.
2001-07-01 Toon Moene <toon@moene.indiv.nluug.nl> 2001-07-01 Toon Moene <toon@moene.indiv.nluug.nl>
Pedro Vazquez <vazquez@penelope.iqm.unicamp.br> Pedro Vazquez <vazquez@penelope.iqm.unicamp.br>
* libI77/fio.h: Use off_t when appropriate. * libI77/fio.h: Use off_t when appropriate.
* libI77/backspace.c (f_back): Ditto. * libI77/backspace.c (f_back): Ditto.
...@@ -612,7 +623,7 @@ Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> ...@@ -612,7 +623,7 @@ Wed Jul 18 11:14:33 2001 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
file atomically. file atomically.
2000-07-03 Donn Terry (donnte@microsoft.com) 2000-07-03 Donn Terry (donnte@microsoft.com)
* libU77/aclocal.m4: check for 2 argument gettimeofday without * libU77/aclocal.m4: check for 2 argument gettimeofday without
struct timezone struct timezone
2000-07-02 Toon Moene <toon@moene.indiv.nluug.nl> 2000-07-02 Toon Moene <toon@moene.indiv.nluug.nl>
......
libf2c/libF77/Version.c
static char junk[] = "\n@(#)LIBF77 VERSION 20000929\n"; const char __LIBF77_VERSION__[] = "@(#) LIBF77 VERSION 20000929\n";
extern const char __LIBI77_VERSION__[];
/* extern const char __LIBU77_VERSION__[];
*/
char __G77_LIBF77_VERSION__[] = "3.3 20020923 (experimental)";
/* /*
2.00 11 June 1980. File version.c added to library. 2.00 11 June 1980. File version.c added to library.
...@@ -87,6 +84,11 @@ char __G77_LIBF77_VERSION__[] = "3.3 20020923 (experimental)"; ...@@ -87,6 +84,11 @@ char __G77_LIBF77_VERSION__[] = "3.3 20020923 (experimental)";
void void
g77__fvers__ () g77__fvers__ ()
{ {
fprintf (stderr, "__G77_LIBF77_VERSION__: %s", __G77_LIBF77_VERSION__); fputs ("GNU Fortran library.\n", stderr);
fputs (junk, stderr); #if defined __GNUC__ && defined __VERSION__
fprintf (stderr, "Compiled by GCC %s\n", __VERSION__);
#endif
fputs (__LIBF77_VERSION__, stderr);
fputs (__LIBI77_VERSION__, stderr);
fputs (__LIBU77_VERSION__, stderr);
} }
libf2c/libI77/Version.c
static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 20001205\n"; const char __LIBI77_VERSION__[] = "@(#) LIBI77 VERSION pjw,dmg-mods 20001205\n";
/*
*/
char __G77_LIBI77_VERSION__[] = "3.3 20020923 (experimental)";
/* /*
2.01 $ format added 2.01 $ format added
...@@ -324,17 +319,6 @@ wrtfmt.c: ...@@ -324,17 +319,6 @@ wrtfmt.c:
/* treat Tstuff= and Fstuff= as new assignments rather than as */ /* treat Tstuff= and Fstuff= as new assignments rather than as */
/* logical constants. */ /* logical constants. */
/* Changes for GNU Fortran (g77) version of libf2c: */ /* Changes for GNU Fortran (g77) version of libf2c: */
/* 17 June 1997: detect recursive I/O and call f__fatal explaining it. */ /* 17 June 1997: detect recursive I/O and call f__fatal explaining it. */
#include <stdio.h>
void
g77__ivers__ ()
{
fprintf (stderr, "__G77_LIBI77_VERSION__: %s", __G77_LIBI77_VERSION__);
fputs (junk, stderr);
}
libf2c/libU77/Version.c
static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n"; const char __LIBU77_VERSION__[] = "@(#) LIBU77 VERSION 19980709\n";
char __G77_LIBU77_VERSION__[] = "3.3 20020923 (experimental)";
#include <stdio.h>
void
g77__uvers__ ()
{
fprintf (stderr, "__G77_LIBU77_VERSION__: %s", __G77_LIBU77_VERSION__);
fputs (junk, stderr);
}
maintainer-scripts/ChangeLog
2002-09-23 Zack Weinberg <zack@codesourcery.com>
* update_version: Do not check in files which are unchanged.
* gcc_release: Only update the version in gcc/version.c.
2002-09-17 Joseph S. Myers <jsm@polyomino.org.uk> 2002-09-17 Joseph S. Myers <jsm@polyomino.org.uk>
* update_web_docs (MANUALS): Add fastjar. * update_web_docs (MANUALS): Add fastjar.
......
maintainer-scripts/gcc_release
...@@ -126,8 +126,7 @@ EOF ...@@ -126,8 +126,7 @@ EOF
error "Could not commit ${x}" error "Could not commit ${x}"
done done
# Update `gcc/version.c'. There are other version files # Update `gcc/version.c'.
# as well, which should have release status updated.
for x in gcc/version.c; do for x in gcc/version.c; do
y=`basename ${x}` y=`basename ${x}`
(changedir `dirname ${SOURCE_DIRECTORY}/${x}` && \ (changedir `dirname ${SOURCE_DIRECTORY}/${x}` && \
...@@ -136,15 +135,6 @@ EOF ...@@ -136,15 +135,6 @@ EOF
${CVS} ci -m 'Update version' ${y}) || \ ${CVS} ci -m 'Update version' ${y}) || \
error "Could not update ${x}" error "Could not update ${x}"
done done
for x in gcc/ada/gnatvsn.ads gcc/f/version.c libf2c/libF77/Version.c \
libf2c/libI77/Version.c libf2c/libU77/Version.c; do
y=`basename ${x}`
(changedir `dirname ${SOURCE_DIRECTORY}/${x}` && \
sed -e 's/experimental\|prerelease/release/g' < ${y} > ${y}.new && \
mv ${y}.new ${y} && \
${CVS} ci -m 'Update version' ${y}) || \
error "Could not update ${x}"
done
# Make sure we tag the sources for a final release. # Make sure we tag the sources for a final release.
TAG="gcc_`echo ${RELEASE} | tr . _`_release" TAG="gcc_`echo ${RELEASE} | tr . _`_release"
......
maintainer-scripts/update_version
...@@ -45,23 +45,29 @@ for BRANCH in $BRANCHES; do ...@@ -45,23 +45,29 @@ for BRANCH in $BRANCHES; do
for file in $textstring_FILES; do for file in $textstring_FILES; do
if test -f $file; then if test -f $file; then
OLD_VERSION=`/bin/cat $file` /bin/sed <$file >$file.new -e \
/bin/sed -e "s/\(.*\"[^ ]*\) [0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]/\1 ${CURR_DATE}/" >${file} <<HERE "s/\(.*\"[^ ]*\) [0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]/\1 ${CURR_DATE}/"
$OLD_VERSION
HERE if /usr/bin/cmp -s $file $file.new; then
rm -f $file.new
COMMIT_FILES="$COMMIT_FILES $file" else
mv -f $file.new $file
COMMIT_FILES="$COMMIT_FILES $file"
fi
fi fi
done done
for file in $cppdefine_FILES; do for file in $cppdefine_FILES; do
if test -f $file; then if test -f $file; then
OLD_VERSION=`/bin/cat $file` /bin/sed <$file >$file.new -e \
/bin/sed -e "s/\(#.*\) [0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]/\1 ${CURR_DATE}/" >${file} <<HERE "s/\(#.*\) [0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]/\1 ${CURR_DATE}/"
$OLD_VERSION
HERE if /usr/bin/cmp -s $file $file.new; then
rm -f $file.new
COMMIT_FILES="$COMMIT_FILES $file" else
mv -f $file.new $file
COMMIT_FILES="$COMMIT_FILES $file"
fi
fi fi
done done
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment