[Vm-dev] VM Maker: VMMaker.oscog-tfel.1431.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Aug 12 07:04:55 UTC 2015
Tim Felgentreff uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-tfel.1431.mcz
==================== Summary ====================
Name: VMMaker.oscog-tfel.1431
Author: tfel
Time: 12 August 2015, 9:03:42.197 am
UUID: 5c3941c4-ec5d-5842-8d20-ff51dd53e5cd
Ancestors: VMMaker.oscog-eem.1430
Merge from VMMaker-bak.364: simulate SNAPSHOT primitive (requires SystemTracer2 to be installed)
=============== Diff against VMMaker.oscog-eem.1430 ===============
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