[Vm-dev] VM Maker: VMMaker.oscog-tpr.780.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jun 26 01:57:25 UTC 2014
tim Rowledge uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-tpr.780.mcz
==================== Summary ====================
Name: VMMaker.oscog-tpr.780
Author: tpr
Time: 25 June 2014, 6:54:22.34 pm
UUID: 00c7d818-3c36-4cf6-97ad-8950ed03d7a6
Ancestors: VMMaker.oscog-eem.779
tiny changes to improve trace printing readability in ioLoadFunction*
=============== Diff against VMMaker.oscog-eem.779 ===============
Item was changed:
----- Method: CogVMSimulator>>ioLoadFunction:From: (in category 'plugin support') -----
ioLoadFunction: functionString From: pluginString
"Load and return the requested function from a module"
| firstTime plugin fnSymbol |
firstTime := false.
fnSymbol := functionString asSymbol.
transcript
cr;
show: '(', byteCount printString, ') Looking for ', functionString, ' in ',
(pluginString isEmpty ifTrue:['vm'] ifFalse:[pluginString]).
functionString = breakSelector ifTrue: [self halt: breakSelector].
plugin := pluginList
detect:[:any| any key = pluginString asString]
ifNone:
[firstTime := true.
self loadNewPlugin: pluginString].
plugin ifNil:
[firstTime ifTrue: [transcript cr; show: 'Failed ... primitive not in plugin'].
^0].
plugin := plugin value.
mappedPluginEntries doWithIndex:
[:pluginAndName :index|
((pluginAndName at: 1) == plugin
and:[(pluginAndName at: 2) == fnSymbol]) ifTrue:
[^index]].
(plugin respondsTo: fnSymbol) ifFalse:
[firstTime ifTrue: [transcript cr; show: 'Failed ... primitive not in plugin'].
^0].
mappedPluginEntries addLast: (Array
with: plugin
with: fnSymbol
with: [plugin perform: fnSymbol. self]).
"Transcript show: ' ... okay'."
+ transcript cr.
^ mappedPluginEntries size!
Item was changed:
----- Method: CogVMSimulator>>ioLoadFunction:From:AccessorDepthInto: (in category 'plugin support') -----
ioLoadFunction: functionString From: pluginString AccessorDepthInto: accessorDepthPtr
"Load and return the requested function from a module.
Assign the accessor depth through accessorDepthPtr.
N.B. The actual code lives in platforms/Cross/vm/sqNamedPrims.h"
| firstTime plugin fnSymbol |
firstTime := false.
fnSymbol := functionString asSymbol.
transcript
cr;
show: '(', byteCount printString, ') Looking for ', functionString, ' in ',
(pluginString isEmpty ifTrue:['vm'] ifFalse:[pluginString]).
(breakSelector notNil
and: [(self str: functionString n: breakSelector cmp: functionString size) = 0]) ifTrue:
[self halt: functionString].
plugin := pluginList
detect: [:any| any key = pluginString asString]
ifNone:
[firstTime := true.
self loadNewPlugin: pluginString].
plugin ifNil:
[firstTime ifTrue: [transcript cr; show: 'Failed ... primitive not in plugin'].
^0].
plugin := plugin value.
mappedPluginEntries doWithIndex:
[:pluginAndName :index|
((pluginAndName at: 1) == plugin
and:[(pluginAndName at: 2) == fnSymbol]) ifTrue:
[firstTime ifTrue: [transcript show: ' ... okay'; cr].
accessorDepthPtr at: 0 put: (pluginAndName at: 4).
^index]].
firstTime ifTrue: [transcript cr; show: 'Failed ... primitive not in plugin'].
+ transcript cr.
^0!
Item was changed:
----- Method: CurrentImageCoInterpreterFacade>>getCheckAllocFiller (in category 'cog jit support') -----
getCheckAllocFiller
^coInterpreter getCheckAllocFiller ifNil: [false]!
More information about the Vm-dev
mailing list