diff options
Diffstat (limited to 'testsuite/systemtap.printf/ptr.exp')
| -rw-r--r-- | testsuite/systemtap.printf/ptr.exp | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/testsuite/systemtap.printf/ptr.exp b/testsuite/systemtap.printf/ptr.exp new file mode 100644 index 00000000..0ad0083e --- /dev/null +++ b/testsuite/systemtap.printf/ptr.exp @@ -0,0 +1,67 @@ +load_lib "stap_run2.exp" +set test "ptr" + +if {$::tcl_platform(wordSize) == 8} { + set ::result_string "0x0000000000000000 +0x0000000000000001 +0x0000000012345678 +0x12345678abcdef00 +0x0000000012345678 + + 0x0000000000000000X + 0x0000000000000001X + 0x0000000012345678X + 0x12345678abcdef00X + 0x0000000012345678X + +0x000000000000000000X +0x000000000000000001X +0x000000000012345678X +0x0012345678abcdef00X +0x000000000012345678X + +0x000000 +0x000001 +0x12345678 +0x12345678abcdef00 +0x12345678 + +0x000000X +0x000001X +0x12345678X +0x12345678abcdef00X +0x12345678X +" +} else { + set ::result_string "0x00000000 +0x00000001 +0x12345678 +0xabcdef00 +0x12345678 + + 0x00000000X + 0x00000001X + 0x12345678X + 0xabcdef00X + 0x12345678X + +0x000000000000000000X +0x000000000000000001X +0x000000000012345678X +0x0000000000abcdef00X +0x000000000012345678X + +0x000000 +0x000001 +0x12345678 +0xabcdef00 +0x12345678 + +0x000000X +0x000001X +0x12345678X +0xabcdef00X +0x12345678X +" +} +stap_run2 $srcdir/$subdir/$test.stp |