Vm-dev August 2012

vm-dev@lists.squeakfoundation.org

18 participants
60 discussions

VM Maker: VMMaker-dtl.284.mcz
by commits＠source.squeak.org 03 Aug '12

03 Aug '12

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.284.mcz ==================== Summary ==================== Name: VMMaker-dtl.284 Author: dtl Time: 3 August 2012, 1:11:01.543 am UUID: dcf2bd17-a89f-4aa4-a19c-b972928c07ac Ancestors: VMMaker-dtl.283 VMMaker 4.9.9 Revert incorrect change to #pushClosureCopyCopiedValuesBytecode to restore original code that sets the imageFormatVersionNumber. This is still required for saving image files with the correct magic number. VMMaker-dtl.283 contains the incorrect version of #pushClosureCopyCopiedValuesBytecode and should not be used. =============== Diff against VMMaker-dtl.283 =============== Item was changed: ----- Method: Interpreter>>pushClosureCopyCopiedValuesBytecode (in category 'stack bytecodes') ----- pushClosureCopyCopiedValuesBytecode "The compiler has pushed the values to be copied, if any. Find numArgs and numCopied in the byte following. Create a Closure with space for the copiedValues and pop numCopied values off the stack into the closure. Set numArgs as specified, and set startpc to the pc following the block size and jump over that code." | newClosure numArgsNumCopied numArgs numCopied blockSize | + objectMemory bytesPerWord == 4 + ifTrue: [imageFormatVersionNumber := 6504] + ifFalse: [imageFormatVersionNumber := 68002]. numArgsNumCopied := self fetchByte. numArgs := numArgsNumCopied bitAnd: 16rF. numCopied := numArgsNumCopied bitShift: -4. "Split blockSize := (self fetchByte * 256) + self fetchByte. into two because evaluation order in C is undefined." blockSize := self fetchByte << 8. blockSize := blockSize + self fetchByte. self externalizeIPandSP. "This is a pain." newClosure := self closureNumArgs: numArgs instructionPointer: ((objectMemory oopForPointer: localIP) + 2 - (method + objectMemory baseHeaderSize)) numCopiedValues: numCopied. self internalizeIPandSP. "Assume: have just allocated a new closure; it must be young. Thus, can use unchecked stores." objectMemory storePointerUnchecked: ClosureOuterContextIndex ofObject: newClosure withValue: activeContext. reclaimableContextCount := 0. "The closure refers to thisContext so it can't be reclaimed." numCopied > 0 ifTrue: [0 to: numCopied - 1 do: [:i| "Assume: have just allocated a new BlockClosure; it must be young. Thus, can use unchecked stores." objectMemory storePointerUnchecked: i + ClosureFirstCopiedValueIndex ofObject: newClosure withValue: (self internalStackValue: numCopied - i - 1)]. self internalPop: numCopied]. localIP := localIP + blockSize. self fetchNextBytecode. self internalPush: newClosure! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.9.9'! - ^'4.9.8'!

1 0

Re: [Vm-dev] VM Maker: VMMaker-dtl.283.mcz
by David T. Lewis 02 Aug '12

02 Aug '12

On Thu, Aug 02, 2012 at 01:22:01AM +0000, commits(a)source.squeak.org wrote: > > Interpreter>>pushClosureCopyCopiedValuesBytecode no longer needs to set bytesPerWord. Sorry, I meant to say "no longer needs to set imageFormatVersionNumber" Funny how mistakes like that become obvious about one nanosecond after you hit the "Accept" button ;-) Dave

1 0

VM Maker: VMMaker-dtl.283.mcz
by commits＠source.squeak.org 02 Aug '12

02 Aug '12

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.283.mcz ==================== Summary ==================== Name: VMMaker-dtl.283 Author: dtl Time: 1 August 2012, 9:21:25.424 pm UUID: 33489311-5d53-4e24-b4ff-f7f20244535f Ancestors: VMMaker-bf.282 Add the Scratch plugins as external plugins in defaultUnixSpec for "VMMakerTool forUnix". Interpreter>>pushClosureCopyCopiedValuesBytecode no longer needs to set bytesPerWord. Fix ObjectMemorySimulator>>firstIndexableField: refactoring bug, send #lengthOf:hdr:fmt: to interpreter not to self. =============== Diff against VMMaker-bf.282 =============== Item was changed: ----- Method: Interpreter>>pushClosureCopyCopiedValuesBytecode (in category 'stack bytecodes') ----- pushClosureCopyCopiedValuesBytecode "The compiler has pushed the values to be copied, if any. Find numArgs and numCopied in the byte following. Create a Closure with space for the copiedValues and pop numCopied values off the stack into the closure. Set numArgs as specified, and set startpc to the pc following the block size and jump over that code." | newClosure numArgsNumCopied numArgs numCopied blockSize | - objectMemory bytesPerWord == 4 - ifTrue: [imageFormatVersionNumber := 6504] - ifFalse: [imageFormatVersionNumber := 68002]. numArgsNumCopied := self fetchByte. numArgs := numArgsNumCopied bitAnd: 16rF. numCopied := numArgsNumCopied bitShift: -4. "Split blockSize := (self fetchByte * 256) + self fetchByte. into two because evaluation order in C is undefined." blockSize := self fetchByte << 8. blockSize := blockSize + self fetchByte. self externalizeIPandSP. "This is a pain." newClosure := self closureNumArgs: numArgs instructionPointer: ((objectMemory oopForPointer: localIP) + 2 - (method + objectMemory baseHeaderSize)) numCopiedValues: numCopied. self internalizeIPandSP. "Assume: have just allocated a new closure; it must be young. Thus, can use unchecked stores." objectMemory storePointerUnchecked: ClosureOuterContextIndex ofObject: newClosure withValue: activeContext. reclaimableContextCount := 0. "The closure refers to thisContext so it can't be reclaimed." numCopied > 0 ifTrue: [0 to: numCopied - 1 do: [:i| "Assume: have just allocated a new BlockClosure; it must be young. Thus, can use unchecked stores." objectMemory storePointerUnchecked: i + ClosureFirstCopiedValueIndex ofObject: newClosure withValue: (self internalStackValue: numCopied - i - 1)]. self internalPop: numCopied]. localIP := localIP + blockSize. self fetchNextBytecode. self internalPush: newClosure! Item was changed: ----- Method: ObjectMemorySimulator>>firstIndexableField: (in category 'memory access') ----- firstIndexableField: oop "NOTE: overridden from Interpreter to add coercion to CArray" | hdr fmt totalLength fixedFields | self returnTypeC: 'void *'. hdr := self baseHeader: oop. fmt := (hdr >> 8) bitAnd: 16rF. + totalLength := interpreter lengthOf: oop baseHeader: hdr format: fmt. - totalLength := self lengthOf: oop baseHeader: hdr format: fmt. fixedFields := self fixedFieldsOf: oop format: fmt length: totalLength. fmt < 8 ifTrue: [fmt = 6 ifTrue: ["32 bit field objects" ^ self cCoerce: (self pointerForOop: oop + self baseHeaderSize + (fixedFields << 2)) to: 'int *']. "full word objects (pointer or bits)" ^ self cCoerce: (self pointerForOop: oop + self baseHeaderSize + (fixedFields << self shiftForWord)) to: 'oop *'] ifFalse: ["Byte objects" ^ self cCoerce: (self pointerForOop: oop + self baseHeaderSize + fixedFields) to: 'char *']! Item was changed: ----- Method: VMMakerTool class>>defaultUnixSpec (in category 'configurations') ----- defaultUnixSpec "Typical VMMaker spec for a unix/linux target platform" "VMMakerTool defaultUnixSpec" ^#( #( "internal plugins" #ADPCMCodecPlugin #AsynchFilePlugin #BMPReadWriterPlugin #BalloonEnginePlugin #BitBltSimulation #CroquetPlugin #DSAPlugin #DeflatePlugin #DropPlugin #FFTPlugin #FT2Plugin #FilePlugin #FloatArrayPlugin #FloatMathPlugin #GeniePlugin #JPEGReadWriter2Plugin #JPEGReaderPlugin #JoystickTabletPlugin #KlattSynthesizerPlugin #LargeIntegersPlugin #LocalePlugin #MD5Plugin #Matrix2x3Plugin #MiscPrimitivePlugin #RandPlugin #RePlugin #SHA256Plugin #SecurityPlugin #SerialPlugin #SlangTestPlugin #SlangTestSupportPlugin #SocketPlugin #SoundCodecPlugin #SoundGenerationPlugin #SoundPlugin #StarSqueakPlugin #SurfacePlugin ) #( "external plugins" #B3DAcceleratorPlugin #B3DEnginePlugin #ClipboardExtendedPlugin #DBusPlugin #FFIPlugin #FileCopyPlugin #GStreamerPlugin #HostWindowPlugin #KedamaPlugin #KedamaPlugin2 #MIDIPlugin #Mpeg3Plugin #RomePlugin #UUIDPlugin #UnixAioPlugin #UnixOSProcessPlugin #XDisplayControlPlugin + #CameraPlugin + #ScratchPlugin + #UnicodePlugin + #WeDoPlugin ) true "inline flag" false "forBrowser flag" 'unix' "platform" 'src' "source directory for generated sources" 'platforms' "path to platform sources" 4 "unused, was bytesPerWord which is now a compile time definition" true "unused, was flag for source directtory pathname is relative" true "unused, was flag for platforms directory path is relative" 'Interpreter' "interpreter class name" )!

