sim/testsuite/sim/sh64/compact/xtrct.cgs

   1 # sh testcase for xtrct $rm, $rn -*- Asm -*-
   2 # mach: all
   3 # as: -isa=shcompact
   4 # ld: -m shelf32
   5
   6         .include "compact/testutils.inc"
   7
   8         start
   9
  10 init:
  11         mov #170, r0
  12         shll8 r0
  13         add #1, r0
  14         shll8 r0
  15         add #66, r0
  16         shll8 r0
  17         mov r0, r1
  18
  19         mov #85, r0
  20         shll8 r0
  21         add #2, r0
  22         shll8 r0
  23         add #42, r0
  24         shll8 r0
  25         add #3, r0
  26
  27 copy:
  28         mov r0, r3
  29         mov r1, r4
  30
  31 xtrct:
  32         xtrct r0, r1
  33
  34 check:
  35         # Lower r3, upper r4.
  36         shll16 r3
  37         shlr16 r4
  38         or r3, r4
  39         cmp/eq r1, r4
  40         bf wrong
  41
  42 okay:
  43         pass
  44 wrong:
  45         fail
  46