script.exp

来自「SimpleScaler（RISC处理器仿真分析程序）指令集相对应的汇编」· EXP 代码 · 共 32 行

# Test basic linker script functionality
# By Ian Lance Taylor, Cygnus Support

if ![ld_assemble $as $srcdir$subdir/script.s tmpdir/script.o] { return }

if ![ld_simple_link $ld tmpdir/script "-T $srcdir$subdir/script.t tmpdir/script.o"] {
    fail script
} else {
    if [ld_nm $nm tmpdir/script] {
	if {![info exists nm_output(text_start)] \
	     || ![info exists nm_output(text_end)] \
	     || ![info exists nm_output(data_start)] \
	     || ![info exists nm_output(data_end)]} {
	    fail "script (bad output from $nm)"
	} else {
	    if {$nm_output(text_start) != 0x100} {
		fail "script (text_start == $nm_output(text_start))"
	    } else { if {$nm_output(text_end) < 0x104 \
			  || $nm_output(text_end) > 0x110} {
		fail "script (text_end == $nm_output(text_end))"
	    } else { if {$nm_output(data_start) != 0x1000} {
		fail "script (data_start == $nm_output(data_start))"
	    } else { if {$nm_output(data_end) < 0x1004 \
			 || $nm_output(data_end) > 0x1010} {
		fail "script (data_end == $nm_output(data_end))"
	    } else {
		pass script
	    } } } }
	}
    }
}