diff options
| author | Stan Cox <scox@redhat.com> | 2008-06-16 12:49:42 -0400 |
|---|---|---|
| committer | Stan Cox <scox@redhat.com> | 2008-06-16 12:49:42 -0400 |
| commit | 6643650db25f9ea5b32fe767b4f09e2b6d91a7c4 (patch) | |
| tree | da089e0cf1a937aee3452ca322802439036daa06 /testsuite/systemtap.base | |
| parent | e8402528a3e3f77fa804904e875453039ed4abee (diff) | |
| download | systemtap-steved-6643650db25f9ea5b32fe767b4f09e2b6d91a7c4.tar.gz systemtap-steved-6643650db25f9ea5b32fe767b4f09e2b6d91a7c4.tar.xz systemtap-steved-6643650db25f9ea5b32fe767b4f09e2b6d91a7c4.zip | |
Bug 6611: read-only variable typo warnings should list alternatives.
Diffstat (limited to 'testsuite/systemtap.base')
| -rw-r--r-- | testsuite/systemtap.base/warnings.exp | 2 | ||||
| -rw-r--r-- | testsuite/systemtap.base/warnings.stp | 12 |
2 files changed, 12 insertions, 2 deletions
diff --git a/testsuite/systemtap.base/warnings.exp b/testsuite/systemtap.base/warnings.exp index 99e70847..3e37553f 100644 --- a/testsuite/systemtap.base/warnings.exp +++ b/testsuite/systemtap.base/warnings.exp @@ -9,7 +9,7 @@ expect { eof { } } wait -if {$ok == 12} { +if {$ok == 16} { pass $test } else { fail "$test ($ok)" diff --git a/testsuite/systemtap.base/warnings.stp b/testsuite/systemtap.base/warnings.stp index a2ac5afc..314e45f7 100644 --- a/testsuite/systemtap.base/warnings.stp +++ b/testsuite/systemtap.base/warnings.stp @@ -1,4 +1,4 @@ -# PR 1119, 6538 +# PR 1119 global elide_me1 function elide_me2 () {} @@ -6,3 +6,13 @@ function foo:long () { elide_me3 = 1 } function bar() { print(elide+me1) ; ; ; } probe never { elide_me4 = 1; (elide_me5+5); print (foo()) } probe never { print(elide+me1) bar () } + +# PR 6611 + +probe probea = kernel.statement("bio_init@fs/bio.c:135") + { printf("%d", funca(2)); elide_me6="foo" } +probe probea { printf("%d", funcb(2,3)); printf("%s",var) } + +function funcb(a:long, b:long) {return a + b} +function funca(a:long) {a=b; elide_me7=1; return a} + |