* 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.
This commit is contained in:
Joel Brobecker 2004-04-01 17:45:48 +00:00
parent 93204d3a0b
commit 414e70e3d0
2 changed files with 7 additions and 1 deletions

View File

@ -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.

View File

@ -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."
}
}