Commit Graph

89033 Commits

Author SHA1 Message Date
Vincent Celier
48fbb62da1 mlib.adb (Create_Sym_Links): Create relative symbolic links when requested
2008-08-04  Vincent Celier  <celier@adacore.com>

	* mlib.adb (Create_Sym_Links): Create relative symbolic links when
	requested

From-SVN: r138593
2008-08-04 11:36:46 +02:00
Arnaud Charlet
f2170041e1 usage.adb (Usage): Minor rewording of -gnatwz switch, to improve gnatcheck support in GPS.
2008-08-04  Arnaud Charlet  <charlet@adacore.com>

	* usage.adb (Usage): Minor rewording of -gnatwz switch, to improve
	gnatcheck support in GPS.

From-SVN: r138592
2008-08-04 11:36:26 +02:00
Ed Schonberg
53cf46009d sem_ch3.adb (Access_Definition): A formal object declaration is a legal context for an anonymous access to...
2008-08-04  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch3.adb (Access_Definition): A formal object declaration is a
	legal context for an anonymous access to subprogram.

	* sem_ch4.adb (Analyze_One_Call): If the call can be interpreted as an
	indirect call, report success to the caller to include possible
	interpretation.

	* sem_ch6.adb (Check_Return_Type_Indication): Apply proper conformance
	check when the type
	of the extended return is an anonymous access_to_subprogram type.

	* sem_res.adb:
	(Resolve_Call): Insert a dereference if the type of the subprogram is an
	access_to_subprogram and the context requires its return type, and a
	dereference has not been introduced previously.

From-SVN: r138591
2008-08-04 11:36:10 +02:00
Vincent Celier
a037f91246 gprep.adb (Process_One_File): Call Prep.Preprocess with a Boolean variable...
2008-08-04  Vincent Celier  <celier@adacore.com>

	* gprep.adb (Process_One_File): Call Prep.Preprocess with a Boolean
	variable, but don't check the resulting value as it has no impact on
	the processing.
	
	* opt.ads:
	(Generate_Processed_File): New Boolean flag, set to True in the compiler
	when switch -gnateG is used.
	
	* prep.adb:
	(Preprocess): new Boolean out parameter Source_Modified. Set it to True
	when the source is modified by the preprocessor and there is no
	preprocessing errors.
	
	* prep.ads (Preprocess): new Boolean out parameter Source_Modified
	
	* sinput-l.adb:
	(Load_File): Output the result of preprocessing if the source text was
	modified.
	
	* switch-c.adb (Scan_Front_End_Switches): Recognize switch -gnateG
	
	* switch-m.adb (Normalize_Compiler_Switches): Normalize switch -gnateG
	
	* ug_words: Add VMS equivalent for -gnateG
	
	* vms_data.ads:
	Add VMS option /GENERATE_PROCESSED_SOURCE, equivalent to switch -gnateG

From-SVN: r138590
2008-08-04 11:17:44 +02:00
Doug Rupp
762dffe7bf utils2.c (fill_vms_descriptor): Use long_integer for comparison.
2008-08-04  Doug Rupp  <rupp@adacore.com>

	* utils2.c (fill_vms_descriptor): Use long_integer for comparison.
	Call add_stmt_with_node to set locus.

From-SVN: r138589
2008-08-04 11:16:54 +02:00
Arnaud Charlet
bdc33a55e8 2008-08-04 Doug Rupp <rupp@adacore.com>
* gcc-interface/utils2.c:
	(fill_vms_descriptor): Raise CE if attempt made to pass 64bit pointer
	in 32bit descriptor.

From-SVN: r138588
2008-08-04 11:07:31 +02:00
Thomas Quinot
7b84d8c139 sem_ch10.adb: Minor comment fix.
2008-08-04  Thomas Quinot  <quinot@adacore.com>

	* sem_ch10.adb: Minor comment fix.

From-SVN: r138587
2008-08-04 11:06:45 +02:00
Arnaud Charlet
57eb1cf51a sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI target.
2008-08-04  Arnaud Charlet  <charlet@adacore.com>

	* sem_prag.adb (Check_Form_Of_Interface_Name): Fix handling for CLI
	target.

