t04_sub.exp

GNU binutils是GNU交叉工具链中的一个源码包

#
# Some h8300sx tests -- t04_sub
#

proc do_t04_sub_test {} {
    set testname "t04_sub.s -- h8sx tests"

    gas_start "t04_sub.s" "-al"

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

    set x 0
    expect {
	-re ".*   7 0000 7D10A112" { set x [expr $x+1]; exp_continue; }
	-re ".*   8 0004 01776818" { set x [expr $x+1]; exp_continue; }
	-re ".*   8      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*   9 000a 01746C18" { set x [expr $x+1]; exp_continue; }
	-re ".*   9      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  10 0010 01776C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  10      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  11 0016 01756C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  11      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  12 001c 01766C18" { set x [expr $x+1]; exp_continue; }
	-re ".*  12      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  13 0022 01746E18" { set x [expr $x+1]; exp_continue; }
	-re ".*  13      1234A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  14 002a 78146A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  14      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  15 0034 01756E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  15      1234A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  16 003c 01766E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  16      1234A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  17 0044 01776E28" { set x [expr $x+1]; exp_continue; }
	-re ".*  17      1234A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  18 004c 78256A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  18      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  19 0056 78266A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  19      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  20 0060 78276A28" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  20      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  21 006a 7F9AA112" { set x [expr $x+1]; exp_continue; }
	-re ".*  22 006e 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  22      A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  23 0074 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  23      5678A112" { set x [expr $x+1]; exp_continue; }
	-re ".*  24              " {
	    if [expr $x == 36] then {
		pass "$testname: sub.b #0x12:8, ..."
	    } else {
		fail "$testname: sub.b #0x12:8, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b #0x12:8, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  25 007c 1831" { set x [expr $x+1]; exp_continue; }
	-re ".*  26              " {
	    if [expr $x == 1] then {
		pass "$testname: sub.b r3h, r1h"
	    } else {
		fail "$testname: sub.b r3h, r1h ($x)"
	    }
	}
        default	{ fail "$testname: sub.b r3h, r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  27 007e 7D101830" { set x [expr $x+1]; exp_continue; }
	-re ".*  28 0082 01793133" { set x [expr $x+1]; exp_continue; }
	-re ".*  29 0086 01798133" { set x [expr $x+1]; exp_continue; }
	-re ".*  30 008a 0179B133" { set x [expr $x+1]; exp_continue; }
	-re ".*  31 008e 01799133" { set x [expr $x+1]; exp_continue; }
	-re ".*  32 0092 0179A133" { set x [expr $x+1]; exp_continue; }
	-re ".*  33 0096 0179C133" { set x [expr $x+1]; exp_continue; }
	-re ".*  33      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  34 009c 0179C933" { set x [expr $x+1]; exp_continue; }
	-re ".*  34      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  35 00a4 0179D233" { set x [expr $x+1]; exp_continue; }
	-re ".*  35      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  36 00aa 0179E233" { set x [expr $x+1]; exp_continue; }
	-re ".*  36      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  37 00b0 0179F233" { set x [expr $x+1]; exp_continue; }
	-re ".*  37      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  38 00b6 0179DA33" { set x [expr $x+1]; exp_continue; }
	-re ".*  38      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  39 00be 0179EA33" { set x [expr $x+1]; exp_continue; }
	-re ".*  39      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  40 00c6 0179FA33" { set x [expr $x+1]; exp_continue; }
	-re ".*  40      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  41 00ce 7F121830" { set x [expr $x+1]; exp_continue; }
	-re ".*  42 00d2 6A181234" { set x [expr $x+1]; exp_continue; }
	-re ".*  42      1830" { set x [expr $x+1]; exp_continue; }
	-re ".*  43 00d8 6A381234" { set x [expr $x+1]; exp_continue; }
	-re ".*  43      56781830" { set x [expr $x+1]; exp_continue; }
	-re ".*  44              " {
	    if [expr $x == 27] then {
		pass "$testname: sub.b r3h, ..."
	    } else {
		fail "$testname: sub.b r3h, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b r3h, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  45 00e0 7C301801" { set x [expr $x+1]; exp_continue; }
	-re ".*  46 00e4 017A3331" { set x [expr $x+1]; exp_continue; }
	-re ".*  47 00e8 017A8331" { set x [expr $x+1]; exp_continue; }
	-re ".*  48 00ec 017AB331" { set x [expr $x+1]; exp_continue; }
	-re ".*  49 00f0 017A9331" { set x [expr $x+1]; exp_continue; }
	-re ".*  50 00f4 017AA331" { set x [expr $x+1]; exp_continue; }
	-re ".*  51 00f8 017AC131" { set x [expr $x+1]; exp_continue; }
	-re ".*  51      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  52 00fe 017AC931" { set x [expr $x+1]; exp_continue; }
	-re ".*  52      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  53 0106 017AD231" { set x [expr $x+1]; exp_continue; }
	-re ".*  53      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  54 010c 017AE231" { set x [expr $x+1]; exp_continue; }
	-re ".*  54      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  55 0112 017AF231" { set x [expr $x+1]; exp_continue; }
	-re ".*  55      1234" { set x [expr $x+1]; exp_continue; }
	-re ".*  56 0118 017ADA31" { set x [expr $x+1]; exp_continue; }
	-re ".*  56      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  57 0120 017AEA31" { set x [expr $x+1]; exp_continue; }
	-re ".*  57      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  58 0128 017AFA31" { set x [expr $x+1]; exp_continue; }
	-re ".*  58      12345678" { set x [expr $x+1]; exp_continue; }
	-re ".*  59 0130 7E121801" { set x [expr $x+1]; exp_continue; }
	-re ".*  60 0134 6A101234" { set x [expr $x+1]; exp_continue; }
	-re ".*  60      1801" { set x [expr $x+1]; exp_continue; }
	-re ".*  61 013a 6A301234" { set x [expr $x+1]; exp_continue; }
	-re ".*  61      56781801" { set x [expr $x+1]; exp_continue; }
	-re ".*  62              " {
	    if [expr $x == 27] then {
		pass "$testname: sub.b ..., r1h"
	    } else {
		fail "$testname: sub.b ..., r1h ($x)"
	    }
	}
        default	{ fail "$testname: sub.b ..., r1h ($x)" }
    }

    set x 0
    expect {
	-re ".*  63 0142 7C350130" { set x [expr $x+1]; exp_continue; }
	-re ".*  64 0146 7C353130" { set x [expr $x+1]; exp_continue; }
	-re ".*  65 014a 7C35B130" { set x [expr $x+1]; exp_continue; }
	-re ".*  66 014e 7C358130" { set x [expr $x+1]; exp_continue; }
	-re ".*  67 0152 7C35A130" { set x [expr $x+1]; exp_continue; }
	-re ".*  68 0156 7C359130" { set x [expr $x+1]; exp_continue; }
	-re ".*  69 015a 7C35C130" { set x [expr $x+1]; exp_continue; }
	-re ".*  69      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  70 0160 7C35C930" { set x [expr $x+1]; exp_continue; }
	-re ".*  70      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  71 0168 7C35D230" { set x [expr $x+1]; exp_continue; }
	-re ".*  71      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  72 016e 7C35E230" { set x [expr $x+1]; exp_continue; }
	-re ".*  72      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  73 0174 7C35F230" { set x [expr $x+1]; exp_continue; }
	-re ".*  73      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  74 017a 7C35DA30" { set x [expr $x+1]; exp_continue; }
	-re ".*  74      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  75 0182 7C35EA30" { set x [expr $x+1]; exp_continue; }
	-re ".*  75      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  76 018a 7C35FA30" { set x [expr $x+1]; exp_continue; }
	-re ".*  76      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  77 0192 7C354030" { set x [expr $x+1]; exp_continue; }
	-re ".*  77      9ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  78 0198 7C354830" { set x [expr $x+1]; exp_continue; }
	-re ".*  78      9ABCDEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  79              " {
	    if [expr $x == 26] then {
		pass "$testname: sub.b @er3, ..."
	    } else {
		fail "$testname: sub.b @er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  80 01a0 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  80      0130" { set x [expr $x+1]; exp_continue; }
	-re ".*  81 01a6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  81      3130" { set x [expr $x+1]; exp_continue; }
	-re ".*  82 01ac 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  82      B130" { set x [expr $x+1]; exp_continue; }
	-re ".*  83 01b2 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  83      8130" { set x [expr $x+1]; exp_continue; }
	-re ".*  84 01b8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  84      A130" { set x [expr $x+1]; exp_continue; }
	-re ".*  85 01be 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  85      9130" { set x [expr $x+1]; exp_continue; }
	-re ".*  86 01c4 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  86      C1309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  87 01cc 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      C9309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  87      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  88 01d6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  88      D2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  89 01de 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  89      E2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  90 01e6 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  90      F2309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  91 01ee 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      DA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  91      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  92 01f8 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      EA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  92      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  93 0202 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      FA309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  93      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  94 020c 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  94      40309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  95 0214 01776C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      48309ABC" { set x [expr $x+1]; exp_continue; }
	-re ".*  95      DEF0" { set x [expr $x+1]; exp_continue; }
	-re ".*  96              " {
	    if [expr $x == 37] then {
		pass "$testname: sub.b @-er3, ..."
	    } else {
		fail "$testname: sub.b @-er3, ... ($x)"
	    }
	}
        default	{ fail "$testname: sub.b @-er3, ... ($x)" }
    }

    set x 0
    expect {
	-re ".*  97 021e 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  97      0130" { set x [expr $x+1]; exp_continue; }
	-re ".*  98 0224 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  98      3130" { set x [expr $x+1]; exp_continue; }
	-re ".*  99 022a 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".*  99      B130" { set x [expr $x+1]; exp_continue; }
	-re ".* 100 0230 01746C3C" { set x [expr $x+1]; exp_continue; }
	-re ".* 100      8130" { set x [expr $x+1]; exp_continue; }