Fix compilation

- hide free - move allocateParameters:using: up
tesonep · Mar 4, 2021 · b935a86 · b935a86
1 parent 743df58
commit b935a86
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 11 deletions.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -5775,7 +5775,7 @@ SpurMemoryManager >> freeTreeOverlapCheck [
 SpurMemoryManager >> freeUnscannedEphemerons [
 	"Free all the memory allocated to keep the unscanned ephemerons"
 
-	memoryManager free: unscannedEphemerons start
+	self free: unscannedEphemerons start
 ]
 
 { #category : #'simulation only' }

diff --git a/smalltalksrc/VMMaker/StackInterpreterPrimitives.class.st b/smalltalksrc/VMMaker/StackInterpreterPrimitives.class.st
@@ -8,6 +8,17 @@ Class {
 	#category : #'VMMaker-Interpreter'
 }
 
+{ #category : #initialization }
+StackInterpreterPrimitives >> allocateParameters: anInteger using: allocationBlock [
+	<inline: #always>
+
+	anInteger = 0 ifTrue: [ ^ nil ].
+
+	^ self
+		cCode: [ allocationBlock value: anInteger ]
+		inSmalltalk: [ CArrayAccessor on: (Array new: anInteger) ]
+]
+
 { #category : #'primitive support' }
 StackInterpreterPrimitives >> cloneContext: aContext [ 
 	| sz cloned spouseFP sp |

diff --git a/smalltalksrc/VMMakerTests/VMTestMockInterpreter.class.st b/smalltalksrc/VMMakerTests/VMTestMockInterpreter.class.st
@@ -8,17 +8,13 @@ Class {
 	#category : #VMMakerTests
 }
 
-{ #category : #initialization }
+{ #category : #'memory testing' }
 VMTestMockInterpreter >> allocateParameters: anInteger using: allocationBlock [
-	<inline: #always>
-
-	anInteger = 0 ifTrue: [ ^ nil ].
-
-	^ self
-		cCode: [ allocationBlock value: anInteger ]
-		inSmalltalk: [ | ptr | 
-			ptr := CArrayAccessor on: (Array new: anInteger).
-			allocatedElements add: ptr ]
+
+	| allocated |
+	allocated := super allocateParameters: anInteger using: allocationBlock.
+	allocatedElements add: allocated.
+	^ allocated
 ]
 
 { #category : #'memory testing' }