Add push and pop operations on specific stack pages

Author: guillep

smalltalksrc/VMMaker/StackInterpreter.class.st

@@ -4926,9 +4926,9 @@ StackInterpreter >> divorceFrame: theFP andContext: ctxt [
 			 - pop the instruction pointer
 			 - pop the suspension reason too
 			 - push the instruction pointer back"
-			savedIP := self popStack.
-			self popStack.
-			self push: savedIP ].
+			savedIP := self popFromStackPage: thePage.
+			self popFromStackPage: thePage.
+			self pushValue: savedIP toStackPage: thePage ].
 	self updateStateOfSpouseContextForFrame: theFP WithSP: theSP.
 
 	callerCtx := self ensureCallerContext: theFP.
@@ -10590,6 +10590,20 @@ StackInterpreter >> popFloat [
 	^objectMemory floatValueOf: self popStack
 ]
 
+{ #category : 'internal interpreter access' }
+StackInterpreter >> popFromStackPage: aPage [
+	"In the StackInterpreter stacks grow down."
+	<api>
+	| top |
+	<inline: true>
+	
+	aPage == stackPage ifTrue: [ ^ self popStack ].
+	
+	top := stackPages unsignedLongAt: aPage headSP.
+	aPage headSP: aPage headSP + objectMemory wordSize.
+	^top
+]
+
 { #category : 'internal interpreter access' }
 StackInterpreter >> popPos32BitInteger [
 	"May set successFlag, and return false if not valid"
@@ -12988,6 +13002,19 @@ StackInterpreter >> pushTemporaryVariableBytecode [
 			 self fetchNextBytecode]
 ]
 
+{ #category : 'internal interpreter access' }
+StackInterpreter >> pushValue: aValue toStackPage: aPage [
+	"In the StackInterpreter stacks grow down."
+	<api>
+	<inline: true>
+	<var: #sp type: #'char *'>
+	| sp |
+	aPage == stackPage ifTrue: [ ^ self push: aValue ].
+	
+	stackPages unsignedLongAt: (sp := aPage headSP - objectMemory wordSize) put: aValue.
+	aPage headSP: sp
+]
+
 { #category : 'frame access' }
 StackInterpreter >> pushedReceiverOrClosureOfFrame: theFP [
 	"The receiver of a message send or the closure of a block activation is