[Vm-dev] VM Maker: VMMaker-tfel.369.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Aug 12 07:01:05 UTC 2015
Tim Felgentreff uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker-tfel.369.mcz
==================== Summary ====================
Name: VMMaker-tfel.369
Author: tfel
Time: 12 August 2015, 9:00:25.449 am
UUID: 482d7a13-3747-1c4e-b384-021644885eb5
Ancestors: VMMaker-dtl.368, VMMaker-bak.364
simulate SNAPSHOT primitive in RSqueak (requires SystemTracer2 to be installed)
=============== Diff against VMMaker-dtl.368 ===============
Item was changed:
----- Method: SmalltalkImage>>simulatePrimitive:args: (in category '*VMMaker-Interpreter') -----
+ simulatePrimitive: aPrimitive args: args
+ "simulate primitives in RSqueak"
+ "SNAPSHOT"
+ (aPrimitive = 97 or: [aPrimitive = 247])
+ ifTrue: [
+ Smalltalk at: #SystemTracer2 ifPresent: [:st |
+ |resuming|
+ Smalltalk processStartUpList: false.
+ [resuming := (st writeImage: Smalltalk imageName interactive: false) isStartingClone.]
+ on: FileExistsException
+ do: [ :e | e resume: (e fileClass forceNewFileNamed: e fileName)].
+ Smalltalk processShutDownList: false.
+ ^resuming]].
+ ^InterpreterProxy new primitiveFailFor: 255.!
- simulatePrimitive: aPrimitive args: args
- "simulate primitives in RSqueak"
- "IMAGE_NAME"
- aPrimitive = 121
- ifTrue: [^ self getSystemAttribute: 1].
- "SNAPSHOT"
- aPrimitive = 97
- ifTrue: [Smalltalk
- at: #SystemTracer2
- ifPresent: [:st | ^ st writeImage: Smalltalk imageName]].
- "SNAPSHOT_EMBEDDED"
- aPrimitive = 247
- ifTrue: [Smalltalk
- at: #SystemTracer2
- ifPresent: [:st | ^ st writeImage: Smalltalk imageName]].
- ^ InterpreterProxy new primitiveFailFor: 255
- !
More information about the Vm-dev
mailing list