[Vm-dev] VM Maker: Cog-eem.306.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of Cog to project VM Maker:
http://source.squeak.org/VMMaker/Cog-eem.306.mcz

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

Name: Cog-eem.306
Author: eem
Time: 9 December 2015, 12:32:25.478 pm
UUID: cc4a9cbc-43bb-49bc-bf32-5a7eaaae14b7
Ancestors: Cog-eem.305

Add all the fp registers to the x64 alien and provide a (paritally implemented) convenience to zero all the fp regs (for displaying regs each instruction, stripped of the noise of the fp regs).

=============== Diff against Cog-eem.305 ===============

Item was added:
+ ----- Method: BochsX64Alien>>floatingPointRegisterStateSetters (in category 'accessing-abstract') -----
+ floatingPointRegisterStateSetters
+ 	^#(	xmm0low: xmm1low: xmm2low: xmm3low:
+ 		xmm4low: xmm5low: xmm6low: xmm7low:
+ 		xmm9low: xmm9low: xmm10low: xmm11low:
+ 		xmm12low: xmm13low: xmm14low: xmm15low:)!

Item was changed:
  ----- Method: BochsX64Alien>>registerStateGetters (in category 'accessing-abstract') -----
  registerStateGetters
+ 	^#(	rax rcx rdx rbx rsp rbp rsi rdi r8 r9 r10 r11 r12 r13 r14 r15
- 	^#(rax rcx rdx rbx rsp rbp rsi rdi r8 r9 r10 r11 r12 r13 r14 r15
  		rip rflags
  		xmm0low xmm1low xmm2low xmm3low
+ 		xmm4low xmm5low xmm6low xmm7low
+ 		xmm9low xmm9low xmm10low xmm11low
+ 		xmm12low xmm13low xmm14low xmm15low)!
- 		xmm4low xmm5low xmm6low xmm7low )!

Item was changed:
  ----- Method: BochsX64Alien>>registerStateSetters (in category 'accessing-abstract') -----
  registerStateSetters
+ 	^#(	rax: rcx: rdx: rbx: rsp: rbp: rsi: rdi: r8: r9: r10: r11: r12: r13: r14: r15:
- 	^#(rax: rcx: rdx: rbx: rsp: rbp: rsi: rdi: r8: r9: r10: r11: r12: r13: r14: r15:
  		rip: rflags:
  		xmm0low: xmm1low: xmm2low: xmm3low:
+ 		xmm4low: xmm5low: xmm6low: xmm7low:
+ 		xmm9low: xmm9low: xmm10low: xmm11low:
+ 		xmm12low: xmm13low: xmm14low: xmm15low:)!
- 		xmm4low: xmm5low: xmm6low: xmm7low: )!

Item was added:
+ ----- Method: BochsX64Alien>>xmm10high (in category 'accessing') -----
+ xmm10high
+ 	^self unsignedLongLongAt: 1581!

Item was added:
+ ----- Method: BochsX64Alien>>xmm10high: (in category 'accessing') -----
+ xmm10high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1581 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm10low (in category 'accessing') -----
+ xmm10low
+ 	^self unsignedLongLongAt: 1573!

Item was added:
+ ----- Method: BochsX64Alien>>xmm10low: (in category 'accessing') -----
+ xmm10low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1573 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm11high (in category 'accessing') -----
+ xmm11high
+ 	^self unsignedLongLongAt: 1597!

Item was added:
+ ----- Method: BochsX64Alien>>xmm11high: (in category 'accessing') -----
+ xmm11high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1597 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm11low (in category 'accessing') -----
+ xmm11low
+ 	^self unsignedLongLongAt: 1589!

Item was added:
+ ----- Method: BochsX64Alien>>xmm11low: (in category 'accessing') -----
+ xmm11low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1589 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm12high (in category 'accessing') -----
+ xmm12high
+ 	^self unsignedLongLongAt: 1613!

Item was added:
+ ----- Method: BochsX64Alien>>xmm12high: (in category 'accessing') -----
+ xmm12high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1613 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm12low (in category 'accessing') -----
+ xmm12low
+ 	^self unsignedLongLongAt: 1605!

Item was added:
+ ----- Method: BochsX64Alien>>xmm12low: (in category 'accessing') -----
+ xmm12low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1605 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm13high (in category 'accessing') -----
+ xmm13high
+ 	^self unsignedLongLongAt: 1629!

Item was added:
+ ----- Method: BochsX64Alien>>xmm13high: (in category 'accessing') -----
+ xmm13high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1629 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm13low (in category 'accessing') -----
+ xmm13low
+ 	^self unsignedLongLongAt: 1621!

Item was added:
+ ----- Method: BochsX64Alien>>xmm13low: (in category 'accessing') -----
+ xmm13low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1621 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm14high (in category 'accessing') -----
+ xmm14high
+ 	^self unsignedLongLongAt: 1645!

Item was added:
+ ----- Method: BochsX64Alien>>xmm14high: (in category 'accessing') -----
+ xmm14high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1645 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm14low (in category 'accessing') -----
+ xmm14low
+ 	^self unsignedLongLongAt: 1637!

Item was added:
+ ----- Method: BochsX64Alien>>xmm14low: (in category 'accessing') -----
+ xmm14low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1637 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm15high (in category 'accessing') -----
+ xmm15high
+ 	^self unsignedLongLongAt: 1661!

Item was added:
+ ----- Method: BochsX64Alien>>xmm15high: (in category 'accessing') -----
+ xmm15high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1661 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm15low (in category 'accessing') -----
+ xmm15low
+ 	^self unsignedLongLongAt: 1653!

Item was added:
+ ----- Method: BochsX64Alien>>xmm15low: (in category 'accessing') -----
+ xmm15low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1653 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm8high (in category 'accessing') -----
+ xmm8high
+ 	^self unsignedLongLongAt: 1549!

Item was added:
+ ----- Method: BochsX64Alien>>xmm8high: (in category 'accessing') -----
+ xmm8high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1549 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm8low (in category 'accessing') -----
+ xmm8low
+ 	^self unsignedLongLongAt: 1541!

Item was added:
+ ----- Method: BochsX64Alien>>xmm8low: (in category 'accessing') -----
+ xmm8low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1541 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm9high (in category 'accessing') -----
+ xmm9high
+ 	^self unsignedLongLongAt: 1565!

Item was added:
+ ----- Method: BochsX64Alien>>xmm9high: (in category 'accessing') -----
+ xmm9high: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1565 put: anUnsignedInteger!

Item was added:
+ ----- Method: BochsX64Alien>>xmm9low (in category 'accessing') -----
+ xmm9low
+ 	^self unsignedLongLongAt: 1557!

Item was added:
+ ----- Method: BochsX64Alien>>xmm9low: (in category 'accessing') -----
+ xmm9low: anUnsignedInteger
+ 	^self unsignedLongLongAt: 1557 put: anUnsignedInteger!

Item was added:
+ ----- Method: CogProcessorAlien>>zeroFloatingPointRegisters (in category 'accessing-abstract') -----
+ zeroFloatingPointRegisters
+ 	self floatingPointRegisterStateSetters do:
+ 		[:setter| self perform: setter with: 0]!