gdb/testsuite/gdb.disasm/t12_bit.exp

   1 # Copyright (C) 2003, 2007, 2008 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 # Please email any bugs, comments, and/or additions to this file to:
  17 # bug-gdb@prep.ai.mit.edu
  18
  19 # This file was written by Michael Snyder (msnyder@redhat.com)
  20
  21 if $tracelevel then {
  22         strace $tracelevel
  23 }
  24
  25 if ![istarget "h8300*-*-*"] {
  26     verbose "Tests ignored for all but h8300s based targets."
  27     return
  28 }
  29
  30 set prms_id 0
  31 set bug_id 0
  32
  33 set testfile "t12_bit"
  34 set srcfile ${srcdir}/${subdir}/${testfile}.s
  35 set objfile ${objdir}/${subdir}/${testfile}.o
  36 set binfile ${objdir}/${subdir}/${testfile}.x
  37
  38 set asm-flags "";
  39 set link-flags "-m h8300sxelf";
  40
  41
  42 if {[target_assemble $srcfile $objfile "${asm-flags}"] != ""} then {
  43      untested t12_bit.exp
  44      return -1
  45 }
  46
  47 if {[target_link $objfile $binfile "${link-flags}"] != ""} then {
  48      untested t12_bit.exp
  49      return -1
  50 }
  51
  52 gdb_start
  53 gdb_reinitialize_dir $srcdir/$subdir
  54 gdb_load $binfile
  55
  56 gdb_test "x /i _start" "bset\t#0x7,r1h" \
  57         "bset #0x7,r1h"
  58 gdb_test "x" "bset\t#0x7,@er1" \
  59         "bset #0x7,@er1"
  60 gdb_test "x" "bset\t#0x7,@0x12(:8|)" \
  61         "bset #0x7,@0x12:8"
  62 gdb_test "x" "bset\t#0x7,@0x1234(:16|)" \
  63         "bset #0x7,@0x1234:16"
  64 gdb_test "x" "bset\t#0x7,@0x12345678(:32|)" \
  65         "bset #0x7,@0x12345678:32"
  66 gdb_test "x" "bset\tr3h,r1h" \
  67         "bset r3h,r1h"
  68 gdb_test "x" "bset\tr3h,@er1" \
  69         "bset r3h,@er1"
  70 gdb_test "x" "bset\tr3h,@0x12(:8|)" \
  71         "bset r3h,@0x12:8"
  72 gdb_test "x" "bset\tr3h,@0x1234(:16|)" \
  73         "bset r3h,@0x1234:16"
  74 gdb_test "x" "bset\tr3h,@0x12345678(:32|)" \
  75         "bset r3h,@0x12345678:32"
  76 gdb_test "x" "bset/eq\t#0x7,@er1" \
  77         "bset/eq #0x7,@er1"
  78 gdb_test "x" "bset/eq\t#0x7,@0x12(:8|)" \
  79         "bset/eq #0x7,@0x12:8"
  80 gdb_test "x" "bset/eq\t#0x7,@0x1234(:16|)" \
  81         "bset/eq #0x7,@0x1234:16"
  82 gdb_test "x" "bset/eq\t#0x7,@0x12345678(:32|)" \
  83         "bset/eq #0x7,@0x12345678:32"
  84 gdb_test "x" "bset/eq\tr3h,@er1" \
  85         "bset/eq r3h,@er1"
  86 gdb_test "x" "bset/eq\tr3h,@0x12(:8|)" \
  87         "bset/eq r3h,@0x12:8"
  88 gdb_test "x" "bset/eq\tr3h,@0x1234(:16|)" \
  89         "bset/eq r3h,@0x1234:16"
  90 gdb_test "x" "bset/eq\tr3h,@0x12345678(:32|)" \
  91         "bset/eq r3h,@0x12345678:32"
  92 gdb_test "x" "bset/ne\t#0x7,@er1" \
  93         "bset/ne #0x7,@er1"
  94 gdb_test "x" "bset/ne\t#0x7,@0x12(:8|)" \
  95         "bset/ne #0x7,@0x12:8"
  96 gdb_test "x" "bset/ne\t#0x7,@0x1234(:16|)" \
  97         "bset/ne #0x7,@0x1234:16"
  98 gdb_test "x" "bset/ne\t#0x7,@0x12345678(:32|)" \
  99         "bset/ne #0x7,@0x12345678:32"
 100 gdb_test "x" "bset/ne\tr3h,@er1" \
 101         "bset/ne r3h,@er1"
 102 gdb_test "x" "bset/ne\tr3h,@0x12(:8|)" \
 103         "bset/ne r3h,@0x12:8"
 104 gdb_test "x" "bset/ne\tr3h,@0x1234(:16|)" \
 105         "bset/ne r3h,@0x1234:16"
 106 gdb_test "x" "bset/ne\tr3h,@0x12345678(:32|)" \
 107         "bset/ne r3h,@0x12345678:32"
 108 gdb_test "x" "bnot\t#0x7,r1h" \
 109         "bnot #0x7,r1h"
 110 gdb_test "x" "bnot\t#0x7,@er1" \
 111         "bnot #0x7,@er1"
 112 gdb_test "x" "bnot\t#0x7,@0x12(:8|)" \
 113         "bnot #0x7,@0x12:8"
 114 gdb_test "x" "bnot\t#0x7,@0x1234(:16|)" \
 115         "bnot #0x7,@0x1234:16"
 116 gdb_test "x" "bnot\t#0x7,@0x12345678(:32|)" \
 117         "bnot #0x7,@0x12345678:32"
 118 gdb_test "x" "bnot\tr3h,r1h" \
 119         "bnot r3h,r1h"
 120 gdb_test "x" "bnot\tr3h,@er1" \
 121         "bnot r3h,@er1"
 122 gdb_test "x" "bnot\tr3h,@0x12(:8|)" \
 123         "bnot r3h,@0x12:8"
 124 gdb_test "x" "bnot\tr3h,@0x1234(:16|)" \
 125         "bnot r3h,@0x1234:16"
 126 gdb_test "x" "bnot\tr3h,@0x12345678(:32|)" \
 127         "bnot r3h,@0x12345678:32"
 128 gdb_test "x" "bclr\t#0x7,r1h" \
 129         "bclr #0x7,r1h"
 130 gdb_test "x" "bclr\t#0x7,@er1" \
 131         "bclr #0x7,@er1"
 132 gdb_test "x" "bclr\t#0x7,@0x12(:8|)" \
 133         "bclr #0x7,@0x12:8"
 134 gdb_test "x" "bclr\t#0x7,@0x1234(:16|)" \
 135         "bclr #0x7,@0x1234:16"
 136 gdb_test "x" "bclr\t#0x7,@0x12345678(:32|)" \
 137         "bclr #0x7,@0x12345678:32"
 138 gdb_test "x" "bclr\tr3h,r1h" \
 139         "bclr r3h,r1h"
 140 gdb_test "x" "bclr\tr3h,@er1" \
 141         "bclr r3h,@er1"
 142 gdb_test "x" "bclr\tr3h,@0x12(:8|)" \
 143         "bclr r3h,@0x12:8"
 144 gdb_test "x" "bclr\tr3h,@0x1234(:16|)" \
 145         "bclr r3h,@0x1234:16"
 146 gdb_test "x" "bclr\tr3h,@0x12345678(:32|)" \
 147         "bclr r3h,@0x12345678:32"
 148 gdb_test "x" "bclr/eq\t#0x7,@er1" \
 149         "bclr/eq #0x7,@er1"
 150 gdb_test "x" "bclr/eq\t#0x7,@0x12(:8|)" \
 151         "bclr/eq #0x7,@0x12:8"
 152 gdb_test "x" "bclr/eq\t#0x7,@0x1234(:16|)" \
 153         "bclr/eq #0x7,@0x1234:16"
 154 gdb_test "x" "bclr/eq\t#0x7,@0x12345678(:32|)" \
 155         "bclr/eq #0x7,@0x12345678:32"
 156 gdb_test "x" "bclr/eq\tr3h,@er1" \
 157         "bclr/eq r3h,@er1"
 158 gdb_test "x" "bclr/eq\tr3h,@0x12(:8|)" \
 159         "bclr/eq r3h,@0x12:8"
 160 gdb_test "x" "bclr/eq\tr3h,@0x1234(:16|)" \
 161         "bclr/eq r3h,@0x1234:16"
 162 gdb_test "x" "bclr/eq\tr3h,@0x12345678(:32|)" \
 163         "bclr/eq r3h,@0x12345678:32"
 164 gdb_test "x" "bclr/ne\t#0x7,@er1" \
 165         "bclr/ne #0x7,@er1"
 166 gdb_test "x" "bclr/ne\t#0x7,@0x12(:8|)" \
 167         "bclr/ne #0x7,@0x12:8"
 168 gdb_test "x" "bclr/ne\t#0x7,@0x1234(:16|)" \
 169         "bclr/ne #0x7,@0x1234:16"
 170 gdb_test "x" "bclr/ne\t#0x7,@0x12345678(:32|)" \
 171         "bclr/ne #0x7,@0x12345678:32"
 172 gdb_test "x" "bclr/ne\tr3h,@er1" \
 173         "bclr/ne r3h,@er1"
 174 gdb_test "x" "bclr/ne\tr3h,@0x12(:8|)" \
 175         "bclr/ne r3h,@0x12:8"
 176 gdb_test "x" "bclr/ne\tr3h,@0x1234(:16|)" \
 177         "bclr/ne r3h,@0x1234:16"
 178 gdb_test "x" "bclr/ne\tr3h,@0x12345678(:32|)" \
 179         "bclr/ne r3h,@0x12345678:32"
 180 gdb_test "x" "btst\t#0x7,r1h" \
 181         "btst #0x7,r1h"
 182 gdb_test "x" "btst\t#0x7,@er1" \
 183         "btst #0x7,@er1"
 184 gdb_test "x" "btst\t#0x7,@0x12(:8|)" \
 185         "btst #0x7,@0x12:8"
 186 gdb_test "x" "btst\t#0x7,@0x1234(:16|)" \
 187         "btst #0x7,@0x1234:16"
 188 gdb_test "x" "btst\t#0x7,@0x12345678(:32|)" \
 189         "btst #0x7,@0x12345678:32"
 190 gdb_test "x" "btst\tr3h,r1h" \
 191         "btst r3h,r1h"
 192 gdb_test "x" "btst\tr3h,@er1" \
 193         "btst r3h,@er1"
 194 gdb_test "x" "btst\tr3h,@0x12(:8|)" \
 195         "btst r3h,@0x12:8"
 196 gdb_test "x" "btst\tr3h,@0x1234(:16|)" \
 197         "btst r3h,@0x1234:16"
 198 gdb_test "x" "btst\tr3h,@0x12345678(:32|)" \
 199         "btst r3h,@0x12345678:32"
 200 gdb_test "x" "bor\t#0x7,r1h" \
 201         "bor #0x7,r1h"
 202 gdb_test "x" "bor\t#0x7,@er1" \
 203         "bor #0x7,@er1"
 204 gdb_test "x" "bor\t#0x7,@0x12(:8|)" \
 205         "bor #0x7,@0x12:8"
 206 gdb_test "x" "bor\t#0x7,@0x1234(:16|)" \
 207         "bor #0x7,@0x1234:16"
 208 gdb_test "x" "bor\t#0x7,@0x12345678(:32|)" \
 209         "bor #0x7,@0x12345678:32"
 210 gdb_test "x" "bior\t#0x7,r1h" \
 211         "bior #0x7,r1h"
 212 gdb_test "x" "bior\t#0x7,@er1" \
 213         "bior #0x7,@er1"
 214 gdb_test "x" "bior\t#0x7,@0x12(:8|)" \
 215         "bior #0x7,@0x12:8"
 216 gdb_test "x" "bior\t#0x7,@0x1234(:16|)" \
 217         "bior #0x7,@0x1234:16"
 218 gdb_test "x" "bior\t#0x7,@0x12345678(:32|)" \
 219         "bior #0x7,@0x12345678:32"
 220 gdb_test "x" "bxor\t#0x7,r1h" \
 221         "bxor #0x7,r1h"
 222 gdb_test "x" "bxor\t#0x7,@er1" \
 223         "bxor #0x7,@er1"
 224 gdb_test "x" "bxor\t#0x7,@0x12(:8|)" \
 225         "bxor #0x7,@0x12:8"
 226 gdb_test "x" "bxor\t#0x7,@0x1234(:16|)" \
 227         "bxor #0x7,@0x1234:16"
 228 gdb_test "x" "bxor\t#0x7,@0x12345678(:32|)" \
 229         "bxor #0x7,@0x12345678:32"
 230 gdb_test "x" "bixor\t#0x7,r1h" \
 231         "bixor #0x7,r1h"
 232 gdb_test "x" "bixor\t#0x7,@er1" \
 233         "bixor #0x7,@er1"
 234 gdb_test "x" "bixor\t#0x7,@0x12(:8|)" \
 235         "bixor #0x7,@0x12:8"
 236 gdb_test "x" "bixor\t#0x7,@0x1234(:16|)" \
 237         "bixor #0x7,@0x1234:16"
 238 gdb_test "x" "bixor\t#0x7,@0x12345678(:32|)" \
 239         "bixor #0x7,@0x12345678:32"
 240 gdb_test "x" "band\t#0x7,r1h" \
 241         "band #0x7,r1h"
 242 gdb_test "x" "band\t#0x7,@er1" \
 243         "band #0x7,@er1"
 244 gdb_test "x" "band\t#0x7,@0x12(:8|)" \
 245         "band #0x7,@0x12:8"
 246 gdb_test "x" "band\t#0x7,@0x1234(:16|)" \
 247         "band #0x7,@0x1234:16"
 248 gdb_test "x" "band\t#0x7,@0x12345678(:32|)" \
 249         "band #0x7,@0x12345678:32"
 250 gdb_test "x" "biand\t#0x7,r1h" \
 251         "biand #0x7,r1h"
 252 gdb_test "x" "biand\t#0x7,@er1" \
 253         "biand #0x7,@er1"
 254 gdb_test "x" "biand\t#0x7,@0x12(:8|)" \
 255         "biand #0x7,@0x12:8"
 256 gdb_test "x" "biand\t#0x7,@0x1234(:16|)" \
 257         "biand #0x7,@0x1234:16"
 258 gdb_test "x" "biand\t#0x7,@0x12345678(:32|)" \
 259         "biand #0x7,@0x12345678:32"
 260 gdb_test "x" "bld\t#0x7,r1h" \
 261         "bld #0x7,r1h"
 262 gdb_test "x" "bld\t#0x7,@er1" \
 263         "bld #0x7,@er1"
 264 gdb_test "x" "bld\t#0x7,@0x12(:8|)" \
 265         "bld #0x7,@0x12:8"
 266 gdb_test "x" "bld\t#0x7,@0x1234(:16|)" \
 267         "bld #0x7,@0x1234:16"
 268 gdb_test "x" "bld\t#0x7,@0x12345678(:32|)" \
 269         "bld #0x7,@0x12345678:32"
 270 gdb_test "x" "bild\t#0x7,r1h" \
 271         "bild #0x7,r1h"
 272 gdb_test "x" "bild\t#0x7,@er1" \
 273         "bild #0x7,@er1"
 274 gdb_test "x" "bild\t#0x7,@0x12(:8|)" \
 275         "bild #0x7,@0x12:8"
 276 gdb_test "x" "bild\t#0x7,@0x1234(:16|)" \
 277         "bild #0x7,@0x1234:16"
 278 gdb_test "x" "bild\t#0x7,@0x12345678(:32|)" \
 279         "bild #0x7,@0x12345678:32"
 280 gdb_test "x" "bst\t#0x7,r1h" \
 281         "bst #0x7,r1h"
 282 gdb_test "x" "bst\t#0x7,@er1" \
 283         "bst #0x7,@er1"
 284 gdb_test "x" "bst\t#0x7,@0x12(:8|)" \
 285         "bst #0x7,@0x12:8"
 286 gdb_test "x" "bst\t#0x7,@0x1234(:16|)" \
 287         "bst #0x7,@0x1234:16"
 288 gdb_test "x" "bst\t#0x7,@0x12345678(:32|)" \
 289         "bst #0x7,@0x12345678:32"
 290 gdb_test "x" "bstz\t#0x7,@er1" \
 291         "bstz #0x7,@er1"
 292 gdb_test "x" "bstz\t#0x7,@0x12(:8|)" \
 293         "bstz #0x7,@0x12:8"
 294 gdb_test "x" "bstz\t#0x7,@0x1234(:16|)" \
 295         "bstz #0x7,@0x1234:16"
 296 gdb_test "x" "bstz\t#0x7,@0x12345678(:32|)" \
 297         "bstz #0x7,@0x12345678:32"
 298 gdb_test "x" "bist\t#0x7,r1h" \
 299         "bist #0x7,r1h"
 300 gdb_test "x" "bist\t#0x7,@er1" \
 301         "bist #0x7,@er1"
 302 gdb_test "x" "bist\t#0x7,@0x12(:8|)" \
 303         "bist #0x7,@0x12:8"
 304 gdb_test "x" "bist\t#0x7,@0x1234(:16|)" \
 305         "bist #0x7,@0x1234:16"
 306 gdb_test "x" "bist\t#0x7,@0x12345678(:32|)" \
 307         "bist #0x7,@0x12345678:32"
 308 gdb_test "x" "bistz\t#0x7,@er1" \
 309         "bistz #0x7,@er1"
 310 gdb_test "x" "bistz\t#0x7,@0x12(:8|)" \
 311         "bistz #0x7,@0x12:8"
 312 gdb_test "x" "bistz\t#0x7,@0x1234(:16|)" \
 313         "bistz #0x7,@0x1234:16"
 314 gdb_test "x" "bistz\t#0x7,@0x12345678(:32|)" \
 315         "bistz #0x7,@0x12345678:32"
 316 gdb_test "x" "bfld\t#0x34(:8|),@er1,r3h" \
 317         "bfld #0x34:8,@er1,r3h"
 318 gdb_test "x" "bfld\t#0x34(:8|),@0x12(:8|),r3h" \
 319         "bfld #0x34:8,@0x12:8,r3h"
 320 gdb_test "x" "bfld\t#0x34(:8|),@0x1234(:16|),r3h" \
 321         "bfld #0x34:8,@0x1234:16,r3h"
 322 gdb_test "x" "bfld\t#0x34(:8|),@0x12345678(:32|),r3h" \
 323         "bfld #0x34:8,@0x12345678:32,r3h"
 324 gdb_test "x" "bfst\tr3h,#0x34(:8|),@er1" \
 325         "bfst r3h,#0x34:8,@er1"
 326 gdb_test "x" "bfst\tr3h,#0x34(:8|),@0x12(:8|)" \
 327         "bfst r3h,#0x34:8,@0x12:8"
 328 gdb_test "x" "bfst\tr3h,#0x34(:8|),@0x1234(:16|)" \
 329         "bfst r3h,#0x34:8,@0x1234:16"
 330 gdb_test "x" "bfst\tr3h,#0x34(:8|),@0x12345678(:32|)" \
 331         "bfst r3h,#0x34:8,@0x12345678:32"