* lib/ada.exp (gdb_compile_ada): Emit UNSUPPORTED if we failed

        to build the application. Remove the message printed when in
        verbose mode, redundant with the UNSUPPORTED message above.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index a5664a39062141ad5d1c0016a8304182857ef070..40409f90da325072925f370f796a7628021dab8c 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-04-01  Joel Brobecker  <brobecker@gnat.com>
+
+       * lib/ada.exp (gdb_compile_ada): Emit UNSUPPORTED if we failed
+       to build the application. Remove the message printed when in
+       verbose mode, redundant with the UNSUPPORTED message above.
+
 2004-03-31  Joel Brobecker  <brobecker@gnat.com>
 
        * gdb.ada (bar.ads, bar.adb, null_record.adb): New files.

diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp
index 67a507b62ef30dc0fafe0b5feabb5ef3ba302491..9fab3af2bdfd7a330f2c296c327bfe2f7bca6e53 100644 (file)
--- a/gdb/testsuite/lib/ada.exp
+++ b/gdb/testsuite/lib/ada.exp
@@ -405,7 +405,7 @@ proc gdb_compile_ada {source dest type options} {
     # We therefore simply check whether the dest file has been created
     # or not. Unless not present, the build has succeeded.
     if ![file exists $dest] {
-        verbose "Ada compilation failed: $result"
+        unsupported "Ada compilation failed: $result"
         return "Ada compilation failed."
     }
 }