Hi,
I've pushed a change to the BitBlt simulation code to the Inbox (VMMaker-tfel.358), because I didn't know where else to put it. With these changes, we are able to run a current 4.5 image with VMMaker loaded on our RSqueakVM, with BitBlt entirely run from within the image.
The goal is to have the VM run as many plugins as possible from pure Smalltalk, so there will be more slight changes and maybe the odd performance improvement for the simulation forthcoming. Is this something that would be ok with everyone?
Here's the diff:
BitBltSimulation>>loadColorMap: (changed) loadColorMap "ColorMap, if not nil, must be longWords, and 2^N long, where N = sourceDepth for 1, 2, 4, 8 bits, or N = 9, 12, or 15 (3, 4, 5 bits per color) for 16 or 32 bits." | cmSize oldStyle oop cmOop | <inline: true> cmFlags := cmMask := cmBitsPerColor := 0. cmShiftTable := nil. cmMaskTable := nil. cmLookupTable := nil. cmOop := interpreterProxy fetchPointer: BBColorMapIndex ofObject: bitBltOop. cmOop = interpreterProxy nilObject ifTrue: [^ true]. cmFlags := ColorMapPresent. "even if identity or somesuch - may be cleared later" oldStyle := false. (interpreterProxy isWords: cmOop) ifTrue: ["This is an old-style color map (indexed only, with implicit RGBA conversion)" cmSize := interpreterProxy slotSizeOf: cmOop. cmLookupTable := interpreterProxy firstIndexableField: cmOop. - oldStyle := true. - self - cCode: '' - inSmalltalk: [self assert: cmLookupTable unitSize = 4]] + oldStyle := true] ifFalse: ["A new-style color map (fully qualified)" ((interpreterProxy isPointers: cmOop) and: [(interpreterProxy slotSizeOf: cmOop) >= 3]) ifFalse: [^ false]. cmShiftTable := self loadColorMapShiftOrMaskFrom: (interpreterProxy fetchPointer: 0 ofObject: cmOop). cmMaskTable := self loadColorMapShiftOrMaskFrom: (interpreterProxy fetchPointer: 1 ofObject: cmOop). oop := interpreterProxy fetchPointer: 2 ofObject: cmOop. oop = interpreterProxy nilObject ifTrue: [cmSize := 0] ifFalse: [(interpreterProxy isWords: oop) ifFalse: [^ false]. cmSize := interpreterProxy slotSizeOf: oop. cmLookupTable := interpreterProxy firstIndexableField: oop]. cmFlags := cmFlags bitOr: ColorMapNewStyle. self cCode: '' inSmalltalk: [self assert: cmShiftTable unitSize = 4. self assert: cmMaskTable unitSize = 4. self assert: cmLookupTable unitSize = 4]]. (cmSize bitAnd: cmSize - 1) = 0 ifFalse: [^ false]. cmMask := cmSize - 1. cmBitsPerColor := 0. cmSize = 512 ifTrue: [cmBitsPerColor := 3]. cmSize = 4096 ifTrue: [cmBitsPerColor := 4]. cmSize = 32768 ifTrue: [cmBitsPerColor := 5]. cmSize = 0 ifTrue: [cmLookupTable := nil. cmMask := 0] ifFalse: [cmFlags := cmFlags bitOr: ColorMapIndexedPart]. oldStyle ifTrue: ["needs implicit conversion" self setupColorMasks]. "Check if colorMap is just identity mapping for RGBA parts" (self isIdentityMap: cmShiftTable with: cmMaskTable) ifTrue: [cmMaskTable := nil. cmShiftTable := nil] ifFalse: [cmFlags := cmFlags bitOr: ColorMapFixedPart]. ^ true
BitBltSimulator>>halftoneAt: (added) +halftoneAt: idx + ^ halftoneBase + (idx \ halftoneHeight * 4) long32At: 0
-- View this message in context: http://forum.world.st/VMMaker-tfel-358-in-Inbox-Fixes-for-BitBlt-simulation-... Sent from the Squeak VM mailing list archive at Nabble.com.