[Vm-dev] VM Maker: VMMaker.oscog-tfel.1683.mcz

[commits at source.squeak.org]

Tim Felgentreff uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-tfel.1683.mcz

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

Name: VMMaker.oscog-tfel.1683
Author: tfel
Time: 17 February 2016, 5:53:14.824885 pm
UUID: 23976d15-2a83-46ed-8ce9-6ec4c186da1a
Ancestors: VMMaker.oscog-tfel.1682

- Move BitBlt simulation methods into VMMaker, they can only be used if VMMaker is loaded, anyway, and they do not have any senders (besides a duplicated test that is also in VMMaker)
- Avoid ENABLE_FAST_BLT binding lookup in BitBltSimulator, because that is not simulatable code

=============== Diff against VMMaker.oscog-tfel.1682 ===============

Item was added:
+ ----- Method: BitBlt>>copyBitsSimulated (in category '*VMMaker-Interpreter') -----
+ copyBitsSimulated
+ 	^ BitBltSimulation copyBitsFrom: self!

Item was added:
+ ----- Method: BitBlt>>copyBitsSimulated: (in category '*VMMaker-Interpreter') -----
+ copyBitsSimulated: alpha
+ 	^ BitBltSimulation copyBitsFrom: self!

Item was added:
+ ----- Method: BitBltSimulator>>cppIf:ifTrue:ifFalse: (in category 'translation support') -----
+ cppIf: conditionBlockOrSymbolValue ifTrue: trueExpressionOrBlock ifFalse: falseExpressionOrBlockOrNil
+ 	"The simulator does not have fast blt defines"
+ 	^ conditionBlockOrSymbolValue = #'ENABLE_FAST_BLT'
+ 		ifTrue: falseExpressionOrBlockOrNil
+ 		ifFalse: [super
+ 					cppIf: conditionBlockOrSymbolValue
+ 					ifTrue: trueExpressionOrBlock
+ 					ifFalse: falseExpressionOrBlockOrNil]!

Item was added:
+ ----- Method: WarpBlt>>warpBitsSimulated (in category '*VMMaker-Interpreter-system simulation') -----
+ warpBitsSimulated
+ 	"Simulate WarpBlt"
+ 
+ 	cellSize < 1 ifTrue: [ ^self error: 'cellSize must be >= 1' ].
+ 
+ 	self warpBitsSimulated: cellSize
+ 		sourceMap: (sourceForm colormapIfNeededForDepth: 32).
+ !

Item was added:
+ ----- Method: WarpBlt>>warpBitsSimulated:sourceMap: (in category '*VMMaker-Interpreter-system simulation') -----
+ warpBitsSimulated: n sourceMap: sourceMap
+ 	"Simulate WarpBlt"
+ 	^ BitBltSimulation warpBitsFrom: self!