Packages November 2017

packages@lists.squeakfoundation.org

1 participants
117 discussions

The Trunk: SUnit-tpr.110.mcz
by commits＠source.squeak.org 07 Nov '17

07 Nov '17

tim Rowledge uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-tpr.110.mcz ==================== Summary ==================== Name: SUnit-tpr.110 Author: tpr Time: 6 November 2017, 3:01:43.268905 pm UUID: 0754924f-c223-4120-a86a-2973ccaac087 Ancestors: SUnit-eem.109 Make the default timeout for TestCases depend on the system performance check =============== Diff against SUnit-eem.109 =============== Item was changed: ----- Method: TestCase>>defaultTimeout (in category 'accessing') ----- defaultTimeout "Answer the default timeout to use for tests in this test case. The timeout is a value in seconds." + ^Smalltalk isLowerPerformance ifTrue:[ 25] ifFalse: [5] "seconds"! - ^5 "seconds"!

1 0

The Trunk: System-tpr.974.mcz
by commits＠source.squeak.org 06 Nov '17

06 Nov '17

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.974.mcz ==================== Summary ==================== Name: System-tpr.974 Author: tpr Time: 6 November 2017, 2:58:41.610598 pm UUID: 361edb95-23ce-4ab1-b1c2-32b8382265c5 Ancestors: System-eem.973 Add as test for whether we are running on a slower system. Currently use an ARM cpu or SqueakJS as the discriminator, but future options might well include checking for Cog/Sista or even running an actual test and caching the result =============== Diff against System-eem.973 =============== Item was added: + ----- Method: SmalltalkImage>>isLowerPerformance (in category 'system attributes') ----- + isLowerPerformance + "Some operations - TestCases for example - need an idea of the typical performance of the system on which they are being performed. For now we will simply assert that running on an ARM cpu or as a SqueakJS instance is enough of a discriminator. Options for the future might also involve whether the vm is a full Cog or Sisata system, even actually measuring the performance at some point to be sure" + ^ (self platformSubtype beginsWith: 'arm') "Raspberry PI for example" + or: [self platformName = 'Web'] "SqueakJS"!

1 0

The Trunk: EToys-bp.312.mcz
by commits＠source.squeak.org 06 Nov '17

06 Nov '17

Bernhard Pieber uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-bp.312.mcz ==================== Summary ==================== Name: EToys-bp.312 Author: bp Time: 6 November 2017, 9:23:06.7401 pm UUID: 21d58392-9e50-4ce3-b26c-42b0d465cddf Ancestors: EToys-mt.311 Move method String>>#replaceHtmlCharRefs to the EToys package in order to break the inadvertently introduced dependency from Collections to EToys again =============== Diff against EToys-mt.311 =============== Item was added: + ----- Method: String>>replaceHtmlCharRefs (in category '*Etoys-internet') ----- + replaceHtmlCharRefs + + | pos ampIndex scIndex special specialValue outString outPos newOutPos | + + outString := String new: self size. + outPos := 0. + + pos := 1. + + [ pos <= self size ] whileTrue: [ + "read up to the next ampersand" + ampIndex := self indexOf: $& startingAt: pos ifAbsent: [0]. + + ampIndex = 0 ifTrue: [ + pos = 1 ifTrue: [ ^self ] ifFalse: [ ampIndex := self size+1 ] ]. + + newOutPos := outPos + ampIndex - pos. + outString + replaceFrom: outPos + 1 + to: newOutPos + with: self + startingAt: pos. + outPos := newOutPos. + pos := ampIndex. + + ampIndex <= self size ifTrue: [ + "find the $;" + scIndex := self indexOf: $; startingAt: ampIndex ifAbsent: [ self size + 1 ]. + + special := self copyFrom: ampIndex+1 to: scIndex-1. + specialValue := HtmlEntity valueOfHtmlEntity: special. + + specialValue + ifNil: [ + "not a recognized entity. wite it back" + scIndex > self size ifTrue: [ scIndex := self size ]. + + newOutPos := outPos + scIndex - ampIndex + 1. + outString + replaceFrom: outPos+1 + to: newOutPos + with: self + startingAt: ampIndex. + outPos := newOutPos.] + ifNotNil: [ + outPos := outPos + 1. + outString at: outPos put: specialValue isoToSqueak.]. + + pos := scIndex + 1. ]. ]. + + + ^outString copyFrom: 1 to: outPos!

1 0

The Trunk: Collections-bp.766.mcz
by commits＠source.squeak.org 06 Nov '17

