Extending permSpace when there is not enough place

hernanmd · Apr 5, 2022 · 2255c07 · 2255c07
1 parent 1870c61
commit 2255c07
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 1 deletion.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -2496,7 +2496,9 @@ SpurMemoryManager >> allocateSlotsInPermSpace: numSlots bytes: totalBytes format
 	| chunk newOop |
 
 	permSpaceFreeStart + totalBytes > memoryMap permSpaceEnd
-		ifTrue: [ ^ nil ].
+		ifTrue: [ 
+			memoryMap extendPermObjectsSpace 
+				ifFalse: [ ^ nil ] ].
 	
 	chunk := permSpaceFreeStart.
 	permSpaceFreeStart := permSpaceFreeStart + totalBytes.

diff --git a/smalltalksrc/VMMaker/VMMemoryMap.class.st b/smalltalksrc/VMMaker/VMMemoryMap.class.st
@@ -212,6 +212,25 @@ VMMemoryMap >> doCheckMemoryMap [
 
 ]
 
+{ #category : #allocating }
+VMMemoryMap >> extendPermObjectsSpace [
+
+	| requestedSize extendedAddress |
+	requestedSize := 10 * 1024 * 1024.
+
+
+	extendedAddress := self 
+		allocateMemory: requestedSize 
+		BaseAddress: self permSpaceEnd.
+
+	extendedAddress ~= self permSpaceEnd 
+		ifTrue: [ self logError: 'Could not extend perm space.'. ^ false ].
+
+	self permSpaceEnd: self permSpaceEnd + requestedSize.	
+
+	^ true.
+]
+
 { #category : #accessing }
 VMMemoryMap >> initialCodeZoneSize [
 

diff --git a/smalltalksrc/VMMaker/VMStructType.class.st b/smalltalksrc/VMMaker/VMStructType.class.st
@@ -339,6 +339,13 @@ VMStructType class >> typedef [
 	^String streamContents: [:s| self printTypedefOn: s]
 ]
 
+{ #category : #'debug support' }
+VMStructType >> logError: aMessage [
+
+	<doNotGenerate>
+	self logError: aMessage withArgs: #()
+]
+
 { #category : #printing }
 VMStructType >> printOn: aStream [
 	"A hook to allow subclasses to print their state if useful."