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]!
vm-dev@lists.squeakfoundation.org