Merge remote-tracking branch 'pharo-project/druid' into druid-oldclos…

…ures
pharo-project · Mar 27, 2024 · 13a88eb · 13a88eb
2 parents 6708f9d + 789cdfe
commit 13a88eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/smalltalksrc/VMMaker/InterpreterPrimitives.class.st b/smalltalksrc/VMMaker/InterpreterPrimitives.class.st
@@ -1084,7 +1084,7 @@ InterpreterPrimitives >> primitiveBitShift [
 		ifTrue:
 			[integerReceiver := self positive32BitValueOf: integerReceiver]
 		ifFalse:
-			[integerReceiver := objectMemory integerValueOf: integerReceiver].
+			[integerReceiver := objectMemory signed64BitValueOf: integerReceiver].
 	self successful ifTrue:
 		[(integerArgument := objectMemory integerValueOf: integerArgument) >= 0
 			ifTrue: "Left shift -- must fail bits would be lost"