dump-noaddr.x

来自「用于进行gcc测试」· X 代码 · 共 50 行

# This checks if -fdump-noaddr dumps are done consistently.
proc dump_compare { src options } {
    global srcdir subdir
    global tmpdir
    
    exec echo $src
    
    global torture_with_loops
    set option_list $torture_with_loops
    set dumpbase dump-noaddr
    # ??? passing -dumpbase to the gcc driver doesn't work, since it will pass
    # another -dumpbase option to override it.
    # loop through all the options
    foreach option $option_list {
#	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}_3 "$option $options -DMASK=3 -x c -da -fdump-tree-all"
	file delete -force dump1
	file delete -force dump2
	file mkdir dump1
	file mkdir dump2
	cd dump1
	c-torture-compile $src "$option $options -DMASK=1 -x c --param ggc-min-heapsize=1 -da -fdump-tree-all -fdump-noaddr"
	cd ../dump2
	c-torture-compile $src "$option $options -DMASK=2 -x c -da -fdump-tree-all -fdump-noaddr"
	cd ..
	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