06 Nov '17

Bernhard Pieber uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bp.766.mcz ==================== Summary ==================== Name: Collections-bp.766 Author: bp Time: 6 November 2017, 9:21:14.115712 pm UUID: bdbd2235-fc3c-4754-b390-84ecd1b03efa Ancestors: Collections-bp.765 move method to the EToys package in order to break the introduces dependency from Collections to EToys again =============== Diff against Collections-bp.765 =============== Item was removed: - ----- Method: String>>replaceHtmlCharRefs (in category 'internet') ----- - replaceHtmlCharRefs - - | pos ampIndex scIndex special specialValue outString outPos newOutPos | - - outString := String new: self size. - outPos := 0. - - pos := 1. - - [ pos <= self size ] whileTrue: [ - "read up to the next ampersand" - ampIndex := self indexOf: $& startingAt: pos ifAbsent: [0]. - - ampIndex = 0 ifTrue: [ - pos = 1 ifTrue: [ ^self ] ifFalse: [ ampIndex := self size+1 ] ]. - - newOutPos := outPos + ampIndex - pos. - outString - replaceFrom: outPos + 1 - to: newOutPos - with: self - startingAt: pos. - outPos := newOutPos. - pos := ampIndex. - - ampIndex <= self size ifTrue: [ - "find the $;" - scIndex := self indexOf: $; startingAt: ampIndex ifAbsent: [ self size + 1 ]. - - special := self copyFrom: ampIndex+1 to: scIndex-1. - specialValue := HtmlEntity valueOfHtmlEntity: special. - - specialValue - ifNil: [ - "not a recognized entity. wite it back" - scIndex > self size ifTrue: [ scIndex := self size ]. - - newOutPos := outPos + scIndex - ampIndex + 1. - outString - replaceFrom: outPos+1 - to: newOutPos - with: self - startingAt: ampIndex. - outPos := newOutPos.] - ifNotNil: [ - outPos := outPos + 1. - outString at: outPos put: specialValue isoToSqueak.]. - - pos := scIndex + 1. ]. ]. - - - ^outString copyFrom: 1 to: outPos!

1 0

The Trunk: System-eem.973.mcz
by commits＠source.squeak.org 03 Nov '17

