Vm-dev August 2017

vm-dev@lists.squeakfoundation.org

31 participants
61 discussions

build.macos32x86/pharo.cog.spur and dependency tracking
by Holger Freyther 28 Aug '17

28 Aug '17

Hey, I am working on the macos VM right now and I wondered if that is normal/to be expected. When typing make in an already built VM with no modifications I get 655 lines of output and it takes about 7.2s realtime. Is this to be expected? Can this to be improved? No output and 1s? thank you holger

2 7

[OpenSmalltalk/opensmalltalk-vm] eca8f9: 20341-libpng-source-is-no-longer-available
by GitHub 27 Aug '17

27 Aug '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: eca8f94ab459f7c6b2b40515ce20ed650475936a https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/eca8f94ab459f7c6b2… Author: AlistairGrant <akgrant0710(a)gmail.com> Date: 2017-08-27 (Sun, 27 Aug 2017) Changed paths: M third-party/libpng.spec.win Log Message: ----------- 20341-libpng-source-is-no-longer-available The source at ftp.simplesystems.org seems to have gone away. Based on information at http://www.libpng.org/pub/png/libpng.html update the download url to point to sourceforge and update to 1.6.30. Commit: 3cec24288643a069ef1d532ceac2a8367872ae10 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3cec24288643a069ef… Author: Alistair Grant <akgrant0710(a)gmail.com> Date: 2017-08-27 (Sun, 27 Aug 2017) Changed paths: M third-party/libpng.spec.win Log Message: ----------- libpng: update to 1.6.32, back to simplesystems 1.6.32 was released hours after the patch for 1.6.30. Back to ftp.simplesystems.org Commit: 5632acc1487cd21fdf8d2e5026c1592795071bbc https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/5632acc1487cd21fdf… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2017-08-27 (Sun, 27 Aug 2017) Changed paths: M third-party/libpng.spec.win Log Message: ----------- Merge pull request #148 from akgrant43/20341-libpng-source-is-no-longer-available 20341-libpng-source-is-no-longer-available We thus switch to 1.6.32 and might have to further change the ftp source to official: ftp://ftp-osl.osuosl.org/pub/libpng/src/libpng16/ Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/4bbcf27fb7aa...56…

1 0

Re: [Vm-dev] [Pharo-dev] usage of Pharo-vm repository [was Latest Debian, Ubuntu and CentOS packages of the pharo-vm]
by Nicolas Cellier 26 Aug '17

26 Aug '17

2017-08-23 17:14 GMT+02:00 Holger Freyther <holger(a)freyther.de>: > > > > On 18. Aug 2017, at 23:56, Nicolas Cellier <nicolas.cellier.aka.nice@ > gmail.com> wrote: > > Hi! > > Hi Holger, > > Are the packaging stuff in opensmalltalk too, or just in pharo-vm? > > It would be great to move all to opensmalltalk. > > What is specificity of pharo-vm repository now? > > the packaging bits are in the pharo-vm repository only. What is pharo > specific from a technical point of view is that I re-generate the sources > before building the source package. There is a Makefile[1] that drives > building the source package and the actual compilation is here[2]. > > Ah yes, there have been some propositions to perform this task in a specific development branch in opensmalltalk, but so far nothing has happened... As Eliot explained once, we currently have no guaranty to regenerate identical sources (mostly we observe signed/unsigned type swapping). Probably type inference depends on the order of MethodDictionary scanning which is random. Of course it should be fixed, but someone has to do it.... Untill then, generated sources have to be versionned, there is no alternative way, otherwise we don't have reproducible artefacts... A specific build could suddenly start crashing without any easy way to reproduce and debug, think of it twice before regenerating sources... Porting VM to another OS without having to regenerate still is another valuable feature. I also find the ability to track generated-source diffs valuable: it's a complementary check, especially when changing code-generation part. That's why we continue to version generated source, whatever the ready-made thinking. Once the code generation is stable, it can be done by a bot. But don't forget that not all VMMaker commit will produce interesting C sources, because a great deal of development happens in VM-Simulator, not in C - at least the major features that Eliot and Clement are after. > I don't want this to sound offensive but the non-technical part is that it > seems easier to get changes into the PharoVM than into opensmalltalk-vm. > One example could be the FilePlugin and my attempt to use inotify without > periodic polling (wastes power, adds latency and increases your bill in > cloud computing, etc). > > Backporting upstream changes between squeak/newspeak vm and pharo vm was not sustainable, and mostly one way (unfair). That's also what motivated the switch to opensmalltalk: it's dialect neutral. Of course, changes in opensmalltalk must be done with retro and cross compatibility constraints which may require a little more effort, but at worse we have dialect-specific #ifdef directives. Remember that VM stability is valued not only because there are grumpy old and conservative fellows here ;) Without VM stability, how could we have a smooth and sustainable overall development process? That said, I hate nothing much than stale pull request and it's clearly the next obstacle to contributions (in case vm contributions was easy enough). If that's the case, that's regrettable. So don't hesitate to complain here. It doesn't mean that every PR has to be accepted. Ideally, they should be closed in a reasonnable time, with comments telling why or what needs to be improved for inclusion... IMO in absence of dedicated paid staff, we should start closing old PR (exactly as Pharo is closing stale fogbugz entries). it's not satisfying, but letting a long list of open PR is worse. Non-technically speaking, Esteban is among the core developpers of opensmalltalk, so it should be as easy to integrate changes as in a pharo-vm copy, modulo cross and retro compatibility concerns. We are supposed to have non regression tests to lower the level of heroism of the poor human integrators that we all are. > I am happy to answer questions about the packaging process or the > OBS/travis-ci integration! > > holger > > Thanks! I hope someone will jump at the opportunity :) > > [1] https://github.com/pharo-project/pharo-vm/blob/master/Makefile.debian > [2] https://github.com/pharo-project/pharo-vm/blob/master/ > packaging/pharo6-vm-core/debian/rules

1 0

libpng fails to download
by Alistair Grant 25 Aug '17

25 Aug '17

Hi All, Esteban, I just attempted to build the pharo vm on Win32 and it failed due to: ftp://ftp.simplesystems.org/pub/libpng/png/src/libpng16/libpng-1.6.29.tar.gz not being available. The current version is 1.6.30, which also appears to be unavailable from this address. I successfully downloaded 1.6.29 from: http://prdownloads.sourceforge.net/libpng/libpng-1.6.29.tar.gz?download which is referenced on what appears to be the official web page: http://www.libpng.org/pub/png/libpng.html I plan to test with 1.6.30 tonight. Is there any reason not to submit a PR pointing to sourceforge? Thanks, Alistair