1 0

Re: [Vm-dev] VM Maker: CMakeVMMaker-IgorStasenko.175.mcz
by Igor Stasenko 01 Aug '12

01 Aug '12

Read moar about it here: http://dailyvmotion.wordpress.com/2012/08/01/it-finally-works-freetype-on-w… :) On 1 August 2012 23:50, <commits(a)source.squeak.org> wrote: > > Igor Stasenko uploaded a new version of CMakeVMMaker to project VM Maker: > http://source.squeak.org/VMMaker/CMakeVMMaker-IgorStasenko.175.mcz > > ==================== Summary ==================== > > Name: CMakeVMMaker-IgorStasenko.175 > Author: IgorStasenko > Time: 1 August 2012, 11:50:31.519 pm > UUID: ebc47994-4eb0-7c4f-977b-bde45aced54e > Ancestors: CMakeVMMaker-EstebanLorenzano.174 > > - merge with .174 > > - FT2Plugin now can be build with freetype2 library, > without need to have external scripts in platform sources. > (everything is done by cmake) > - FT2Plugin can now be built as internal on windows > > =============== Diff against CMakeVMMaker-EstebanLorenzano.174 =============== > > Item was changed: > ----- Method: CMFreetype2>>copyArtefacts (in category 'generating actions') ----- > copyArtefacts > > gen puts: > 'add_custom_command( > OUTPUT "${externalModulesDir}/${libraryFileName}" > + COMMAND cp "${ft2libInstalled}" "${externalModulesDir}/${libraryFileName}" > - COMMAND cp ${installPrefix}/lib/${libraryFileName} ${externalModulesDir}/${libraryFileName} > DEPENDS "${ft2libInstalled}" > )'! > > Item was added: > + CMFreetype2 subclass: #CMWin32Freetype2 > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'CMakeVMMaker-Libs'! > + > + !CMWin32Freetype2 commentStamp: '<historical>' prior: 0! > + Some overrides to make freetype build on windows: > + > + Two artifacts to copy: > + > + libfreetype.dll.a > + libfreetype-6.dll > + > + the first one is used at link time with FTPlugin to > + designate the exported symbols of .dll as well as .dll file name. > + > + The second one is ready to use library produced by freetype makefiles. > + > + We pass > + > + -march=i686 > + > + instead of > + > + -arch i386 > + > + to freetype configure, because MSYS GCC on windows don't understands the -arch option. > + ! > > Item was added: > + ----- Method: CMWin32Freetype2 class>>platformName (in category 'as yet unclassified') ----- > + platformName > + ^'win32'! > > Item was added: > + ----- Method: CMWin32Freetype2>>copyArtefacts (in category 'generating actions') ----- > + copyArtefacts > + > + gen puts: > + 'add_custom_command( > + OUTPUT "${externalModulesDir}/${libraryFileName}" > + COMMAND cp "${ft2libInstalled}" "${externalModulesDir}" > + COMMAND cp "${ft2binInstalled}" "${externalModulesDir}" > + DEPENDS "${ft2libInstalled}" > + )'! > > Item was added: > + ----- Method: CMWin32Freetype2>>defaultConfigurationFlags (in category 'settings') ----- > + defaultConfigurationFlags > + ^#( > + 'CFLAGS=''-march=i686''' > + 'LDFLAGS=''-march=i686''')! > > Item was added: > + ----- Method: CMWin32Freetype2>>defineGlobalTargets (in category 'generating actions') ----- > + defineGlobalTargets > + | var | > + var := self canonicalName , '_LIB'. > + vmGen set: var toString: self targetForLinking. > + " > + define a library as imported one > + and make it depend from it's build target > + " > + vmGen > + puts: > + ('add_library("{1}" STATIC IMPORTED GLOBAL) > + set_target_properties("{1}" PROPERTIES IMPORTED_LOCATION "{1}") > + add_dependencies("{1}" "{2}") > + ' format: { '${',var, '}' . self buildTarget } > + ). > + > + vmGen cmd: 'add_dependencies' params: > + vmGen moduleName , ' ' , self buildTarget! > > Item was added: > + ----- Method: CMWin32Freetype2>>libraryFileName (in category 'package properties') ----- > + libraryFileName > + ^ 'libfreetype.dll.a'! > > Item was added: > + ----- Method: CMWin32Freetype2>>setVariables (in category 'generating actions') ----- > + setVariables > + super setVariables. > + > + "add include path" > + gen > + set: #freetype2_includeDir toString: '${installPrefix}/include'; > + set: #libraryFileName to: self libraryFileName; > + set: #freetype2_location toString: '${externalModulesDir}/${libraryFileName}'; > + set: #ft2config toString: '${libSourcesDir}/builds/unix/config.status'; > + set: #ft2libInstalled toString: '${installPrefix}/lib/${libraryFileName}'; > + set: #ft2binInstalled toString: '${installPrefix}/bin/libfreetype-6.dll'. > + ! > > Item was changed: > ----- Method: CogFamilyWindowsConfig>>configureFT2Plugin: (in category 'plugin extra rules') ----- > + configureFT2Plugin: maker > - configureFT2Plugin: maker > - "extra rules for FT2Plugin" > - > - > "extra rules for Freetype plugin. > a custom rule to build freetype library" > + | lib | > + > + " maker isExternal ifFalse: [ > + self error: 'building internal FT2Plugin is not supported yet' > + ]. > + " > + "add freetype library into loop" > + lib := self addThirdpartyLibrary: 'freetype2'. > > + "link plugin with freetype lib" > + maker addExternalLibrary: lib targetForLinking. > + maker includeDirectories: lib includeDir. > - maker set: #freetypeLibDir toString: '${buildDir}/FT2Plugin'. > - maker set: #freetypeLib toString: '${freetypeLibDir}/libfreetype.dll.a'. > > - > - maker cmd: 'add_custom_command' params: 'OUTPUT ${freetypeLib} > - COMMAND "${pluginPlatform}/makeFreetype.dynamic.win32" "${freetypeLibDir}" "${outputDir}" > - COMMENT "Building freetype library" > - '. > - > - maker addSource: '${freetypeLib}'. > - maker addExternalLibrary: '"${freetypeLib}"'. > - > - "the freetype sources are located in {build}/FT2Plugin/freetype2/include " > - maker includeDirectories: '${freetypeLibDir}/freetype2/include' > - > ! > > Item was added: > + ----- Method: CogFamilyWindowsConfig>>externalModulesDir (in category 'as yet unclassified') ----- > + externalModulesDir > + "answer the location in VM bundle, where plugins and rest of dynamic libs will be copied, > + " > + ^ '${outputDir}'! > > Item was changed: > ----- Method: CogFamilyWindowsConfig>>setupDirectories: (in category 'as yet unclassified') ----- > setupDirectories: gen > "we have to override that, because we need to convert windoze paths to msys ones" > - > | dirsInclude | > > - > " write the directories in separate include file" > dirsInclude := gen captureOutputDuring: [ > gen > set: #topDir toString: (self msysPathFor: self topDir fullName); > set: #buildDir toString: (self buildDir ifNil: ['${topDir}/build'] ifNotNil:[ self msysPathFor: self buildDir fullName ]); > set: #thirdpartyDir toString: '${buildDir}/thirdparty'; > set: #platformsDir toString: (self msysPathFor: self platformsDir); > set: #srcDir toString: (self msysPathFor: self srcDir); > set: #srcPluginsDir toString: (pluginsDir ifNil: [ '${srcDir}/plugins' ]); > set: #srcVMDir toString: '${srcDir}/vm'; > set: #platformName toString: self platformName; > set: #targetPlatform to: '${platformsDir}/${platformName}'; > set: #crossDir toString: '${platformsDir}/Cross'; > set: #platformVMDir toString: '${targetPlatform}/vm'; > set: #outputDir toString: (self msysPathFor: self outputDir). > ]. > > self write: dirsInclude toFile: 'directories.cmake'. > > gen include: 'directories.cmake'. > + > + gen set: #externalModulesDir toString: self externalModulesDir. > + ! > - ! > -- Best regards, Igor Stasenko.

1 0

VM Maker: CMakeVMMaker-IgorStasenko.175.mcz
by commits＠source.squeak.org 01 Aug '12

01 Aug '12

