Packages March 2017

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: Tests-eem.371.mcz
by commits＠source.squeak.org 22 Mar '17

22 Mar '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.371.mcz ==================== Summary ==================== Name: Tests-eem.371 Author: eem Time: 22 March 2017, 11:19:09.469957 am UUID: 25a7ee92-ad8f-4ff2-ab5a-ba3a49514f6c Ancestors: Tests-ul.370 Avoid depending on the specific classPool for the bytecode sets; use bindingOf: instead. =============== Diff against Tests-ul.370 =============== Item was changed: ----- Method: ClosureCompilerTest>>expectedFailures (in category 'failures') ----- expectedFailures ^#(testDebuggerTempAccess testInjectIntoDecompilations testInjectIntoDecompiledDebugs) , + (({(CompiledMethod bindingOf: #SecondaryBytecodeSetEncoderClass) value . + (CompiledMethod bindingOf: #PrimaryBytecodeSetEncoderClass) value} - (({CompiledMethod classPool at: #SecondaryBytecodeSetEncoderClass . - CompiledMethod classPool at: #PrimaryBytecodeSetEncoderClass} includes: EncoderForV3) ifFalse: [#(testSourceRangeAccessForBlueBookInjectInto)] + ifTrue: [#()])! - ifTrue: [#()]) - !

1 0

The Trunk: KernelTests-eem.321.mcz
by commits＠source.squeak.org 22 Mar '17

22 Mar '17

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.321.mcz ==================== Summary ==================== Name: KernelTests-eem.321 Author: eem Time: 22 March 2017, 9:54:39.100575 am UUID: 56848275-56b5-4682-ad45-c301cf2337d8 Ancestors: KernelTests-eem.320 Add a test to check that new subclasses of CompiledMethod have compiled-methodness, and that they keep it if moved to be subclasses of ByteArray-like subclasses. =============== Diff against KernelTests-eem.320 =============== Item was added: + ----- Method: ClassBuilderTest>>testCompiledMethodSubclass (in category 'testing - format') ----- + testCompiledMethodSubclass + "Ensure that the invariants for superclass/subclass format are preserved" + [self deny: (Smalltalk includesKey: self subClassName). + baseClass := CompiledMethod + variableByteSubclass: self subClassName + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self categoryNameForTemporaryClasses. + self deny: baseClass isPointers. + self assert: baseClass isVariable. + self deny: baseClass isWeak. + self assert: baseClass isBytes. + self assert: baseClass isCompiledMethodClass. + self deny: baseClass isWords. + self deny: baseClass isShorts. + self deny: baseClass isLongs. + "Now move it to be a sibling; test it maintains its CompiledMethod-ness" + baseClass := ByteArray + variableByteSubclass: self subClassName + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self categoryNameForTemporaryClasses. + self deny: baseClass isPointers. + self assert: baseClass isVariable. + self deny: baseClass isWeak. + self assert: baseClass isBytes. + self assert: baseClass isCompiledMethodClass. + self deny: baseClass isWords. + self deny: baseClass isShorts. + self deny: baseClass isLongs] + ensure: [self cleanup]!

1 0

The Trunk: Kernel-eem.1064.mcz
by commits＠source.squeak.org 22 Mar '17

22 Mar '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1064.mcz ==================== Summary ==================== Name: Kernel-eem.1064 Author: eem Time: 22 March 2017, 9:21:06.777441 am UUID: 5779c103-0ef2-470d-ae88-a5a759b47510 Ancestors: Kernel-ul.1063 Fix bug in creating new subclasses of #compiledMethod classes. =============== Diff against Kernel-ul.1063 =============== Item was changed: ----- Method: ClassBuilder>>superclass:variableByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'public') ----- superclass: aClass + variableByteSubclass: n instanceVariableNames: f - variableByteSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat "This is the standard initialization message for creating a new class as a subclass of an existing class in which the subclass is to have indexable 8-bit byte-sized nonpointer variables." + | existingOrSuperclass actualType env | + aClass instSize > 0 ifTrue: + [^self error: 'cannot make a byte subclass of a class with named fields']. + (aClass isVariable and: [aClass isBytes not]) ifTrue: + [^self error: 'cannot make an 8-bit byte subclass of a class with 16, 32 or 64 bit fields']. + (aClass isVariable and: [aClass isPointers]) ifTrue: + [^self error: 'cannot make a byte subclass of a class with pointer fields']. + existingOrSuperclass := aClass environment at: n ifAbsent: [aClass]. + actualType := existingOrSuperclass typeOfClass == #compiledMethod + ifTrue: [#compiledMethod] + ifFalse: [#bytes]. - | oldClassOrNil actualType env | - aClass instSize > 0 - ifTrue: [^self error: 'cannot make a byte subclass of a class with named fields']. - (aClass isVariable and: [aClass isBytes not]) - ifTrue: [^self error: 'cannot make an 8-bit byte subclass of a class with 16, 32 or 64 bit fields']. - (aClass isVariable and: [aClass isPointers]) - ifTrue: [^self error: 'cannot make a byte subclass of a class with pointer fields']. - oldClassOrNil := aClass environment at: t ifAbsent:[nil]. - actualType := (oldClassOrNil notNil - and: [oldClassOrNil typeOfClass == #compiledMethod]) - ifTrue: [#compiledMethod] - ifFalse: [#bytes]. env := CurrentEnvironment signal ifNil: [aClass environment]. ^self + name: n - name: t inEnvironment: env subclassOf: aClass type: actualType instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat!

1 0

The Trunk: Tests-ul.370.mcz
by commits＠source.squeak.org 21 Mar '17

21 Mar '17

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.370.mcz ==================== Summary ==================== Name: Tests-ul.370 Author: ul Time: 21 March 2017, 6:56:25.880825 pm UUID: 4c25819e-1c6d-452d-bd88-13e045075755 Ancestors: Tests-eem.369 SmalltalkImage >> #specialSelectors contains the argument count of the selectors besides their names. Use #specialSelectorNames instead in SystemNavigationTest >> #testAllSentMessagesWithout =============== Diff against Tests-eem.369 =============== Item was changed: ----- Method: SystemNavigationTest>>testAllSentMessagesWithout (in category 'as yet unclassified') ----- testAllSentMessagesWithout self assert: (#(foo bar) asIdentitySet addAll: Smalltalk presumedSentMessages; + addAll: Smalltalk specialSelectorNames; - addAll: Smalltalk specialSelectors; yourself) equals: (sysNav allSentMessagesWithout: {{env at: #Griffle}. {#+}}).!

