From 4f1fa5302c1b7b154079af2255741f13f2204ddd Mon Sep 17 00:00:00 2001 From: hogoww Date: Fri, 25 Feb 2022 12:49:37 +0100 Subject: [PATCH] Mutant #521, Installing [ Replace #ifTrue: with #ifFalse: ] on method [ fetchClassOfNonImm: ] 9 test cases. --- smalltalksrc/VMMaker/SpurMemoryManager.class.st | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st index 134b6d0857..42a858a33b 100644 --- a/smalltalksrc/VMMaker/SpurMemoryManager.class.st +++ b/smalltalksrc/VMMaker/SpurMemoryManager.class.st @@ -4808,17 +4808,17 @@ SpurMemoryManager >> fetchClassOf: oop [ { #category : #'object access' } SpurMemoryManager >> fetchClassOfNonImm: objOop [ + | classIndex | classIndex := self classIndexOf: objOop. - classIndex <= self classIsItselfClassIndexPun ifTrue: - [classIndex = self classIsItselfClassIndexPun ifTrue: - [^objOop]. - "Answer nil to avoid the assert failure in classOrNilAtIndex:" - classIndex = self isForwardedObjectClassIndexPun ifTrue: - [^nilObj]]. + classIndex <= self classIsItselfClassIndexPun ifTrue: [ + classIndex = self classIsItselfClassIndexPun ifTrue: [ ^ objOop ]. + "Answer nil to avoid the assert failure in classOrNilAtIndex:" + classIndex = self isForwardedObjectClassIndexPun ifFalse: [ + ^ nilObj ] ]. self assert: classIndex >= self arrayClassIndexPun. - ^self classOrNilAtIndex: classIndex + ^ self classOrNilAtIndex: classIndex ] { #category : #'interpreter access' }