Igor Stasenko uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-IgorStasenko.175.mcz ==================== Summary ==================== Name: CMakeVMMaker-IgorStasenko.175 Author: IgorStasenko Time: 1 August 2012, 11:50:31.519 pm UUID: ebc47994-4eb0-7c4f-977b-bde45aced54e Ancestors: CMakeVMMaker-EstebanLorenzano.174 - merge with .174 - FT2Plugin now can be build with freetype2 library, without need to have external scripts in platform sources. (everything is done by cmake) - FT2Plugin can now be built as internal on windows =============== Diff against CMakeVMMaker-EstebanLorenzano.174 =============== Item was changed: ----- Method: CMFreetype2>>copyArtefacts (in category 'generating actions') ----- copyArtefacts gen puts: 'add_custom_command( OUTPUT "${externalModulesDir}/${libraryFileName}" + COMMAND cp "${ft2libInstalled}" "${externalModulesDir}/${libraryFileName}" - COMMAND cp ${installPrefix}/lib/${libraryFileName} ${externalModulesDir}/${libraryFileName} DEPENDS "${ft2libInstalled}" )'! Item was added: + CMFreetype2 subclass: #CMWin32Freetype2 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CMakeVMMaker-Libs'! + + !CMWin32Freetype2 commentStamp: '<historical>' prior: 0! + Some overrides to make freetype build on windows: + + Two artifacts to copy: + + libfreetype.dll.a + libfreetype-6.dll + + the first one is used at link time with FTPlugin to + designate the exported symbols of .dll as well as .dll file name. + + The second one is ready to use library produced by freetype makefiles. + + We pass + + -march=i686 + + instead of + + -arch i386 + + to freetype configure, because MSYS GCC on windows don't understands the -arch option. + ! Item was added: + ----- Method: CMWin32Freetype2 class>>platformName (in category 'as yet unclassified') ----- + platformName + ^'win32'! Item was added: + ----- Method: CMWin32Freetype2>>copyArtefacts (in category 'generating actions') ----- + copyArtefacts + + gen puts: + 'add_custom_command( + OUTPUT "${externalModulesDir}/${libraryFileName}" + COMMAND cp "${ft2libInstalled}" "${externalModulesDir}" + COMMAND cp "${ft2binInstalled}" "${externalModulesDir}" + DEPENDS "${ft2libInstalled}" + )'! Item was added: + ----- Method: CMWin32Freetype2>>defaultConfigurationFlags (in category 'settings') ----- + defaultConfigurationFlags + ^#( + 'CFLAGS=''-march=i686''' + 'LDFLAGS=''-march=i686''')! Item was added: + ----- Method: CMWin32Freetype2>>defineGlobalTargets (in category 'generating actions') ----- + defineGlobalTargets + | var | + var := self canonicalName , '_LIB'. + vmGen set: var toString: self targetForLinking. + " + define a library as imported one + and make it depend from it's build target + " + vmGen + puts: + ('add_library("{1}" STATIC IMPORTED GLOBAL) + set_target_properties("{1}" PROPERTIES IMPORTED_LOCATION "{1}") + add_dependencies("{1}" "{2}") + ' format: { '${',var, '}' . self buildTarget } + ). + + vmGen cmd: 'add_dependencies' params: + vmGen moduleName , ' ' , self buildTarget! Item was added: + ----- Method: CMWin32Freetype2>>libraryFileName (in category 'package properties') ----- + libraryFileName + ^ 'libfreetype.dll.a'! Item was added: + ----- Method: CMWin32Freetype2>>setVariables (in category 'generating actions') ----- + setVariables + super setVariables. + + "add include path" + gen + set: #freetype2_includeDir toString: '${installPrefix}/include'; + set: #libraryFileName to: self libraryFileName; + set: #freetype2_location toString: '${externalModulesDir}/${libraryFileName}'; + set: #ft2config toString: '${libSourcesDir}/builds/unix/config.status'; + set: #ft2libInstalled toString: '${installPrefix}/lib/${libraryFileName}'; + set: #ft2binInstalled toString: '${installPrefix}/bin/libfreetype-6.dll'. + ! Item was changed: ----- Method: CogFamilyWindowsConfig>>configureFT2Plugin: (in category 'plugin extra rules') ----- + configureFT2Plugin: maker - configureFT2Plugin: maker - "extra rules for FT2Plugin" - - "extra rules for Freetype plugin. a custom rule to build freetype library" + | lib | + + " maker isExternal ifFalse: [ + self error: 'building internal FT2Plugin is not supported yet' + ]. + " + "add freetype library into loop" + lib := self addThirdpartyLibrary: 'freetype2'. + "link plugin with freetype lib" + maker addExternalLibrary: lib targetForLinking. + maker includeDirectories: lib includeDir. - maker set: #freetypeLibDir toString: '${buildDir}/FT2Plugin'. - maker set: #freetypeLib toString: '${freetypeLibDir}/libfreetype.dll.a'. - - maker cmd: 'add_custom_command' params: 'OUTPUT ${freetypeLib} - COMMAND "${pluginPlatform}/makeFreetype.dynamic.win32" "${freetypeLibDir}" "${outputDir}" - COMMENT "Building freetype library" - '. - - maker addSource: '${freetypeLib}'. - maker addExternalLibrary: '"${freetypeLib}"'. - - "the freetype sources are located in {build}/FT2Plugin/freetype2/include " - maker includeDirectories: '${freetypeLibDir}/freetype2/include' - ! Item was added: + ----- Method: CogFamilyWindowsConfig>>externalModulesDir (in category 'as yet unclassified') ----- + externalModulesDir + "answer the location in VM bundle, where plugins and rest of dynamic libs will be copied, + " + ^ '${outputDir}'! Item was changed: ----- Method: CogFamilyWindowsConfig>>setupDirectories: (in category 'as yet unclassified') ----- setupDirectories: gen "we have to override that, because we need to convert windoze paths to msys ones" - | dirsInclude | - " write the directories in separate include file" dirsInclude := gen captureOutputDuring: [ gen set: #topDir toString: (self msysPathFor: self topDir fullName); set: #buildDir toString: (self buildDir ifNil: ['${topDir}/build'] ifNotNil:[ self msysPathFor: self buildDir fullName ]); set: #thirdpartyDir toString: '${buildDir}/thirdparty'; set: #platformsDir toString: (self msysPathFor: self platformsDir); set: #srcDir toString: (self msysPathFor: self srcDir); set: #srcPluginsDir toString: (pluginsDir ifNil: [ '${srcDir}/plugins' ]); set: #srcVMDir toString: '${srcDir}/vm'; set: #platformName toString: self platformName; set: #targetPlatform to: '${platformsDir}/${platformName}'; set: #crossDir toString: '${platformsDir}/Cross'; set: #platformVMDir toString: '${targetPlatform}/vm'; set: #outputDir toString: (self msysPathFor: self outputDir). ]. self write: dirsInclude toFile: 'directories.cmake'. gen include: 'directories.cmake'. + + gen set: #externalModulesDir toString: self externalModulesDir. + ! - !

1 0

A VM-dev blog. (Was: Re: [Pharo-project] Going meta (VM development))
by Igor Stasenko 01 Aug '12

01 Aug '12

So, i registered a blog on wordpress and sent invitation to join to following people: Esteban, Dave, Eliot, Guillermo, Camillo, Dimitry, Sean. The blog address is dailyVMotion.wordpress.com The idea behind this blog is to brag about what you do, what you did or what you plan to do.. It don't have to be too technical or too precise (as documentation does), but just hold enough information to navigate in the VM sea and stay tuned. So, people can put notes, read others notes, comment, and then (the most important aspect) return back to things after a while once they find time to deal with it, instead of digging mail archives.. Not saying, that visitors can be more aware of what happens around VM. Note, this is NOT my private blog or something. All participants will have admin rights and all can post whatever they want there, of course if it related to VM. So, if you like the idea, then join :) P.S. I am not sure that i invited all today's Cog VM developers. So, if i miss someone, please forgive me, (it was not intentional) and let me know, so i can fix this :) -- Best regards, Igor Stasenko.

1 0

VM Maker: VMMaker.oscog-lw.193.mcz
by commits＠source.squeak.org 01 Aug '12

01 Aug '12

