t11_logs.exp

工具链BINUTIS-2.16的源代码

#
# Some h8300sx tests -- t11_logs
#

proc do_t11_logs_test {} {
    set testname "t11_logs.s -- h8sx logic tests"

    gas_start "t11_logs.s" "-al"

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

    set x 0
    expect {
	-re ".*   7 0000 1701" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0002 7D101700" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 0006 01776818" { set x [expr $x+1]; exp_continue; }
	-re ".*   9      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 000c 01746C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  10      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0012 01776C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  11      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  12 0018 01756C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  12      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  13 001e 01766C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  13      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 0024 01746E18" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      12341700" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 002c 78146A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 0036 01756E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      12341700" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 003e 01766E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      12341700" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 0046 01776E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      12341700" { set x [expr $x+1]; exp_continue; }
	-re ".*  19 004e 78256A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  20 0058 78266A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  21 0062 78276A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  21      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 006c 7F121700" { set x [expr $x+1]; exp_continue; }
	-re ".*  23 0070 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  23      1700" { set x [expr $x+1]; exp_continue; }
	-re ".*  24 0076 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  24      56781700" { set x [expr $x+1]; exp_continue; }
	-re ".*  25              " {
	    if [expr $x == 37] then {
		pass "$testname: not.b ..."
	    } else {
		fail "$testname: not.b ... ($x)"
	    }
	}
        default	{ fail "$testname: not.b ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  26 007e 1711" { set x [expr $x+1]; exp_continue; }
	-re ".*  27 0080 7D901710" { set x [expr $x+1]; exp_continue; }
	-re ".*  28 0084 01576918" { set x [expr $x+1]; exp_continue; }
	-re ".*  28      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 008a 01546D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  29      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 0090 01576D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  30      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 0096 01556D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  31      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 009c 01566D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  32      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 00a2 01546F18" { set x [expr $x+1]; exp_continue; }
	-re ".*  33      12341710" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 00aa 78146B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 00b4 01556F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      12341710" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00bc 01566F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      12341710" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00c4 01576F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      12341710" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00cc 78256B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00d6 78266B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 00e0 78276B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 00ea 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  41      1710" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00f0 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  42      56781710" { set x [expr $x+1]; exp_continue; }
	-re ".*  43              " {
	    if [expr $x == 36] then {
		pass "$testname: not.w ..."
	    } else {
		fail "$testname: not.w ... ($x)"
	    }
	}
        default	{ fail "$testname: not.w ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  44 00f8 1731" { set x [expr $x+1]; exp_continue; }
	-re ".*  45 00fa 01046918" { set x [expr $x+1]; exp_continue; }
	-re ".*  45      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  46 0100 01076918" { set x [expr $x+1]; exp_continue; }
	-re ".*  46      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 0106 01046D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  47      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 010c 01076D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  48      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 0112 01056D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  49      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 0118 01066D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  50      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 011e 01046F18" { set x [expr $x+1]; exp_continue; }
	-re ".*  51      12341730" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 0126 78946B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0130 01056F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      12341730" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 0138 01066F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      12341730" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 0140 01076F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      12341730" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 0148 78A56B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 0152 78A66B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 015c 78A76B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 0166 01046B08" { set x [expr $x+1]; exp_continue; }
	-re ".*  59      12341730" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 016e 01046B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      1730" { set x [expr $x+1]; exp_continue; }
	-re ".*  61              " {
	    if [expr $x == 38] then {
		pass "$testname: not.l ..."
	    } else {
		fail "$testname: not.l ... ($x)"
	    }
	}
        default	{ fail "$testname: not.l ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  62 0178 1001" { set x [expr $x+1]; exp_continue; }
	-re ".*  63 017a 7D101000" { set x [expr $x+1]; exp_continue; }
	-re ".*  64 017e 01776818" { set x [expr $x+1]; exp_continue; }
	-re ".*  64      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 0184 01746C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  65      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 018a 01776C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  66      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 0190 01756C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  67      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 0196 01766C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  68      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 019c 01746E18" { set x [expr $x+1]; exp_continue; }
	-re ".*  69      12341000" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 01a4 78146A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 01ae 01756E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      12341000" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 01b6 01766E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      12341000" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 01be 01776E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      12341000" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 01c6 78256A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 01d0 78266A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 01da 78276A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 01e4 7F121000" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 01e8 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      1000" { set x [expr $x+1]; exp_continue; }
	-re ".*  79 01ee 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  79      56781000" { set x [expr $x+1]; exp_continue; }
	-re ".*  80              " {
	    if [expr $x == 37] then {
		pass "$testname: shll.b ..."
	    } else {
		fail "$testname: shll.b ... ($x)"
	    }
	}
        default	{ fail "$testname: shll.b ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  81 01f6 1011" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 01f8 7D901010" { set x [expr $x+1]; exp_continue; }
	-re ".*  83 01fc 01576918" { set x [expr $x+1]; exp_continue; }
	-re ".*  83      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 0202 01546D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 0208 01576D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 020e 01556D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 0214 01566D18" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 021a 01546F18" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      12341010" { set x [expr $x+1]; exp_continue; }
	-re ".*  89 0222 78146B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  89      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  89      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 022c 01556F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      12341010" { set x [expr $x+1]; exp_continue; }
	-re ".*  91 0234 01566F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      12341010" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 023c 01576F28" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      12341010" { set x [expr $x+1]; exp_continue; }
	-re ".*  93 0244 78256B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  94 024e 78266B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  95 0258 78276B28" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  96 0262 6B181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  96      1010" { set x [expr $x+1]; exp_continue; }
	-re ".*  97 0268 6B381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  97      56781010" { set x [expr $x+1]; exp_continue; }
	-re ".*  98              " {
	    if [expr $x == 36] then {
		pass "$testname: shll.w ..."
	    } else {
		fail "$testname: shll.w ... ($x)"