VM Maker: Cog-rmacnak.299.mcz

 
Ryan Macnak uploaded a new version of Cog to project VM Maker:
http://source.squeak.org/VMMaker/Cog-rmacnak.299.mcz

==================== Summary ====================

Name: Cog-rmacnak.299
Author: rmacnak
Time: 30 November 2015, 6:55:38.035 pm
UUID: 5cf0cfa6-509a-48f5-ae66-4375da66ffa1
Ancestors: Cog-rmacnak.298

MIPS simulator and disassembler: fix decoding R-type shift amount.

=============== Diff against Cog-rmacnak.298 ===============

Item was added:
+ ----- Method: MIPSELSimulatorTests>>testSllLarge (in category 'tests - arithmetic') -----
+ testSllLarge
+ | result |
+ self
+ testGenerateInto:
+ [:stream :compiler |
+ stream nextPut: (compiler sllR: V0 R: A0 C: 31).
+ stream nextPut: (compiler jR: RA).
+ stream nextPut: (compiler nop). "Delay slot"]
+ disassembly:
+ '00000000  000417C0  sll v0, a0, 31
+ 00000004  03E00008  jr ra
+ 00000008  00000000  nop
+ ' run:
+ [:simulator |
+ result := simulator call: 0 with: 0 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: 42 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: -42 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: 1 with: 0 with: 0 with: 0.
+ self assert: result equals: -16r80000000.
+ result := simulator call: 0 with: -1 with: 0 with: 0 with: 0.
+ self assert: result equals: -16r80000000].!

Item was added:
+ ----- Method: MIPSELSimulatorTests>>testSraLarge (in category 'tests - arithmetic') -----
+ testSraLarge
+ | result |
+ self
+ testGenerateInto:
+ [:stream :compiler |
+ stream nextPut: (compiler sraR: V0 R: A0 C: 31).
+ stream nextPut: (compiler jR: RA).
+ stream nextPut: (compiler nop). "Delay slot"]
+ disassembly:
+ '00000000  000417C3  sra v0, a0, 31
+ 00000004  03E00008  jr ra
+ 00000008  00000000  nop
+ ' run:
+ [:simulator |
+ result := simulator call: 0 with: 0 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: 42 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: -42 with: 0 with: 0 with: 0.
+ self assert: result equals: -1].!

Item was added:
+ ----- Method: MIPSELSimulatorTests>>testSrlLarge (in category 'tests - arithmetic') -----
+ testSrlLarge
+ | result |
+ self
+ testGenerateInto:
+ [:stream :compiler |
+ stream nextPut: (compiler srlR: V0 R: A0 C: 31).
+ stream nextPut: (compiler jR: RA).
+ stream nextPut: (compiler nop). "Delay slot"]
+ disassembly:
+ '00000000  000417C2  srl v0, a0, 31
+ 00000004  03E00008  jr ra
+ 00000008  00000000  nop
+ ' run:
+ [:simulator |
+ result := simulator call: 0 with: 0 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: 42 with: 0 with: 0 with: 0.
+ self assert: result equals: 0.
+ result := simulator call: 0 with: -42 with: 0 with: 0 with: 0.
+ self assert: result equals: 1].!

Item was changed:
  ----- Method: MIPSInstruction>>sa (in category 'fields') -----
  sa
+ ^(value >> 6) bitAnd: 31!
- ^(value >> 6) bitAnd: 15!