mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-26 22:07:58 +08:00
test_compiler_info: Return compiler_info if no arguments are given.
This commit is contained in:
@ -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>
|
2005-04-01 Paul Gilliam <pgilliam@us.ibm.com>
|
||||||
|
|
||||||
* gdb.arch/altivec-abi.exp: Check for compiler and set
|
* 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 } {
|
proc test_compiler_info { compiler } {
|
||||||
global compiler_info
|
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]
|
return [string match $compiler $compiler_info]
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user