[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