From: Joel Brobecker <brobecker@gnat.com>
Date: Thu, 1 Apr 2004 17:45:48 +0000 (+0000)
Subject:         * lib/ada.exp (gdb_compile_ada): Emit UNSUPPORTED if we failed
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=414e70e3d0b9db60b826689d972f7781eafd5998;p=binutils-gdb.git

    * 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 a5664a39062..40409f90da3 100644
--- 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 67a507b62ef..9fab3af2bdf 100644
--- 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."
     }
 }