03 Nov '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.973.mcz ==================== Summary ==================== Name: System-eem.973 Author: eem Time: 2 November 2017, 4:13:43.523409 pm UUID: 0c53315a-33ca-405c-8b14-81a0fc99053c Ancestors: System-eem.972 Improve the formatting of the revised vmStatisticsReportString siomewhat. P.S. if people feel strongly that the code compactions info isn't that useful then feel free to revert. =============== Diff against System-eem.972 =============== 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 codeCompactionTime codeCompactionsOrNil codeCompactionTime2 codeCompactions2 | 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. codeCompactionsOrNil := params at: 62. codeCompactionTime := params at: 63. 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: [str tab; nextPutAll: '(runtime '. idleMs := idleMs // 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. codeCompactionsOrNil ifNotNil: + [str + nextPutAll: 'Code compactions '; crtab; + nextPutAll: codeCompactionsOrNil asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime asStringWithCommas; nextPutAll: ' ms ('; + print: codeCompactionTime / (upTime - idleMs) * 100 maxDecimalPlaces: 3; + nextPutAll: '% runtime), avg '; print: codeCompactionTime / codeCompactionsOrNil maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]. - [str nextPutAll: 'Code compactions '; - nextPutAll: codeCompactionsOrNil asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime asStringWithCommas; nextPutAll: ' ms ('; - print: codeCompactionTime / (upTime - idleMs) * 100 maxDecimalPlaces: 3; - nextPutAll: '% runtime), avg '; print: codeCompactionTime / codeCompactionsOrNil maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]. LastStats ifNil: [LastStats := Array new: 9] ifNotNil: [ LastStats size < 9 ifTrue: [LastStats := LastStats, (Array new: 9 - 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). codeCompactionsOrNil ifNotNil: [codeCompactions2 := codeCompactionsOrNil - (LastStats at: 8). codeCompactionTime2 := codeCompactionTime - (LastStats at: 9)]. 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. codeCompactionsOrNil ifNotNil: [str nextPutAll: ' code compactions '; nextPutAll: codeCompactions2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime2 asStringWithCommas; nextPutAll: ' ms ('; print: codeCompactionTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 3; nextPutAll: '% runtime)'. codeCompactions2 > 0 ifTrue: [str nextPutAll: ', avg '; print: codeCompactionTime2 / codeCompactions2 maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]] ]. LastStats := { upTime. fullGCs. fullGCTime. incrGCs. incrGCTime. tenureCount. idleMs. codeCompactionsOrNil. codeCompactionTime }. ^str contents !

1 0

The Trunk: System-eem.972.mcz
by commits＠source.squeak.org 03 Nov '17

03 Nov '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.972.mcz ==================== Summary ==================== Name: System-eem.972 Author: eem Time: 2 November 2017, 4:02:42.697029 pm UUID: 510070ee-32f4-4c9d-861e-82be880a8b02 Ancestors: System-eem.971 Add code compactio0n stats to the VM stats output (if on Cog). =============== Diff against System-eem.971 =============== 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 codeCompactionTime codeCompactionsOrNil codeCompactionTime2 codeCompactions2 | - 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. + codeCompactionsOrNil := params at: 62. + codeCompactionTime := params at: 63. + 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: [str tab; nextPutAll: '(runtime '. idleMs := idleMs // 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. + codeCompactionsOrNil ifNotNil: + [str nextPutAll: 'Code compactions '; + nextPutAll: codeCompactionsOrNil asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime asStringWithCommas; nextPutAll: ' ms ('; + print: codeCompactionTime / (upTime - idleMs) * 100 maxDecimalPlaces: 3; + nextPutAll: '% runtime), avg '; print: codeCompactionTime / codeCompactionsOrNil maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]. + + LastStats ifNil: [LastStats := Array new: 9] - LastStats ifNil: [LastStats := Array new: 7] ifNotNil: [ + LastStats size < 9 ifTrue: + [LastStats := LastStats, (Array new: 9 - LastStats size withAll: 0)]. - 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). + codeCompactionsOrNil ifNotNil: + [codeCompactions2 := codeCompactionsOrNil - (LastStats at: 8). + codeCompactionTime2 := codeCompactionTime - (LastStats at: 9)]. 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; - 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 '; - 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: (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 '; - 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. + codeCompactionsOrNil ifNotNil: + [str nextPutAll: ' code compactions '; + nextPutAll: codeCompactions2 asStringWithCommas; nextPutAll: ' totalling '; nextPutAll: codeCompactionTime2 asStringWithCommas; nextPutAll: ' ms ('; + print: codeCompactionTime2 / (upTime2 - idleMs2) * 100 maxDecimalPlaces: 3; + nextPutAll: '% runtime)'. + codeCompactions2 > 0 ifTrue: + [str nextPutAll: ', avg '; print: codeCompactionTime2 / codeCompactions2 maxDecimalPlaces: 1; nextPutAll: ' ms'; cr.]] ]. + LastStats := { upTime. fullGCs. fullGCTime. incrGCs. incrGCTime. tenureCount. idleMs. codeCompactionsOrNil. codeCompactionTime }. - LastStats := { upTime. fullGCs. fullGCTime. incrGCs. incrGCTime. tenureCount. idleMs }. ^str contents !

1 0

The Trunk: System-eem.971.mcz
by commits＠source.squeak.org 01 Nov '17

01 Nov '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.971.mcz ==================== Summary ==================== Name: System-eem.971 Author: eem Time: 31 October 2017, 5:05:53.100365 pm UUID: 42107d12-9bdf-4054-b38d-b31fbda8ffe1 Ancestors: System-tpr.970 Declare an undeclared class var. Fix a refactoring test by guarding for symbols in SmartRefStream class>>isConversionSelector: =============== Diff against System-tpr.970 =============== Item was changed: ImageSegment subclass: #NativeImageSegment instanceVariableNames: '' + classVariableNames: 'BiggestFileNumber' - classVariableNames: '' poolDictionaries: '' category: 'System-Object Storage'! !NativeImageSegment commentStamp: 'eem 7/3/2017 13:52' prior: 0! NativeImageSegment is used to save and restore projects. It uses one primitive to create a segment (a WordArray) whose contents are the objects in the project in the same format as they appear in the VM's heap. It uses another primitive to convert a segment back into objects.! Item was changed: ----- Method: SmartRefStream class>>isConversionSelector: (in category 'browsing support') ----- + isConversionSelector: aLiteral - isConversionSelector: aSelector "Let mapClass: be found as sender of our conversion methods" + ^aLiteral isSymbol + and: [aLiteral last isDigit + and: [self includesSelector: aLiteral]]! - ^aSelector last isDigit and: [self includesSelector: aSelector] - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2017