Adding extra descriptors on the interpreter as pragmas on bytecode me…

…thods
tesonep · Apr 25, 2023 · 7e38e7f · 7e38e7f
1 parent 4783c54
commit 7e38e7f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/smalltalksrc/VMMaker/StackInterpreter.class.st b/smalltalksrc/VMMaker/StackInterpreter.class.st
@@ -12514,6 +12514,7 @@ StackInterpreter >> pushLiteralConstant: literalIndex [
 { #category : #'stack bytecodes' }
 StackInterpreter >> pushLiteralConstantBytecode [
 	<expandCases>
+	<needsFrameNever: 1>
 	self
 		cCode: "this bytecode will be expanded so that refs to currentBytecode below will be constant"
 			[self fetchNextBytecode.
@@ -12620,6 +12621,7 @@ StackInterpreter >> pushNewArrayBytecode [
 
 { #category : #'stack bytecodes' }
 StackInterpreter >> pushReceiverBytecode [
+	<needsFrameNever: 1>
 
 	self fetchNextBytecode.
 	self push: self receiver.
@@ -12635,6 +12637,7 @@ StackInterpreter >> pushReceiverVariable: fieldIndex [
 { #category : #'stack bytecodes' }
 StackInterpreter >> pushReceiverVariableBytecode [
 	<expandCases>
+	<needsFrameNever: 1>
 	self
 		cCode: "this bytecode will be expanded so that refs to currentBytecode below will be constant"
 			[self fetchNextBytecode.
@@ -13073,6 +13076,9 @@ StackInterpreter >> returnTopFromBlock [
 
 { #category : #'return bytecodes' }
 StackInterpreter >> returnTopFromMethod [
+	<compilationInfo: #return>
+	<compilationInfo: #isMappedInBlock>
+	<needsFrameIfInBlock: -1>
 
 	self commonReturn: self stackTop
 ]