Cross Reference: /src/external/gpl3/gdb.old/dist/sim/testsuite/m32r/sra.cgs

      1 # m32r testcase for sra $dr,$sr
      2 # mach(): m32r m32rx
      3 
      4 	.include "testutils.inc"
      5 
      6 	start
      7 
      8 	.global sra
      9 sra:
     10 
     11 	mvi_h_gr  r4, 0xf0f0f0ff
     12 	mvi_h_gr  r5, 4
     13 	sra       r4, r5
     14 	test_h_gr r4, 0xff0f0f0f
     15 
     16 	pass
     17