1# Copyright (C) 2003 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 2 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, write to the Free Software 15# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 16 17# Please email any bugs, comments, and/or additions to this file to: 18# bug-gdb@prep.ai.mit.edu 19 20# This file was written by Michael Snyder (msnyder@redhat.com) 21 22if $tracelevel then { 23 strace $tracelevel 24} 25 26if ![istarget "h8300*-*-*"] { 27 verbose "Tests ignored for all but h8300s based targets." 28 return 29} 30 31set prms_id 0 32set bug_id 0 33 34set testfile "t13_otr" 35set srcfile ${srcdir}/${subdir}/${testfile}.s 36set objfile ${objdir}/${subdir}/${testfile}.o 37set binfile ${objdir}/${subdir}/${testfile}.x 38 39set asm-flags ""; 40set link-flags "-m h8300sxelf"; 41 42 43if {[target_assemble $srcfile $objfile "${asm-flags}"] != ""} then { 44 gdb_suppress_entire_file "Testcase assembly failed, so all tests in this file will automatically fail." 45} 46 47if {[target_link $objfile $binfile "${link-flags}"] != ""} then { 48 gdb_suppress_entire_file "Testcase link failed, so all tests in this file will automatically fail." 49} 50 51gdb_start 52gdb_reinitialize_dir $srcdir/$subdir 53gdb_load $binfile 54 55global hex 56 57gdb_test "x /i _start" "bra\t.\\+18 \\($hex\\)" \ 58 "bra .+18" 59gdb_test "x" "brn\t.\\+18 \\($hex\\)" \ 60 "brn .+18" 61gdb_test "x" "bhi\t.\\+18 \\($hex\\)" \ 62 "bhi .+18" 63gdb_test "x" "bls\t.\\+18 \\($hex\\)" \ 64 "bls .+18" 65gdb_test "x" "bcc\t.\\+18 \\($hex\\)" \ 66 "bcc .+18" 67gdb_test "x" "bcs\t.\\+18 \\($hex\\)" \ 68 "bcs .+18" 69gdb_test "x" "bne\t.\\+18 \\($hex\\)" \ 70 "bne .+18" 71gdb_test "x" "beq\t.\\+18 \\($hex\\)" \ 72 "beq .+18" 73gdb_test "x" "bvc\t.\\+18 \\($hex\\)" \ 74 "bvc .+18" 75gdb_test "x" "bvs\t.\\+18 \\($hex\\)" \ 76 "bvs .+18" 77gdb_test "x" "bpl\t.\\+18 \\($hex\\)" \ 78 "bpl .+18" 79gdb_test "x" "bmi\t.\\+18 \\($hex\\)" \ 80 "bmi .+18" 81gdb_test "x" "bge\t.\\+18 \\($hex\\)" \ 82 "bge .+18" 83gdb_test "x" "blt\t.\\+18 \\($hex\\)" \ 84 "blt .+18" 85gdb_test "x" "bgt\t.\\+18 \\($hex\\)" \ 86 "bgt .+18" 87gdb_test "x" "ble\t.\\+18 \\($hex\\)" \ 88 "ble .+18" 89gdb_test "x" "bra\t.\\+4660 \\($hex\\)" \ 90 "bra .+4660" 91gdb_test "x" "brn\t.\\+4660 \\($hex\\)" \ 92 "brn .+4660" 93gdb_test "x" "bhi\t.\\+4660 \\($hex\\)" \ 94 "bhi .+4660" 95gdb_test "x" "bls\t.\\+4660 \\($hex\\)" \ 96 "bls .+4660" 97gdb_test "x" "bcc\t.\\+4660 \\($hex\\)" \ 98 "bcc .+4660" 99gdb_test "x" "bcs\t.\\+4660 \\($hex\\)" \ 100 "bcs .+4660" 101gdb_test "x" "bne\t.\\+4660 \\($hex\\)" \ 102 "bne .+4660" 103gdb_test "x" "beq\t.\\+4660 \\($hex\\)" \ 104 "beq .+4660" 105gdb_test "x" "bvc\t.\\+4660 \\($hex\\)" \ 106 "bvc .+4660" 107gdb_test "x" "bvs\t.\\+4660 \\($hex\\)" \ 108 "bvs .+4660" 109gdb_test "x" "bpl\t.\\+4660 \\($hex\\)" \ 110 "bpl .+4660" 111gdb_test "x" "bmi\t.\\+4660 \\($hex\\)" \ 112 "bmi .+4660" 113gdb_test "x" "bge\t.\\+4660 \\($hex\\)" \ 114 "bge .+4660" 115gdb_test "x" "blt\t.\\+4660 \\($hex\\)" \ 116 "blt .+4660" 117gdb_test "x" "bgt\t.\\+4660 \\($hex\\)" \ 118 "bgt .+4660" 119gdb_test "x" "ble\t.\\+4660 \\($hex\\)" \ 120 "ble .+4660" 121gdb_test "x" "bra/s\t.\\+18 \\($hex\\)" \ 122 "bra/s .+18" 123gdb_test "x" "nop\[ \t\]*" \ 124 "nop" 125gdb_test "x" "bra/bc\t#0x7,@er2,.\\+18 \\($hex\\)" \ 126 "bra/bc #0x7,@er2,.+18" 127gdb_test "x" "bra/bc\t#0x7,@0x9a(:8|),.\\+18 \\($hex\\)" \ 128 "bra/bc #0x7,@0x9a:8,.+18" 129gdb_test "x" "bra/bc\t#0x7,@0x1234(:16|),.\\+18 \\($hex\\)" \ 130 "bra/bc #0x7,@0x1234:16,.+18" 131gdb_test "x" "bra/bc\t#0x7,@0x12345678(:32|),.\\+18 \\($hex\\)" \ 132 "bra/bc #0x7,@0x12345678:32,.+18" 133gdb_test "x" "bra/bc\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 134 "bra/bc #0x7,@er2,.+4660" 135gdb_test "x" "bra/bc\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 136 "bra/bc #0x7,@0x12:8,.+4660" 137gdb_test "x" "bra/bc\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 138 "bra/bc #0x7,@0x9abc:16,.+4660" 139gdb_test "x" "bra/bc\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 140 "bra/bc #0x7,@0x12345678:32,.+4660" 141gdb_test "x" "bra/bs\t#0x7,@er2,.\\+18 \\($hex\\)" \ 142 "bra/bs #0x7,@er2,.+18" 143gdb_test "x" "bra/bs\t#0x7,@0x9a(:8|),.\\+18 \\($hex\\)" \ 144 "bra/bs #0x7,@0x9a:8,.+18" 145gdb_test "x" "bra/bs\t#0x7,@0x1234(:16|),.\\+18 \\($hex\\)" \ 146 "bra/bs #0x7,@0x1234:16,.+18" 147gdb_test "x" "bra/bs\t#0x7,@0x12345678(:32|),.\\+18 \\($hex\\)" \ 148 "bra/bs #0x7,@0x12345678:32,.+18" 149gdb_test "x" "bra/bs\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 150 "bra/bs #0x7,@er2,.+4660" 151gdb_test "x" "bra/bs\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 152 "bra/bs #0x7,@0x12:8,.+4660" 153gdb_test "x" "bra/bs\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 154 "bra/bs #0x7,@0x9abc:16,.+4660" 155gdb_test "x" "bra/bs\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 156 "bra/bs #0x7,@0x12345678:32,.+4660" 157gdb_test "x" "bsr/bc\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 158 "bsr/bc #0x7,@er2,.+4660" 159gdb_test "x" "bsr/bc\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 160 "bsr/bc #0x7,@0x12:8,.+4660" 161gdb_test "x" "bsr/bc\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 162 "bsr/bc #0x7,@0x9abc:16,.+4660" 163gdb_test "x" "bsr/bc\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 164 "bsr/bc #0x7,@0x12345678:32,.+4660" 165gdb_test "x" "bsr/bs\t#0x7,@er2,.\\+4660 \\($hex\\)" \ 166 "bsr/bs #0x7,@er2,.+4660" 167gdb_test "x" "bsr/bs\t#0x7,@0x12(:8|),.\\+4660 \\($hex\\)" \ 168 "bsr/bs #0x7,@0x12:8,.+4660" 169gdb_test "x" "bsr/bs\t#0x7,@0x9abc(:16|),.\\+4660 \\($hex\\)" \ 170 "bsr/bs #0x7,@0x9abc:16,.+4660" 171gdb_test "x" "bsr/bs\t#0x7,@0x12345678(:32|),.\\+4660 \\($hex\\)" \ 172 "bsr/bs #0x7,@0x12345678:32,.+4660" 173gdb_test "x" "bra\tr2l.b" \ 174 "bra r2l.b" 175gdb_test "x" "bra\tr2.w" \ 176 "bra r2.w" 177gdb_test "x" "bra\ter2(.l|)" \ 178 "bra er2.l" 179gdb_test "x" "bsr\t.\\+18 \\($hex\\)" \ 180 "bsr .+18" 181gdb_test "x" "bsr\t.\\+4660 \\($hex\\)" \ 182 "bsr .+4660" 183gdb_test "x" "bsr\tr2l.b" \ 184 "bsr r2l.b" 185gdb_test "x" "bsr\tr2.w" \ 186 "bsr r2.w" 187gdb_test "x" "bsr\ter2(.l|)" \ 188 "bsr er2.l" 189gdb_test "x" "jmp\t@er2" \ 190 "jmp @er2" 191gdb_test "x" "jmp\t@0x123456(:24|)" \ 192 "jmp @0x123456:24" 193gdb_test "x" "jmp\t@0x12345678(:32|)" \ 194 "jmp @0x12345678:32" 195gdb_test "x" "jmp\t@@18 \\(0x12\\)" \ 196 "jmp @@18 (0x12)" 197gdb_test "x" "jmp\t@@564 \\(0x234\\)" \ 198 "jmp @@564 (0x234)" 199gdb_test "x" "jsr\t@er2" \ 200 "jsr @er2" 201gdb_test "x" "jsr\t@0x123456(:24|)" \ 202 "jsr @0x123456:24" 203gdb_test "x" "jsr\t@0x12345678(:32|)" \ 204 "jsr @0x12345678:32" 205gdb_test "x" "jsr\t@@18 \\(0x12\\)" \ 206 "jsr @@18 (0x12)" 207gdb_test "x" "jsr\t@@564 \\(0x234\\)" \ 208 "jsr @@564 (0x234)" 209gdb_test "x" "rts\[ \t\]*" \ 210 "rts" 211gdb_test "x" "rts/l\ter3" \ 212 "rts/l er3" 213gdb_test "x" "rts/l\ter1-er2" \ 214 "rts/l er1-er2" 215gdb_test "x" "rts/l\ter2-er4" \ 216 "rts/l er2-er4" 217gdb_test "x" "rts/l\ter3-er6" \ 218 "rts/l er3-er6" 219gdb_test "x" "trapa\t#0x3" \ 220 "trapa #0x3" 221gdb_test "x" "rte\[ \t\]*" \ 222 "rte" 223gdb_test "x" "rte/l\ter3" \ 224 "rte/l er3" 225gdb_test "x" "rte/l\ter1-er2" \ 226 "rte/l er1-er2" 227gdb_test "x" "rte/l\ter2-er4" \ 228 "rte/l er2-er4" 229gdb_test "x" "rte/l\ter3-er6" \ 230 "rte/l er3-er6" 231gdb_test "x" "ldc(.b|)\t#0x12(:8|),ccr" \ 232 "ldc.b #0x12:8,ccr" 233gdb_test "x" "ldc(.b|)\tr3h,ccr" \ 234 "ldc.b r3h,ccr" 235gdb_test "x" "ldc(.w|)\t@er3,ccr" \ 236 "ldc.w @er3,ccr" 237gdb_test "x" "ldc(.w|)\t@er3\\+,ccr" \ 238 "ldc.w @er3+,ccr" 239gdb_test "x" "ldc(.w|)\t@\\(0x1234(:16|),er3\\),ccr" \ 240 "ldc.w @(0x1234:16,er3),ccr" 241gdb_test "x" "ldc(.w|)\t@\\(0x12345678(:32|),er3\\),ccr" \ 242 "ldc.w @(0x12345678:32,er3),ccr" 243gdb_test "x" "ldc(.w|)\t@0x1234(:16|),ccr" \ 244 "ldc.w @0x1234:16,ccr" 245gdb_test "x" "ldc(.w|)\t@0x12345678(:32|),ccr" \ 246 "ldc.w @0x12345678:32,ccr" 247gdb_test "x" "ldc(.b|)\t#0x12(:8|),exr" \ 248 "ldc.b #0x12:8,exr" 249gdb_test "x" "ldc(.b|)\tr3h,exr" \ 250 "ldc.b r3h,exr" 251gdb_test "x" "ldc(.w|)\t@er3,exr" \ 252 "ldc.w @er3,exr" 253gdb_test "x" "ldc(.w|)\t@er3\\+,exr" \ 254 "ldc.w @er3+,exr" 255gdb_test "x" "ldc(.w|)\t@\\(0x1234(:16|),er3\\),exr" \ 256 "ldc.w @(0x1234:16,er3),exr" 257gdb_test "x" "ldc(.w|)\t@\\(0x12345678(:32|),er3\\),exr" \ 258 "ldc.w @(0x12345678:32,er3),exr" 259gdb_test "x" "ldc(.w|)\t@0x1234(:16|),exr" \ 260 "ldc.w @0x1234:16,exr" 261gdb_test "x" "ldc(.w|)\t@0x12345678(:32|),exr" \ 262 "ldc.w @0x12345678:32,exr" 263gdb_test "x" "stc(.b|)\tccr,r1h" \ 264 "stc.b ccr,r1h" 265gdb_test "x" "stc(.w|)\tccr,@er1" \ 266 "stc.w ccr,@er1" 267gdb_test "x" "stc(.w|)\tccr,@-er1" \ 268 "stc.w ccr,@-er1" 269gdb_test "x" "stc(.w|)\tccr,@\\(0x1234(:16|),er1\\)" \ 270 "stc.w ccr,@(0x1234:16,er1)" 271gdb_test "x" "stc(.w|)\tccr,@\\(0x12345678(:32|),er1\\)" \ 272 "stc.w ccr,@(0x12345678:32,er1)" 273gdb_test "x" "stc(.w|)\tccr,@0x1234(:16|)" \ 274 "stc.w ccr,@0x1234:16" 275gdb_test "x" "stc(.w|)\tccr,@0x12345678(:32|)" \ 276 "stc.w ccr,@0x12345678:32" 277gdb_test "x" "stc(.b|)\texr,r1h" \ 278 "stc.b exr,r1h" 279gdb_test "x" "stc(.w|)\texr,@er1" \ 280 "stc.w exr,@er1" 281gdb_test "x" "stc(.w|)\texr,@-er1" \ 282 "stc.w exr,@-er1" 283gdb_test "x" "stc(.w|)\texr,@\\(0x1234(:16|),er1\\)" \ 284 "stc.w exr,@(0x1234:16,er1)" 285gdb_test "x" "stc(.w|)\texr,@\\(0x12345678(:32|),er1\\)" \ 286 "stc.w exr,@(0x12345678:32,er1)" 287gdb_test "x" "stc(.w|)\texr,@0x1234(:16|)" \ 288 "stc.w exr,@0x1234:16" 289gdb_test "x" "stc(.w|)\texr,@0x12345678(:32|)" \ 290 "stc.w exr,@0x12345678:32" 291gdb_test "x" "orc(.b|)\t#0x12(:8|),ccr" \ 292 "orc.b #0x12:8,ccr" 293gdb_test "x" "orc(.b|)\t#0x12(:8|),exr" \ 294 "orc.b #0x12:8,exr" 295gdb_test "x" "xorc(.b|)\t#0x12(:8|),ccr" \ 296 "xorc.b #0x12:8,ccr" 297gdb_test "x" "xorc(.b|)\t#0x12(:8|),exr" \ 298 "xorc.b #0x12:8,exr" 299gdb_test "x" "andc(.b|)\t#0x12(:8|),ccr" \ 300 "andc.b #0x12:8,ccr" 301gdb_test "x" "andc(.b|)\t#0x12(:8|),exr" \ 302 "andc.b #0x12:8,exr" 303gdb_test "x" "sleep\[ \t\]*" \ 304 "sleep" 305gdb_test "x" "nop\[ \t\]*" \ 306 "nop" 307