testsuite/systemtap.base/cxxclass.exp

   1 set test "cxxclass"
   2 set ::result_string {main_enter
   3 call: 64
   4 cons call: 64
   5 meth call: 64 24
   6 dest call: 42
   7 call2: 24
   8 cons call2: 24
   9 meth call2: 24 40
  10 dest call2: 42
  11 main_exit}
  12
  13 set test_flags "additional_flags=-g"
  14 set test_flags "$test_flags additional_flags=-O2"
  15 set test_flags "$test_flags [sdt_includes]"
  16 set test_flags "$test_flags compiler=g++"
  17 # ppc64 needs a more restrictive constraint for the probe args
  18 if {[regexp "^(x86_64|i.86)$" $::tcl_platform(machine)] == 0} {
  19 set test_flags "$test_flags additional_flags=-DSTAP_SDT_ARG_CONSTRAINT=nr"
  20 }
  21
  22 set res [target_compile $srcdir/$subdir/$test.cxx $test.exe executable "$test_flags"]
  23 if { $res != "" } {
  24     verbose "target_compile failed: $res" 2
  25     fail "compiling $test.c"
  26     untested "$test.c compile"
  27     continue
  28 } else {
  29     pass "$test.c compile"
  30 }
  31
  32 if {[installtest_p] && [uprobes_p]} {
  33   stap_run3 "$test" -w $srcdir/$subdir/$test.stp $test.exe -c ./$test.exe
  34 } else {
  35   untested "$test"
  36 }
  37 catch {exec rm -f $test.exe}