[libcw-cvs] [CVS] Module src

[Carlo W. <li...@us...>]

CVSROOT    : /cvsroot/libcw
Module     : src
Commit time: 2002-00-09 01:00:29 UTC

Modified files:
     libcwd/testsuite/lib/libcwd.exp

Log message:

Remove warnings from FreeBSD linker...

---------------------- diff included ----------------------
Index: src/libcwd/testsuite/lib/libcwd.exp
diff -u src/libcwd/testsuite/lib/libcwd.exp:1.9 src/libcwd/testsuite/lib/libcwd.exp:1.10
--- src/libcwd/testsuite/lib/libcwd.exp:1.9	Thu Jan  3 20:22:33 2002
+++ src/libcwd/testsuite/lib/libcwd.exp	Tue Jan  8 17:00:18 2002
@@ -65,7 +65,16 @@
 	set errname "$errname $compile_args"
     }
 
-    if { [target_compile $srcfile "$executable" executable $args] != "" } {
+    set compileroutput "[target_compile $srcfile "$executable" executable $args]"
+    # Kludge to remove linker _warnings_ from output.
+    # The expected from is: /usr/lib/libc.so.4: warning: ...
+    #                   or: /usr/lib/libc.so.4: WARNING! ...
+    regsub -- "\[._/a-zA-Z0-9 :\]*: \[Ww\]\[Aa\]\[Rr\]\[Nn\]\[Ii\]\[Nn\]\[Gg\]\[!:\]\[`'.,!_/a-zA-Z0-9 ():;\]*." "$compileroutput" "" compileroutput
+    # Remove final new-line at the end if any:
+    regsub -- "\[^`'.,!_/a-zA-Z0-9 ():;\]$" "$compileroutput" "" compileroutput
+    verbose "Filtered compiler output is: `$compileroutput'"
+
+    if { "$compileroutput" != "" } {
 	fail "$errname $staticorshared compilation"
 	setup_xfail "*-*-*"
 	fail "$errname $staticorshared execution"
----------------------- End of diff -----------------------