1 0

The Trunk: System-ul.940.mcz
by commits＠source.squeak.org 21 Mar '17

21 Mar '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.940.mcz ==================== Summary ==================== Name: System-ul.940 Author: ul Time: 21 March 2017, 6:55:02.32896 pm UUID: bb942b8d-8893-42f6-b10f-ba058fbda68c Ancestors: System-ul.939 - SmalltalkImage >> #specialSelectors returns the raw array used by the VM - introduced SmalltalkImage >> #specialSelectorNames, which returns just the names of the special selectors without their argument count =============== Diff against System-ul.939 =============== Item was added: + ----- Method: SmalltalkImage>>specialSelectorNames (in category 'special objects') ----- + specialSelectorNames + "Return a collection with the names of the special selectors." + + | arrayOfPairs | + arrayOfPairs := self specialSelectors. + ^Array new: arrayOfPairs size // 2 streamContents: [ :stream | + arrayOfPairs pairsDo: [ :selector :numArgs | + stream nextPut: selector ] ] + ! Item was changed: ----- Method: SmalltalkImage>>specialSelectors (in category 'special objects') ----- specialSelectors + "Return an array with flattened special selector - argument count pairs. VMMaker relies on this." + ^self specialObjectsArray at: 24! - | arrayOfPairs | - arrayOfPairs := self specialObjectsArray at: 24. - ^Array new: arrayOfPairs size // 2 streamContents: [ :stream | - arrayOfPairs pairsDo: [ :selector :numArgs | - stream nextPut: selector ] ] - ! Item was changed: ----- Method: SystemNavigation>>allSentMessagesWithout: (in category 'query') ----- allSentMessagesWithout: classesAndMessagesPair "Answer the set of selectors which are sent somewhere in the system, computed in the absence of the supplied classes and messages." | sent absentClasses absentSelectors | sent := IdentitySet new: CompiledMethod instanceCount. absentClasses := classesAndMessagesPair first. absentSelectors := classesAndMessagesPair second. "sd 29/04/03" Cursor execute showWhile: [ self environment allClassesAndTraitsDo: [:cls | ((absentClasses includes: cls name) ifTrue: [{}] ifFalse: [{cls. cls classSide}]) do: [:each | (absentSelectors isEmpty ifTrue: [each selectors] ifFalse: [each selectors copyWithoutAll: absentSelectors]) do: [:sel | "Include all sels, but not if sent by self" (each compiledMethodAt: sel) literalsDo: [:m | (m isSymbol) ifTrue: ["might be sent" m == sel ifFalse: [sent add: m]]. (m isMemberOf: Array) ifTrue: ["might be performed" m do: [:x | (x isSymbol) ifTrue: [x == sel ifFalse: [sent add: x]]]]]]]]]. "The following may be sent without being in any literal frame" + Smalltalk specialSelectorNames do: [:sel | sent add: sel]. - Smalltalk specialSelectors do: [:sel | sent add: sel]. Smalltalk presumedSentMessages do: [:sel | sent add: sel]. ^ sent.!

1 0

The Trunk: SUnitGUI-ul.67.mcz
by commits＠source.squeak.org 20 Mar '17

20 Mar '17

Levente Uzonyi uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-ul.67.mcz ==================== Summary ==================== Name: SUnitGUI-ul.67 Author: ul Time: 20 March 2017, 11:50:13.109421 am UUID: 7d43abdd-61eb-4315-9ed9-15e262eecfc1 Ancestors: SUnitGUI-eem.66 - TestRunner >> #updateClasses is used initialize the value of classIndex to 0 - applied Schwartzian transform to the class sorter =============== Diff against SUnitGUI-eem.66 =============== Item was changed: ----- Method: TestRunner>>sortClass:before: (in category 'utilities') ----- + sortClass: firstHierarchyList before: secondHierarchyList + + 1 to: (firstHierarchyList size min: secondHierarchyList size) do: [ :index | + (firstHierarchyList at: index) == (secondHierarchyList at: index) + ifFalse: [ ^(firstHierarchyList at: index) name <= (secondHierarchyList at: index) name ] ]. + ^secondHierarchyList includes: firstHierarchyList last.! - sortClass: aFirstClass before: aSecondClass - | first second | - first := aFirstClass withAllSuperclasses reversed. - second := aSecondClass withAllSuperclasses reversed. - 1 to: (first size min: second size) do: [ :index | - (first at: index) == (second at: index) - ifFalse: [ ^ (first at: index) name <= (second at: index) name ] ]. - ^ second includes: aFirstClass.! Item was changed: ----- Method: TestRunner>>updateClasses (in category 'updating') ----- updateClasses + | classesForCategories | classesForCategories := self findClassesForCategories: categoriesSelected. classes := classesForCategories asArray + replace: [ :class | class withAllSuperclasses reverseInPlace ]; + sort: [ :a :b | self sortClass: a before: b ]; + replace: [ :hierarchyList | hierarchyList last ]. + classesSelected := classesSelected + ifNil: [ classesForCategories ] + ifNotNil: [ - sort: [ :a :b | self sortClass: a before: b ]. - classesSelected := classesSelected isNil - ifTrue: [ classesForCategories ] - ifFalse: [ classesSelected select: [ :each | classesForCategories includes: each ] ]. + classIndex + ifNil: [ classIndex := 0 ] + ifNotNil: [ + (classesSelected includes: (classes at: classIndex ifAbsent: [])) ifFalse: [ + classIndex := 0 ] ]. + self + changed: #classList; + changed: #classSelected; + changed: #hasRunnable! - classIndex isInteger ifTrue: - [(classesSelected includes: (classes at: classIndex ifAbsent: [])) ifFalse: - [classIndex := 0]]. - self changed: #classList; changed: #classSelected; changed: #hasRunnable.!

1 0

The Trunk: System-ul.939.mcz
by commits＠source.squeak.org 20 Mar '17