From-SVN: r138586
2008-08-04 11:06:36 +02:00
Vincent Celier
bfb110208d make.adb: Correct spelling error in comment
2008-08-04  Vincent Celier  <celier@adacore.com>

	* make.adb: Correct spelling error in comment

From-SVN: r138585
2008-08-04 11:06:16 +02:00
Vincent Celier
2f0bc54835 prj-attr.adb: New Builder attribute Global_Compilation_Switches
2008-08-04  Vincent Celier  <celier@adacore.com>

	* prj-attr.adb: New Builder attribute Global_Compilation_Switches
	
	* snames.adb: New standard name Global_Compilation_Switches
	
	* snames.ads: New standard name Global_Compilation_Switches

From-SVN: r138584
2008-08-04 11:05:56 +02:00
Ed Schonberg
0f5177ad72 sem_ch3.adb (Access_Definition): Create an itype reference for an anonymous access return type of a regular...
2008-08-04  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch3.adb (Access_Definition): Create an itype reference for an
	anonymous access return type of a regular function that is not a
	compilation unit.

From-SVN: r138583
2008-08-04 11:05:40 +02:00
Pascal Obry
ba622ca2e1 i-cobol.adb: Minor reformatting.
2008-08-04  Pascal Obry  <obry@adacore.com>

	* i-cobol.adb: Minor reformatting.

From-SVN: r138582
2008-08-04 11:05:29 +02:00
Robert Dewar
fbe0e1ad3f par-ch10.adb: Minor reformatting
2008-08-04  Robert Dewar  <dewar@adacore.com>

	* par-ch10.adb: Minor reformatting

From-SVN: r138581
2008-08-04 11:05:01 +02:00
Arnaud Charlet
fc1b906a0a Resync.
From-SVN: r138580
2008-08-04 10:40:22 +02:00
Ed Schonberg
75bee27009 sem_prag.adb (Check_Precondition_Postcondition): When scanning the list of declaration to find previous subprogram...
2008-08-04  Ed Schonberg  <schonberg@adacore.com>

	* sem_prag.adb (Check_Precondition_Postcondition): When scanning the
	list of declaration to find previous subprogram, do not go to the
	original node of a generic unit.

From-SVN: r138579
2008-08-04 10:38:06 +02:00
Vincent Celier
570d3cfb8d 2008-08-04 Vincent Celier <celier@adacore.com>
* prj-proc.adb:
	(Copy_Package_Declarations): When inheriting package Naming from a
	project being extended, do not inherit source exception names.

From-SVN: r138578
2008-08-04 10:37:57 +02:00
Robert Dewar
6719855697 freeze.adb (Freeze_Entity): Check for size clause for boolean warning
2008-08-04  Robert Dewar  <dewar@adacore.com>

	* freeze.adb (Freeze_Entity): Check for size clause for boolean warning

From-SVN: r138577
2008-08-04 10:37:47 +02:00
Robert Dewar
2ca90ff00c system-darwin-x86.ads: Correct bad definition of Max_Nonbinary_Modulus
2008-08-04  Robert Dewar  <dewar@adacore.com>

	* system-darwin-x86.ads: Correct bad definition of Max_Nonbinary_Modulus

From-SVN: r138576
2008-08-04 10:37:40 +02:00
Robert Dewar
9b7c38af5a restrict.adb: Improved messages for restriction warnings
2008-08-04  Robert Dewar  <dewar@adacore.com>

	* restrict.adb: Improved messages for restriction warnings

	* restrict.ads: Improved messages for restriction messages

	* s-rident.ads (Profile_Name): Add No_Profile

From-SVN: r138575
2008-08-04 10:37:31 +02:00
GCC Administrator
d6b251539f Daily bump.
From-SVN: r138573
2008-08-04 00:16:36 +00:00
Jerry DeLisle
804ac23239 fmt_t_7.f: Replace CR-LF with LF.
2008-08-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/fmt_t_7.f: Replace CR-LF with LF.

From-SVN: r138568
2008-08-03 22:02:22 +00:00
Uros Bizjak
b7c9c5ab7f mmx.md (*mov<mode>_internal_rex64): Use Yi instead of x to avoid inter-unit moves for !TARGET_INTER_UNIT_MOVES.
* config/i386/mmx.md (*mov<mode>_internal_rex64): Use Yi instead of x
	to avoid inter-unit moves for !TARGET_INTER_UNIT_MOVES.
	(*movv2sf_internal_rex64): Ditto.

