# This checks if -fdump-noaddr dumps are done consistently.
|
# This checks if -fdump-noaddr dumps are done consistently.
|
proc dump_compare { src options } {
|
proc dump_compare { src options } {
|
global srcdir subdir
|
global srcdir subdir
|
global tmpdir
|
global tmpdir
|
|
|
exec echo $src
|
exec echo $src
|
|
|
global torture_with_loops
|
global torture_with_loops
|
set option_list $torture_with_loops
|
set option_list $torture_with_loops
|
set dumpbase dump-noaddr
|
set dumpbase dump-noaddr
|
# ??? passing -dumpbase to the gcc driver doesn't work, since it will pass
|
# ??? passing -dumpbase to the gcc driver doesn't work, since it will pass
|
# another -dumpbase option to override it.
|
# another -dumpbase option to override it.
|
# loop through all the options
|
# loop through all the options
|
foreach option $option_list {
|
foreach option $option_list {
|
# c-torture-compile ${dumpbase}_1 "$option $options -DMASK=1 -x c -da -fdump-tree-all"
|
# c-torture-compile ${dumpbase}_1 "$option $options -DMASK=1 -x c -da -fdump-tree-all"
|
# c-torture-compile ${dumpbase}_2 "$option $options -DMASK=2 -x c -da -fdump-tree-all"
|
# c-torture-compile ${dumpbase}_2 "$option $options -DMASK=2 -x c -da -fdump-tree-all"
|
# c-torture-compile ${dumpbase}_3 "$option $options -DMASK=3 -x c -da -fdump-tree-all"
|
# c-torture-compile ${dumpbase}_3 "$option $options -DMASK=3 -x c -da -fdump-tree-all"
|
file delete -force dump1
|
file delete -force dump1
|
file delete -force dump2
|
file delete -force dump2
|
file mkdir dump1
|
file mkdir dump1
|
file mkdir dump2
|
file mkdir dump2
|
cd dump1
|
cd dump1
|
c-torture-compile $src "$option $options -DMASK=1 -x c --param ggc-min-heapsize=1 -da -fdump-tree-all -fdump-noaddr"
|
c-torture-compile $src "$option $options -DMASK=1 -x c --param ggc-min-heapsize=1 -da -fdump-tree-all -fdump-noaddr"
|
cd ../dump2
|
cd ../dump2
|
c-torture-compile $src "$option $options -DMASK=2 -x c -da -fdump-tree-all -fdump-noaddr"
|
c-torture-compile $src "$option $options -DMASK=2 -x c -da -fdump-tree-all -fdump-noaddr"
|
cd ..
|
cd ..
|
foreach dump1 [lsort [glob -nocomplain dump1/*]] {
|
foreach dump1 [lsort [glob -nocomplain dump1/*]] {
|
regsub dump1/ $dump1 dump2/ dump2
|
regsub dump1/ $dump1 dump2/ dump2
|
set dumptail "gcc.c-torture/unsorted/[file tail $dump1]"
|
set dumptail "gcc.c-torture/unsorted/[file tail $dump1]"
|
#puts "$option $dump1"
|
#puts "$option $dump1"
|
set tmp [ diff "$dump1" "$dump2" ]
|
set tmp [ diff "$dump1" "$dump2" ]
|
if { $tmp == 0 } {
|
if { $tmp == 0 } {
|
untested "$dumptail, $option comparison"
|
untested "$dumptail, $option comparison"
|
} elseif { $tmp == 1 } {
|
} elseif { $tmp == 1 } {
|
pass "$dumptail, $option comparison"
|
pass "$dumptail, $option comparison"
|
} else {
|
} else {
|
fail "$dumptail, $option comparison"
|
fail "$dumptail, $option comparison"
|
}
|
}
|
#exec diff $dump1 $dump2
|
#exec diff $dump1 $dump2
|
}
|
}
|
}
|
}
|
file delete -force dump1
|
file delete -force dump1
|
file delete -force dump2
|
file delete -force dump2
|
}
|
}
|
|
|
catch {dump_compare $src $options} result
|
catch {dump_compare $src $options} result
|
puts $result
|
puts $result
|
verbose result
|
verbose result
|
return 1
|
return 1
|
|
|