test_compiler_info: Return compiler_info if no arguments are given.
This commit is contained in:
parent
21b4b2f28c
commit
6e87504dd4
@ -1,3 +1,8 @@
|
||||
2005-04-06 Paul Gilliam <pgilliam@us.ibm.com>
|
||||
|
||||
* lib/gdb.exp (test_compiler_info): Return compiler_info
|
||||
if no arguments are given.
|
||||
|
||||
2005-04-01 Paul Gilliam <pgilliam@us.ibm.com>
|
||||
|
||||
* gdb.arch/altivec-abi.exp: Check for compiler and set
|
||||
|
@ -1293,6 +1293,17 @@ proc get_compiler_info {binfile args} {
|
||||
|
||||
proc test_compiler_info { compiler } {
|
||||
global compiler_info
|
||||
|
||||
# if no arg, return the compiler_info string
|
||||
|
||||
if [string match "" $compiler] {
|
||||
if [info exists compiler_info] {
|
||||
return $compiler_info
|
||||
} else {
|
||||
perror "No compiler info found."
|
||||
}
|
||||
}
|
||||
|
||||
return [string match $compiler $compiler_info]
|
||||
}
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user