Lars Wassermann uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-lw.193.mcz ==================== Summary ==================== Name: VMMaker.oscog-lw.193 Author: lw Time: 1 August 2012, 2:00:23.969 pm UUID: 930a01b6-2f8b-9b4e-b8c2-a1357af8276c Ancestors: VMMaker.oscog-lw.192 - added some more concretize methods, namely some move methods with multiplication (e.g. MoveRXwrR), and LoadEffectiveAddressMwrR - added tests for PrefetchAw, MoveCwR and PushR. MoveCwR is used in half the opcodes, whenever there is a word-constant. Therefore testing was important. - changed the preamble of Call, because for call, there should not be sane address checks. =============== Diff against VMMaker.oscog-lw.192 =============== Item was changed: ----- Method: CogARMCompiler>>callerSavedRegisterMask (in category 'accessing') ----- callerSavedRegisterMask + "registers r0-r3, the lowest four, +lr" + ^16r40F! - "registers r0-r3, the lowest four" - ^16rF! Item was changed: ----- Method: CogARMCompiler>>computeMaximumSize (in category 'generate machine code') ----- computeMaximumSize "Because we don't use Thumb, each instruction has a multiple of 4 bytes. Most have exactly 4, but some abstract opcodes need more than one instruction." ({CmpCqR. AddCqR. SubCqR. AndCqR. OrCqR. XorCqR} anySatisfy: [ :each | each = opcode]) ifTrue: [^self rotateable8bitImmediate: (operands at: 0) ifTrue: [:r :i| maxSize := 4] ifFalse: [maxSize := 20]]. ({CmpCwR. AddCwR. SubCwR. AndCwR. OrCwR. XorCwR} anySatisfy: [ :each | each = opcode]) ifTrue: [^maxSize := 20]. ({Jump. JumpR. JumpZero. JumpNonZero. JumpNegative. JumpNonNegative. JumpOverflow. JumpOverflow. JumpNoOverflow. JumpCarry. JumpNoCarry. JumpLess. JumpGreaterOrEqual. JumpGreater. JumpLessOrEqual. JumpBelow. JumpAboveOrEqual} anySatisfy: [ :each | each = opcode]) ifTrue: [^maxSize := 20]. opcode caseOf: { [Label] -> [^maxSize := 0]. [AlignmentNops] -> [^maxSize := (operands at: 0) - 1]. [MoveAwR] -> [^maxSize := 16]. [MoveCqR] -> [^self rotateable8bitImmediate: (operands at: 0) ifTrue: [:r :i| maxSize := 4] ifFalse: [maxSize := 16]]. [MoveCwR] -> [^maxSize := 16]. [MoveRAw] -> [^maxSize := 16]. + [MoveRMwr] -> [self is12BitValue: (operands at: 1) + ifTrue: [ :u :i | ^maxSize := 4] + ifFalse: [ ^maxSize := 20 ]]. + [MoveRMbr] -> [self is12BitValue: (operands at: 1) + ifTrue: [ :u :i | ^maxSize := 4] + ifFalse: [ ^maxSize := 20 ]]. [MoveMwrR] -> [self is12BitValue: (operands at: 0) ifTrue: [ :u :i | ^maxSize := 4] ifFalse: [ ^maxSize := 20 ]]. + [MoveMbrR] -> [self is12BitValue: (operands at: 0) + ifTrue: [ :u :i | ^maxSize := 4] + ifFalse: [ ^maxSize := 20 ]]. + [PrefetchAw] -> [^maxSize := 16]. [RetN] -> [^(operands at: 0) = 0 ifTrue: [maxSize := 4] ifFalse: [maxSize := 8]]. [JumpR] -> [^maxSize := 8]. [JumpFPEqual] -> [^maxSize := 8]. [JumpFPNotEqual] -> [^maxSize := 8]. [JumpFPLess] -> [^maxSize := 8]. [JumpFPGreaterOrEqual] -> [^maxSize := 8]. [JumpFPGreater] -> [^maxSize := 8]. [JumpFPLessOrEqual] -> [^maxSize := 8]. [JumpFPOrdered] -> [^maxSize := 8]. [JumpFPUnordered] -> [^maxSize := 8]. [JumpLong] -> [^maxSize := 20]. [JumpLongZero] -> [^maxSize := 20]. [JumpLongNonZero] -> [^maxSize := 20]. + [LoadEffectiveAddressMwrR] -> [self rotateable8bitImmediate: (operands at: 0) + ifTrue: [ :r :i | ^maxSize := 4] + ifFalse: [^maxSize := 20]]. + [PushCw] -> [^maxSize := 20]. } otherwise: [^maxSize := 4]. ^4 "to keep C compiler quiet" ! Item was changed: ----- Method: CogARMCompiler>>concretizeAddCqR (in category 'generate machine code - concretize') ----- concretizeAddCqR "Will get inlined into concretizeAt: switch." "Try whether the quick constant is a small negative number. If it is, optimize." <inline: true> + self rotateable8bitImmediate: (operands at: 0) - ^self rotateable8bitImmediate: (operands at: 0) ifTrue: [ :rot :immediate | | reg | reg := self concreteRegister: (operands at: 1). self machineCodeAt: 0 put: ((self t: 1 o: 4 s: 1) bitOr: reg << 16). machineCode at: 0 put: immediate. machineCode at: 1 put: (reg << 4 bitOr: rot). ^machineCodeSize := 4] ifFalse: [ self rotateable8bitImmediate: (operands at: 0) negated ifTrue: [ :r :i | opcode := SubCqR. operands at: 0 put: (operands at: 0) negated. + ^self concretizeDataOperationCqR: 2] + ifFalse: [^self concretizeDataOperationCwR: 4]]! - self concretizeDataOperationCqR: 2] - ifFalse: [self concretizeDataOperationCwR: 4]]! Item was changed: ----- Method: CogARMCompiler>>concretizeCall (in category 'generate machine code - concretize') ----- concretizeCall "Will get inlined into concretizeAt: switch." <inline: true> + | offset | + self assert: (operands at: 0) ~= 0. + self assert: (operands at: 0) \\ 4 = 0. + offset := (operands at: 0) signedIntFromLong - (address + 8) signedIntFromLong. - | jumpTarget offset | - "TODO extract method: jumpTarget calculator together with CogIA32Compiler>>concretizeConditionalJump: and self class>>concretizeConditionalJump:" - <var: #jumpTarget type: #'AbstractInstruction *'> - jumpTarget := cogit cCoerceSimple: (operands at: 0) to: #'AbstractInstruction *'. - cogit assertSaneJumpTarget: jumpTarget. - (self isAnInstruction: jumpTarget) ifTrue: - [jumpTarget := cogit cCoerceSimple: jumpTarget address to: #'AbstractInstruction *']. - self assert: jumpTarget ~= 0. - offset := jumpTarget signedIntFromLong - (address + 8) signedIntFromLong. - (self isQuick: offset) ifTrue: [ self machineCodeAt: 0 put: (self t: 5 o: 8) + (offset >> 2 bitAnd: 16r00FFFFFF). "BL offset" ^machineCodeSize := 4] ifFalse: [ self halt] "We should push at least lr. The problem is, that any push added here is only executed after return, and therefore useless."! Item was changed: ----- Method: CogARMCompiler>>concretizeConditionalJump: (in category 'generate machine code - concretize') ----- concretizeConditionalJump: conditionCode "Will get inlined into concretizeAt: switch." "Sizing/generating jumps. Jump targets can be to absolute addresses or other abstract instructions. Generating initial trampolines instructions may have no maxSize and be to absolute addresses. Otherwise instructions must have a machineCodeSize which must be kept to." <inline: true> | offset | offset := self computeJumpTargetOffsetPlus: 8. (self isQuick: offset) ifTrue: [ self machineCodeAt: 0 put: (self t: 5 o: 8) + (offset >> 2 bitAnd: 16r00FFFFFF). "BL offset" ^machineCodeSize := 4] ifFalse: [ + ^self concretizeConditionalJumpLong: conditionCode]! - self concretizeConditionalJumpLong: conditionCode]! Item was changed: ----- Method: CogARMCompiler>>concretizeDataOperationCqR: (in category 'generate machine code - concretize') ----- concretizeDataOperationCqR: opcode "Will get inlined into concretizeAt: switch." + "4 == Add, 2 == Sub, Xor == 1, And == 0, Or == 12" - "For 0, we can mov reg, #0" <inline: true> self rotateable8bitImmediate: (operands at: 0) ifTrue: [:rot :immediate | | reg | reg := self concreteRegister: (operands at: 1). self machineCodeAt: 0 put: ((self t: 1 o: opcode s: 1) bitOr: reg << 16). machineCode at: 0 put: immediate. machineCode at: 1 put: (reg << 4 bitOr: rot). ^machineCodeSize := 4] ifFalse: [^self concretizeDataOperationCwR: opcode]. ! Item was added: + ----- Method: CogARMCompiler>>concretizeLoadEffectiveAddressMwrR (in category 'generate machine code - concretize') ----- + concretizeLoadEffectiveAddressMwrR + "Will get inlined into concretizeAt: switch." + "destReg = destReg + offset" + <inline: true> + | srcReg offset destReg | + offset := operands at: 0. + srcReg := self concreteRegister: (operands at: 1). + destReg := self concreteRegister: (operands at: 2). + self rotateable8bitImmediate: offset + ifTrue: [ :rot :immediate | + self machineCodeAt: 0 + "add destReg, srcReg, #immediate" + put: (self t: 1 o: 4 s: 0 rn: srcReg rd: destReg shifterOperand: (rot <<8 bitOr: immediate)). + ^machineCodeSize := 4] + ifFalse: [ + self at: 0 moveCw: offset intoR: RISCTempReg. + "add destReg, srcReg, RISCTempReg" + self machineCodeAt: 16 put: (self t: 0 o: 4 s: 0 rn: srcReg rd: destReg shifterOperand: RISCTempReg). + ^machineCodeSize := 20 ]! Item was added: + ----- Method: CogARMCompiler>>concretizeMoveMbrR (in category 'generate machine code - concretize') ----- + concretizeMoveMbrR + "Will get inlined into concretizeAt: switch." + <inline: true> + | srcReg offset destReg | + offset := operands at: 0. + srcReg := self concreteRegister: (operands at: 1). + destReg := self concreteRegister: (operands at: 2). + self is12BitValue: offset + ifTrue: [ :u :immediate | + self machineCodeAt: 0 + "ldr destReg, [srcReg, #immediate]" + put: (self t: 2 o: (16rA bitOr: u <<2) s: 1 rn: srcReg rd: destReg shifterOperand: immediate). + ^machineCodeSize := 4] + ifFalse: [ + self at: 0 moveCw: offset intoR: RISCTempReg. + "ldr destReg, [srcReg, RISCTempReg]" + self machineCodeAt: 16 put: (self t: 3 o: 16rE s: 1 rn: srcReg rd: destReg shifterOperand: RISCTempReg). + ^machineCodeSize := 20 ]! Item was changed: ----- Method: CogARMCompiler>>concretizeMoveMwrR (in category 'generate machine code - concretize') ----- concretizeMoveMwrR "Will get inlined into concretizeAt: switch." <inline: true> | srcReg offset destReg | offset := operands at: 0. srcReg := self concreteRegister: (operands at: 1). destReg := self concreteRegister: (operands at: 2). self is12BitValue: offset ifTrue: [ :u :immediate | self machineCodeAt: 0 + "ldr destReg, [srcReg, #immediate]" put: (self t: 2 o: (8 bitOr: u <<2) s: 1 rn: srcReg rd: destReg shifterOperand: immediate). ^machineCodeSize := 4] ifFalse: [ self at: 0 moveCw: offset intoR: RISCTempReg. + "ldr destReg, [srcReg, RISCTempReg]" + self machineCodeAt: 16 put: (self t: 3 o: 16rC s: 1 rn: srcReg rd: destReg shifterOperand: RISCTempReg). - self machineCodeAt: 16 put: (self t: 0 o: 4 s: 0 rn: srcReg rd: destReg shifterOperand: RISCTempReg). ^machineCodeSize := 20 ]! Item was added: + ----- Method: CogARMCompiler>>concretizeMoveRMbr (in category 'generate machine code - concretize') ----- + concretizeMoveRMbr + "Will get inlined into concretizeAt: switch." + <inline: true> + | srcReg offset destReg | + srcReg := self concreteRegister: (operands at: 0). + offset := operands at: 1. + destReg := self concreteRegister: (operands at: 2). + self is12BitValue: offset + ifTrue: [ :u :immediate | + "ldr: (self t: 2 o: (8 bitOr: u <<2) s: 1 rn: srcReg rd: destReg shifterOperand: immediate)." + self machineCodeAt: 0 + "strb destReg, [srcReg, #immediate]" + put: (self t: 2 o: (16rA bitOr: u<<2) s: 0 rn: destReg rd: srcReg shifterOperand: immediate). + ^machineCodeSize := 4] + ifFalse: [ + self at: 0 moveCw: offset intoR: RISCTempReg. + "strb destReg, [srcReg, RISCTempReg]" + self machineCodeAt: 16 put: (self t: 3 o: 16rE s: 0 rn: srcReg rd: destReg shifterOperand: RISCTempReg). + ^machineCodeSize := 20 ]! Item was changed: ----- Method: CogARMCompiler>>concretizeMoveRMwr (in category 'generate machine code - concretize') ----- concretizeMoveRMwr "Will get inlined into concretizeAt: switch." <inline: true> | srcReg offset destReg | srcReg := self concreteRegister: (operands at: 0). offset := operands at: 1. destReg := self concreteRegister: (operands at: 2). self is12BitValue: offset ifTrue: [ :u :immediate | + "ldr (self t: 2 o: (8 bitOr: u <<2) s: 1 rn: srcReg rd: destReg shifterOperand: immediate)." - "LDR" - "STR: (self t: 2 o: (8 bitOr: u <<2) s: 1 rn: srcReg rd: destReg shifterOperand: immediate)." self machineCodeAt: 0 + "strb destReg, [srcReg, #immediate]" put: (self t: 2 o: (8 bitOr: u<<2) s: 0 rn: destReg rd: srcReg shifterOperand: immediate). ^machineCodeSize := 4] ifFalse: [ + self at: 0 moveCw: offset intoR: RISCTempReg. + "strb destReg, [srcReg, RISCTempReg]" + self machineCodeAt: 16 put: (self t: 3 o: 16rC s: 0 rn: srcReg rd: destReg shifterOperand: RISCTempReg). - self halt. - ^machineCodeSize := 20 ]! Item was added: + ----- Method: CogARMCompiler>>concretizeMoveRX16rR (in category 'generate machine code - concretize') ----- + concretizeMoveRX16rR + "Will get inlined into concretizeAt: switch." + "Write the word in R(src) into memory at address (base+2*index)" + <inline: true> + | index base src | + src := self concreteRegister: (operands at: 0). + index := self concreteRegister: (operands at: 1). + base := self concreteRegister: (operands at: 2). + "str src, [base, +index, LSL #1]" + "cond 011 1100 0 base srcR 00001 00 0 inde" + self machineCodeAt: 0 put: (self t: 3 o: 16rC s: 0 rn: base rd: src shifterOperand: (16r080 bitOr: index)). + ^machineCodeSize := 4! Item was added: + ----- Method: CogARMCompiler>>concretizeMoveRXbrR (in category 'generate machine code - concretize') ----- + concretizeMoveRXbrR + "Will get inlined into concretizeAt: switch." + "Write the word in R(src) into memory at address (base+1*index)" + <inline: true> + | index base src | + src := self concreteRegister: (operands at: 0). + index := self concreteRegister: (operands at: 1). + base := self concreteRegister: (operands at: 2). + "str src, [base, +index, LSL #0]" + "cond 011 1100 0 base srcR 00000 00 0 inde" + self machineCodeAt: 0 put: (self t: 3 o: 16rC s: 0 rn: base rd: src shifterOperand: index). + ^machineCodeSize := 4! Item was added: + ----- Method: CogARMCompiler>>concretizeMoveRXwrR (in category 'generate machine code - concretize') ----- + concretizeMoveRXwrR + "Will get inlined into concretizeAt: switch." + "Write the word in R(src) into memory at address (base+4*index)" + <inline: true> + | index base src | + src := self concreteRegister: (operands at: 0). + index := self concreteRegister: (operands at: 1). + base := self concreteRegister: (operands at: 2). + "str src, [base, +index, LSL #2]" + "cond 011 1100 0 base srcR 00010 00 0 inde" + self machineCodeAt: 0 put: (self t: 3 o: 16rC s: 0 rn: base rd: src shifterOperand: (16r100 bitOr: index)). + ^machineCodeSize := 4! Item was added: + ----- Method: CogARMCompiler>>concretizePrefetchAw (in category 'generate machine code - concretize') ----- + concretizePrefetchAw + "Will get inlined into concretizeAt: switch." + <inline: true> + | addressOperand | + addressOperand := operands at: 0. + self at: 0 moveCw: addressOperand intoR: RISCTempReg. + "pld [RISCTempReg, +<byte 0>]" + "u = 1, I = 0" + "1111 0101 1101 RTem 1111 0000 byte" + machineCode + at: 15 put: 16rF5; + at: 14 put: (16rD0 bitOr: RISCTempReg); + at: 13 put: 16rF0. + ^machineCodeSize := 16! Item was added: + ----- Method: CogARMCompiler>>concretizePushCw (in category 'generate machine code - concretize') ----- + concretizePushCw + "Will get inlined into concretizeAt: switch." + <inline: true> + | word | + word := operands at: 0. + self at: 0 moveCw: word intoR: RISCTempReg. + self machineCodeAt: 16 put: (self t: 2 o: 9 s: 0 rn: SP rd: RISCTempReg shifterOperand: 4). + ^machineCodeSize := 20! Item was changed: ----- Method: CogARMCompiler>>concretizePushR (in category 'generate machine code - concretize') ----- concretizePushR "Will get inlined into concretizeAt: switch." <inline: true> | srcReg | srcReg := self concreteRegister: (operands at: 0). + "cond | 010 | 1001 | 0 | -Rn- | -Rd- | 0000 0000 0100" "STR srcReg, [sp, #-4]" + self machineCodeAt: 0 put: (self t: 2 o: 9 s: 0 rn: SP rd: srcReg shifterOperand: 4). - "cond | 010 | 1001 | 1 | -Rn- | -Rd- | 0000 0000 0100" "STR srcReg, [sp, #-4]" - self machineCodeAt: 0 put: (self t: 2 o: 9 s: 1 rn: SP rd: srcReg shifterOperand: 4). ^machineCodeSize := 4! Item was changed: ----- Method: CogARMCompiler>>concretizeSubCqR (in category 'generate machine code - concretize') ----- concretizeSubCqR "Will get inlined into concretizeAt: switch." "Try whether the quick constant is a small negative number. If it is, optimize." <inline: true> + self rotateable8bitImmediate: (operands at: 0) - ^self rotateable8bitImmediate: (operands at: 0) ifTrue: [ :rot :immediate | | reg | reg := self concreteRegister: (operands at: 1). self machineCodeAt: 0 put: ((self t: 1 o: 2 s: 1) bitOr: reg << 16). machineCode at: 0 put: immediate. machineCode at: 1 put: (reg << 4 bitOr: rot). ^machineCodeSize := 4] ifFalse: [ self rotateable8bitImmediate: (operands at: 0) negated ifTrue: [ :r :i | opcode := AddCqR. operands at: 0 put: (operands at: 0) negated. + ^self concretizeDataOperationCqR: 4] + ifFalse: [^self concretizeDataOperationCwR: 2]]! - self concretizeDataOperationCqR: 4] - ifFalse: [self concretizeDataOperationCwR: 2]]! Item was changed: ----- Method: CogARMCompiler>>dispatchConcretize (in category 'generate machine code') ----- dispatchConcretize "Attempt to generate concrete machine code for the instruction at address. This is the inner dispatch of concretizeAt: actualAddress which exists only to get around the branch size limits in the SqueakV3 (blue book derived) bytecode set." opcode caseOf: { "Noops & Pseudo Ops" [Label] -> [^self concretizeLabel]. [AlignmentNops] -> [^self concretizeAlignmentNops]. [Fill16] -> [^self concretizeFill16]. [Fill32] -> [^self concretizeFill32]. [FillFromWord] -> [^self concretizeFillFromWord]. [Nop] -> [^self concretizeNop]. "Specific Control/Data Movement" "[LDM] -> [^self concretizeLDM]. [STM] -> [^self concretizeSTM]." "Control" [Call] -> [^self concretizeCall]. [JumpR] -> [^self concretizeJumpR]. [JumpLong] -> [^self concretizeConditionalJumpLong: AL]. [JumpLongZero] -> [^self concretizeConditionalJumpLong: EQ]. [JumpLongNonZero] -> [^self concretizeConditionalJumpLong: NE]. [Jump] -> [^self concretizeConditionalJump: AL]. [JumpZero] -> [^self concretizeConditionalJump: EQ]. [JumpNonZero] -> [^self concretizeConditionalJump: NE]. [JumpNegative] -> [^self concretizeConditionalJump: MI]. [JumpNonNegative] -> [^self concretizeConditionalJump: PL]. [JumpOverflow] -> [^self concretizeConditionalJump: VS]. [JumpNoOverflow] -> [^self concretizeConditionalJump: VC]. [JumpCarry] -> [^self concretizeConditionalJump: CS]. [JumpNoCarry] -> [^self concretizeConditionalJump: CC]. [JumpLess] -> [^self concretizeConditionalJump: LT]. [JumpGreaterOrEqual] -> [^self concretizeConditionalJump: GE]. [JumpGreater] -> [^self concretizeConditionalJump: GT]. [JumpLessOrEqual] -> [^self concretizeConditionalJump: LE]. [JumpBelow] -> [^self concretizeConditionalJump: CS]. "according to http://courses.engr.illinois.edu/ece390/books/labmanual/assembly.html" [JumpAboveOrEqual] -> [^self concretizeConditionalJump: CC]. " --""-- " [JumpAbove] -> [^self concretizeConditionalJump: HI]. [JumpBelowOrEqual] -> [^self concretizeConditionalJump: LS]. [JumpFPEqual] -> [^self concretizeFPConditionalJump: EQ]. [JumpFPNotEqual] -> [^self concretizeFPConditionalJump: NE]. "[JumpFPLess] -> [^self concretizeFPConditionalJump: LT]. [JumpFPGreaterOrEqual] -> [^self concretizeFPConditionalJump: GE]. [JumpFPGreater] -> [^self concretizeFPConditionalJump: GT]. [JumpFPLessOrEqual] -> [^self concretizeFPConditionalJump: LE]. [JumpFPOrdered] -> [^self concretizeFPConditionalJump: VC]. [JumpFPUnordered] -> [^self concretizeFPConditionalJump: VS]." [RetN] -> [^self concretizeRetN]. "Arithmetic" [AddCqR] -> [^self concretizeAddCqR]. [AddCwR] -> [^self concretizeDataOperationCwR: 4]. [AddRR] -> [^self concretizeDataOperationRR: 4]. "[AddRdRd] -> [^self concretizeSEE2OpRdRd: 16r58]." [AndCqR] -> [^self concretizeDataOperationCqR: 0]. [AndCwR] -> [^self concretizeDataOperationCwR: 0]. [AndRR] -> [^self concretizeDataOperationRR: 0]. [CmpCqR] -> [^self concretizeCmpCqR]. [CmpCwR] -> [^self concretizeCmpCwR]. [CmpRR] -> [^self concretizeCmpRR]. [CmpRdRd] -> [^self concretizeCmpRdRd]. "[DivRdRd] -> [^self concretizeSEE2OpRdRd: 16r5E]. [MulRdRd] -> [^self concretizeSEE2OpRdRd: 16r59]." [OrCqR] -> [^self concretizeDataOperationCqR: 16rC]. [OrCwR] -> [^self concretizeDataOperationCwR: 16rC]. [OrRR] -> [^self concretizeDataOperationRR: 16rC]. [SubCqR] -> [^self concretizeSubCqR]. [SubCwR] -> [^self concretizeDataOperationCwR: 2]. [SubRR] -> [^self concretizeDataOperationRR: 2]. "[SubRdRd] -> [^self concretizeSEE2OpRdRd: 16r5C]." [SqrtRd] -> [^self concretizeSqrtRd]. [XorCqR] -> [^self concretizeDataOperationCqR: 1]. [XorCwR] -> [^self concretizeDataOperationCwR: 1]. [XorRR] -> [^self concretizeDataOperationRR: 1]. [NegateR] -> [^self concretizeNegateR]. [LoadEffectiveAddressMwrR] -> [^self concretizeLoadEffectiveAddressMwrR]. [ArithmeticShiftRightCqR] -> [^self concretizeArithmeticShiftRightCqR]. [LogicalShiftRightCqR] -> [^self concretizeLogicalShiftRightCqR]. [LogicalShiftLeftCqR] -> [^self concretizeLogicalShiftLeftCqR]. [ArithmeticShiftRightRR] -> [^self concretizeArithmeticShiftRightRR]. [LogicalShiftLeftRR] -> [^self concretizeLogicalShiftLeftRR]. [LogicalShiftRightRR] -> [^self concretizeLogicalShiftRightRR]. "Data Movement" [MoveCqR] -> [^self concretizeMoveCqR]. [MoveCwR] -> [^self concretizeMoveCwR]. [MoveRR] -> [^self concretizeMoveRR]. [MoveAwR] -> [^self concretizeMoveAwR]. [MoveRAw] -> [^self concretizeMoveRAw]. + "While the two MoveMbR and MoveMwR are quite similar (off by 1 bit), they differ way more to + MoveM16R and MoveM64R. Because of that, they are not merged." [MoveMbrR] -> [^self concretizeMoveMbrR]. [MoveRMbr] -> [^self concretizeMoveRMbr]. [MoveM16rR] -> [^self concretizeMoveM16rR]. [MoveM64rRd] -> [^self concretizeMoveM64rRd]. [MoveMwrR] -> [^self concretizeMoveMwrR]. [MoveXbrRR] -> [^self concretizeMoveXbrRR]. [MoveXwrRR] -> [^self concretizeMoveXwrRR]. [MoveRXwrR] -> [^self concretizeMoveRXwrR]. [MoveRMwr] -> [^self concretizeMoveRMwr]. [MoveRdM64r] -> [^self concretizeMoveRdM64r]. [PopR] -> [^self concretizePopR]. [PushR] -> [^self concretizePushR]. [PushCw] -> [^self concretizePushCw]. [PrefetchAw] -> [^self concretizePrefetchAw]. "Conversion" [ConvertRRd] -> [^self concretizeConvertRRd]. "ARM specific opcodes" [LDMFD] -> [^self concretizeLDMFD]. [STMFD] -> [^self concretizeSTMFD] }! Item was added: + ----- Method: CogARMCompilerTests>>testMoveCwR (in category 'tests') ----- + testMoveCwR + "self new testMoveCwR" + + | memory | + memory := ByteArray new: 16. + #(16rFF00FF00 16r00000012 16r12345678) do: + [:n| | inst len | + self concreteCompilerClass dataRegistersWithAccessorsDo: + [ :r :rgetter :rset | + inst := self gen: MoveCwR operand: n operand: r. + len := inst concretizeAt: 0. + memory replaceFrom: 1 to: len with: inst machineCode object startingAt: 1. + self processor + reset. + [[processor pc < len] whileTrue: + [self processor singleStepIn: memory]] + on: Error + do: [:ex| ]. + self concreteCompilerClass dataRegistersWithAccessorsDo: + [:ireg :getter :setter| | expected | + expected := getter == rgetter ifTrue: [ n ] ifFalse: [0]. + self assert: (self processor perform: getter) = expected]. + self assert: self processor pc = 16]] + ! Item was added: + ----- Method: CogARMCompilerTests>>testPrefetchAw (in category 'tests') ----- + testPrefetchAw + "self new testPrefetchAw" + + #(16rFF00FF00 16r00000012) do: + [:n| | inst len | + inst := self gen: PrefetchAw operand: n. + len := inst concretizeAt: 0. + self processor + disassembleInstructionAt: 12 + In: inst machineCode object + into: [:str :sz| | plainJane herIntended | + "Convert e.g. '00000000: movl %eax, 0x2(%eax) : 89 40 02' to 'movl %eax, 0x2(%eax)'" + plainJane := self strip: str. + herIntended := 'pld [r3', ((n bitAnd: 16rFF) = 0 ifTrue: [''] ifFalse: [', #', (n bitAnd: 16rFF) asString]) ,']'. + self assert: (plainJane match: herIntended). + self assert: len = 16]]. + ! Item was added: + ----- Method: CogARMCompilerTests>>testPushR (in category 'tests') ----- + testPushR + "self new testPushR" + + self concreteCompilerClass registersWithNamesDo: + [:r :name | | inst len | + inst := self gen: PushR operand: r. + len := inst concretizeAt: 0. + self processor + disassembleInstructionAt: 0 + In: inst machineCode object + into: [:str :sz| | plainJane herIntended | + "Convert e.g. '00000000: movl %eax, 0x2(%eax) : 89 40 02' to 'movl %eax, 0x2(%eax)'" + plainJane := self strip: str. + herIntended := 'push {', name ,'}'. + self assert: (plainJane match: herIntended). + self assert: len = 4]]. + ! Item was changed: ----- Method: CogIA32Compiler>>concretizePrefetchAw (in category 'generate machine code') ----- concretizePrefetchAw "Will get inlined into concretizeAt: switch." <inline: true> | addressOperand | machineCodeSize := maxSize. maxSize > 0 ifTrue: [addressOperand := operands at: 0. machineCode at: 0 put: 16r0f; at: 1 put: 16r18; + at: 2 put: (self mod: 0 RM: 5 RO: 1); "prefetch0, prefetch using the T0 temporal data hint" - at: 2 put: (self mod: 0 RM: 5 RO: 1); "prefetch0, prefetch using the T0 tremporal data hint" at: 3 put: (addressOperand bitAnd: 16rFF); at: 4 put: (addressOperand >> 8 bitAnd: 16rFF); at: 5 put: (addressOperand >> 16 bitAnd: 16rFF); at: 6 put: (addressOperand >> 24 bitAnd: 16rFF)]. ^maxSize!