From-SVN: r138566
2008-08-03 20:45:17 +02:00
Jan Hubicka
2266066678 optabs.c (expand_binop, [...]): Upse optimize_insn_for_speed predicate.
* optabs.c (expand_binop, expand_builtin_pow, expand_builtin_powi,
	expand_builtin_strcat): Upse optimize_insn_for_speed predicate.
	* expmed.c (expand_smod_pow2): Likewise.

From-SVN: r138565
2008-08-03 12:04:49 +00:00
Uros Bizjak
5617c135e7 re PR target/36992 (Very stange code for _mm_move_epi64)
PR target/36992
	* config/i386/sse.md (vec_concatv2di): Add Y2 constraint to
	alternative 0 of operand 1.
	(*vec_concatv2di_rex64_sse): Ditto.
	(*vec_concatv2di_rex64_sse4_1): Add x constraint to alternative 0
	of operand 1.
	(*sse2_storeq_rex64): Penalize allocation of "r" registers.
	* config/i386/mmx.md (*mov<mode>_internal_rex64): Penalize allocation
	of "Y2" registers to avoid SSE <-> MMX conversions for DImode moves.
	(*movv2sf_internal_rex64): Ditto.

testsuite/ChangeLog:

	PR target/36992
	* gcc.target/i386/pr36992-1.c: New test.
	* gcc.target/i386/pr36992-2.c: Ditto.

From-SVN: r138564
2008-08-03 08:13:04 +02:00
Alan Modra
d6833cf9a6 mt-spu (all-ld): Update for ld Makefile changes.
* mt-spu (all-ld): Update for ld Makefile changes.

From-SVN: r138562
2008-08-03 13:07:55 +09:30
GCC Administrator
3b67e3cc92 Daily bump.
From-SVN: r138560
2008-08-03 00:16:39 +00:00
Keith Seitz
e5b1b03f56 tcl.m4 (SC_PATH_TCLCONFIG): Add some simple logic to deal with cygwin.
* tcl.m4 (SC_PATH_TCLCONFIG): Add some simple logic to deal
        with cygwin.
        (SC_PATH_TKCONFIG): Likewise.

From-SVN: r138555
2008-08-02 22:56:04 +00:00
Richard Guenther
ba63dfb918 re PR tree-optimization/35252 (No vectorization for complex arrays)
2008-08-02  Richard Guenther  <rguenther@suse.de>

	PR target/35252
	* config/i386/sse.md (SSEMODE4S, SSEMODE2D): New mode iterators.
	(ssedoublesizemode): New mode attribute.
	(sse_shufps): Call gen_sse_shufps_v4sf.
	(sse_shufps_1): Macroize.
	(sse2_shufpd): Call gen_Sse_shufpd_v2df.
	(sse2_shufpd_1): Macroize.
	(vec_extract_odd, vec_extract_even): New expanders.
	(vec_interleave_highv4sf, vec_interleave_lowv4sf,
	vec_interleave_highv2df, vec_interleave_lowv2df): Likewise.
	* i386.c (ix86_expand_vector_init_one_nonzero): Call
	gen_sse_shufps_v4sf instead of gen_sse_shufps_1.
	(ix86_expand_vector_set): Likewise.
	(ix86_expand_reduc_v4sf): Likewise.

	* lib/target-supports.exp (vect_extract_even_odd_wide) Add.
	(vect_strided_wide): Likewise.
	* gcc.dg/vect/fast-math-pr35982.c: Enable for
	vect_extract_even_odd_wide.
	* gcc.dg/vect/fast-math-vect-complex-3.c: Likewise.
	* gcc.dg/vect/vect-1.c: Likewise.
	* gcc.dg/vect/vect-107.c: Likewise.
	* gcc.dg/vect/vect-98.c: Likewise.
	* gcc.dg/vect/vect-strided-float.c: Likewise.
	* gcc.dg/vect/slp-11.c: Enable for vect_strided_wide.
	* gcc.dg/vect/slp-12a.c: Likewise.
	* gcc.dg/vect/slp-12b.c: Likewise.
	* gcc.dg/vect/slp-19.c: Likewise.
	* gcc.dg/vect/slp-23.c: Likewise.
	* gcc.dg/vect/slp-5.c: Likewise.

