VM Simulator Scripts

Instantiating a Cog VM simulator

| sim |
InterpreterStackPages initialize.
StackInterpreterSimulator initializeWithOptions: Dictionary new.
sim :=  StackInterpreterSimulator new.
sim openOn: 'pharo4/Pharo.image'.
sim openAsMorph.

sim initStackPages.
sim loadInitialContext.
sim internalizeIPandSP.
sim fetchNextBytecode.
10000000 timesRepeat: [ sim singleStep ].
[sim run] fork.

Intantiating a Spur VM simulator

vm := StackInterpreterSimulator newWithOptions: #(#ObjectMemory #Spur32BitMemoryManager ).
om := vm objectMemory.
vm desiredNumStackPages: 8. "Makes simulation faster by creating fewer stack pages."
vm openOn: Smalltalk imagePath.
vm instVarNamed: 'assertVEPAES' put: false. "This makes the simulation faster by turning off some expensive asserts"
vm openAsMorph 

[[vm runForNBytes: 1500000]
		on: Halt , ProvideAnswerNotification "This exception handler ignores some halts and confirmers occurring during simulation"
		do: [:ex | 
			ex messageText == #primitiveExecuteMethodArgsArray
				ifTrue: [ex resume].
			ex messageText = 'clear transcript?'
				ifTrue: [ex resume: false].
			ex pass]] ensure: [Display restore].