1 0

Re: [Vm-dev] [Pharo-dev] 20294 Add FileAttributesPlugin to the linux 32 bit VM
by Eliot Miranda 24 Aug '17

24 Aug '17

Hi Alistair, > On Aug 24, 2017, at 7:29 AM, Alistair Grant <akgrant0710(a)gmail.com> wrote: > > Hi Esteban, > > It looks like there has been some recent activity with VM plugins, I > would really appreciate it if you could also add #20294. > > This is the plugin that fixes #isSymlink and adds symlink attributes. My main concern with this new plugin is what happens on windows? Is this a unix only thing? Have you provided support for windows, even if they're only stubs that always answer false? > > See: > https://pharo.fogbugz.com/f/cases/20294/Add-FileAttributesPlugin-to-the-lin… > > > If there's anything I can do to help the process, please let me know. > > Thanks, > Alistair > >

2 1

VM Maker: CogTools-sk.85.mcz
by commits＠source.squeak.org 24 Aug '17

24 Aug '17

Sophie Kaleba uploaded a new version of CogTools to project VM Maker: http://source.squeak.org/VMMaker/CogTools-sk.85.mcz ==================== Summary ==================== Name: CogTools-sk.85 Author: sk Time: 24 August 2017, 4:06:51.492365 pm UUID: cee97bb3-1489-4731-9b22-3fe257071b6b Ancestors: CogTools-sk.84 * UI for Pharo * add some comments =============== Diff against CogTools-sk.84 =============== Item was changed: VMProfiler subclass: #PharoVMProfiler + instanceVariableNames: 'reportTree result' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'CogTools-VMProfiler'! + !PharoVMProfiler commentStamp: 'sk 8/24/2017 15:24' prior: 0! - !PharoVMProfiler commentStamp: 'sk 8/10/2017 14:55' prior: 0! I am the VMProfiler called when using a Pharo image. + I can be used + 1) headful : for instance, by typing : VMProfiler spyOn: [1 to: 10000000 do: [ :i | Object new ]]. + 2) headless : for instance, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s ] - I can only be used headless for the moment. - * for instance, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s ] - * If you want to get a profiling report providing detailed data about the time spent in a function, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s withDetails: true]. + If you want to get a bytecode level profiling report, providing detailed data about the time spent in a function, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s withDetails: true]. This detailed report is available by default in the headful version. + ! Item was changed: + ----- Method: PharoVMProfiler class>>spyOn: (in category 'spying') ----- - ----- Method: PharoVMProfiler class>>spyOn: (in category 'as yet unclassified') ----- spyOn: aBlock + "^self headlessSpyOn: aBlock reportOn: '' writeStream withDetails:true. " + + ^ self new + selectBenchmark: (CompatibilityClass convertAsString: aBlock); + withDetails: true; + reportTree: VMProfilerResultRoot create; + headlessSpyOn: aBlock; + fillResults; + fillReportTree; + yourself. + + ! - self shouldBeImplemented! Item was added: + ----- Method: PharoVMProfiler>>fillAnalysisPartOfReportTreePart:for:and: (in category 'ui elements') ----- + fillAnalysisPartOfReportTreePart: aPart for: samplesAssoc and: samplesTotals + "fill the reportTree for either the generated vm code or the vanilla vm code part. samplesAssoc refers to the Dictionary associating a VMPSymbol and its number of samples, samplesTotals refers to the total number of samples you want to compute the percentage from" + + | generated substantial label cumulated node name | + generated := self filterSamples: samplesAssoc. + substantial := generated at: 1. + cumulated := 0. + substantial do: [ :func | + cumulated := cumulated + func value. + name := func key isString ifTrue: [ func key ] ifFalse: [func key name]. + label := String streamContents: [:s | + self printPercentage: (func value) total: samplesTotals on: s. + s nextPutAll: ' ('. + self printPercentage: (func value) total: total on: s. + s nextPutAll: ') ',name,' (',func value asString,') ('. + self printPercentage: cumulated total: samplesTotals on: s. + s nextPutAll: ')']. + aPart addNode: (func key isString ifTrue: [VMProfilerResult name: name label: label] ifFalse: [(node := VMProfilerResultCM name: name label: label content: func key cm)]) . + + (result at: 'cogMethodMaps') at: func key ifPresent: + [node addNode: (VMProfilerResult name: func key name label: (String streamContents: [ :s | self printInnerDetails: func with: (result at: 'cogMethodMaps') on: s ])).]] + " ]." + ! Item was added: + ----- Method: PharoVMProfiler>>fillCompactionPartOfReportTree (in category 'ui elements') ----- + fillCompactionPartOfReportTree + + | labelCompaction | + labelCompaction := String streamContents: [ :s | + s nextPutAll: (result at: 'numCompactions') asString; + nextPutAll: ' totalling '; + nextPutAll: (result at: 'compactionMsecs') asStringWithCommas; + nextPutAll: 'ms ('; + nextPutAll: (CompatibilityClass print: (result at: 'compactionMsecs') / elapsedTime * 100 showingDecimalPlaces: 3); + nextPutAll: '% elapsed time)'. + (result at: 'numCompactions') = 0 ifFalse: + [s nextPutAll: ', avg '; + nextPutAll: (CompatibilityClass print: (result at: 'compactionMsecs') / (result at: 'numCompactions') showingDecimalPlaces:3); + nextPutAll: 'ms']]. + + reportTree compactions addNode: (VMProfilerResult name: 'compactions' label: labelCompaction) + + + ! Item was added: + ----- Method: PharoVMProfiler>>fillEventPartOfReportTree (in category 'ui elements') ----- + fillEventPartOfReportTree + + #('Process switches' 'ioProcessEvents calls' 'Interrupt checks' 'Event checks' 'Stack overflows' 'Stack page divorces') do: + [ :e | reportTree events addNode: (VMProfilerResult name: e label: (e, ' ', (result at: e) asString, ' (', ((((result at: e) * 1000) / elapsedTime) rounded) asString, ' per second)'))]! Item was added: + ----- Method: PharoVMProfiler>>fillGCPartOfReportTree (in category 'ui elements') ----- + fillGCPartOfReportTree + + | labelGC labelScavenges labelTenures | + labelGC := String streamContents: [ :s | s nextPutAll: 'full ', (result at: 'fullGCs') asString, ' totalling ', (result at: 'fullGCTime') asStringWithCommas, 'ms ('; + nextPutAll: (CompatibilityClass print:( (result at: 'fullGCTime') / elapsedTime * 100) showingDecimalPlaces: 3 ); + nextPutAll: '% elapsed time)'. + (result at: 'fullGCs') = 0 ifFalse: [ s nextPutAll: ', avg '; nextPutAll: (CompatibilityClass print:((result at: 'fullGCTime') / (result at: 'fullGCs')) showingDecimalPlaces: 3); nextPutAll: 'ms' ]]. + + labelScavenges := String streamContents: [ :s | s nextPutAll: (self class amOnSpur ifTrue: ['scavenges '] ifFalse: ['incr ']); + print: (result at: 'incrGCs'); + nextPutAll: ' totalling '; + nextPutAll: (result at: 'incrGCTime') asStringWithCommas; + nextPutAll: 'ms ('; + nextPutAll: (CompatibilityClass print: (result at: 'incrGCTime') / elapsedTime * 100 showingDecimalPlaces: 3); + nextPutAll: '% elapsed time)'. + (result at: 'incrGCs') = 0 ifFalse: + [s nextPutAll:', avg '; + nextPutAll: (CompatibilityClass print: (result at: 'incrGCTime') / (result at: 'incrGCs') showingDecimalPlaces:3); + nextPutAll: 'ms']]. + + labelTenures := String streamContents: [ :s | s nextPutAll: 'tenures '; + nextPutAll: (result at: 'tenureCount') asStringWithCommas. + (result at: 'tenureCount') = 0 ifFalse: + [s nextPutAll: ' (avg '; + print: ((result at: 'incrGCs') / (result at: 'tenureCount')) asInteger; + nextPutAll: ' GCs/tenure)']]. + + reportTree gc addNode: (VMProfilerResult name: 'fullGC' label: labelGC); + addNode: (VMProfilerResult name: 'scavenges' label: labelScavenges); + addNode: (VMProfilerResult name: 'tenures' label: labelTenures); + addNode: (VMProfilerResult name: 'rootTable' label: 'root table ', (result at: 'rootOverflows') asStringWithCommas, ' overflows' ). + ! Item was added: + ----- Method: PharoVMProfiler>>fillGeneralPartOfReportTree (in category 'ui elements') ----- + fillGeneralPartOfReportTree + + reportTree general addNode: (VMProfilerResult name: 'vmPath' label: (result at: 'vmPath')); + addNode: (VMProfilerResult name: 'date' label: (result at: 'date')); + addNode: (VMProfilerResult name: 'time' label: (result at: 'time')); + addNode: (VMProfilerResult name: 'edenSize' label: 'eden size: ' , (result at: 'edenSize') asStringWithCommas); + addNode:(VMProfilerResult name: 'stackPages' label: 'stack pages: ' , (result at: 'stackPages') asString); + addNode: (VMProfilerResult name: 'codeSize' label: 'code size: ' , (result at: 'codeSize') asStringWithCommas); + addNode: (VMProfilerResult name: 'profiledBlock' label: (result at: 'profiledBlock')); + addNode: (VMProfilerResult name: 'elapsedTime' label: (elapsedTime / 1000.0) asString , ' seconds'); + addNode: (VMProfilerResult name: 'frequency' label: 'sampling frequency: ' , (total * 1000 / elapsedTime) rounded asString, ' hz').! Item was added: + ----- Method: PharoVMProfiler>>fillMemoryPartOfReportTree (in category 'ui elements') ----- + fillMemoryPartOfReportTree + + reportTree memory addNode: (VMProfilerResult name: 'oldSpaceEnd' label: 'old ',(result at: 'oldSpaceEnd') asStringWithCommasSigned , ' bytes'). + self class amOnSpur + ifTrue: [ reportTree memory addNode: (VMProfilerResult name: 'freeSpace' label: 'free ', (result at: 'freeSpace') asStringWithCommasSigned , ' bytes')] + ifFalse: + [reportTree memory addNode: (VMProfilerResult name: 'youngSpace' label: 'young ', ((result at: 'youngSpaceEnd') - (result at: 'oldSpaceEnd')) asStringWithCommasSigned , ' bytes'); + addNode: (VMProfilerResult name: 'usedSpace' label: 'used ', (result at: 'youngSpaceEnd') asStringWithCommasSigned , ' bytes'); + addNode: (VMProfilerResult name: 'freeSpace' label: 'free ', ((result at: 'memoryEnd') - (result at: 'youngSpaceEnd')) asStringWithCommasSigned , ' bytes') ]. + + ! Item was added: + ----- Method: PharoVMProfiler>>fillReportTree (in category 'ui elements') ----- + fillReportTree + + self fillGeneralPartOfReportTree. + self fillSamplesPartOfReportTree. + self fillAnalysisPartOfReportTreePart: reportTree generated for: (result at: 'cogTotals') and: (result at: 'samplesInCog'). + self fillAnalysisPartOfReportTreePart: reportTree vanilla for: (result at: 'vmTotals') and: (result at: 'samplesInVM'). + self fillMemoryPartOfReportTree. + self fillGCPartOfReportTree. + self fillCompactionPartOfReportTree. + self fillEventPartOfReportTree. ! Item was added: + ----- Method: PharoVMProfiler>>fillResults (in category 'results') ----- + fillResults + + self getDataFromPreambleInResult. + self getSamplesNumberInResult. + self getGCStatsInResult: elapsedStats! Item was added: + ----- Method: PharoVMProfiler>>fillSamplesPartOfReportTree (in category 'ui elements') ----- + fillSamplesPartOfReportTree + + reportTree samples addNode: (VMProfilerResult name: 'vmSamples' label: ((result at: 'samplesInVM') + (result at: 'samplesInCog')) asString, ' samples in the VM' ); + addNode: (VMProfilerResult name: 'totalSamples' + label: total asString, ' samples in the entire program, ', + (String streamContents: [ :s | self printPercentage: (result at: 'samplesInEntireVM') total: total on: s]), '% of total'); + addNode: (VMProfilerResult name: 'coglSamples' + label: (result at: 'samplesInCog') asString, ' samples in generated vm code, ', + (String streamContents: [ :s | self printPercentage: (result at: 'samplesInCog') total: (result at: 'samplesInEntireVM') on: s]), '% of entire vm (', (String streamContents: [ :s | self printPercentage: (result at: 'samplesInCog') total: total on: s]), '% of total)'); + addNode: (VMProfilerResult name: 'vanillaSamples' label: (result at: 'samplesInVM') asString, ' samples in vanilla vm code, ', (String streamContents: [ :s | self printPercentage: (result at: 'samplesInVM') total: (result at: 'samplesInEntireVM') on: s]), '% of entire vm (', (String streamContents: [ :s | self printPercentage: (result at: 'samplesInVM') total: total on: s]), '% of total)'). + ! Item was added: + ----- Method: PharoVMProfiler>>getDataFromPreambleInResult (in category 'results') ----- + getDataFromPreambleInResult + + result at: 'vmPath' put: (SmalltalkImage current getSystemAttribute: 0). + result at: 'date' put: Date today yyyymmdd. + result at: 'time' put: Time now print24. + (startStats size >= 44 + and: [(startStats at: 44) isNumber]) ifTrue: [ result at: 'edenSize' put: (startStats at: 44). + result at: 'stackPages' put: (startStats at: 42)]. + (startStats size >= 46 + and: [(startStats at: 46) isNumber + and: [(startStats at: 46) > 0]]) ifTrue: [ result at: 'codeSize' put: (startStats at: 46) ]. + self trimmedExpressionText notEmpty ifTrue: [ result at: 'profiledBlock' put: self trimmedExpressionText ]. + ! Item was added: + ----- Method: PharoVMProfiler>>getGCStatsInResult: (in category 'results') ----- + getGCStatsInResult: gcStatsArray + + gcStatsArray ifNil: [^self class]. + + result at: 'oldSpaceEnd' put: (gcStatsArray at: 2); "a.k.a. oldSpace size on Spur" + at: 'fullGCs' put: (gcStatsArray at: 7); + at: 'fullGCTime' put: (gcStatsArray at: 8); + at: 'incrGCs' put: (gcStatsArray at: 9); + at: 'incrGCTime' put: (gcStatsArray at: 10); + at: 'tenureCount' put: (gcStatsArray at: 11); + at: 'rootOverflows' put: (gcStatsArray at: 22). + + self class amOnSpur + ifTrue: [(gcStatsArray at: 54) + ifNotNil: [:freeSpace| result at: 'freeSpace' put: freeSpace]] + ifFalse: + [result at: 'youngSpaceEnd' put: (gcStatsArray at: 1). + result at: 'memoryEnd' put: (gcStatsArray at: 3)]. + + (gcStatsArray size >= 63 and: [(gcStatsArray at: 63) isInteger]) ifTrue: + [result at: 'numCompactions' put: (gcStatsArray at: 62). + result at: 'compactionMsecs' put: (gcStatsArray at: 63)]. + + gcStatsArray size >= 61 ifTrue: + [(56 to: 61) + with: #('Process switches' 'ioProcessEvents calls' 'Interrupt checks' 'Event checks' 'Stack overflows' 'Stack page divorces') + do: [:index :eventName| | value | + value := gcStatsArray at: index. + result at: eventName put: value]]! Item was added: + ----- Method: PharoVMProfiler>>getSamplesNumberInResult (in category 'results') ----- + getSamplesNumberInResult + + result at: 'vmTotals' put: Dictionary new; + at: 'cogTotals' put: Dictionary new; + at: 'nonVMTotals' put: Dictionary new; + at: 'cogMethodMaps' put: Dictionary new; + at: 'samplesInVM' put: (self countSymbols: (symbolManager symbolsInModule: symbolManager vmModule) totals: (result at: 'vmTotals')); + at: 'samplesInCog' put: (self countSymbols: (symbolManager symbolsInModule: symbolManager cogModule) totals: (result at: 'cogTotals')); + at: 'samplesInEntireVM' put: ((result at: 'samplesInVM') + (result at: 'samplesInCog')); + at: 'samplesInNonVMModules' put: (self countSymbols: self symbolsInNonVMModule totals: (result at: 'nonVMTotals')); + at: 'samplesInNonVM' put: total - (result at: 'samplesInVM') - (result at: 'samplesInCog'). + (result at: 'cogTotals') keysAndValuesDo: + [ :key :value | + value > 10 ifTrue: [ (result at: 'cogMethodMaps') at: key put: (self createMcpcBcpcMapFor: key) ] ]. + (result at: 'nonVMTotals') + at: 'Samples Not In Any Function' + put: (result at: 'samplesInNonVM') - (result at: 'samplesInNonVMModules'). + ! Item was added: + ----- Method: PharoVMProfiler>>gtInspectorTreeIn: (in category 'ui elements') ----- + gtInspectorTreeIn: composite + <gtInspectorPresentationOrder: 1> + + ^ reportTree gtInspectorTreeIn: composite! Item was changed: ----- Method: PharoVMProfiler>>initialize (in category 'initialization') ----- initialize self initializeMost. + reportTree := VMProfilerResultRoot create. + result := Dictionary new. CompatibilityClass := PharoVMMethodConverter new. self initializeSymbols.! Item was added: + ----- Method: PharoVMProfiler>>reportTree: (in category 'accessing') ----- + reportTree: aVMProfilerResult + + reportTree := aVMProfilerResult ! Item was changed: VMProfiler subclass: #SqueakVMProfiler instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'CogTools-VMProfiler'! + !SqueakVMProfiler commentStamp: 'sk 8/24/2017 15:25' prior: 0! - !SqueakVMProfiler commentStamp: 'sk 8/10/2017 14:54' prior: 0! I am the VMProfiler called when using a Squeak image. I can be used 1) headful : for instance, either via WorldMenu>open>VMProfiler, or by typing : VMProfiler spyOn: [1 to: 10000000 do: [ :i | Object new ]]. + 2) headless : for instance, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s ] + + If you want to get a profiling report providing detailed data about the time spent in a function, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s withDetails: true]. - 2) headless : - * for instance, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s ] - * If you want to get a profiling report providing detailed data about the time spent in a function, inspect on : String streamContents: [ :s | VMProfiler headlessSpyOn: [ 1 to: 10000000 do: [ :i | Object new ] ] reportOn: s withDetails: true]. ! Item was changed: VMPSymbol subclass: #VMPFunctionSymbol + instanceVariableNames: 'mcpcbcpcmap cm' - instanceVariableNames: 'mcpcbcpcmap' classVariableNames: '' poolDictionaries: '' category: 'CogTools-VMProfiler'! !VMPFunctionSymbol commentStamp: '<historical>' prior: 0! A symbol for a function or procedure (see subclasses)! Item was added: + ----- Method: VMPFunctionSymbol>>cm (in category 'accessing') ----- + cm + + ^ cm! Item was added: + ----- Method: VMPFunctionSymbol>>cm: (in category 'accessing') ----- + cm: aCompiledMethod + + cm := aCompiledMethod ! Item was changed: ----- Method: VMProfiler class>>headlessSpyOn:reportOn: (in category 'as yet unclassified') ----- headlessSpyOn: aBlock reportOn: aStream "initialize the profiler version (squeak or pharo) and profile headless, writing the results on a given stream" + ^VMProfiler new - VMProfiler new selectBenchmark: (CompatibilityClass convertAsString: aBlock); headlessSpyOn: aBlock; report: aStream. ! Item was changed: ----- Method: VMProfiler class>>headlessSpyOn:reportOn:withDetails: (in category 'as yet unclassified') ----- headlessSpyOn: aBlock reportOn: aStream withDetails: aBoolean "initialize the profiler version (squeak or pharo) and profile headless, writing the results on a given stream" + ^VMProfiler new - VMProfiler new withDetails: aBoolean; selectBenchmark: (CompatibilityClass convertAsString: aBlock); headlessSpyOn: aBlock; report: aStream. ! Item was changed: ----- Method: VMProfiler class>>spyOn: (in category 'spying') ----- spyOn: aBlock + ^VMProfiler new - VMProfiler new class spyOn: aBlock. ! Item was added: + ----- Method: VMProfiler>>filterSamples: (in category 'as yet unclassified') ----- + filterSamples: totals + + "Print sorted totals for all symbols with a total greater than 0.01% of the grand total." + | substantial insubstantial cut labelWidthCut labelledInFull | + cut := total / 10000.0. + substantial := totals associations select: [:assoc| assoc value > cut]. + labelWidthCut := total / 1000.0. + labelledInFull := totals associations select: [:assoc| assoc value > labelWidthCut]. + insubstantial := totals associations + inject: 0 + into: [:sum :assoc| + (assoc value <= cut ifTrue: [assoc value] ifFalse: [0]) + sum]. + substantial := substantial asSortedCollection: + [:a1 :a2| + a1 value > a2 value + or: [a1 value = a2 value and: [a1 name < a2 name]]]. + insubstantial > 0 ifTrue: + [substantial := substantial asArray, {'...others...'->insubstantial}]. + ^ {substantial. insubstantial. labelledInFull } + ! Item was changed: ----- Method: VMProfiler>>initializeMost (in category 'initialization') ----- initializeMost self initializeSamples. self clearHistory. symbolsMode := #byAddress. symbolTypes := IdentitySet new. selections := ByteArray new. withDetails := false. expressionTextMorph := PluggableTextMorph new. highAddress := lowAddress := minSelectionIndex := maxSelectionIndex := 0. aboutToProfile := false. total := rangeTotal := startTime := elapsedTime := 0. gcPriorToProfile := clearPriorToProfile := true. forkProfile := false! Item was changed: ----- Method: VMProfiler>>primitiveCollectCogCodeConstituents: (in category 'primitives') ----- primitiveCollectCogCodeConstituents: withDetails "Answer the contents of the code zone as an array of pair-wise element, address in ascending address order. Answer a string for a runtime routine or abstract label (beginning, end, etc), a CompiledMethod for a cog machine-code method, or a selector (presumably a Symbol) for a cog machine-code open or closed PIC. Fail if this isn't a Cog VM or if out of memory. If this isn't a Cog VM answer nil. If the parameter is true, answers the mapping between machine code pc and bytecode pc in relevant methods instead of just the start address. - - If the primitive fails because space is low then the scavenger will run - before trying to send the primitive again. " <primitive: 253 error: ec> + ^ec ifNotNil: [self primitiveFailed] - ec == #'insufficient object memory' ifTrue: - [^self retryPrimitiveCollectCogCodeConstituents: withDetails]. - self primitiveFailed "self basicNew primitiveCollectCogCodeConstituents"! Item was changed: + ----- Method: VMProfiler>>printSymbolTotals:labelled:on:sumTotal:cogMethodMaps: (in category 'printing') ----- - ----- Method: VMProfiler>>printSymbolTotals:labelled:on:sumTotal:cogMethodMaps: (in category 'reports') ----- printSymbolTotals: totals labelled: label on: aStream sumTotal: sumTotal cogMethodMaps: cogMethodMaps "Print sorted totals for all symbols with a total greater than 0.01% of the grand total." + | substantial insubstantial cumulative heading percentageWidth compositionWidth tabWidth labelledInFull filteredSamples | + filteredSamples := self filterSamples: totals. + substantial := filteredSamples at: 1. + insubstantial := filteredSamples at:2. + labelledInFull := filteredSamples at: 3. - | substantial insubstantial cut cumulative heading percentageWidth compositionWidth tabWidth labelWidthCut labelledInFull | - cut := total / 10000.0. - substantial := totals associations select: [:assoc| assoc value > cut]. - labelWidthCut := total / 1000.0. - labelledInFull := totals associations select: [:assoc| assoc value > labelWidthCut]. - insubstantial := totals associations - inject: 0 - into: [:sum :assoc| - (assoc value <= cut ifTrue: [assoc value] ifFalse: [0]) + sum]. - substantial := substantial asSortedCollection: - [:a1 :a2| - a1 value > a2 value - or: [a1 value = a2 value and: [a1 name < a2 name]]]. - insubstantial > 0 ifTrue: - [substantial := substantial asArray, {'...others...'->insubstantial}]. cumulative := 0. heading := '% of ', label, ' (% of total)'. tabWidth := self widthInDefaultFontOf: (String with: Character tab). percentageWidth := self widthInDefaultFontOf: '99.99% (99.99%) '. compositionWidth := (self longestWidthIn: labelledInFull) + tabWidth max: (self widthInDefaultFontOf: heading) + tabWidth - percentageWidth. self put: heading paddedTo: compositionWidth + percentageWidth tabWidth: tabWidth on: aStream. aStream nextPutAll: '(samples) (cumulative)'; cr. substantial do: [:assoc| self printPercentage: assoc value total: sumTotal on: aStream. aStream space; space; space; space; nextPut: $(. self printPercentage: assoc value total: total on: aStream. aStream nextPut: $); tab. self put: (assoc key isString ifTrue: [assoc key] ifFalse: [assoc key name]) paddedTo: compositionWidth tabWidth: tabWidth on: aStream. aStream nextPut: $(; print: assoc value; nextPut: $); tab: (assoc value < 100 ifTrue: [2] ifFalse: [1]); nextPut: $(. cumulative := cumulative + assoc value. self printPercentage: cumulative total: sumTotal on: aStream. aStream nextPut: $); cr. self withDetails ifTrue: [cogMethodMaps at: assoc key ifPresent: [ :i | self printInnerDetails: assoc with: cogMethodMaps on: aStream ]. ].]. aStream cr; cr! Item was changed: ----- Method: VMProfiler>>putReportPreambleOn: (in category 'reports') ----- putReportPreambleOn: s | expr | s nextPutAll: (SmalltalkImage current getSystemAttribute: 0); space; nextPutAll: Date today yyyymmdd; space. Time now print24: true on: s. s cr. (startStats size >= 44 and: [(startStats at: 44) isNumber]) ifTrue: [s nextPutAll: 'eden size: '; nextPutAll: (startStats at: 44) asStringWithCommas. s nextPutAll: ' stack pages: '; print: (startStats at: 42). (startStats size >= 46 and: [(startStats at: 46) isNumber and: [(startStats at: 46) > 0]]) ifTrue: [s nextPutAll: ' code size: '; nextPutAll: (startStats at: 46) asStringWithCommas]. s cr]. s cr. (expr := self trimmedExpressionText) notEmpty ifTrue: [s nextPutAll: expr; cr; cr]. (gcPriorToProfile or: [clearPriorToProfile or: [forkProfile]]) ifTrue: [gcPriorToProfile ifTrue: [s nextPutAll: 'gc prior. ']. clearPriorToProfile ifTrue: [s nextPutAll: 'clear prior. ']. forkProfile ifTrue: [s nextPutAll: 'run in separate process.']. s cr]. elapsedTime > 0 ifTrue: [s print: elapsedTime / 1000.0; nextPutAll: ' seconds; sampling frequency '; print: (total * 1000 / elapsedTime) rounded; nextPutAll: ' hz'; cr]! Item was changed: ----- Method: VMProfiler>>retryPrimitiveCollectCogCodeConstituents: (in category 'primitives') ----- retryPrimitiveCollectCogCodeConstituents: withDetails + "if the primitive has failed because of a lack of space, retry (the send of this new message will trigger a gc if needed) + " + <primitive: 253 error: ec> + self primitiveFailed + + ! - "retryPrimitiveCollectCogCodeConstituents: gets sent after primitiveCollectCogCodeConstituents: has failed and allowed - a scavenging garbage collection to occur. The scavenging collection will have happened as the VM is activating the (failing) primitiveCollectCogCodeConstituents. If - retryPrimitiveCollectCogCodeConstituents: fails, then we consider the primitive has failed" - - <primitive: 253> - self primitiveFailed! Item was added: + Object subclass: #VMProfilerResult + instanceVariableNames: 'listOfNodes name label' + classVariableNames: '' + poolDictionaries: '' + category: 'CogTools-VMProfiler'! + VMProfilerResult class + instanceVariableNames: 'genData'! + + !VMProfilerResult commentStamp: 'SophieKaleba 8/11/2017 11:46' prior: 0! + I represent a node in a VMProfiler profiling result tree. + This tree structure is used when inspecting the profiling result (AST-like) + + listOfNodes : anOrderedCollection of (potentially) other VMProfilerResults node + name: aString representing the name of the node. Used to access the node + label : aString representing label displayed when inspecting the tree! + VMProfilerResult class + instanceVariableNames: 'genData'! Item was added: + ----- Method: VMProfilerResult class>>name:label: (in category 'as yet unclassified') ----- + name: aNameString label: aLabelString + + ^ VMProfilerResult new + name: aNameString; + label: aLabelString; + yourself. ! Item was added: + ----- Method: VMProfilerResult>>addNode: (in category 'adding') ----- + addNode: aNode + + listOfNodes add: aNode.! Item was added: + ----- Method: VMProfilerResult>>children (in category 'accessing') ----- + children + + ^ listOfNodes ! Item was added: + ----- Method: VMProfilerResult>>gtInspectorTreeIn: (in category 'as yet unclassified') ----- + gtInspectorTreeIn: composite + <gtInspectorPresentationOrder: 25> + + composite tree + rootsExpanded ; + title: 'Report'; + display: [ self ]; + children: [ :each | each children ]; + selectionPopulate: #selectedNode + on: $o + entitled: 'Open' + with: [ :tree | 'toto' ]; + format: [ :each | each printString].! Item was added: + ----- Method: VMProfilerResult>>initialize (in category 'initialization') ----- + initialize + + listOfNodes := OrderedCollection new.! Item was added: + ----- Method: VMProfilerResult>>label: (in category 'accessing') ----- + label: aString + + label := aString ! Item was added: + ----- Method: VMProfilerResult>>name: (in category 'accessing') ----- + name: aString + + name := aString.! Item was added: + ----- Method: VMProfilerResult>>printString (in category 'printing') ----- + printString + + ^ label! Item was added: + VMProfilerResult subclass: #VMProfilerResultCM + instanceVariableNames: 'method' + classVariableNames: '' + poolDictionaries: '' + category: 'CogTools-VMProfiler'! + + !VMProfilerResultCM commentStamp: 'SophieKaleba 8/11/2017 11:49' prior: 0! + I represent a specific node in a VMProfiler profiling result tree : the result wrapped in this VMProfilerResultCM is supposed to be a compiled method. + + method : the compiledMetod referring to the VMProfilerResult. This way, it is easy to access the compiledMethod data (AST, IR, Bytecode) when inspecting the VMProfilerResult tree. ! Item was added: + ----- Method: VMProfilerResultCM class>>name:label:content: (in category 'as yet unclassified') ----- + name: aName label: aLabel content: aMethod + + ^ VMProfilerResultCM new + name: aName ; + label: aLabel; + content: aMethod ; + yourself.! Item was added: + ----- Method: VMProfilerResultCM>>content: (in category 'accessing') ----- + content: aMethod + + method := aMethod ! Item was added: + ----- Method: VMProfilerResultCM>>initialize (in category 'initialization') ----- + initialize + + super initialize. + method := nil.! Item was added: + VMProfilerResult subclass: #VMProfilerResultRoot + instanceVariableNames: '' + classVariableNames: 'Compactions Events Gc General Generated Memory Samples Vanilla' + poolDictionaries: '' + category: 'CogTools-VMProfiler'! + + !VMProfilerResultRoot commentStamp: 'SophieKaleba 8/11/2017 12:02' prior: 0! + I represent the root of the VMProfilerResult tree. + + The different parts of the profiling report are stored as class variables. + + compactions, events, gc... vanilla are accessor to the class variables. These class variables are meant to store VMProfilerResult objects. + + examples : + + VMProfilerResultRoot create + --> instantiate a full tree profiling report with the default parts (Compactions Events Gc General Generated Memory Samples Vanilla). + + VMProfilerResultRoot name: aString label: aString + --> instantiate a VMProfilerResultRoot. + + myReportTree general addNode: (VMProfilerResult name: 'vmPath' label: aLabel) + --> add a new node in the general section, containing the path of the vm.! Item was added: + ----- Method: VMProfilerResultRoot class>>create (in category 'operations') ----- + create + | root | + root := VMProfilerResultRoot name: 'root' label: 'Profiling report'. + General := VMProfilerResult + name: 'general' + label: 'General information about the profiling'. + Samples := VMProfilerResult + name: 'samplesl' + label: 'Number of samples'. + Generated := VMProfilerResult + name: 'generated' + label: '% of generated vm code (% of total) (samples) (cumulative)'. + Vanilla := VMProfilerResult + name: 'vanilla' + label: '% of vanilla vm code (% of total) (samples) (cumulative)'. + Memory := VMProfilerResult name: 'memory' label: '**Memory**'. + Gc := VMProfilerResult name: 'gc' label: '**GC**'. + Compactions := VMProfilerResult + name: 'compac' + label: '**Compiled Code Compactions**'. + Events := VMProfilerResult name: 'events' label: '**Events**'. + + root addNode: General ; + addNode: Samples; + addNode: Generated ; + addNode: Vanilla ; + addNode: Memory; + addNode: Gc; + addNode: Compactions ; + addNode: Events. + + ^ root! Item was added: + ----- Method: VMProfilerResultRoot class>>name:label: (in category 'as yet unclassified') ----- + name: aNameString label: aLabelString + + ^ VMProfilerResultRoot new + name: aNameString; + label: aLabelString; + yourself. ! Item was added: + ----- Method: VMProfilerResultRoot>>compactions (in category 'as yet unclassified') ----- + compactions + + ^ Compactions! Item was added: + ----- Method: VMProfilerResultRoot>>events (in category 'accessing') ----- + events + + ^ Events ! Item was added: + ----- Method: VMProfilerResultRoot>>gc (in category 'as yet unclassified') ----- + gc + + ^ Gc! Item was added: + ----- Method: VMProfilerResultRoot>>general (in category 'as yet unclassified') ----- + general + + ^ General ! Item was added: + ----- Method: VMProfilerResultRoot>>generated (in category 'as yet unclassified') ----- + generated + + ^ Generated ! Item was added: + ----- Method: VMProfilerResultRoot>>memory (in category 'as yet unclassified') ----- + memory + + ^ Memory ! Item was added: + ----- Method: VMProfilerResultRoot>>samples (in category 'as yet unclassified') ----- + samples + + ^ Samples! Item was added: + ----- Method: VMProfilerResultRoot>>vanilla (in category 'as yet unclassified') ----- + vanilla + + ^ Vanilla! Item was changed: ----- Method: VMProfilerSymbolsManager>>computeCogCodeModule: (in category 'Cog compiled code') ----- computeCogCodeModule: cogCodeConstituents | symbols | (cogModule := VMPExecutableModuleSymbol new) name: vmModule shortName, '.', cogCodeConstituents first; shortName: cogCodeConstituents first; vmshift: 0; address: cogCodeConstituents second; size: cogCodeConstituents last - cogCodeConstituents second. symbols := (3 to: cogCodeConstituents size - 2 by: 2) collect: [:i| "Declare methods as public; PICs and entries as private" | thing | ((thing := cogCodeConstituents at: i) isCompiledMethod ifTrue: [VMPPublicFunctionSymbol] ifFalse: [VMPPrivateFunctionSymbol]) new name: (self nameOf: thing cogCodeModule: cogCodeConstituents); address: (self extractAddress: (cogCodeConstituents at: i + 1)); + cm: thing ; mcpcbcpcmap: (cogCodeConstituents at: i + 1); limit: (self extractAddress: (cogCodeConstituents at: i + 3 ifAbsent: [cogCodeConstituents last]))]. self addCogModuleSymbols: symbols! Item was changed: ----- Method: VMProfilerSymbolsManager>>getClosedPICLabel: (in category 'Constituents naming') ----- getClosedPICLabel: aThing + "return a label for the considered closed PIC, listing its selector, its total number of cases, and the concrete classes present in the PIC. The duplicates (if any) among these classes have been deleted in #analyzeClosedPIC: " - "(= assoc key name )aThing could be either a selector, a trampoline/enilopmart, or a VMPSymbol" |list| list := String streamContents: [ :s |(aThing at: 'listOfCases') asStringOn: s delimiter: ', ']. + ^ String streamContents: [ :s | s nextPutAll: 'cPIC ', (aThing at: 'selector'), ' - ', (aThing at: 'nbOfCases') asString, ' (', list, ')' ]! - ^ String streamContents: [ :s | s nextPutAll: 'cPIC', ' ', (aThing at: 'selector'), ' - ', (aThing at: 'nbOfCases') asString, ' (', list, ')' ]!