From-SVN: r138553
2008-08-02 12:05:47 +00:00
Eric Botcazou
d2143736bb utils2.c (build_binary_op): New case.
* gcc-interface/utils2.c (build_binary_op) <PLUS_EXPR, MINUS_EXPR>:
	New case.  Convert BOOLEAN_TYPE operation to the default integer type.

From-SVN: r138552
2008-08-02 10:49:51 +00:00
Doug Kwan
c9234c8d54 matrix-reorg.c: Re-enable all code.
2008-08-01  Doug Kwan  <dougkwan@google.com>

	* matrix-reorg.c: Re-enable all code.
	(struct malloc_call_data): Change CALL_STMT to gimple type.
	(collect_data_for_malloc_call): Tuplify.
 	(struct access_site_info): Change STMT to gimple type.
	(struct matrix_info): Change MIN_INDIRECT_LEVEL_ESCAPE_STMT,
	and MALLOC_FOR_LEVEL to gimple and gimple pointer type.
	(struct free_info): Change STMT to gimple type.
 	(struct matrix_access_phi_node):  Change PHI to gimple type.
	(get_inner_of_cast_expr): Remove.
	(may_flatten_matrices_1): Tuplify.
	(may_flatten_matrices): Ditto.
	(mark_min_matrix_escape_level): Ditto.
 	(ssa_accessed_in_tree): Refactor statement RHS related code into ...
	(ssa_accessed_in_call_rhs): New
	(ssa_accessed_in_assign_rhs): New
	(record_access_alloc_site_info): Tuplify.
	(add_allocation_site): Ditto.
	(analyze_matrix_allocation_site): Ditto.
	(analyze_transpose): Ditto.
	(get_index_from_offset): Ditto.
	(update_type_size): Ditto.
	(analyze_accesses_for_call_expr): Tuplify and renamed into ...
	(analyze_accesses_for_call_stmt): New. Also handle LHS of a call.
	(analyze_accesses_for_phi_node): Tuplify.
	(analyze_accesses_for_modify_stmt): Tuplify and renamed into ...
	(analyze_accesses_for_assign_stmt): Remove code for handling call LHS.
	(analyze_matrix_accesses): Tuplify.
	(check_var_data): New call-back type for check_var_notmodified_p.
	(check_var_notmodified_p): Tuplify and use call-back struct to
	return statement found.
	(can_calculate_expr_before_stmt): Factor out statement related code
	into ...
	(can_calculate_stmt_before_stmt): New.
 	(check_allocation_function): Tuplify.
	(find_sites_in_func): Ditto.
	(record_all_accesses_in_func): Ditto.
	(transform_access_sites): Ditto.
	(transform_allocation_sites): Ditto.
	(matrix_reorg): Re-enable.
	(gate_matrix_reorg): Re-enable.

From-SVN: r138544
2008-08-02 01:25:48 +00:00
GCC Administrator
16fa5fe436 Daily bump.
From-SVN: r138541
2008-08-02 00:16:48 +00:00
Jakub Jelinek
07b11a21bf dwarf2out.c (compute_barrier_args_size): Set barrier_args_size for labels for which it hasn't been set yet.
* dwarf2out.c (compute_barrier_args_size): Set barrier_args_size
	for labels for which it hasn't been set yet.  If it has been set,
	stop walking insns and continue with next worklist item.
	(dwarf2out_stack_adjust): Don't call compute_barrier_args_size
	if the only BARRIER is at the very end of a function.

From-SVN: r138537
2008-08-01 22:30:09 +02:00
Jakub Jelinek
35a84e137b re PR tree-optimization/36991 (ICE in remove_useless_stmts_1, at tree-cfg.c:1882)
2008-08-01  Jakub Jelinek  <jakub@redhat.com>

	PR tree-optimization/36991
	* gcc.dg/pr36991.c: New test.

From-SVN: r138530
2008-08-01 21:01:33 +02:00
H.J. Lu
2568f82a4e Add missing ChangeLog entry for revision 138517.
From-SVN: r138525
2008-08-01 09:10:28 -07:00
H.J. Lu
d015f7cc65 cfgexpand.c (expand_stack_alignment): Assert that stack_realign_drap and drap_rtx must match.
2008-08-01  H.J. Lu  <hongjiu.lu@intel.com>

	* cfgexpand.c (expand_stack_alignment): Assert that
	stack_realign_drap and drap_rtx must match.

	* function.c (instantiate_new_reg): If DRAP is used to realign
	stack, replace virtual_incoming_args_rtx with internal arg
	pointer.

