This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

PATCH to make egcs work with dejagnu-980528 (another one)


A change in the tcl call `split' causes
FAIL: 921210-1.c
because one more empty element appears in the list returned by [split ...].

Just changing the index of [lindex ...] would break it in all previous
versions of dejagnu of course.  So instead I remove all empty lines first
from the output of [split ...] before taking the last line.

Carlo Wood

------------

<date>  Carlo Wood  <carlo@runaway.xs4all.nl>

	* special/special.exp: New version of dejagnus `split' adds one more
	empty line to `lines': First remove all empty lines therefore.


Index: egcs-cvs/gcc/testsuite/gcc.c-torture/special/special.exp
===================================================================
RCS file: /egcs/carton/cvsfiles/egcs/gcc/testsuite/gcc.c-torture/special/special.exp,v
retrieving revision 1.1.1.1
diff -c -p -r1.1.1.1 special.exp
*** special.exp	1997/08/19 07:36:12	1.1.1.1
--- special.exp	1998/06/26 15:21:43
*************** load_lib gcc-dg.exp
*** 36,42 ****
  
  # 921210-1
  set lines [gcc_target_compile $srcdir/$subdir/921210-1.c "" preprocess ""]
! set lines [split [prune_warnings [prune_gcc_output $lines]] "\n"]
  set line [lindex $lines [expr [llength $lines]-1]]
  regsub -all " " $line "" clean
  if [expr [string compare $clean "(a->f+1)+1"]==0] then {
--- 36,42 ----
  
  # 921210-1
  set lines [gcc_target_compile $srcdir/$subdir/921210-1.c "" preprocess ""]
! set lines [prune [split [prune_warnings [prune_gcc_output $lines]] "\n"] ""]
  set line [lindex $lines [expr [llength $lines]-1]]
  regsub -all " " $line "" clean
  if [expr [string compare $clean "(a->f+1)+1"]==0] then {


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]