srl.cgs 988 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. # frv testcase for srl $GRi,$GRj,$GRk
  2. # mach: all
  3. .include "testutils.inc"
  4. start
  5. .global srl
  6. srl:
  7. set_gr_limmed 0xdead,0xbee0,gr7 ; Shift by 0
  8. set_gr_limmed 0x8000,0x0000,gr8
  9. set_icc 0x05,0 ; Set mask opposite of expected
  10. srl gr8,gr7,gr8
  11. test_icc 0 1 0 1 icc0
  12. test_gr_limmed 0x8000,0x0000,gr8
  13. set_gr_limmed 0xdead,0xbee1,gr7 ; Shift by 1
  14. set_gr_limmed 0x8000,0x0000,gr8
  15. set_icc 0x0f,0 ; Set mask opposite of expected
  16. srl gr8,gr7,gr8
  17. test_icc 1 1 1 1 icc0
  18. test_gr_limmed 0x4000,0x0000,gr8
  19. set_gr_limmed 0xdead,0xbeff,gr7 ; Shift by 31
  20. set_gr_limmed 0x8000,0x0000,gr8
  21. set_icc 0x0f,0 ; Set mask opposite of expected
  22. srl gr8,gr7,gr8
  23. test_icc 1 1 1 1 icc0
  24. test_gr_immed 1,gr8
  25. set_gr_limmed 0xdead,0xbeff,gr7 ; clear register
  26. set_gr_limmed 0x4000,0x0000,gr8
  27. set_icc 0x0a,0 ; Set mask opposite of expected
  28. srl gr8,gr7,gr8
  29. test_icc 1 0 1 0 icc0
  30. test_gr_immed 0x00000000,gr8
  31. pass