t05_cmp.exp

工具链BINUTIS-2.16的源代码

#
# Some h8300sx tests -- t05_cmp
#

proc do_t05_cmp_test {} {
    set testname "t05_cmp.s -- h8sx tests"

    gas_start "t05_cmp.s" "-al"

    # Check each instruction bit pattern to verify it got assembled correctly.

    set x 0
    expect {
	-re ".*   7 0000 7C350120" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0004 7C353120" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 0008 7C35B120" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 000c 7C358120" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0010 7C35A120" { set x [expr $x+1]; exp_continue; }
	-re ".*  12 0014 7C359120" { set x [expr $x+1]; exp_continue; }
	-re ".*  13 0018 7C35C120" { set x [expr $x+1]; exp_continue; }
	-re ".*  13      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 001e 7C35C920" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 0026 7C35D220" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 002c 7C35E220" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 0032 7C35F220" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 0038 7C35DA20" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  19 0040 7C35EA20" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  20 0048 7C35FA20" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  21 0050 7C354020" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 0056 7C354820" { set x [expr $x+1]; exp_continue; }
	-re ".*  22      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  23              " {
	    if [expr $x == 26] then {
		pass "$testname: cmp.b @er3, ..."
	    } else {
		fail "$testname: cmp.b @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  24 005e 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  24      0120" { set x [expr $x+1]; exp_continue; }
	-re ".*  25 0064 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  25      3120" { set x [expr $x+1]; exp_continue; }
	-re ".*  26 006a 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  26      B120" { set x [expr $x+1]; exp_continue; }
	-re ".*  27 0070 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  27      8120" { set x [expr $x+1]; exp_continue; }
	-re ".*  28 0076 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  28      A120" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 007c 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  29      9120" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0082 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  30      C1209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 008a 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  31      C9209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  31      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 0094 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  32      D2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 009c 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  33      E2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 00a4 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      F2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 00ac 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      DA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00b6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      EA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00c0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      FA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00ca 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      40209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00d2 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      48209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  40              " {
	    if [expr $x == 37] then {
		pass "$testname: cmp.b @-er3, ..."
	    } else {
		fail "$testname: cmp.b @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @-er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  41 00dc 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      0120" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00e2 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  42      3120" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00e8 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      B120" { set x [expr $x+1]; exp_continue; }
	-re ".*  44 00ee 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  44      8120" { set x [expr $x+1]; exp_continue; }
	-re ".*  45 00f4 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  45      A120" { set x [expr $x+1]; exp_continue; }
	-re ".*  46 00fa 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  46      9120" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 0100 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  47      C1209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 0108 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  48      C9209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  48      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 0112 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  49      D2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 011a 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  50      E2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 0122 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  51      F2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 012a 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      DA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0134 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      EA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 013e 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      FA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 0148 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      40209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 0150 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      48209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  57              " {
	    if [expr $x == 37] then {
		pass "$testname: cmp.b @er3+, ..."
	    } else {
		fail "$testname: cmp.b @er3+, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @er3+, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  58 015a 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      0120" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 0160 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      3120" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 0166 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      B120" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 016c 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      8120" { set x [expr $x+1]; exp_continue; }
	-re ".*  62 0172 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  62      A120" { set x [expr $x+1]; exp_continue; }
	-re ".*  63 0178 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  63      9120" { set x [expr $x+1]; exp_continue; }
	-re ".*  64 017e 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  64      C1209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 0186 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  65      C9209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  65      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 0190 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  66      D2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 0198 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  67      E2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 01a0 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  68      F2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 01a8 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  69      DA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  69      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 01b2 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      EA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 01bc 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      FA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 01c6 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      40209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 01ce 01766C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      48209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  74              " {
	    if [expr $x == 37] then {
		pass "$testname: cmp.b @er3-, ..."
	    } else {
		fail "$testname: cmp.b @er3-, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @er3-, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  75 01d8 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      0120" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 01de 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      3120" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 01e4 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      B120" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 01ea 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      8120" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 01f0 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  79      A120" { set x [expr $x+1]; exp_continue; }
	-re ".*  80 01f6 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  80      9120" { set x [expr $x+1]; exp_continue; }
	-re ".*  81 01fc 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      C1209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 0204 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      C9209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  83 020e 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  83      D2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 0216 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      E2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 021e 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      F2209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 0226 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      DA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 0230 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      EA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 023a 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      FA209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  89 0244 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  89      40209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 024c 01756C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      48209ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  91              " {
	    if [expr $x == 37] then {
		pass "$testname: cmp.b @+er3, ..."
	    } else {
		fail "$testname: cmp.b @+er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: cmp.b @+er3, ... ($x)" }
    }

    set x 0