'From Squeak3.8.2a of ''26 Oct 2007'' [latest update: #6748] on 1 July 2009 at 7:08:49 pm'! "Change Set: M7260-bytecodePrimGreaterEqual-update-dtl Date: 1 July 2009 Author: David T. Lewis One too many double negatives in the last patch. Reported by Bert and confirmed by Andreas and Nicolas, see http://lists.squeakfoundation.org/pipermail/vm-dev/2009-July/002780.html"! !Interpreter methodsFor: 'common selector sends' stamp: 'dtl 7/1/2009 18:38'! bytecodePrimGreaterOrEqual | rcvr arg aBool | rcvr := self internalStackValue: 1. arg := self internalStackValue: 0. (self areIntegers: rcvr and: arg) ifTrue: [self cCode: '' inSmalltalk: [^self booleanCheat: (self integerValueOf: rcvr) >= (self integerValueOf: arg)]. ^self booleanCheat: rcvr >= arg]. successFlag := true. aBool := self primitiveFloatGreaterOrEqual: rcvr toArg: arg. successFlag ifTrue: [^self booleanCheat: aBool]. messageSelector := self specialSelector: 5. argumentCount := 1. self normalSend! ! !Interpreter methodsFor: 'common selector sends' stamp: 'dtl 7/1/2009 18:39'! bytecodePrimLessOrEqual | rcvr arg aBool | rcvr := self internalStackValue: 1. arg := self internalStackValue: 0. (self areIntegers: rcvr and: arg) ifTrue: [self cCode: '' inSmalltalk: [^self booleanCheat: (self integerValueOf: rcvr) <= (self integerValueOf: arg)]. ^ self booleanCheat: rcvr <= arg]. successFlag := true. aBool := self primitiveFloatLessOrEqual: rcvr toArg: arg. successFlag ifTrue: [^self booleanCheat: aBool]. messageSelector := self specialSelector: 4. argumentCount := 1. self normalSend! !