1 0

Re: [Vm-dev] [Pharo-dev] Latest Debian, Ubuntu and CentOS packages of the pharo-vm
by Eliot Miranda 23 Aug '17

23 Aug '17

Hi Holger, > On Aug 18, 2017, at 2:54 AM, Holger Freyther <holger(a)freyther.de> wrote: > > Hi, > > when running Pharo in production you might want to install the image and a VM from distribution packages. So far there were no current public packages and during the last months I have modernized the debian packaging and recently added CentOS rpm packaging as well. The process of generating new source packages is integrated into the pharo-vm travis-ci build as well. > > Every time that master of pharo-vm.git is updated a new source package will be uploaded to the Open(SUSE) Build Service and new packages will be built and are available in a "latest" package feed. The generated (and used) sourcecode is inside the source package and will be archived by the OBS platform (one can even nicely diff versions). The "stable" VM is not built from pharo-vm.git (yet?) so it doesn't show on OBS yet. Could/should this description be added to README.md on opensmalltalk-vm? I think it would be great if we kept information on the various VM build CI servers in README.md. It would help people find VMs instead of having to build their own and it would give a good idea of the available platforms. > Below are some semi-tested installation notes in case you want to try it out. The binary names are picked to allow to install the 32bit and 64bit VM in parallel. The names currently are: > > - pharo6-32 (32bit version) > - pharo6-64 (64bit version) > - pharo6-32-ui (32bit version with X11 dependencies) > - pharo6-64-ui (64bit version with X11 dependencies) > > > CentOS 6.8: > > # Add the repo > $ yum-config-manager --add-repo http://download.opensuse.org/repositories/devel:/languages:/pharo:/latest/C… > > # Install 32bit packages (with X11 dependency for *-ui or not) > > $ yum install pharo6-32-ui.i686 or pharo6-32.i386 > > # Install 64bit packages > > $ yum install pharo6-64-ui.x86_64 pharo6-64.x86_64 > > > > CentOS 7 (only 64bit): > > > $ yum-config-manager --add-repo http://download.opensuse.org/repositories/devel:/languages:/pharo:/latest/C… > $ yum install pharo6-64-ui.x86_64 pharo6-64.x86_64 > > > Debian 8: > > # Add signing key > $ wget -O - http://download.opensuse.org/repositories/devel:/languages:/pharo:/latest/D… | apt-key add - > > # Update and install > $ apt update > $ apt install pharo6-32-ui pharo6-64-ui (or pharo6-32 or pharo6-64) > > Ubuntu 14.04 LTS > > # Add signing key > $ wget -O - http://download.opensuse.org/repositories/devel:/languages:/pharo:/latest/x… | apt-key add - > > # Update and install > $ apt update > $ apt install pharo6-32-ui pharo6-64-ui > > Ubuntu 16.04 > > # Add signing key > $ wget -O - http://download.opensuse.org/repositories/devel:/languages:/pharo:/latest/x… | apt-key add - > > # Update and install > $ apt update > $ apt install pharo6-32-ui pharo6-64-ui > > >

