Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.788.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.788 Author: eem Time: 28 June 2014, 10:48:12.786 pm UUID: 487e7744-7e06-4f41-a34d-f1c65b104594 Ancestors: VMMaker.oscog-eem.787
The sender checking in is[Non]IntegerObject: has served out its useful life. It now gets in the way...
=============== Diff against VMMaker.oscog-eem.787 ===============
Item was changed: ----- Method: Spur32BitMMLECoSimulator>>isIntegerObject: (in category 'object testing') ----- isIntegerObject: oop "This list records the valid senders of isIntegerObject: as we replace uses of isIntegerObject: by isImmediate: where appropriate." + "| sel | - | sel | sel := thisContext sender method selector. (#( DoIt DoItIn: baseFrameReturn bereaveAllMarriedContextsForSnapshotFlushingExternalPrimitivesIf: bytecodePrimAt bytecodePrimAtPut bytesOrInt:growTo: ceBaseFrameReturn: checkIsStillMarriedContext:currentFP: checkedIntegerValueOf: cogMethodDoesntLookKosher: commonAt: commonAtPut: commonVariable:at:put:cacheIndex: compare31or32Bits:equal: digitBitLogic:with:opIndex: digitLength: displayBitsOf:Left:Top:Right:Bottom: ensureContextHasBytecodePC: externalInstVar:ofContext: fetchIntOrFloat:ofObject: fetchIntOrFloat:ofObject:ifNil: fetchStackPointerOf: fileValueOf: frameOfMarriedContext: functionForPrimitiveExternalCall: genSpecialSelectorArithmetic genSpecialSelectorComparison inlineCacheTagForInstance: instVar:ofContext: isCogMethodReference: isLiveContext: isMarriedOrWidowedContext: isNegativeIntegerValueOf: isNormalized: loadBitBltDestForm loadBitBltSourceForm loadFloatOrIntFrom: loadPoint:from: magnitude64BitValueOf: makeBaseFrameFor: numPointerSlotsOf: objCouldBeClassObj: + on:do: ""from the debugger"" - on:do: "from the debugger" positive32BitValueOf: positive64BitValueOf: primDigitAdd: primDigitBitShiftMagnitude: primDigitCompare: primDigitDiv:negative: primDigitMultiply:negative: primDigitSubtract: primitiveAllInstances primitiveAsCharacter primitiveContextAt primitiveContextAtPut primitiveExternalCall primitiveFileSetPosition primitiveFileTruncate DoIt primitiveForwardSignalToSemaphore primitiveGrowMemoryByAtLeast primitiveInputSemaphore primitiveMakePoint primitiveNewMethod primitiveObjectAtPut primitiveSizeInBytesOfInstance primitiveVMParameter printContext: quickFetchInteger:ofObject: shortPrint: shortPrintOop: signed32BitValueOf: signed64BitValueOf: subscript:with:storing:format: unlockSurfaces + establishFrameForContextToReturnTo: + positiveMachineIntegerValueOf:) includes: sel) ifFalse: + [self halt]." - establishFrameForContextToReturnTo:) includes: sel) ifFalse: - [self halt]. ^super isIntegerObject: oop!
Item was changed: ----- Method: Spur32BitMMLECoSimulator>>isNonIntegerObject: (in category 'object testing') ----- isNonIntegerObject: oop "This list records the valid senders of isNonIntegerObject: as we replace uses of isNonIntegerObject: by isNonImmediate: where appropriate." + "(#( on:do: ""from the debugger"" - (#( on:do: "from the dbeugger" reverseDisplayFrom:to: primitiveObjectAtPut isCogMethodReference:) includes: thisContext sender method selector) ifFalse: + [self halt]." - [self halt]. ^super isNonIntegerObject: oop!
Item was changed: ----- Method: Spur32BitMMLESimulator>>isIntegerObject: (in category 'object testing') ----- isIntegerObject: oop "This list records the valid senders of isIntegerObject: as we replace uses of isIntegerObject: by isImmediate: where appropriate." + "| sel | - | sel | sel := thisContext sender method selector. (#( DoIt DoItIn: baseFrameReturn bereaveAllMarriedContextsForSnapshotFlushingExternalPrimitivesIf: bytecodePrimAt bytecodePrimAtPut bytesOrInt:growTo: ceBaseFrameReturn: checkIsStillMarriedContext:currentFP: checkedIntegerValueOf: cogMethodDoesntLookKosher: commonAt: commonAtPut: commonVariable:at:put:cacheIndex: compare31or32Bits:equal: digitBitLogic:with:opIndex: digitLength: displayBitsOf:Left:Top:Right:Bottom: ensureContextHasBytecodePC: externalInstVar:ofContext: fetchIntOrFloat:ofObject: fetchIntOrFloat:ofObject:ifNil: fetchStackPointerOf: fileValueOf: frameOfMarriedContext: functionForPrimitiveExternalCall: genSpecialSelectorArithmetic genSpecialSelectorComparison inlineCacheTagForInstance: instVar:ofContext: isCogMethodReference: isLiveContext: isMarriedOrWidowedContext: isNegativeIntegerValueOf: isNormalized: loadBitBltDestForm loadBitBltSourceForm loadFloatOrIntFrom: loadPoint:from: magnitude64BitValueOf: makeBaseFrameFor: numPointerSlotsOf: objCouldBeClassObj: + on:do: ""from the debugger"" - on:do: "from the debugger" positive32BitValueOf: positive64BitValueOf: primDigitAdd: primDigitBitShiftMagnitude: primDigitCompare: primDigitDiv:negative: primDigitMultiply:negative: primDigitSubtract: primitiveAllInstances primitiveAsCharacter primitiveContextAt primitiveContextAtPut primitiveExternalCall primitiveFileSetPosition primitiveFileTruncate DoIt primitiveForwardSignalToSemaphore primitiveGrowMemoryByAtLeast primitiveInputSemaphore primitiveMakePoint primitiveNewMethod primitiveObjectAtPut primitiveSizeInBytesOfInstance primitiveVMParameter printContext: quickFetchInteger:ofObject: shortPrint: shortPrintOop: signed32BitValueOf: signed64BitValueOf: subscript:with:storing:format: unlockSurfaces + establishFrameForContextToReturnTo: + positiveMachineIntegerValueOf:) includes: sel) ifFalse: + [self halt]." - establishFrameForContextToReturnTo:) includes: sel) ifFalse: - [self halt]. ^super isIntegerObject: oop!
Item was changed: ----- Method: Spur32BitMMLESimulator>>isNonIntegerObject: (in category 'object testing') ----- isNonIntegerObject: oop "This list records the valid senders of isNonIntegerObject: as we replace uses of isNonIntegerObject: by isNonImmediate: where appropriate." + "(#( on:do: ""from the debugger"" - (#( on:do: "from the dbeugger" reverseDisplayFrom:to: primitiveObjectAtPut isCogMethodReference:) includes: thisContext sender method selector) ifFalse: + [self halt]." - [self halt]. ^super isNonIntegerObject: oop!
vm-dev@lists.squeakfoundation.org