sim/testsuite/sim/sh64/compact/stcl-gbr.cgs

   1 # sh testcase for stc.l gbr, @-$rn -*- Asm -*-
   2 # mach: all
   3 # as: -isa=shcompact
   4 # ld: -m shelf32
   5
   6         .include "compact/testutils.inc"
   7
   8         start
   9
  10         .global stcl_gbr
  11 stcl_gbr:
  12         mov #42, r0
  13         ldc r0, gbr
  14         mov #40, r0
  15         shll8 r0
  16         # save address
  17         mov r0, r1
  18         stc.l gbr, @-r0
  19
  20         add #4, r0
  21         cmp/eq r0, r1
  22         bf wrong
  23
  24 okay:
  25         pass
  26 wrong:
  27         fail