1 0

VM Maker: CMakeVMMaker-EstebanLorenzano.174.mcz
by commits＠source.squeak.org 01 Aug '12

01 Aug '12

Esteban Lorenzano uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-EstebanLorenzano.174.mcz ==================== Summary ==================== Name: CMakeVMMaker-EstebanLorenzano.174 Author: EstebanLorenzano Time: 1 August 2012, 12:05:01.565 pm UUID: 1b426f67-3e63-4b47-a534-40fc56de4f65 Ancestors: CMakeVMMaker-EstebanLorenzano.173 - introduce platform-specificness for 3rdparty libs =============== Diff against CMakeVMMaker-EstebanLorenzano.173 =============== Item was added: + CMFreetype2 subclass: #CMOSXFreetype2 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CMakeVMMaker-Libs'! Item was added: + ----- Method: CMOSXFreetype2 class>>platformName (in category 'as yet unclassified') ----- + platformName + ^'iOS'! Item was removed: - ----- Method: CMThirdpartyLibrary class>>named: (in category 'as yet unclassified') ----- - named: aName - - ^ (self allSubclasses detect: [:cls | cls canonicalName = aName]) - new! Item was added: + ----- Method: CMThirdpartyLibrary class>>named:config: (in category 'as yet unclassified') ----- + named: aName config: aCPlatformConfig + + ^ (self allSubclasses detect: [:cls | + cls canonicalName = aName and: [ cls supports: aCPlatformConfig ] ]) + new! Item was added: + ----- Method: CMThirdpartyLibrary class>>platformName (in category 'as yet unclassified') ----- + platformName + ^nil! Item was added: + ----- Method: CMThirdpartyLibrary class>>supports: (in category 'testing') ----- + supports: aConfig + "default implementation" + ^ self platformName = aConfig platformName ! Item was changed: ----- Method: CPlatformConfig>>addThirdpartyLibrary: (in category 'thirdparty libs') ----- addThirdpartyLibrary: libName | libs lib | libs := self thirdpartyLibs. lib := libs detect: [:each | each canonicalName = libName] ifNone: [ nil ]. lib ifNil: [ + lib := (CMThirdpartyLibrary named: libName config: self). - lib := (CMThirdpartyLibrary named: libName). "add dependencies first, so thirpartyLibs collection will be naturally dependency sorted" lib dependencies do: [:dep | self addThirdpartyLibrary: dep ]. libs add: lib. ]. ^ lib! Item was added: + ----- Method: CPlatformConfig>>platformName (in category 'accessing') ----- + platformName + "override in subclass" + self subclassResponsibility !