20 Mar '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.939.mcz ==================== Summary ==================== Name: System-ul.939 Author: ul Time: 20 March 2017, 12:53:20.911193 pm UUID: 6ec2857d-f206-4fd1-92f0-37edc4f72123 Ancestors: System-eem.938 Always initialize the idleMs temporary in SmalltalkImage >> #vmStatisticsReportString =============== Diff against System-eem.938 =============== Item was changed: ----- Method: SmalltalkImage>>vmStatisticsReportString (in category 'vm statistics') ----- vmStatisticsReportString "(Workspace new contents: Smalltalk vmStatisticsReportString) openLabel: 'VM Statistics'" "StringHolderView open: (StringHolder new contents: Smalltalk vmStatisticsReportString) label: 'VM Statistics'" | params oldSpaceEnd youngSpaceEnd memorySize fullGCs fullGCTime fullGCCompactionTime incrGCs incrGCTime tenureCount upTime upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used spur timeReporter idleMs idleMs2 | params := self getVMParameters. oldSpaceEnd := params at: 1. youngSpaceEnd := params at: 2. memorySize := params at: 3. fullGCs := params at: 7. fullGCTime := params at: 8. incrGCs := params at: 9. incrGCTime := params at: 10. tenureCount := params at: 11. fullGCCompactionTime := params at: 18. upTime := (params at: 20) ~= 0 "utcMicrosecondClock at startup in later Spur VMs" ifTrue: [Time utcMicrosecondClock - (params at: 20) + 500 // 1000] ifFalse: [Time eventMillisecondClock]. "Fall back on old microsecond clock; Good for 47.5 days" spur := (params at: 41) anyMask: 16. str := WriteStream on: (String new: 2048). timeReporter := [:time| | seconds | seconds := time / 1000. seconds >= (60*60*24) ifTrue: [str print: seconds / 60 // 60 // 24; nextPut: $d; space; print: seconds / 60 // 60 \\ 24; nextPut: $h; space] ifFalse: [seconds >= (60*60) ifTrue: [str print: (seconds / 60 // 60); nextPut: $h; space]]. str print: (seconds / 60 \\ 60) asInteger; nextPut: $m; space; print: (seconds \\ 60) asInteger; nextPut: $s]. str nextPutAll: 'uptime '. timeReporter value: upTime. + (idleMs := params at: 16) ~= 0 ifTrue: - (params at: 16) ~= 0 ifTrue: [str tab; nextPutAll: '(runtime '. + idleMs := idleMs // 1000. - idleMs := (params at: 16) // 1000. timeReporter value: upTime - idleMs. str nextPutAll: ', idletime '. timeReporter value: idleMs. str nextPut: $)]. str cr. str nextPutAll: 'memory '; nextPutAll: memorySize asStringWithCommas; nextPutAll: ' bytes'; cr. str nextPutAll: ' old '; nextPutAll: oldSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; print: oldSpaceEnd / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. spur ifTrue: [(youngSize := (params at: 19) * 7 // 5) = 0 ifTrue: [params at: 44]. youngSize := youngSize roundUpTo: 1024. str nextPutAll: ' young '; nextPutAll: youngSize asStringWithCommas; nextPutAll: ' bytes ('; print: youngSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. youngSize := youngSpaceEnd. "used eden" freeSize := (params at: 54) + (params at: 44) - youngSize. used := youngSize + oldSpaceEnd - freeSize. str nextPutAll: ' used '; nextPutAll: used asStringWithCommas; nextPutAll: ' bytes ('; print: used / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: freeSize asStringWithCommas; nextPutAll: ' bytes ('; print: freeSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr] ifFalse: "Earlier VM and V3 object memory" [str nextPutAll: ' young '; nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; print: (youngSpaceEnd - oldSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' used '; nextPutAll: youngSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; print: (youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: (memorySize - youngSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; print: (memorySize - youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr]. str nextPutAll: 'GCs '; nextPutAll: (fullGCs + incrGCs) asStringWithCommas. fullGCs + incrGCs > 0 ifTrue: [str nextPutAll: ' ('; print: upTime / (fullGCs + incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms between GCs'. idleMs > 0 ifTrue: [str space; print: upTime - idleMs / (fullGCs + incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms runtime between GCs']. str nextPut: $)]. str cr. str nextPutAll: ' full '; nextPutAll: fullGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; print: fullGCTime / (upTime - idleMs) * 100 maxDecimalPlaces: 2; nextPutAll: '% runtime)'; nextPutAll: ', avg '; print: (fullGCTime / (fullGCs max: 1)) maxDecimalPlaces: 1; nextPutAll: ' ms'. (spur and: [fullGCCompactionTime ~= 0]) ifTrue: [str cr; nextPutAll: ' marking '; nextPutAll: (fullGCTime - fullGCCompactionTime) asStringWithCommas; nextPutAll: ' ms ('; print: (fullGCTime - fullGCCompactionTime) / fullGCTime * 100 maxDecimalPlaces: 1; nextPutAll: '%) avg '; print: (fullGCTime - fullGCCompactionTime / (fullGCs max: 1)) maxDecimalPlaces: 1; nextPutAll: ' ms,'; cr; nextPutAll: ' compacting '; nextPutAll: fullGCCompactionTime asStringWithCommas; nextPutAll: ' ms ('; print: fullGCCompactionTime / fullGCTime * 100 maxDecimalPlaces: 1; nextPutAll: '%) avg '; print: fullGCCompactionTime / (fullGCs max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: (spur ifTrue: [' scavenges '] ifFalse: [' incr ']); nextPutAll: incrGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; print: incrGCTime / (upTime - idleMs) * 100 maxDecimalPlaces: 2; nextPutAll: '% runtime), avg '; print: incrGCTime / incrGCs maxDecimalPlaces: 1; nextPutAll: ' ms'; cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: [spur ifTrue: [str nextPutAll: ' (avg '; print: tenureCount // (incrGCs max: 1); nextPutAll: ' tenures per scavenge)'] ifFalse: [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']]. str cr. LastStats ifNil: [LastStats := Array new: 7] ifNotNil: [ LastStats size < 7 ifTrue: [LastStats := LastStats, (Array new: 7 - LastStats size withAll: 0)]. upTime2 := upTime - (LastStats at: 1). fullGCs2 := fullGCs - (LastStats at: 2). fullGCTime2 := fullGCTime - (LastStats at: 3). incrGCs2 := incrGCs - (LastStats at: 4). incrGCTime2 := incrGCTime - (LastStats at: 5). tenureCount2 := tenureCount - (LastStats at: 6). idleMs2 := idleMs - (LastStats at: 7). str nextPutAll: self textMarkerForShortReport ; nextPutAll: (fullGCs2 + incrGCs2) asStringWithCommas. fullGCs2 + incrGCs2 > 0 ifTrue: [str nextPutAll: ' ('; print: upTime2 // (fullGCs2 + incrGCs2); nextPutAll: ' ms between GCs'. idleMs2 > 0 ifTrue: [str nextPutAll: ', '; print: upTime2 - idleMs2 // (fullGCs2 + incrGCs2); nextPutAll: ' ms runtime between GCs']. str nextPut: $)]. str cr. str nextPutAll: ' uptime '; print: (upTime2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s, runtime '; print: (upTime2 - idleMs2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s, idletime '; print: (idleMs2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s'; cr. str nextPutAll: ' full '; nextPutAll: fullGCs2 asStringWithCommas. fullGCs2 + fullGCTime2 > 0 ifTrue: [str nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: ' ms ('; print: fullGCTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 1; nextPutAll: '% runtime)'. str nextPutAll: ', avg '; print: fullGCTime2 / (fullGCs2 max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: (spur ifTrue: [' scavenge '] ifFalse: [' incr ']); nextPutAll: incrGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime2 asStringWithCommas; nextPutAll: ' ms ('; print: incrGCTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 1; nextPutAll: '% runtime), avg '; print: incrGCTime2 / (incrGCs2 max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms'. str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount2 asStringWithCommas. tenureCount2 = 0 ifFalse: [spur ifTrue: [str nextPutAll: ' (avg '; print: tenureCount2 // (incrGCs2 max: 1); nextPutAll: ' tenures per scavenge)'] ifFalse: [str nextPutAll: ' (avg '; print: incrGCs2 // tenureCount2; nextPutAll: ' GCs/tenure)']]. str cr. ]. LastStats := { upTime. fullGCs. fullGCTime. incrGCs. incrGCTime. tenureCount. idleMs }. ^str contents !

1 0

The Trunk: SystemReporter-eem.34.mcz
by commits＠source.squeak.org 20 Mar '17

20 Mar '17

Eliot Miranda uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-eem.34.mcz ==================== Summary ==================== Name: SystemReporter-eem.34 Author: eem Time: 19 March 2017, 5:21:30.625322 pm UUID: 3c12cf73-1e99-4d84-b9b0-6a16f7533fe9 Ancestors: SystemReporter-ul.33 Update the System Reporter's VM Parameters tab with the latest parameters (idle time and Sista code proportion). =============== Diff against SystemReporter-ul.33 =============== Item was changed: ----- Method: SystemReporter>>reportVMParameters: (in category 'reporting') ----- reportVMParameters: aStream | vmParameters isStack isCog isSpur | self header: 'Virtual Machine Parameters' on: aStream. vmParameters := Smalltalk vm getVMParameters. isStack := (vmParameters at: 42 ifAbsent: [0]) ~= 0. "42 = number of stack pages available" isCog := isStack and: [(vmParameters at: 46) ~= 0]. "46 is machine code zone size" isSpur := isStack and: [(vmParameters at: 41) anyMask: 2r10000]. "41 is imageFormatVersion for the VM; bit 16 is the Spur bit" (isSpur ifFalse: [#( 1 'size of old space' 2 'size of young+old space' 3 'size of memory' 4 'allocationCount' 5 'allocations between GCs' 6 'survivor count tenuring threshold')] ifTrue: [#( 1 'size of old space' 2 'size of new space' 3 'size of heap')]), #( 7 'full GCs since startup' 8 'total milliseconds in full GCs since startup'), (isSpur ifFalse: [#( 9 'incremental GCs since startup' 10 'total milliseconds in incremental GCs since startup' 11 'tenures of surving objects since startup'), {12 to: 19. 'specific to the translating VM'}] ifTrue: [#( 9 'scavenging GCs since startup' 10 'total milliseconds in scavenging GCs since startup' 11 'tenures of surving objects since startup'), + {12 to: 15. 'reserved for future use'}, + #( 16 'total microseconds in idle since startup' + 17 'proportion of code zone available for use (Sista VMs only; read-write)' + 18 'total milliseconds in full GC compaction since startup (a portion of parameter 8)' - {12 to: 17. 'reserved for future use'}, - #( 18 'total milliseconds in full GC compaction since startup (a portion of parameter 8)' 19 'scavenge threshold; the effective size of eden')]), #( 20 'utc microseconds at startup (if non-zero)' + 21 'root/remembered table size (occupancy)' + 22 'root/remembered table overflows since startup' - 21 'root table size' - 22 'root table overflows since startup' 23 'bytes of extra memory to reserve for VM buffers, plugins, etc.' 24 'free memory threshold above which object memory will be shrunk' 25 'memory headroom when growing object memory'), (isStack ifFalse: [#( 26 'interruptChecksEveryNms - force an ioProcessEvents every N milliseconds, in case the image is not calling getNextEvent often')] ifTrue: [#( 26 'heartbeat period (ms; see #58)')]), (isSpur ifFalse: [#( 27 'number of times mark loop iterated for current IGC/FGC includes ALL marking' 28 'number of times sweep loop iterated for current IGC/FGC' 29 'number of times make forward loop iterated for current IGC/FGC' 30 'number of times compact move loop iterated for current IGC/FGC')] ifTrue: [#()]), #( 31 'number of grow memory requests' 32 'number of shrink memory requests'), (isSpur ifFalse: [#( 33 'number of root table entries used for current IGC/FGC' 34 'number of allocations done before current IGC/FGC' 35 'number of survivor objects after current IGC/FGC' 36 'millisecond clock when current IGC/FGC completed' 37 'number of marked objects for Roots of the world, not including Root Table entries for current IGC/FGC' 38 'milliseconds taken by current IGC' 39 'Number of finalization signals for Weak Objects pending when current IGC/FGC completed')] ifTrue: [#( 33 'number of root table entries at last scavenge' 35 'number of survivor objects at last scavenge (if non-zero)' 36 'millisecond clock when current scavenge completed' 38 'milliseconds taken by current scavenge' 39 'Number of finalization signals for Weak Objects pending when current SGC/FGC completed')]), #( 40 'VM word size - 4 or 8'), (isStack ifTrue: [#( 41 'imageFormatVersion for the VM' 42 'number of stack pages available' 43 'desired number of stack pages (stored in image file header, max 65535)' 44 'size of eden, in bytes' 45 'desired size of eden, in bytes (stored in image file header)' 46 'machine code zone size, in bytes (0 in Stack VM)' 47 'desired machine code zone size (0 => default 1Mb)' 48 'various header flags. See getCogVMFlags.' 49 'max size the image promises to grow the external semaphore table to'), (isSpur ifFalse: + [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)'. + 52 to: 56. 'specific to Spur' }] - [{ 50 to: 54. 'reserved for VM parameters that persist in the image (such as size of eden above)'. - 55 to: 56. 'specific to Spur' }] ifTrue: [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)' }, + #( 52 'root/remembered table capacity' - #( 52 'root table capacity' 53 'number of old space segments' 54 'total free old space' 55 'ratio of growth and image size at or above which a GC will be performed post scavenge')]), #( 56 'number of process switches since startup' 57 'number of ioProcessEvents calls since startup' 58 'number of forceInterruptCheck calls since startup' 59 'number of check event calls since startup' 60 'number of stack page overflows since startup' 61 'number of stack page divorces since startup' 62 'compiled code compactions since startup'), (isCog ifFalse: [#()] ifTrue: [#( 63 'total milliseconds in compiled code compactions since startup' 64 'the number of methods that currently have jitted machine-code')]), #( 65 'whether the VM supports MULTIPLE_BYTECODE_SETS or not.' 66 'the byte size of a stack page'), (isSpur ifFalse: [{ 67 to: 69. 'reserved for more Cog-related info' }] ifTrue: [#( 67 'the maximum allowed size of old space (if zero there is no limit)' 68 'the average number of live stack pages when scanned by scavenge/gc/become' 69 'the maximum number of live stack pages when scanned by scavenge/gc/become')]), #( 70 'the vmProxyMajorVersion (the interpreterProxy VM_MAJOR_VERSION)' 71 'the vmProxyMinorVersion (the interpreterProxy VM_MINOR_VERSION)')] ifFalse: [#()]) pairsDo: [:idx :desc | | value values | aStream nextPut: $#. idx isInteger ifTrue: [value := vmParameters at: idx. aStream print: idx; tab: (idx < 10 ifTrue: [2] ifFalse: [1]); nextPutAll: ((value isInteger and: [idx ~= 41]) ifTrue: [value asStringWithCommas] ifFalse: [value printString])] ifFalse: [value := vmParameters at: idx first. aStream print: idx first; next: 2 put: $.; print: idx last; tab. values := idx collect: [:i| vmParameters at: i]. values asSet size = 1 ifTrue: [aStream print: value] ifFalse: [values do: [:v| aStream print: v] separatedBy: [aStream nextPutAll: ', ']]]. aStream tab; nextPutAll: desc; cr]!

1 0

The Trunk: System-eem.938.mcz
by commits＠source.squeak.org 20 Mar '17

20 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.938.mcz ==================== Summary ==================== Name: System-eem.938 Author: eem Time: 19 March 2017, 5:13:33.317857 pm UUID: fd7c1495-541a-462b-97b8-335f767b8e50 Ancestors: System-ul.937 Update the vmStatisticsReportString to be aware of the tallied idle time in the latest VMs. This allows he report to give meaningful percentage of runtime in GC figures. Update vmParameterAt:[put:] with the idle time and Sista code zone proportion support. Add [browse]allCallsOn:and:localToPackage: =============== Diff against System-ul.937 =============== Item was changed: ----- Method: SmalltalkImage>>vmParameterAt: (in category 'system attributes') ----- vmParameterAt: parameterIndex "parameterIndex is a positive integer corresponding to one of the VM's internal parameter/metric registers. Answer with the current value of that register. Fail if parameterIndex has no corresponding register. VM parameters are numbered as follows: 1 byte size of old-space (read-only) 2 byte size of young-space (read-only) 3 byte size of object memory (read-only) 4 allocationCount (read-only; nil in Cog VMs) 5 allocations between GCs (read-write; nil in Cog VMs) 6 survivor count tenuring threshold (read-write) 7 full GCs since startup (read-only) 8 total milliseconds in full GCs since startup (read-only) 9 incremental GCs since startup (read-only; scavenging GCs on Spur) 10 total milliseconds in incremental/scavenging GCs since startup (read-only) 11 tenures of surving objects since startup (read-only) + 12-15 specific to the translating VM + 16 total microseconds in idle since startup + 17 proportion of code zone available for use (Sista VMs only; read-write) - 12-17 specific to the translating VM (nil in Cog VMs) 18 total milliseconds in full GC compaction since startup (a portion of parameter 8) 19 scavenge threshold; the effective size of eden 20 utc microseconds at VM start-up (actually at time initialization, which precedes image load) (newer Cog VMs only). 21 root (remembered) table size (read-only) 22 root (remembered) table overflows since startup (read-only) 23 bytes of extra memory to reserve for VM buffers, plugins, etc. 24 memory threshold above which to shrink object memory (read-write) 25 ammount to grow by when growing object memory (read-write) 26 interruptChecksEveryNms - force an ioProcessEvents every N milliseconds (read-write) 27 number of times mark loop iterated for current IGC/FGC (read-only) includes ALL marking 28 number of times sweep loop iterated for current IGC/FGC (read-only) 29 number of times make forward loop iterated for current IGC/FGC (read-only) 30 number of times compact move loop iterated for current IGC/FGC (read-only) 31 number of grow memory requests (read-only) 32 number of shrink memory requests (read-only) 33 number of root table entries used for current IGC/FGC (read-only) 34 number of allocations done before current IGC/FGC (read-only) 35 number of survivor objects after current IGC/FGC (read-only) 36 millisecond clock when current IGC/FGC completed (read-only) 37 number of marked objects for Roots of the world, not including Root Table entries for current IGC/FGC (read-only) 38 milliseconds taken by current IGC (read-only) 39 Number of finalization signals for Weak Objects pending when current IGC/FGC completed (read-only) 40 BytesPerWord for this image 41 imageFormatVersion for the VM 42 number of stack pages in use (Cog Stack VM only, otherwise nil) 43 desired number of stack pages (stored in image file header, max 65535; Cog VMs only, otherwise nil) 44 size of eden, in bytes (Cog VMs only, otherwise nil) 45 desired size of eden, in bytes (stored in image file header; Cog VMs only, otherwise nil) 46 size of machine code zone, in bytes (stored in image file header; Cog JIT VM only, otherwise nil) 47 desired size of machine code zone, in bytes (applies at startup only, stored in image file header; Cog JIT VM only) 48 various properties of the Cog VM as an integer encoding an array of bit flags. Bit 0: tells the VM that the image's Process class has threadId as its 5th inst var (after nextLink, suspendedContext, priority & myList) Bit 1: on Cog JIT VMs asks the VM to set the flag bit in interpreted methods Bit 2: if set, preempting a process puts it to the head of its run queue, not the back, i.e. preempting a process by a higher priority one will not cause the preempted process to yield to others at the same priority. Bit 3: in a muilt-threaded VM, if set, the Window system will only be accessed from the first VM thread Bit 4: in a Spur vm, if set, causes weaklings and ephemerons to be queued individually for finalization 49 the size of the external semaphore table (read-write; Cog VMs only) 50-51 reserved for VM parameters that persist in the image (such as eden above) 52 root (remembered) table maximum size (read-only) 53 the number of oldSpace segments (Spur only, otherwise nil) 54 total size of free old space (Spur only, otherwise nil) 55 ratio of growth and image size at or above which a GC will be performed post scavenge (Spur only, otherwise nil) 56 number of process switches since startup (read-only) 57 number of ioProcessEvents calls since startup (read-only) 58 number of forceInterruptCheck (Cog VMs) or quickCheckInterruptCalls (non-Cog VMs) calls since startup (read-only) 59 number of check event calls since startup (read-only) 60 number of stack page overflows since startup (read-only; Cog VMs only) 61 number of stack page divorces since startup (read-only; Cog VMs only) 62 number of machine code zone compactions since startup (read-only; Cog VMs only) 63 milliseconds taken by machine code zone compactions since startup (read-only; Cog VMs only) 64 current number of machine code methods (read-only; Cog VMs only) 65 In newer Cog VMs a set of flags describing VM features, if non-zero bit 0 implies multiple bytecode set support; if non-zero bit 0 implies read-only object support (read-only; Cog VMs only; nil in older Cog VMs, a boolean answering multiple bytecode support in not so old Cog VMs) 66 the byte size of a stack page in the stack zone (read-only; Cog VMs only) 67 the maximum allowed size of old space in bytes, 0 implies no internal limit (Spur VMs only). 68 - 69 reserved for more Cog-related info 70 the value of VM_PROXY_MAJOR (the interpreterProxy major version number) 71 the value of VM_PROXY_MINOR (the interpreterProxy minor version number)" <primitive: 254> self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>vmParameterAt:put: (in category 'vm parameters') ----- vmParameterAt: parameterIndex put: newValue "parameterIndex is a positive integer corresponding to one of the VM's internal parameter/metric registers. Store newValue (a positive integer) into that register and answer with the previous value that was stored there. Fail if newValue is out of range, if parameterIndex has no corresponding register, or if the corresponding register is read-only. As of early 2016 the parameters which can be set are 5 allocations between GCs (read-write; nil in Cog VMs) 6 survivor count tenuring threshold (read-write) + 17 proportion of code zone available for use (Sista VMs only) 23 bytes of extra memory to reserve for VM buffers, plugins, etc. 24 memory threshold above whichto shrink object memory (read-write) 25 memory headroom when growing object memory (read-write) 26 interruptChecksEveryNms - force an ioProcessEvents every N milliseconds (read-write) 43 desired number of stack pages (stored in image file header, max 65535; Cog VMs only, otherwise nil) 45 desired size of eden, in bytes (stored in image file header; Cog VMs only, otherwise nil) 47 desired size of machine code zone, in bytes (applies at startup only, stored in image file header; Cog JIT VM only) 48 various properties of the Cog VM as an integer encoding an array of bit flags. Bit 0: tells the VM that the image's Process class has threadId as its 5th inst var (after nextLink, suspendedContext, priority & myList) Bit 1: on Cog JIT VMs asks the VM to set the flag bit in interpreted methods Bit 2: if set, preempting a process puts it to the head of its run queue, not the back, i.e. preempting a process by a higher priority one will not cause the preempted process to yield to others at the same priority. Bit 3: in a muilt-threaded VM, if set, the Window system will only be accessed from the first VM thread Bit 4: in a Spur vm, if set, causes weaklings and ephemerons to be queued individually for finalization 49 the size of the external semaphore table (read-write; Cog VMs only) 55 ratio of growth and image size at or above which a GC will be performed post scavenge (Spur only, otherwise nil) 67 the maximum allowed size of old space in bytes, 0 implies no internal limit (Spur only)." <primitive: 254> self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>vmStatisticsReportString (in category 'vm statistics') ----- vmStatisticsReportString "(Workspace new contents: Smalltalk vmStatisticsReportString) openLabel: 'VM Statistics'" "StringHolderView open: (StringHolder new contents: Smalltalk vmStatisticsReportString) label: 'VM Statistics'" | params oldSpaceEnd youngSpaceEnd memorySize fullGCs fullGCTime fullGCCompactionTime incrGCs incrGCTime tenureCount upTime + upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used spur timeReporter idleMs idleMs2 | - upTime2 fullGCs2 fullGCTime2 incrGCs2 incrGCTime2 tenureCount2 str freeSize youngSize used spur | params := self getVMParameters. oldSpaceEnd := params at: 1. youngSpaceEnd := params at: 2. memorySize := params at: 3. fullGCs := params at: 7. fullGCTime := params at: 8. incrGCs := params at: 9. incrGCTime := params at: 10. tenureCount := params at: 11. fullGCCompactionTime := params at: 18. upTime := (params at: 20) ~= 0 "utcMicrosecondClock at startup in later Spur VMs" ifTrue: [Time utcMicrosecondClock - (params at: 20) + 500 // 1000] ifFalse: [Time eventMillisecondClock]. "Fall back on old microsecond clock; Good for 47.5 days" spur := (params at: 41) anyMask: 16. str := WriteStream on: (String new: 2048). + timeReporter := [:time| | seconds | + seconds := time / 1000. + seconds >= (60*60*24) + ifTrue: + [str print: seconds / 60 // 60 // 24; nextPut: $d; space; + print: seconds / 60 // 60 \\ 24; nextPut: $h; space] + ifFalse: + [seconds >= (60*60) ifTrue: + [str print: (seconds / 60 // 60); nextPut: $h; space]]. + str + print: (seconds / 60 \\ 60) asInteger; nextPut: $m; space; + print: (seconds \\ 60) asInteger; nextPut: $s]. str nextPutAll: 'uptime '. + timeReporter value: upTime. + (params at: 16) ~= 0 ifTrue: + [str tab; nextPutAll: '(runtime '. + idleMs := (params at: 16) // 1000. + timeReporter value: upTime - idleMs. + str nextPutAll: ', idletime '. + timeReporter value: idleMs. + str nextPut: $)]. + str cr. - upTime >= (60*60*24*1000) - ifTrue: - [str print: (upTime / 1000 / 60 // 60 // 24); nextPut: $d; space; - print: (upTime / 1000 / 60 // 60 \\ 24); nextPut: $h; space] - ifFalse: [str print: (upTime / 1000 / 60 // 60); nextPut: $h; space]. - str - print: (upTime / 1000 / 60 \\ 60) asInteger; nextPut: $m; space; - print: (upTime / 1000 \\ 60) asInteger; nextPut: $s; cr. str nextPutAll: 'memory '; nextPutAll: memorySize asStringWithCommas; nextPutAll: ' bytes'; cr. + str nextPutAll: ' old '; - str nextPutAll: ' old '; nextPutAll: oldSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; + print: oldSpaceEnd / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. - print: (oldSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. spur ifTrue: [(youngSize := (params at: 19) * 7 // 5) = 0 ifTrue: [params at: 44]. youngSize := youngSize roundUpTo: 1024. + str nextPutAll: ' young '; - str nextPutAll: ' young '; nextPutAll: youngSize asStringWithCommas; nextPutAll: ' bytes ('; print: youngSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. youngSize := youngSpaceEnd. "used eden" freeSize := (params at: 54) + (params at: 44) - youngSize. used := youngSize + oldSpaceEnd - freeSize. str nextPutAll: ' used '; nextPutAll: used asStringWithCommas; nextPutAll: ' bytes ('; print: used / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: freeSize asStringWithCommas; nextPutAll: ' bytes ('; + print: freeSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr] + ifFalse: "Earlier VM and V3 object memory" + [str nextPutAll: ' young '; - print: freeSize / memorySize * 100 maxDecimalPlaces: 1; nextPutAll: '%)'; cr - ] ifFalse: [ "Earlier VM and V3 object memory" - str nextPutAll: ' young '; nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; print: (youngSpaceEnd - oldSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' used '; nextPutAll: youngSpaceEnd asStringWithCommas; nextPutAll: ' bytes ('; print: (youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. str nextPutAll: ' free '; nextPutAll: (memorySize - youngSpaceEnd) asStringWithCommas; nextPutAll: ' bytes ('; + print: (memorySize - youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr]. - print: (memorySize - youngSpaceEnd / memorySize * 100) maxDecimalPlaces: 1; nextPutAll: '%)'; cr. - ]. str nextPutAll: 'GCs '; nextPutAll: (fullGCs + incrGCs) asStringWithCommas. + fullGCs + incrGCs > 0 ifTrue: + [str - fullGCs + incrGCs > 0 ifTrue: [ - str nextPutAll: ' ('; + print: upTime / (fullGCs + incrGCs) maxDecimalPlaces: 1; + nextPutAll: ' ms between GCs'. + idleMs > 0 ifTrue: + [str + space; + print: upTime - idleMs / (fullGCs + incrGCs) maxDecimalPlaces: 1; + nextPutAll: ' ms runtime between GCs']. + str nextPut: $)]. - print: (upTime / (fullGCs + incrGCs)) maxDecimalPlaces: 1; - nextPutAll: ' ms between GCs)' - ]. str cr. str nextPutAll: ' full '; nextPutAll: fullGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; + print: fullGCTime / (upTime - idleMs) * 100 maxDecimalPlaces: 2; + nextPutAll: '% runtime)'; - print: (fullGCTime / upTime * 100) maxDecimalPlaces: 2; - nextPutAll: '% uptime)'; nextPutAll: ', avg '; print: (fullGCTime / (fullGCs max: 1)) maxDecimalPlaces: 1; nextPutAll: ' ms'. (spur and: [fullGCCompactionTime ~= 0]) ifTrue: [str cr; nextPutAll: ' marking '; nextPutAll: (fullGCTime - fullGCCompactionTime) asStringWithCommas; nextPutAll: ' ms ('; print: (fullGCTime - fullGCCompactionTime) / fullGCTime * 100 maxDecimalPlaces: 1; nextPutAll: '%) avg '; print: (fullGCTime - fullGCCompactionTime / (fullGCs max: 1)) maxDecimalPlaces: 1; nextPutAll: ' ms,'; cr; nextPutAll: ' compacting '; + nextPutAll: fullGCCompactionTime asStringWithCommas; nextPutAll: ' ms ('; - nextPutAll: (fullGCCompactionTime) asStringWithCommas; nextPutAll: ' ms ('; print: fullGCCompactionTime / fullGCTime * 100 maxDecimalPlaces: 1; + nextPutAll: '%) avg '; print: fullGCCompactionTime / (fullGCs max: 1) maxDecimalPlaces: 1; + nextPutAll: ' ms']. - nextPutAll: '%) avg '; print: (fullGCCompactionTime / (fullGCs max: 1)) maxDecimalPlaces: 1; - nextPutAll: ' ms'.]. str cr. str nextPutAll: (spur ifTrue: [' scavenges '] ifFalse: [' incr ']); nextPutAll: incrGCs asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; + print: incrGCTime / (upTime - idleMs) * 100 maxDecimalPlaces: 2; + nextPutAll: '% runtime), avg '; print: incrGCTime / incrGCs maxDecimalPlaces: 1; nextPutAll: ' ms'; cr. - print: (incrGCTime / upTime * 100) maxDecimalPlaces: 2; - nextPutAll: '% uptime), avg '; print: (incrGCTime / incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms'; cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: [spur ifTrue: [str nextPutAll: ' (avg '; print: tenureCount // (incrGCs max: 1); nextPutAll: ' tenures per scavenge)'] ifFalse: [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']]. str cr. + LastStats ifNil: [LastStats := Array new: 7] - LastStats ifNil: [LastStats := Array new: 6] ifNotNil: [ + LastStats size < 7 ifTrue: + [LastStats := LastStats, (Array new: 7 - LastStats size withAll: 0)]. upTime2 := upTime - (LastStats at: 1). fullGCs2 := fullGCs - (LastStats at: 2). fullGCTime2 := fullGCTime - (LastStats at: 3). incrGCs2 := incrGCs - (LastStats at: 4). incrGCTime2 := incrGCTime - (LastStats at: 5). tenureCount2 := tenureCount - (LastStats at: 6). + idleMs2 := idleMs - (LastStats at: 7). str nextPutAll: self textMarkerForShortReport ; nextPutAll: (fullGCs2 + incrGCs2) asStringWithCommas. + fullGCs2 + incrGCs2 > 0 ifTrue: + [str - fullGCs2 + incrGCs2 > 0 ifTrue: [ - str nextPutAll: ' ('; print: upTime2 // (fullGCs2 + incrGCs2); + nextPutAll: ' ms between GCs'. + idleMs2 > 0 ifTrue: + [str + nextPutAll: ', '; + print: upTime2 - idleMs2 // (fullGCs2 + incrGCs2); + nextPutAll: ' ms runtime between GCs']. + str nextPut: $)]. - nextPutAll: ' ms between GCs)'. - ]. - str cr. - str nextPutAll: ' uptime '; print: (upTime2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s'; cr. - str nextPutAll: ' full '; - nextPutAll: fullGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: ' ms ('; - print: (fullGCTime2 / upTime2 * 100) maxDecimalPlaces: 1; - nextPutAll: '% uptime)'. - fullGCs2 = 0 ifFalse: - [str nextPutAll: ', avg '; print: (fullGCTime2 / fullGCs2) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. + str nextPutAll: ' uptime '; print: (upTime2 / 1000.0) maxDecimalPlaces: 1; + nextPutAll: ' s, runtime '; print: (upTime2 - idleMs2 / 1000.0) maxDecimalPlaces: 1; + nextPutAll: ' s, idletime '; print: (idleMs2 / 1000.0) maxDecimalPlaces: 1; nextPutAll: ' s'; cr. + str nextPutAll: ' full '; + nextPutAll: fullGCs2 asStringWithCommas. + fullGCs2 + fullGCTime2 > 0 ifTrue: + [str nextPutAll: ' totalling '; nextPutAll: fullGCTime2 asStringWithCommas; nextPutAll: ' ms ('; + print: fullGCTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 1; + nextPutAll: '% runtime)'. + str nextPutAll: ', avg '; print: fullGCTime2 / (fullGCs2 max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms']. + str cr. + str nextPutAll: (spur ifTrue: [' scavenge '] ifFalse: [' incr ']); - str nextPutAll: ' incr '; nextPutAll: incrGCs2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: incrGCTime2 asStringWithCommas; nextPutAll: ' ms ('; + print: incrGCTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 1; + nextPutAll: '% runtime), avg '; print: incrGCTime2 / (incrGCs2 max: 1) maxDecimalPlaces: 1; nextPutAll: ' ms'. + str cr. - print: (incrGCTime2 / upTime2 * 100) maxDecimalPlaces: 1; - nextPutAll: '% uptime), avg '. - incrGCs2 > 0 ifTrue: [ - str print: (incrGCTime2 / incrGCs2) maxDecimalPlaces: 1; nextPutAll: ' ms' - ]. - str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount2 asStringWithCommas. tenureCount2 = 0 ifFalse: + [spur + ifTrue: [str nextPutAll: ' (avg '; print: tenureCount2 // (incrGCs2 max: 1); nextPutAll: ' tenures per scavenge)'] + ifFalse: [str nextPutAll: ' (avg '; print: incrGCs2 // tenureCount2; nextPutAll: ' GCs/tenure)']]. - [str nextPutAll: ' (avg '; print: incrGCs2 // tenureCount2; nextPutAll: ' GCs/tenure)']. str cr. ]. + LastStats := { upTime. fullGCs. fullGCTime. incrGCs. incrGCTime. tenureCount. idleMs }. - LastStats at: 1 put: upTime. - LastStats at: 2 put: fullGCs. - LastStats at: 3 put: fullGCTime. - LastStats at: 4 put: incrGCs. - LastStats at: 5 put: incrGCTime. - LastStats at: 6 put: tenureCount. + ^str contents - ^ str contents ! Item was added: + ----- Method: SystemNavigation>>allCallsOn:and:localToPackage: (in category 'query') ----- + allCallsOn: firstLiteral and: secondLiteral localToPackage: packageNameOrInfo + "Answer a sorted collection of all the methods in the given package that call on both firstLiteral and secondLiteral." + "self systemNavigation browseAllCallsOn: #not and: #ifTrue: localToPackage: #Compiler" + | firstList secondList | + firstList := self allCallsOn: firstLiteral + fromBehaviors: (self packageInfoFor: packageNameOrInfo) classesAndMetaClasses + sorted: false. + secondList := (self + allCallsOn: secondLiteral + fromBehaviors: (firstList collect: [:each | each actualClass] as: IdentitySet) + sorted: false) asSet. + firstList removeAllSuchThat: [:each | (secondList includes: each) not]. + ^firstList sort! Item was added: + ----- Method: SystemNavigation>>browseAllCallsOn:and:localToPackage: (in category 'browse') ----- + browseAllCallsOn: literal1 and: literal2 localToPackage: packageNameOrInfo + "Create and schedule a message browser on each method in the given package that refers to both literal1 and literal2." + "self default browseAllCallsOn: #open:label: localToPackage: 'Tools'." + + self headingAndAutoselectForLiteral: literal1 do: [ :label :autoSelect | + self + browseMessageList: [ + self + allCallsOn: literal1 + and: literal2 + localToPackage: packageNameOrInfo ] + name: label, ' local to package ', (self packageInfoFor: packageNameOrInfo) name + autoSelect: autoSelect ]!

1 0

The Trunk: System-ul.937.mcz
by commits＠source.squeak.org 20 Mar '17

20 Mar '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.937.mcz ==================== Summary ==================== Name: System-ul.937 Author: ul Time: 20 March 2017, 12:35:03.813931 am UUID: 01691bb8-181f-4795-83ce-20130031a81d Ancestors: System-ul.936 Fixed SmalltalkImage >> #specialSelectors. SystemTracer doesn't use it any more, but it's being used by tests, which expect it to return only the selectors without their argument count. =============== Diff against System-ul.936 =============== Item was changed: ----- Method: SmalltalkImage>>specialSelectors (in category 'special objects') ----- specialSelectors + + | arrayOfPairs | + arrayOfPairs := self specialObjectsArray at: 24. + ^Array new: arrayOfPairs size // 2 streamContents: [ :stream | + arrayOfPairs pairsDo: [ :selector :numArgs | + stream nextPut: selector ] ] + ! - "Used by SystemTracer only." - - ^SpecialSelectors!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2017