Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

6759-Remove-Really-Old-Primitives #6774

Merged
merged 1 commit into from Jul 6, 2020
Merged

6759-Remove-Really-Old-Primitives #6774

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
36 changes: 0 additions & 36 deletions src/System-Support/SmalltalkImage.class.st
View file
Open in desktop
Expand Up @@ -684,13 +684,6 @@ SmalltalkImage >> flushClassNameCache [
globals flushClassNameCache.
]

{ #category : #'memory space' }
SmalltalkImage >> forceTenure [
"Primitive. Tell the GC logic to force a tenure on the next increment GC."
<primitive: 'primitiveForceTenure'>
^self primitiveFailed
]

{ #category : #'image, changes name' }
SmalltalkImage >> fullNameForChangesNamed: aString [

Expand Down Expand Up @@ -897,26 +890,12 @@ SmalltalkImage >> isInteractiveGraphic [
^ false
]

{ #category : #'memory space' }
SmalltalkImage >> isRoot: oop [
"Primitive. Answer whether the object is currently a root for youngSpace."
<primitive: 'primitiveIsRoot'>
^self primitiveFailed
]

{ #category : #printing }
SmalltalkImage >> isSelfEvaluating [
self == Smalltalk ifTrue: [^true].
^super isSelfEvaluating
]

{ #category : #'memory space' }
SmalltalkImage >> isYoung: oop [
"Primitive. Answer whether the object currently resides in youngSpace."
<primitive: 'primitiveIsYoung'>
^self primitiveFailed
]

{ #category : #accessing }
SmalltalkImage >> lastImagePath [
^ LastImagePath
Expand Down Expand Up @@ -1605,21 +1584,6 @@ SmalltalkImage >> renameClassNamed: oldName as: newName [
^ globals renameClassNamed: oldName as: newName
]

{ #category : #'memory space' }
SmalltalkImage >> rootTable [
"Primitive. Answer a snapshot of the VMs root table.
Keep in mind that the primitive may itself cause GC."
<primitive: 'primitiveRootTable'>
^self primitiveFailed
]

{ #category : #'memory space' }
SmalltalkImage >> rootTableAt: index [
"Primitive. Answer the nth element of the VMs root table"
<primitive: 'primitiveRootTableAt'>
^nil
]

{ #category : #saving }
SmalltalkImage >> saveAs [
"Put up the 'saveAs' prompt, obtain a name, and save the image under that new name."
Expand Down
26 changes: 0 additions & 26 deletions src/System-Support/VirtualMachine.class.st
View file
Open in desktop
Expand Up @@ -167,13 +167,6 @@ VirtualMachine >> fullPath [
^self getSystemAttribute: 0
]

{ #category : #gc }
VirtualMachine >> gcBiasToGrow: aBool [
"Tell the VM to grow after tenures instead of running in a tight loop where it does IGCs over and over. For some weird reason the primitive takes an integer not a bool but oh well..."

self primitiveGCBiasToGrow: (aBool ifTrue: [1] ifFalse: [0])
]

{ #category : #gc }
VirtualMachine >> gcBiasToGrowLimit: arg [
"Tell the VM the grow limit if the GC logic has bias to grow."
Expand Down Expand Up @@ -707,14 +700,6 @@ VirtualMachine >> primVmPath [
^ ''
]

{ #category : #primitives }
VirtualMachine >> primitiveGCBiasToGrow: arg [
"Tell the VM to grow after tenures instead of running in a tight loop where it does IGCs over and over. For some weird reason the primitive takes an integer not a bool but oh well..."

<primitive: 'primitiveSetGCBiasToGrow'>
^self primitiveFailed
]

{ #category : #attributes }
VirtualMachine >> processHasThreadIdInstVar: aBoolean [
"The threaded VM needs to know if the 4th inst var of Process
Expand Down Expand Up @@ -742,17 +727,6 @@ VirtualMachine >> processPreemptionYields: aBoolean [
self parameterAt: 48 put: ((self parameterAt: 48) bitClear: 4) + (aBoolean ifTrue: [0] ifFalse: [2r100])
]

{ #category : #gc }
VirtualMachine >> setGCBiasToGrow: aNumber [
"Primitive. Indicate that the GC logic should be bias to grow"
<primitive: 'primitiveSetGCBiasToGrow'>
^self primitiveFailed
"Example:
Smalltalk vm setGCBiasToGrowGCLimit: 16*1024*1024.
Smalltalk vm setGCBiasToGrow: 1.
"
]

{ #category : #gc }
VirtualMachine >> setGCBiasToGrowGCLimit: aNumber [
"Primitive. Indicate that the bias to grow logic should do a GC after aNumber Bytes"
Expand Down