1 0

VM Maker: CMakeVMMaker-EstebanLorenzano.173.mcz
by commits＠source.squeak.org 01 Aug '12

01 Aug '12

Esteban Lorenzano uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-EstebanLorenzano.173.mcz ==================== Summary ==================== Name: CMakeVMMaker-EstebanLorenzano.173 Author: EstebanLorenzano Time: 1 August 2012, 11:46:02.715 am UUID: f53e0e46-a3e3-4f7e-8dea-00f099de9a0a Ancestors: CMakeVMMaker-IgorStasenko.172 fixes for compiling freetype on iOS =============== Diff against CMakeVMMaker-IgorStasenko.172 =============== Item was changed: ----- Method: CMFreetype2>>build (in category 'generating actions') ----- build + gen puts: ' add_custom_command(OUTPUT "${ft2config}" + COMMAND ./configure --prefix=''${installPrefix}'' ', self configurationFlags, ' - COMMAND ./configure --prefix=''${installPrefix}'' CFLAGS=''-arch i386'' LDFLAGS=''-arch i386'' WORKING_DIRECTORY "${libSourcesDir}" DEPENDS "${unpackTarget}" ) add_custom_command(OUTPUT "${ft2libInstalled}" COMMAND make COMMAND make install WORKING_DIRECTORY "${libSourcesDir}" DEPENDS "${ft2config}" COMMENT "Building ${libName}" ) ' ! Item was changed: + ----- Method: CMFreetype2>>includeDir (in category 'accessing') ----- - ----- Method: CMFreetype2>>includeDir (in category 'as yet unclassified') ----- includeDir "see setVariables" " `<prefix>/include/freetype2' must be in your current inclusion path " ^ '"${thirdpartyDir}/out/include" "${thirdpartyDir}/out/include/freetype2"'! Item was changed: Object subclass: #CMThirdpartyLibrary + instanceVariableNames: 'gen vmGen configurationFlags' - instanceVariableNames: 'gen vmGen' classVariableNames: '' poolDictionaries: '' category: 'CMakeVMMaker-Libs'! !CMThirdpartyLibrary commentStamp: 'IgorStasenko 6/7/2012 04:53' prior: 0! My subclasses describing a configuration/settings necessary to build some third-party library used by VM or by one of it's plugins. We cannot use cmake configuration for those libraries, since most of them having own configuration/make scripts which build that library. I serve as a convenience layer for building those libraries and connecting them with cmake configuration, as well as provide necessary information, what output file(s) should be bundled with virtual machine. ! Item was added: + ----- Method: CMThirdpartyLibrary>>configurationFlags (in category 'settings') ----- + configurationFlags + ^(configurationFlags + ifNil: [ self defaultConfigurationFlags ]) + reduce: [ :a :b | a, ' ', b]! Item was added: + ----- Method: CMThirdpartyLibrary>>configurationFlags: (in category 'settings') ----- + configurationFlags: aCollection + configurationFlags := aCollection + ! Item was added: + ----- Method: CMThirdpartyLibrary>>defaultConfigurationFlags (in category 'settings') ----- + defaultConfigurationFlags + ^#( + 'CFLAGS=''-arch i386''' + 'LDFLAGS=''-arch i386''')! Item was changed: ----- Method: CogFamilyCocoaIOSConfig>>setGlobalOptions: (in category 'settings') ----- setGlobalOptions: maker "set any CMake global options, before declaring a project in cmake file" + maker set: 'CMAKE_C_COMPILER' to: '/usr/bin/gcc'. + maker set: 'CMAKE_CXX_COMPILER' to: '/usr/bin/g++'. - maker set: 'CMAKE_C_COMPILER' to: '/usr/bin/gcc-4.2'. - maker set: 'CMAKE_CXX_COMPILER' to: '/usr/bin/g++-4.2'. maker set: 'CMAKE_OSX_ARCHITECTURES' to: 'i386'. maker set: 'CMAKE_OSX_SYSROOT' to: '/'. " maker set: 'CMAKE_OSX_SYSROOT' to: '/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.6.sdk'"! Item was changed: ----- Method: StackIPhoneConfig>>commonCompilerFlags (in category 'settings') ----- commonCompilerFlags "Common compiler flags" ^{ "'-miphoneos-version-min=4.3'. " '-isysroot /Applications/Xcode.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS', self sdkVersion, '.sdk'. '-x objective-c'. '-std=gnu99'. '-falign-functions=16'. '-fno-gcse'. '-fno-cse-follow-jumps'. '-fvisibility=hidden'. '-funroll-loops'. '-finline-functions'. '-mno-thumb'. '-fwrapv'. '-DSTACKVM=1'. '-DCOGMTVM=0'. '-DUSE_GLOBAL_STRUCT=0'. '-DBASE_HEADER_SIZE=4'. '-DTARGET_OS_IS_IPHONE'. '-DHAVE_UUID_GENERATE'. "'-DUSE_INLINE_MEMORY_ACCESSORS'. " '-DHAVE_SYS_TIME_H'. '-DLSB_FIRST'. '-DHAVE_NANOSLEEP'. '-DISQUEAK_IMAGE=', self imageName. '-DISQUEAK_SOURCES=PharoV10'}! Item was added: + ----- Method: StackIPhoneConfig>>configureFT2Plugin: (in category 'plugin extra rules') ----- + configureFT2Plugin: maker + "extra rules for Freetype plugin. + a custom rule to build freetype library" + | lib devRoot sdkRoot | + + maker isExternal + ifFalse: [ self error: 'building internal FT2Plugin is not supported yet' ]. + + devRoot := '/Applications/Xcode.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer'. + sdkRoot := '{devRoot}/SDKs/iPhoneOS{sdkVersion}.sdk' + nameFormat: {'devRoot'->devRoot. 'sdkVersion'->self sdkVersion} asDictionary. + + "add freetype library into loop" + lib := self addThirdpartyLibrary: 'freetype2'. + lib configurationFlags: ({ + '--host=arm-apple-darwin'. + '--enable-static=yes'. + '--enable-shared=yes'. + 'CC={devRoot}/usr/bin/gcc'. + 'CXX={devRoot}/usr/bin/g++'. + "'AR={devRoot}/usr/bin/ld'." + 'CFLAGS=\\"-arch armv6 -std=c99 -Wno-trigraphs -O2 -fwrapv -Wreturn-type -Wunused-variable -fmessage-length=0 -miphoneos-version-min=4.0 -I{sdkRoot}/usr/include/libxml2 -isysroot {sdkRoot}\\"'. + 'LDFLAGS=\\"-arch armv6 -isysroot {sdkRoot}\\"'} + collect: [ :each | each nameFormat: {'sdkRoot'->sdkRoot. 'devRoot'->devRoot} asDictionary ]). + + "maker set: 'XCODE_ATTRIBUTE_CONFIGURATION_BUILD_DIR' toString: ''." + + "link plugin with freetype lib" + maker addExternalLibrary: lib targetForLinking. + maker includeDirectories: lib includeDir. + ! Item was changed: ----- Method: StackIPhoneConfig>>platformSources (in category 'source files') ----- platformSources "files added from platform/iOS/vm dir " ^ #( 'Common/main.m' 'Common/Classes/Queue.m' 'Common/Classes/sqMacV2Time.c' 'Common/Classes/sqSqueakAppDelegate.m' 'Common/Classes/sqSqueakFileDirectoryAPI.m' 'Common/Classes/sqSqueakFileDirectoryInterface.m' 'Common/Classes/sqSqueakInfoPlistInterface.m' 'Common/Classes/sqSqueakMainApplication.m' 'Common/Classes/sqSqueakMainApplication+attributes.m' 'Common/Classes/sqSqueakMainApplication+events.m' 'Common/Classes/sqSqueakMainApplication+imageReadWrite.m' 'Common/Classes/sqSqueakMainApplication+sound.m' 'Common/Classes/sqSqueakMainApplication+vmAndImagePath.m' 'Common/Classes/sqSqueakMainApplication+screen.m' 'Common/Classes/sqSqueakMainApplication+cursor.m' "'Common/Classes/sqSqueakCursorAPI.m'" 'Common/Classes/sqSqueakAttributesAPI.m' 'Common/Classes/sqSqueakSoundAPI.m' 'Common/Classes/sqSqueakVmAndImagePathAPI.m' 'Common/Classes/sqSqueakMainApp.m' 'Common/Classes/sqSqueakEventsAPI.m' 'Common/Classes/sqSqueakScreenAPI.m' 'Common/Classes/sqSqueakScreenAndWindow.m' 'iPhone/Classes/SqueakNoOGLIPhoneAppDelegate.m' 'iPhone/Classes/sqSqueakIPhoneApplication.m' 'iPhone/Classes/sqSqueakIPhoneApplication+attributes.m' 'iPhone/Classes/sqSqueakIPhoneApplication+clipboard.m' 'iPhone/Classes/sqSqueakIPhoneApplication+imageReadWrite.m' 'iPhone/Classes/sqSqueakIPhoneApplication+events.m' 'iPhone/Classes/sqSqueakIPhoneApplication+Network.m' 'iPhone/Classes/sqSqueakiPhoneApplication+sound.m' 'iPhone/Classes/sqSqueakIPhoneFileDirectoryInterface.m' 'iPhone/Classes/sqSqueakIPhoneInfoPlistInterface.m' 'iPhone/Classes/sqiPhoneScreenAndWindow.m' 'iPhone/Classes/SqueakUIView.m' 'iPhone/Classes/SqueakUIViewCALayer.m' 'iPhone/Classes/SqueakUIViewOpenGL.m' 'iPhone/Classes/SqueakUIController.m' 'iPhone/Classes/sqSqueakIPhoneClipboardAPI.m' 'iPhone/macintoshextra.c' 'iPhone/osExports.c' "'iPhone/sqDummyaio.c'" "I'm using real aio.c from unix (and seems to work)" 'iPhone/sqMacV2Memory.c' + 'iPhone/sqMacUnixExternalPrims.m' )! Item was changed: ----- Method: StackIPhoneConfig>>setCommonProperties: (in category 'settings') ----- setCommonProperties: maker maker set: 'CMAKE_CROSSCOMPILING' to: 'TRUE'. maker set: 'CMAKE_SYSTEM_NAME' to: 'Darwin'. maker set: 'CMAKE_SYSTEM_PROCESSOR' to: 'arm'. maker set: 'SDKVER' toString: self sdkVersion. maker set: 'DEVROOT' toString: '/Applications/Xcode.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer'. maker set: 'SDKROOT' toString: '${DEVROOT}/SDKs/iPhoneOS${SDKVER}.sdk'. maker set: 'CMAKE_OSX_SYSROOT' to: 'iphoneos${SDKVER}'. - maker set: 'CMAKE_C_COMPILER' to: '${DEVROOT}/usr/bin/llvm-gcc'. - maker set: 'CMAKE_CXX_COMPILER' to: '${DEVROOT}/usr/bin/llvm-g++'. - maker set: 'CMAKE_FIND_ROOT_PATH' to: '"${SDKROOT}" "${DEVROOT}"'. maker set: 'CMAKE_FIND_ROOT_PATH_MODE_PROGRAM' to: 'ONLY'. maker set: 'CMAKE_FIND_ROOT_PATH_MODE_LIBRARY' to: 'ONLY'. maker set: 'CMAKE_FIND_ROOT_PATH_MODE_INCLUDE' to: 'ONLY'. + maker set: 'CMAKE_EXE_LINKER_FLAGS' toString: '--sysroot ${SDKROOT} -L${SDKROOT}/usr/lib -L${SDKROOT}/usr/lib/system'. + maker set: 'CMAKE_C_FLAGS' toString: '--sysroot ${SDKROOT} -L${SDKROOT}/usr/lib -L${SDKROOT}/usr/lib/system'. + maker set: 'CMAKE_CXX_FLAGS' toString: '--sysroot ${SDKROOT} -L${SDKROOT}/usr/lib -L${SDKROOT}/usr/lib/system'. - maker set: 'CMAKE_EXE_LINKER_FLAGS' toString: '-L${SDKROOT}/usr/lib -L${SDKROOT}/usr/lib/system'. maker addFrameworks: self frameworks.! Item was added: + ----- Method: StackIPhoneConfig>>setGlobalOptions: (in category 'settings') ----- + setGlobalOptions: maker + "set any CMake global options, before declaring a project in cmake file" + + maker + set: 'CMAKE_C_COMPILER' + to: '/Applications/Xcode.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/usr/bin/gcc'. + maker + set: 'CMAKE_CXX_COMPILER' + to: '/Applications/Xcode.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/usr/bin/g++'. + maker set: 'CMAKE_OSX_ARCHITECTURES' to: 'arm6'. + maker set: 'CMAKE_OSX_SYSROOT' to: '/'. + ! Item was added: + ----- Method: String>>nameFormat: (in category '*cmakevmmaker-extensions') ----- + nameFormat: aDictionary + "format the receiver with aDictionary + + simplest example: + 'foo {name} bar' format: {'name'->value}. + " + | result stream | + result := String new writeStream. + stream := self readStream. + + [stream atEnd] + whileFalse: [| currentChar | + currentChar := stream next. + currentChar == ${ + ifTrue: [| expression | + expression := self getEnclosedExpressionFrom: stream. + result nextPutAll: (aDictionary at: expression ifAbsent: [ 'UNDEFINED' ]) asString ] + ifFalse: [ + currentChar == $\ + ifTrue: [ + stream atEnd + ifFalse: [result nextPut: stream next]] + ifFalse: [result nextPut: currentChar]]]. + + ^ result contents!

