diff options
| author | Ben Elliston <bje@gnu.org> | 2018-11-30 09:44:25 +1100 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2018-11-30 09:44:25 +1100 |
| commit | 14f40e5a6b44e9ee235bc1ea38f84e955c347635 (patch) | |
| tree | a2179fb3bfecd6f51abc3c9775fdd52f7720ee68 /lib | |
| parent | 5fbd523b5af7b9fc84bca1ea9fabcab36ea4fcee (diff) | |
| download | dejagnu-14f40e5a6b44e9ee235bc1ea38f84e955c347635.zip dejagnu-14f40e5a6b44e9ee235bc1ea38f84e955c347635.tar.gz dejagnu-14f40e5a6b44e9ee235bc1ea38f84e955c347635.tar.bz2 | |
* lib/framework.exp (istarget, ishost, istarget): Set the argument
default value to the empty string.
* doc/dejagnu.texi (find procedure): Remove reference to "NULL".
(getenv procedure): Re-word this node.
(isbuild procedure): Update.
(ishost procedure): Likewise.
(istarget procedure): Likewise.
* testsuite/runtest.all/config.test: Add test cases.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/framework.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 9288cb9..ef1baa5 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -96,7 +96,7 @@ proc close_logs { } { # Check build host triplet for PATTERN. # With no arguments it returns the triplet string. # -proc isbuild { pattern } { +proc isbuild { { pattern "" } } { global build_triplet global host_triplet @@ -188,7 +188,7 @@ proc is3way {} { # Check host triplet for PATTERN. # With no arguments it returns the triplet string. # -proc ishost { pattern } { +proc ishost { { pattern "" } } { global host_triplet if {[string match "" $pattern]} { @@ -208,7 +208,7 @@ proc ishost { pattern } { # With no arguments it returns the triplet string. # Returns 1 if the target looked for, or 0 if not. # -proc istarget { args } { +proc istarget { { args "" } } { global target_triplet # if no arg, return the config string |