* 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:
parent
93204d3a0b
commit
414e70e3d0
@ -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.
|
||||
|
@ -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."
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user