From-SVN: r138524
2008-08-01 09:05:50 -07:00
Richard Guenther
678e7c6504 tree-ssa-pre.c (fini_pre): Take in_fre parameter.
2008-08-01  Richard Guenther  <rguenther@suse.de>

	* tree-ssa-pre.c (fini_pre): Take in_fre parameter.  Free
	loop information only if we initialized it.
	(execute_pre): Call fini_pre with in_fre.
	* tree-ssa-loop-ivcanon (try_unroll_loop_completely): Dump
	if we do not unroll because we hit max-completely-peeled-insns.
	Use our estimation for consistency, do allow shrinking.

From-SVN: r138522
2008-08-01 14:42:42 +00:00
Eric Botcazou
769b26a6bd * gnat.dg/boolean_expr.ad[sb]: Rename to boolean_expr1.ad[sb].
From-SVN: r138520
2008-08-01 14:10:10 +00:00
Paolo Bonzini
ec6fa56a8d acinclude.m4 ([GLIBCXX_CHECK_CLOCK_GETTIME]): Reinstate clock_gettime search, but only in libposix4, never link librt.
2008-08-01  Paolo Bonzini  <bonzini@gnu.org>
	    Chris Fairles  <chris.fairles@gmail.com>

	* acinclude.m4 ([GLIBCXX_CHECK_CLOCK_GETTIME]): Reinstate clock_gettime
	search, but only in libposix4, never link librt.
	* src/Makefile.am: Reinstate previous change to add GLIBCXX_LIBS.
        * configure: Regenerate.
        * configure.in: Likewise.
        * Makefile.in: Likewise.
        * src/Makefile.in: Likewise.
        * libsup++/Makefile.in: Likewise.
        * po/Makefile.in: Likewise.
        * doc/Makefile.in: Likewise.

Co-Authored-By: Chris Fairles <chris.fairles@gmail.com>

From-SVN: r138519
2008-08-01 14:06:38 +00:00
Eric Botcazou
a981c96402 ada-tree.h (DECL_PARM_ALT): Now DECL_PARM_ALT_TYPE.
* gcc-interface/ada-tree.h (DECL_PARM_ALT): Now DECL_PARM_ALT_TYPE.
	* gcc-interface/decl.c (gnat_to_gnu_param): Fix formatting, simplify
	and adjust for above renaming.
	* gcc-interface/utils.c (convert_vms_descriptor): Likewise. Add new
	gnu_expr_alt_type parameter.  Convert the expression to it instead
	of changing its type in place.
	(build_function_stub): Adjust call to above function.

From-SVN: r138518
2008-08-01 14:02:10 +00:00
H.J. Lu
de1132d194 i386.c (override_options): Replace ABI_STACK_BOUNDARY with MIN_STACK_BOUNDARY.
2008-08-01  H.J. Lu  <hongjiu.lu@intel.com>

	* config/i386/i386.c (override_options): Replace ABI_STACK_BOUNDARY
	with MIN_STACK_BOUNDARY.
	(ix86_update_stack_boundary): Likewise.
	(ix86_expand_prologue): Assert MIN_STACK_BOUNDARY instead of
	STACK_BOUNDARY.

	* config/i386/i386.h (ABI_STACK_BOUNDARY): Renamed to ...
	(MIN_STACK_BOUNDARY): This.