1 0

Re: [squeak-dev] turning off garbage collection
by Eliot Miranda 01 Aug '12

01 Aug '12

On Tue, Jul 31, 2012 at 12:10 PM, Chris Muller <asqueaker(a)gmail.com> wrote: > With standard GC settings the test survived for 30 seconds before VM > crash. When I upped vmParameter 5 to 100,000,000 the test survived > for 228 seconds. > > Is there a way to know when a GC occurs (either kind)? I've > instrumented several methods to log to a global log file -- I'd like > to try to confirm the crash coincides with a GC.. > The API isn't stable but you can turn on tracing of process switches and GCs via thevm -sendtrace 16 my.image Run this under gdb then use dumpTraceLog() to print the events. The problem is that if the crash is in the GC then the problem is probably heap corruption long before the GC (e.g. through an FFI call trampling over the end of an object). There is enormous timing variation in Squeak right now because of Time initialization when the image waits for up to on second to see when the clock ticks, to sync the second and millisecond clocks. I have removed this in our Newspeak images at Cadence, replacing it with use of the 64-bit microsecond clock, which does not have a synchronisation problem since both milliseconds and seconds can be derived from the one clock. But we can't move to this until the standard VM provides 64-bit local microsecond clocks (local and utc) with primitive numbers/names that match cog. > > > > On Tue, Jul 31, 2012 at 1:01 PM, Bert Freudenberg <bert(a)freudenbergs.de> > wrote: > > > > On 31.07.2012, at 09:17, Chris Muller wrote: > > > >> I'm trying to investigate a reproducible Cog crash and beginning to > >> wonder whether Cog may have some sort of timing issue with the garbage > >> collector. > >> > >> Is there an easy way to turn off the garbage collector in the image? > > > > I don't think so, but you could raise the limits so GC occurs less often. > > > > - Bert - > > > > > > > > -- best, Eliot

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev August 2012