[Vm-dev] VM Maker: VMMaker.oscog-eem.788.mcz

[commits at source.squeak.org]

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!