sim/testsuite/sim/m32r/unlock.cgs

   1 # m32r testcase for unlock $src1,@$src2
   2 # mach(): m32r m32rx
   3
   4         .include "testutils.inc"
   5
   6         start
   7
   8         .global unlock
   9 unlock:
  10         mvaddr_h_gr r4, data_loc
  11         mvi_h_gr    r5, 1
  12
  13         lock r5, @r4
  14
  15         mvi_h_gr r5, 0
  16         unlock r5, @r4
  17
  18         test_h_gr r5, 1
  19
  20         mvi_h_gr r5, 0
  21         unlock r5, @r4  ; This should be a nop since the processor should be unlocked.
  22
  23         test_h_gr r5, 0
  24         pass
  25
  26 data_loc:
  27         .word 0