3 2

Call for Presentations and Participation: 4th Virtual Machine Meetup, co-located with ManLang'17
by Stefan Marr 23 Aug '17

23 Aug '17

Call for Participation: VMM’17 ============================== 4th Virtual Machine Meetup Co-located with ManLang September 27-29, 2017, Prague, Czech Republic http://vmmeetup.github.io/2017/ The 4th Virtual Machine Meetup (VMM'17) is a venue for discussing the latest research and developments in the area of managed language execution. It will be held from 27th to 29th of September at the Charles University Prague, Prague, Czech Republic and is colocated with the Managed Languages conference 2017 (http://d3s.mff.cuni.cz/conferences/manlang17/). We welcome presentations of new research results, experience reports, as well as position statements that can lead to interesting discussions. Topics include, but are not limited to: - Programming language design - Dynamic and static program analysis - Compiler construction - Managed runtime architectures - Data processing engines - Distributed execution environments Participation is free of charge! To participate, please register at "http://d3s.mff.cuni.cz/conferences/manlang17/?n=Main.Registration". There are limited participant slots due to the constraints of the room, so please register early, and by September 19th the latest. If you would like to give a presentation, please submit a presentation abstract (a title with max. 100 characters and an abstract with max. 400 characters) to https://ssw.jku.at/VMM17/. We may ask for additional information from you before making the program decision. Presentation slots are either 30 minutes (long) or 15 minutes (short) including Q/A. Important dates: - Submissions: August 31st, 2017 - Author notification: September 1st, 2017 - Registration for participation: September 19th, 2017 - Virtual machine Meetup: Sep 27th to 29th at Charles University Prague - Social Event: Sep 29th 2017, optional Submission link: - https://ssw.jku.at/VMM17/ Program committee: - Stefan Marr, JKU Linz, Austria - Matthias Grimmer, Oracle Labs Austria - Thomas Wuerthinger, Oracle Labs Switzerland -- Stefan Marr Johannes Kepler Universität Linz http://stefan-marr.de/research/

