1# Copyright (C) 2003-2013 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# This file was written by Michael Snyder (msnyder@redhat.com) 17 18if ![istarget "h8300*-*-*"] { 19 verbose "Tests ignored for all but h8300s based targets." 20 return 21} 22 23 24set testfile "t13_otr" 25set srcfile ${srcdir}/${subdir}/${testfile}.s 26set objfile ${objdir}/${subdir}/${testfile}.o 27set binfile ${objdir}/${subdir}/${testfile}.x 28 29set asm-flags ""; 30set link-flags "-m h8300sxelf"; 31 32 33if {[target_assemble $srcfile $objfile "${asm-flags}"] != ""} then { 34 untested t13_otr.exp 35 return -1 36} 37 38if {[target_link $objfile $binfile "${link-flags}"] != ""} then { 39 untested t13_otr.exp 40 return -1 41} 42 43gdb_start 44gdb_reinitialize_dir $srcdir/$subdir 45gdb_load $binfile 46 47global hex 48 49gdb_test "x /i start" "bra\t.\\+18 \\($hex\\)" \ 50 "bra .+18" 51gdb_test "x" "brn\t.\\+18 \\($hex\\)" \ 52 "brn .+18" 53gdb_test "x" "bhi\t.\\+18 \\($hex\\)" \ 54 "bhi .+18" 55gdb_test "x" "bls\t.\\+18 \\($hex\\)" \ 56 "bls .+18" 57gdb_test "x" "bcc\t.\\+18 \\($hex\\)" \ 58 "bcc .+18" 59gdb_test "x" "bcs\t.\\+18 \\($hex\\)" \ 60 "bcs .+18" 61gdb_test "x" "bne\t.\\+18 \\($hex\\)" \ 62 "bne .+18" 63gdb_test "x" "beq\t.\\+18 \\($hex\\)" \ 64 "beq .+18" 65gdb_test "x" "bvc\t.\\+18 \\($hex\\)" \ 66 "bvc .+18" 67gdb_test "x" "bvs\t.\\+18 \\($hex\\)" \ 68 "bvs .+18" 69gdb_test "x" "bpl\t.\\+18 \\($hex\\)" \ 70 "bpl .+18" 71gdb_test "x" "bmi\t.\\+18 \\($hex\\)" \ 72 "bmi .+18" 73gdb_test "x" "bge\t.\\+18 \\($hex\\)" \ 74 "bge .+18" 75gdb_test "x" "blt\t.\\+18 \\($hex\\)" \ 76 "blt .+18" 77gdb_test "x" "bgt\t.\\+18 \\($hex\\)" \ 78 "bgt .+18" 79gdb_test "x" "ble\t.\\+18 \\($hex\\)" \ 80 "ble .+18" 81gdb_test "x" "bra\t.\\+4660 \\($hex\\)" \ 82 "bra .+4660" 83gdb_test "x" "brn\t.\\+4660 \\($hex\\)" \ 84 "brn .+4660" 85gdb_test "x" "bhi\t.\\+4660 \\($hex\\)" \ 86 "bhi .+4660" 87gdb_test "x" "bls\t.\\+4660 \\($hex\\)" \ 88 "bls .+4660" 89gdb_test "x" "bcc\t.\\+4660 \\($hex\\)" \ 90 "bcc .+4660" 91gdb_test "x" "bcs\t.\\+4660 \\($hex\\)" \ 92 "bcs .+4660" 93gdb_test "x" "bne\t.\\+4660 \\($hex\\)" \ 94 "bne .+4660" 95gdb_test "x" "beq\t.\\+4660 \\($hex\\)" \ 96 "beq .+4660" 97gdb_test "x" "bvc\t.\\+4660 \\($hex\\)" \ 98 "bvc .+4660" 99gdb_test "x" "bvs\t.\\+4660 \\($hex\\)" \ 100 "bvs .+4660" 101gdb_test "x" "bpl\t.\\+4660 \\($hex\\)" \ 102 "bpl .+4660" 103gdb_test "x" "bmi\t.\\+4660 \\($hex\\)" \ 104 "bmi .+4660" 105gdb_test "x" "bge\t.\\+4660 \\($hex\\)" \ 106 "bge .+4660" 107gdb_test "x" "blt\t.\\+4660 \\($hex\\)" \ 108 "blt .+4660" 109gdb_test "x" "bgt\t.\\+4660 \\($hex\\)" \ 110 "bgt .+4660" 111gdb_test "x" "ble\t.\\+4660 \\($hex\\)" \ 112 "ble .+4660" 113gdb_test "x" "bra/s\t.\\+18 \\($hex\\)" \ 114 "bra/s .+18" 115gdb_test "x" "nop\[ \t\]*" \ 116 "nop" 117gdb_test "x" "bra/bc\t#0x7,@er2,.\\+18 \\($hex\\)" \ 118 "bra/bc #0x7,@er2,.+18" 119gdb_test "x" "bra/bc\t#0x7,@0x9a(:8|),.\\+18 \\($hex\\)" \ 120 "bra/bc #0x7,@0x9a:8,.+18" 121gdb_test "x" "bra/bc\t#0x7,@0x1234(:16|),.\\+18 \\($hex\\)" \ 122 "bra/bc #0x7,@0x1234:16,.+18" 123gdb_test "x" "bra/bc\t#0x7,@0x12345678(:32|),.\\+18 \\($hex\\)" \ 124 "bra/bc #0x7,@0x12345678:32,.+18" 125gdb_test "x" "bra/bc\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 126 "bra/bc #0x7,@er2,.+4660" 127gdb_test "x" "bra/bc\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 128 "bra/bc #0x7,@0x12:8,.+4660" 129gdb_test "x" "bra/bc\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 130 "bra/bc #0x7,@0x9abc:16,.+4660" 131gdb_test "x" "bra/bc\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 132 "bra/bc #0x7,@0x12345678:32,.+4660" 133gdb_test "x" "bra/bs\t#0x7,@er2,.\\+18 \\($hex\\)" \ 134 "bra/bs #0x7,@er2,.+18" 135gdb_test "x" "bra/bs\t#0x7,@0x9a(:8|),.\\+18 \\($hex\\)" \ 136 "bra/bs #0x7,@0x9a:8,.+18" 137gdb_test "x" "bra/bs\t#0x7,@0x1234(:16|),.\\+18 \\($hex\\)" \ 138 "bra/bs #0x7,@0x1234:16,.+18" 139gdb_test "x" "bra/bs\t#0x7,@0x12345678(:32|),.\\+18 \\($hex\\)" \ 140 "bra/bs #0x7,@0x12345678:32,.+18" 141gdb_test "x" "bra/bs\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 142 "bra/bs #0x7,@er2,.+4660" 143gdb_test "x" "bra/bs\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 144 "bra/bs #0x7,@0x12:8,.+4660" 145gdb_test "x" "bra/bs\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 146 "bra/bs #0x7,@0x9abc:16,.+4660" 147gdb_test "x" "bra/bs\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 148 "bra/bs #0x7,@0x12345678:32,.+4660" 149gdb_test "x" "bsr/bc\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 150 "bsr/bc #0x7,@er2,.+4660" 151gdb_test "x" "bsr/bc\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 152 "bsr/bc #0x7,@0x12:8,.+4660" 153gdb_test "x" "bsr/bc\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 154 "bsr/bc #0x7,@0x9abc:16,.+4660" 155gdb_test "x" "bsr/bc\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 156 "bsr/bc #0x7,@0x12345678:32,.+4660" 157gdb_test "x" "bsr/bs\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 158 "bsr/bs #0x7,@er2,.+4660" 159gdb_test "x" "bsr/bs\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 160 "bsr/bs #0x7,@0x12:8,.+4660" 161gdb_test "x" "bsr/bs\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 162 "bsr/bs #0x7,@0x9abc:16,.+4660" 163gdb_test "x" "bsr/bs\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 164 "bsr/bs #0x7,@0x12345678:32,.+4660" 165gdb_test "x" "bra\tr2l.b" \ 166 "bra r2l.b" 167gdb_test "x" "bra\tr2.w" \ 168 "bra r2.w" 169gdb_test "x" "bra\ter2(.l|)" \ 170 "bra er2.l" 171gdb_test "x" "bsr\t.\\+18 \\($hex\\)" \ 172 "bsr .+18" 173gdb_test "x" "bsr\t.\\+4660 \\($hex\\)" \ 174 "bsr .+4660" 175gdb_test "x" "bsr\tr2l.b" \ 176 "bsr r2l.b" 177gdb_test "x" "bsr\tr2.w" \ 178 "bsr r2.w" 179gdb_test "x" "bsr\ter2(.l|)" \ 180 "bsr er2.l" 181gdb_test "x" "jmp\t@er2" \ 182 "jmp @er2" 183gdb_test "x" "jmp\t@0x123456(:24|)" \ 184 "jmp @0x123456:24" 185gdb_test "x" "jmp\t@0x12345678(:32|)" \ 186 "jmp @0x12345678:32" 187gdb_test "x" "jmp\t@@18 \\(0x12\\)" \ 188 "jmp @@18 (0x12)" 189gdb_test "x" "jmp\t@@564 \\(0x234\\)" \ 190 "jmp @@564 (0x234)" 191gdb_test "x" "jsr\t@er2" \ 192 "jsr @er2" 193gdb_test "x" "jsr\t@0x123456(:24|)" \ 194 "jsr @0x123456:24" 195gdb_test "x" "jsr\t@0x12345678(:32|)" \ 196 "jsr @0x12345678:32" 197gdb_test "x" "jsr\t@@18 \\(0x12\\)" \ 198 "jsr @@18 (0x12)" 199gdb_test "x" "jsr\t@@564 \\(0x234\\)" \ 200 "jsr @@564 (0x234)" 201gdb_test "x" "rts\[ \t\]*" \ 202 "rts" 203gdb_test "x" "rts/l\ter3" \ 204 "rts/l er3" 205gdb_test "x" "rts/l\ter1-er2" \ 206 "rts/l er1-er2" 207gdb_test "x" "rts/l\ter2-er4" \ 208 "rts/l er2-er4" 209gdb_test "x" "rts/l\ter3-er6" \ 210 "rts/l er3-er6" 211gdb_test "x" "trapa\t#0x3" \ 212 "trapa #0x3" 213gdb_test "x" "rte\[ \t\]*" \ 214 "rte" 215gdb_test "x" "rte/l\ter3" \ 216 "rte/l er3" 217gdb_test "x" "rte/l\ter1-er2" \ 218 "rte/l er1-er2" 219gdb_test "x" "rte/l\ter2-er4" \ 220 "rte/l er2-er4" 221gdb_test "x" "rte/l\ter3-er6" \ 222 "rte/l er3-er6" 223gdb_test "x" "ldc(.b|)\t#0x12(:8|),ccr" \ 224 "ldc.b #0x12:8,ccr" 225gdb_test "x" "ldc(.b|)\tr3h,ccr" \ 226 "ldc.b r3h,ccr" 227gdb_test "x" "ldc(.w|)\t@er3,ccr" \ 228 "ldc.w @er3,ccr" 229gdb_test "x" "ldc(.w|)\t@er3\\+,ccr" \ 230 "ldc.w @er3+,ccr" 231gdb_test "x" "ldc(.w|)\t@\\(0x1234(:16|),er3\\),ccr" \ 232 "ldc.w @(0x1234:16,er3),ccr" 233gdb_test "x" "ldc(.w|)\t@\\(0x12345678(:32|),er3\\),ccr" \ 234 "ldc.w @(0x12345678:32,er3),ccr" 235gdb_test "x" "ldc(.w|)\t@0x1234(:16|),ccr" \ 236 "ldc.w @0x1234:16,ccr" 237gdb_test "x" "ldc(.w|)\t@0x12345678(:32|),ccr" \ 238 "ldc.w @0x12345678:32,ccr" 239gdb_test "x" "ldc(.b|)\t#0x12(:8|),exr" \ 240 "ldc.b #0x12:8,exr" 241gdb_test "x" "ldc(.b|)\tr3h,exr" \ 242 "ldc.b r3h,exr" 243gdb_test "x" "ldc(.w|)\t@er3,exr" \ 244 "ldc.w @er3,exr" 245gdb_test "x" "ldc(.w|)\t@er3\\+,exr" \ 246 "ldc.w @er3+,exr" 247gdb_test "x" "ldc(.w|)\t@\\(0x1234(:16|),er3\\),exr" \ 248 "ldc.w @(0x1234:16,er3),exr" 249gdb_test "x" "ldc(.w|)\t@\\(0x12345678(:32|),er3\\),exr" \ 250 "ldc.w @(0x12345678:32,er3),exr" 251gdb_test "x" "ldc(.w|)\t@0x1234(:16|),exr" \ 252 "ldc.w @0x1234:16,exr" 253gdb_test "x" "ldc(.w|)\t@0x12345678(:32|),exr" \ 254 "ldc.w @0x12345678:32,exr" 255gdb_test "x" "stc(.b|)\tccr,r1h" \ 256 "stc.b ccr,r1h" 257gdb_test "x" "stc(.w|)\tccr,@er1" \ 258 "stc.w ccr,@er1" 259gdb_test "x" "stc(.w|)\tccr,@-er1" \ 260 "stc.w ccr,@-er1" 261gdb_test "x" "stc(.w|)\tccr,@\\(0x1234(:16|),er1\\)" \ 262 "stc.w ccr,@(0x1234:16,er1)" 263gdb_test "x" "stc(.w|)\tccr,@\\(0x12345678(:32|),er1\\)" \ 264 "stc.w ccr,@(0x12345678:32,er1)" 265gdb_test "x" "stc(.w|)\tccr,@0x1234(:16|)" \ 266 "stc.w ccr,@0x1234:16" 267gdb_test "x" "stc(.w|)\tccr,@0x12345678(:32|)" \ 268 "stc.w ccr,@0x12345678:32" 269gdb_test "x" "stc(.b|)\texr,r1h" \ 270 "stc.b exr,r1h" 271gdb_test "x" "stc(.w|)\texr,@er1" \ 272 "stc.w exr,@er1" 273gdb_test "x" "stc(.w|)\texr,@-er1" \ 274 "stc.w exr,@-er1" 275gdb_test "x" "stc(.w|)\texr,@\\(0x1234(:16|),er1\\)" \ 276 "stc.w exr,@(0x1234:16,er1)" 277gdb_test "x" "stc(.w|)\texr,@\\(0x12345678(:32|),er1\\)" \ 278 "stc.w exr,@(0x12345678:32,er1)" 279gdb_test "x" "stc(.w|)\texr,@0x1234(:16|)" \ 280 "stc.w exr,@0x1234:16" 281gdb_test "x" "stc(.w|)\texr,@0x12345678(:32|)" \ 282 "stc.w exr,@0x12345678:32" 283gdb_test "x" "orc(.b|)\t#0x12(:8|),ccr" \ 284 "orc.b #0x12:8,ccr" 285gdb_test "x" "orc(.b|)\t#0x12(:8|),exr" \ 286 "orc.b #0x12:8,exr" 287gdb_test "x" "xorc(.b|)\t#0x12(:8|),ccr" \ 288 "xorc.b #0x12:8,ccr" 289gdb_test "x" "xorc(.b|)\t#0x12(:8|),exr" \ 290 "xorc.b #0x12:8,exr" 291gdb_test "x" "andc(.b|)\t#0x12(:8|),ccr" \ 292 "andc.b #0x12:8,ccr" 293gdb_test "x" "andc(.b|)\t#0x12(:8|),exr" \ 294 "andc.b #0x12:8,exr" 295gdb_test "x" "sleep\[ \t\]*" \ 296 "sleep" 297gdb_test "x" "nop\[ \t\]*" \ 298 "nop" 299