diff options
Diffstat (limited to 'gcc/testsuite/gcc.c-torture/unsorted/dump-noaddr.x')
| -rw-r--r-- | gcc/testsuite/gcc.c-torture/unsorted/dump-noaddr.x | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.c-torture/unsorted/dump-noaddr.x b/gcc/testsuite/gcc.c-torture/unsorted/dump-noaddr.x new file mode 100644 index 000000000..a8174e05c --- /dev/null +++ b/gcc/testsuite/gcc.c-torture/unsorted/dump-noaddr.x @@ -0,0 +1,40 @@ +# This checks if -fdump-noaddr dumps are done consistently. +proc dump_compare { src options } { + global srcdir subdir + global tmpdir + + global torture_with_loops + set option_list $torture_with_loops + set dumpbase [file tail $src] + + # loop through all the options + foreach option $option_list { + file delete -force dump1 + file mkdir dump1 + c-torture-compile $src "$option $options -dumpbase dump1/$dumpbase -DMASK=1 -x c --param ggc-min-heapsize=1 -fdump-ipa-all -fdump-rtl-all -fdump-tree-all -fdump-noaddr" + file delete -force dump2 + file mkdir dump2 + c-torture-compile $src "$option $options -dumpbase dump2/$dumpbase -DMASK=2 -x c -fdump-ipa-all -fdump-rtl-all -fdump-tree-all -fdump-noaddr" + foreach dump1 [lsort [glob -nocomplain dump1/*]] { + regsub dump1/ $dump1 dump2/ dump2 + set dumptail "gcc.c-torture/unsorted/[file tail $dump1]" + #puts "$option $dump1" + set tmp [ diff "$dump1" "$dump2" ] + if { $tmp == 0 } { + untested "$dumptail, $option comparison" + } elseif { $tmp == 1 } { + pass "$dumptail, $option comparison" + } else { + fail "$dumptail, $option comparison" + } + #exec diff $dump1 $dump2 + } + } + file delete -force dump1 + file delete -force dump2 +} + +catch {dump_compare $src $options} result +puts $result +verbose result +return 1 |