From-SVN: r138517
2008-08-01 06:30:03 -07:00
Andreas Schwab
62bb3fdb86 Remove conflict marker.
From-SVN: r138516
2008-08-01 13:14:39 +00:00
Richard Guenther
df8fa7003b re PR middle-end/36997 (ICE with incompatible arg to '__builtin_ia32_paddq)
2008-08-01  Richard Guenther  <rguenther@suse.de>

	PR middle-end/36997
	* gimplify.c (gimplify_call_expr): Set error_mark_node on GS_ERROR.

	* gcc.dg/pr36997.c: New testcase.

From-SVN: r138515
2008-08-01 13:12:38 +00:00
Eric Botcazou
6b093baca5 Revert incorrect patch.
From-SVN: r138514
2008-08-01 13:11:51 +00:00
Eric Botcazou
8df2e90229 decl.c (gnat_to_gnu_entity): Remove dead code.
2008-08-01  Eric Botcazou  <ebotcazou@adacore.com>

	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Constant>: Remove dead
	code.  Do not get full definition of deferred constants with address
	clause for a use.  Do not ignore deferred constant definitions with
	address clause.  Ignore constant definitions already marked with the
	error node.
	<object>: Remove obsolete comment.  For a deferred constant with
	address clause, get the initializer from the full view.
	* gcc-interface/trans.c (gnat_to_gnu) <N_Attribute_Definition_Clause>:
	Rework and remove obsolete comment.
	<N_Object_Declaration>: For a deferred constant with address clause,
	mark the full view with the error node.
	*  gcc-interface/utils.c (convert_to_fat_pointer): Rework and fix
	formatting nits.

From-SVN: r138513
2008-08-01 12:39:57 +00:00
Richard Guenther
5c3554b7ad re PR middle-end/36988 (ICE in gimple_rhs_has_side_effects, at gimple.c:2369)
2008-08-01  Richard Guenther  <rguenther@suse.de>

	PR tree-optimization/36988
	* tree-ssa-ccp.c (ccp_fold): Conversions of constants only
	do not matter if that doesn't change volatile qualification.

	* gcc.c-torture/compile/pr36988.c: New testcase.

From-SVN: r138512
2008-08-01 11:18:36 +00:00
Arnaud Charlet
585df50b0c rtsfind.ads: Add block IO versions of stream routines for Strings.
2008-08-01  Hristian Kirtchev  <kirtchev@adacore.com>

	* rtsfind.ads: Add block IO versions of stream routines for Strings.

	* bindgen.adb, gnat_rm.texi, gnat_ugn.texi, opt.ads,
	sem_prag.adb, snames.adb, snames.ads, snames.h,
	par-prag.adb: Undo Canonical_Streams related changes.

	* s-rident.ads: Add new restriction No_Stream_Optimizations.

	* s-ststop.ads, s-ststop.adb: Comment reformatting.
	Define enumeration type to designate different IO mechanisms.
	Enchance generic package Stream_Ops_Internal to include an
	implementation of Input and Output.

	* exp_attr.adb (Find_Stream_Subprogram): If restriction
	No_Stream_Optimization is active, choose the default byte IO
	implementations of stream attributes for Strings.
	Otherwise use the corresponding block IO version.

From-SVN: r138511
2008-08-01 12:47:27 +02:00
Robert Dewar
20b40e7b44 par-ch3.adb (P_Defining_Identifier): Avoid repeated attempt to convert plain identifier into defining identifier.
2008-08-01  Robert Dewar  <dewar@adacore.com>

	* par-ch3.adb (P_Defining_Identifier): Avoid repeated attempt to
	convert plain identifier into defining identifier.

From-SVN: r138510
2008-08-01 12:44:17 +02:00
Olivier Hainque
2eee5152fa decl.c (gnat_to_gnu_entity): Do not turn Ada Pure into GCC const, now implicitely implying nothrow as well.
ada/
        * decl.c (gnat_to_gnu_entity) <case E_Function>: Do not turn Ada
        Pure into GCC const, now implicitely implying nothrow as well.

        testsuite/
        * gnat.dg/raise_from_pure.ad[bs],
        * gnat.dg/wrap_raise_from_pure.ad[bs]: Support for ...
        * gnat.dg/test_raise_from_pure.adb: New test.

From-SVN: r138509
2008-08-01 10:36:01 +00:00
Arnaud Charlet
2b7473059a ioexcept.ads, [...]: Correct comment.
2008-08-01  Bob Duff  <duff@adacore.com>

	* ioexcept.ads, sequenio.ads, directio.ads: Correct comment.

From-SVN: r138508
2008-08-01 12:33:45 +02:00
Robert Dewar
30dc431315 lib-xref.adb: Add error defense.
2008-08-01  Robert Dewar  <dewar@adacore.com>

	* lib-xref.adb: Add error defense.

From-SVN: r138507
2008-08-01 12:33:29 +02:00