This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
PATCH to make egcs work with dejagnu-980528 (another one)
- To: egcs-patches at cygnus dot com
- Subject: PATCH to make egcs work with dejagnu-980528 (another one)
- From: Carlo Wood <carlo at runaway dot xs4all dot nl>
- Date: Fri, 26 Jun 1998 17:23:52 +0200 (CEST)
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 {