1 0

bug when instantiating ExternalData (to return void* from FFI)
by Esteban Lorenzano 23 Aug '17

23 Aug '17

Hi Eliot, list I found a bug :) With latest VM (32 bits, using PharoVM flavour), I crash the VM when executing this: LGitError giterr_last. LGitError class>>giterr_last ^ self call: #(void *giterr_last()) options: #( ) this is a very basic FFI call, and should answer an ExternalData instance (pointing to NULL, in this case). Digging into it, I found at a point (when instantiating the pointer) it answers nil instead an instantiated ExternalData, and this is because in Spur32BitMemoryManager>>instantiateClass:indexableSize: otherwise clause is: otherwise: "non-indexable" [self cppIf: (PharoVM or: [true]) "Leave the old code but ignore it completely unless someone complains." ifTrue: [^nil] ifFalse: ["some Squeak images include funky fixed subclasses of abstract variable superclasses. e.g. DirectoryEntry as a subclass of ArrayedCollection. Allow fixed classes to be instantiated here iff nElements = 0." (nElements ~= 0 or: [instSpec > self lastPointerFormat]) ifTrue: [^nil]. numSlots := self fixedFieldsOfClassFormat: classFormat. fillValue := nilObj]]. So it will always answer nil/NULL. Now, I don’t know why it was commented out, but since there it says "Leave the old code but ignore it completely unless someone complains.”, I complain :D Thing is… if I restore old code it works fine. Question is: should we restore that code? or this shows a deeper problem? cheers, Esteban

2 3

Default memory allocation of the vm
by Norbert Hartl 23 Aug '17

23 Aug '17

I'm migrating all my services to 64bit pharo6 at the moment. In the monitoring I saw that the vm allocates something around around 150 MB and has approx. 96 MB free in heap. I changed the startup of my services to use —mmap 64m but it resulted in a 10-20MB bigger allocation as you can see from the chart What I want to know: - how much memory does the vm allocate at startup without any commandline options? - Is that default value smaller than 64 MB which would explain the behviour in the chart. If so why is at —mmap 64m the heap 96 m free? - when does the vm a full GC? When memory becomes sparse or earlier? thanks, Norbert

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 2017