Squeak-dev May 2015

squeak-dev@lists.squeakfoundation.org

50 participants
615 discussions

Re: [squeak-dev] The Trunk: System-cmm.725.mcz
by Levente Uzonyi 01 Jul '15

01 Jul '15

On Mon, 27 Apr 2015, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-cmm.725.mcz > > ==================== Summary ==================== > > Name: System-cmm.725 > Author: cmm > Time: 27 April 2015, 3:20:18.66 pm > UUID: b166e202-b3c3-4232-a17e-cd55a873fa50 > Ancestors: System-mt.724 > > - Attempting to load preferences is blowing up, fix by restoring the old one-click behavior. > - Proper fix for browsing allStoresInto: SomeClassVar from: aClassOrMetaclass, so that all stores occurring in either the instance or class side will be revealed even if the browse was initiated from the class-side. > > =============== Diff against System-mt.724 =============== > > Item was changed: > ----- Method: Preferences class>>preferenceAt:ifAbsent: (in category 'preference-object access') ----- > preferenceAt: aSymbol ifAbsent: aBlock > "Answer the Preference object at the given symbol, or the value of aBlock if not present" > > + ^self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | > + dictionaryOfPreferences at: aSymbol ifAbsent: aBlock ]! > - self accessDictionaryOfPreferencesIn: [ :dictionaryOfPreferences | > - dictionaryOfPreferences > - at: aSymbol > - ifPresent: [ :preference | ^preference ] ]. > - ^aBlock value! The above change restores the old behavior of locking up the image, so it should be reverted. An additional comment explaininng why aBlock must not be evaluated inside the argument of #accessDictionaryOfPreferencesIn: would be helpful. It would be even better to finally get rid of DictionaryOfPreferences. Levente

4 14

Looking for a volunteer to help with DataStream on Spur
by Eliot Miranda 26 Jun '15

26 Jun '15

Hi All, Spur adds two new immediate classes, Character and SmallFloat64. It also adds 61-bit SmallIntegers in 64-bits. DataStream/ReferenceStream/SmartRefStream are all affected by this. e.g. ReferenceStream testWith: $a fails on 32-bit and 64-bit Spur. ReferenceStream testWith: SmallInteger maxVal fails (silently, to be fixed soon) on 64-bit Spur. Is anyone kind enough and motivated enough to give this code some love and at least make it work for 32-bit Spur => 32-bit Spur 64-bit Spur => 64-bit Spur but also hopefully for 32-bit Spur <=> 64-bit Spur 32-bit V3 => 32-bit Spur 32-bit V3 => 64-bit Spur ? On Tue, Feb 3, 2015 at 8:59 AM, Stéphane Rollandin <lecteur(a)zogotounga.net> wrote: > Yes. Can you send me a pair of doits for me to test this, one I can run >> in v3 and one I can run in Spur? >> > > I'm trying to set-up a faulty expression, but it is not so easy. > > Meanwhile I stumbled upon a similar bug: > > $a asReferenceStream reset fileInObjectAndCode > > The above succeeds in V3 and raises an error in Spur. Same reason: > basicNew being sent to Character. > > > But I'n curious, why codePoint: rather than >> >> createFrom: aSmartRefStream size: varsOnDisk version: instVarList >> >> ^ self value: instVarList first >> >> ? >> > > Well I got used to codePoint: ... Also value: has a lot more implementors > and senders and does not mean much by itself. Actually I never thought > about this. > > > > -- best, Eliot

2 5

Daily Commit Log
by commits＠source.squeak.org 31 May '15

31 May '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-May/008738.html Name: 46Deprecated-dtl.4 Ancestors: 46Deprecated-mt.3 Provide an implementation of MCMcmUpdater class>>useLatestPackagesFrom: because an older image may be referencing it while trying to update itself from a block in the earler class side implementation, in which case we should delegate to the current default instance of MCMcmUpdater. =============================================

1 0

Mac Squeak binary virtual machine for Squeak 3.10.2
by Trygve Reenskaug 31 May '15

31 May '15

Hi, A friend of mine is doing some experiments using a Mac and my program Baby IDE. BabyIDE is works under Squeak 3.10.2. Is there a binary virtual machine for a current Mac that he can use? Please answer to /trygver(a)ifi.uio.no/ since I no longer follow the mailing list. Thank you --Trygve -- /The essence of object orientation is that objects collaborateto achieve a goal. / Trygve Reenskaug mailto: trygver(a)ifi.uio.no <mailto:%20trygver@ifi.uio.no> Morgedalsvn. 5A http://folk.uio.no/trygver/ N-0378 Oslo http://fullOO.info Norway Tel: (+47) 22 49 57 27

2 1

MCMUpdater and CI
by Tobias Pape 31 May '15

31 May '15

Hey We have changed the way the MCMUpdater works, I recall. Probably this has broken the CI Build: http://build.squeak.org/job/SqueakTrunk/1493/console Who can take a look at it? Best regards -Tobias

2 4

The Trunk: 46Deprecated-dtl.4.mcz
by commits＠source.squeak.org 31 May '15

31 May '15

David T. Lewis uploaded a new version of 46Deprecated to project The Trunk: http://source.squeak.org/trunk/46Deprecated-dtl.4.mcz ==================== Summary ==================== Name: 46Deprecated-dtl.4 Author: dtl Time: 30 May 2015, 6:14:05.154 pm UUID: 69e9c6e3-c82e-445b-b82d-adc42cacb06b Ancestors: 46Deprecated-mt.3 Provide an implementation of MCMcmUpdater class>>useLatestPackagesFrom: because an older image may be referencing it while trying to update itself from a block in the earler class side implementation, in which case we should delegate to the current default instance of MCMcmUpdater. =============== Diff against 46Deprecated-mt.3 =============== Item was added: + ----- Method: MCMcmUpdater class>>useLatestPackagesFrom: (in category '*46Deprecated') ----- + useLatestPackagesFrom: repo + "For overriding on a per repository basis. + Implementation is now on the instance side, but is also maintained here because + an older image may be trying to update to current and may still be evaluating a block + in its class:>>updateFromRepositoriesMCMcmUpdater that expects thiis method to + be present. Delegate to the current default instance." + + ^ self default useLatestPackagesFrom: repo + !

1 0

Daily Commit Log
by commits＠source.squeak.org 30 May '15

30 May '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-May/008713.html Name: Compiler-eem.299 Ancestors: Compiler-eem.298 Provide support for a specialized pushNClosureTemps: bytecode, as included in the Sista bytecode set. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008714.html Name: Compiler-eem.300 Ancestors: Compiler-eem.299 Use the size/emitPushNClosureTemps: api in block generation. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008715.html Name: ReleaseBuilder-cmm.123 Ancestors: ReleaseBuilder-topa.122 - #clearPasswords was renamed to #clearCredentials. - Updated ReleaseBuilder class>>#versionString. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008716.html Name: Collections-eem.636 Ancestors: Collections-mt.635 findLast:startingAt: dual for findFirst:startingAt: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008717.html Name: Kernel-eem.927 Ancestors: Kernel-eem.926 Support for condensing sources and changes while preserving direct history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008718.html Name: System-eem.739 Ancestors: System-cmm.738 Support for condensing sources and changes while preserving direct history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008719.html Name: Kernel-eem.928 Ancestors: Kernel-eem.927 Modify condenseChanges to preserve direct method history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008720.html Name: System-eem.740 Ancestors: System-eem.739 Modify condensSources to preserve direct method history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008721.html Name: Collections.spur-eem.636 Ancestors: Collections-eem.636, Collections.spur-mt.635 Collections-eem.636 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 findLast:startingAt: dual for findFirst:startingAt: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008722.html Name: Compiler.spur-eem.298 Ancestors: Compiler-eem.298, Compiler.spur-cmm.297 Compiler-eem.298 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Provide multiple-bytecode-sets aware support for markerOrNil ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008723.html Name: Compiler.spur-eem.299 Ancestors: Compiler-eem.299, Compiler.spur-eem.298 Compiler-eem.299 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Provide support for a specialized pushNClosureTemps: bytecode, as included in the Sista bytecode set. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008724.html Name: Compiler.spur-eem.300 Ancestors: Compiler-eem.300, Compiler.spur-eem.299 Compiler-eem.300 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Use the size/emitPushNClosureTemps: api in block generation. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008725.html Name: Kernel.spur-cmm.925 Ancestors: Kernel-cmm.925, Kernel.spur-mt.924 Kernel-cmm.925 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Fix an error in an error-handler. Any Exception can and must be able to #printVerboseOn:, not just Errors. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008726.html Name: Kernel.spur-eem.926 Ancestors: Kernel-eem.926, Kernel.spur-cmm.925 Kernel-eem.926 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Make markerOrNil multiple-bytecode-sets aware ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008727.html Name: Kernel.spur-eem.927 Ancestors: Kernel-eem.927, Kernel.spur-eem.926 Kernel-eem.927 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Support for condensing sources and changes while preserving direct history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008728.html Name: Kernel.spur-eem.928 Ancestors: Kernel-eem.928, Kernel.spur-eem.927 Kernel-eem.928 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Modify condenseChanges to preserve direct method history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008729.html Name: System.spur-cmm.738 Ancestors: System-cmm.738, System.spur-ul.737 System-cmm.738 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Fix #run: leaving headless image stuck because there was a MNU or Halt. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008730.html Name: System.spur-eem.739 Ancestors: System-eem.739, System.spur-cmm.738 System-eem.739 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Support for condensing sources and changes while preserving direct history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008731.html Name: System.spur-eem.740 Ancestors: System-eem.740, System.spur-eem.739 System-eem.740 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Modify condensSources to preserve direct method history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008732.html Name: Kernel.spur-cmm.925 Ancestors: Kernel-cmm.925, Kernel.spur-mt.924 Kernel-cmm.925 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.268 Fix an error in an error-handler. Any Exception can and must be able to #printVerboseOn:, not just Errors. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008733.html Name: Kernel.spur-eem.926 Ancestors: Kernel-eem.926, Kernel.spur-cmm.925 Kernel-eem.926 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.268 Make markerOrNil multiple-bytecode-sets aware ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008734.html Name: Kernel.spur-eem.927 Ancestors: Kernel-eem.927, Kernel.spur-eem.926 Kernel-eem.927 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.268 Support for condensing sources and changes while preserving direct history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008735.html Name: Kernel.spur-eem.928 Ancestors: Kernel-eem.928, Kernel.spur-eem.927 Kernel-eem.928 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Modify condenseChanges to preserve direct method history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008736.html Name: Kernel.spur-eem.928 Ancestors: Kernel-eem.928, Kernel.spur-eem.927 Kernel-eem.928 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.268 Modify condenseChanges to preserve direct method history. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-May/008737.html Name: MonticelloConfigurations-dtl.135 Ancestors: MonticelloConfigurations-eem.134 Restore missing method required by SqueakTrunk CI job =============================================

1 0

Re: [squeak-dev] The Trunk: System-eem.740.mcz
by Chris Muller 30 May '15

30 May '15

Thanks Eliot these features are needed for the release. On Fri, May 29, 2015 at 6:10 PM, <commits(a)source.squeak.org> wrote: > Eliot Miranda uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-eem.740.mcz > > ==================== Summary ==================== > > Name: System-eem.740 > Author: eem > Time: 29 May 2015, 4:09:46.189 pm > UUID: 53894fe9-e3f5-44c7-b4c2-101e4d72f0d3 > Ancestors: System-eem.739 > > Modify condensSources to preserve direct method history. > > =============== Diff against System-eem.739 =============== > > Item was changed: > ----- Method: SmalltalkImage>>condenseSources (in category 'housekeeping') ----- > condenseSources > "Move all the changes onto a compacted sources file." > "Smalltalk condenseSources" > > | newSourcesFile defaultDirectory newVersion currentVersion | > Utilities fixUpProblemsWithAllCategory. > "The above removes any concrete, spurious '-- all --' categories, which mess up the process." > defaultDirectory := FileDirectory default. > currentVersion := self sourceFileVersionString. > newVersion := UIManager default > request: 'Please designate the version\for the new source code file...' withCRs > initialAnswer: currentVersion. > newVersion ifEmpty: [ ^ self ]. > newVersion = currentVersion ifTrue: [ ^ self error: 'The new source file must not be the same as the old.' ]. > self sourceFileVersionString: newVersion. > > "Write all sources with fileIndex 1" > newSourcesFile := defaultDirectory newFileNamed: (defaultDirectory localNameFor: self sourcesName). > newSourcesFile ifNil: [ ^ self error: 'Couldn''t create source code file in\' withCRs, defaultDirectory name]. > newSourcesFile > header; > timeStamp. > 'Condensing Sources File...' > displayProgressFrom: 0 > to: self classNames size + self traitNames size > during: > [ :bar | > | count | > count := 0. > Smalltalk allClassesAndTraitsDo: > [ :classOrTrait | > bar value: (count := count + 1). > classOrTrait > fileOutOn: newSourcesFile > + moveSource: #historically > - moveSource: true > toFile: 1 ] ]. > newSourcesFile > trailer; > close. > > "Make a new empty changes file" > self closeSourceFiles. > defaultDirectory > rename: self changesName > toBe: self changesName , '.old'. > (FileStream newFileNamed: self changesName) > header; > timeStamp; > close. > self lastQuitLogPosition: 0. > self setMacFileInfoOn: self changesName. > self setMacFileInfoOn: newSourcesFile name. > self openSourceFiles. > self inform: 'Source files have been rewritten to\' withCRs, newSourcesFile name, '\Check that all is well,\and then save/quit.' withCRs! > >

2 2

The Trunk: MonticelloConfigurations-dtl.135.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-dtl.135.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.135 Author: dtl Time: 30 May 2015, 8:10:12.525 am UUID: aabac991-61d2-4a2f-82e9-39e8572e2099 Ancestors: MonticelloConfigurations-eem.134 Restore missing method required by SqueakTrunk CI job =============== Diff against MonticelloConfigurations-eem.134 =============== Item was added: + ----- Method: MCMcmUpdater class>>updateFromDefaultRepository (in category 'updating') ----- + updateFromDefaultRepository + "Update from the default repository only" + + ^ self default updateFromDefaultRepository + !

1 0

The Trunk: System.spur-eem.740.mcz
by commits＠source.squeak.org 30 May '15

30 May '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System.spur-eem.740.mcz ==================== Summary ==================== Name: System.spur-eem.740 Author: eem Time: 29 May 2015, 4:28:22.56 pm UUID: 8f35651e-68da-4766-8099-e16dd553260d Ancestors: System-eem.740, System.spur-eem.739 System-eem.740 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.267 Modify condensSources to preserve direct method history. =============== Diff against System-eem.740 =============== Item was removed: - Object subclass: #ObjectHistory - instanceVariableNames: 'marks markProcess' - classVariableNames: 'Current ObjectHistoryEnabled' - poolDictionaries: '' - category: 'System-Support'! - - !ObjectHistory commentStamp: 'bf 11/16/2012 12:19' prior: 0! - ObjectHistory holds ObjectHistoryMark objects which are placed in the object memory at regular intervals by its markProcess in the background. Adjacent marks (with no remaining objects inbetween) are coalesced so over time the collection does not grow unnecessarily large. - - Using these markers it is possible to determine the age of objects in memory from the time the ObjectHistory was initialized. Try e.g.: - self oopTimestamp. - self oopAge. - ObjectHistory current oopClassesByDate. - - Instance Variables - marks: SortedCollection of ObjectHistoryMark objects - markProcess: a Process running our markLoop - ! Item was removed: - ----- Method: ObjectHistory class>>current (in category 'accessing') ----- - current - ^ Current ifNil: [Current := self new]! Item was removed: - ----- Method: ObjectHistory class>>initialize (in category 'class initialization') ----- - initialize - self current. - ! Item was removed: - ----- Method: ObjectHistory class>>keepTrackOfObjectHistory (in category 'preferences') ----- - keepTrackOfObjectHistory - <preference: 'Keep track of object history' - category: #('debug' 'general' 'performance') - description: 'Collect marker objects in the object memory at regular intervals in the background. - - Using these markers it is possible to determine the age of objects in memory from the time the object history was initialized.' - type: #Boolean> - ^ ObjectHistoryEnabled ifNil: [ - Current - ifNil: [false] - ifNotNil: [:objectHistory | objectHistory isRunning]]! Item was removed: - ----- Method: ObjectHistory class>>keepTrackOfObjectHistory: (in category 'preferences') ----- - keepTrackOfObjectHistory: aBoolean - " Reflect the desired state by starting/stopping the process if necessary " - ObjectHistoryEnabled = aBoolean ifTrue: [^ self]. - ObjectHistoryEnabled := aBoolean. - - Current - ifNil: [aBoolean ifTrue: [self current]] - ifNotNil: [:objectHistory | - (objectHistory isRunning xor: aBoolean) "state switch needed" - ifTrue: [objectHistory toggleRunning]].! Item was removed: - ----- Method: ObjectHistory class>>obsolete (in category 'class initialization') ----- - obsolete - "Kill the mark process before removing the class." - Current ifNotNil: - [:objectHistory| - objectHistory terminate]. - super obsolete! Item was removed: - ----- Method: ObjectHistory>>ageOf: (in category 'queries') ----- - ageOf: anObject - "Age of anObject in seconds" - | timestamp | - timestamp := self timestampOf: anObject. - timestamp ifNil: [^0]. - ^(DateAndTime now - timestamp) asSeconds roundTo: self markRate! Item was removed: - ----- Method: ObjectHistory>>initialize (in category 'initializing') ----- - initialize - self restartMarkProcess. - - ! Item was removed: - ----- Method: ObjectHistory>>isRunning (in category 'testing') ----- - isRunning - ^ markProcess - ifNil: [false] - ifNotNil: [:process | - process isSuspended not and: [ - process isTerminated not]]! Item was removed: - ----- Method: ObjectHistory>>markLoop (in category 'marking') ----- - markLoop - [true] whileTrue: [ - self markUpdate. - (Delay forSeconds: self markRate) wait]! Item was removed: - ----- Method: ObjectHistory>>markRate (in category 'marking') ----- - markRate - "rate of creating ObjectHistoryMarks" - ^60! Item was removed: - ----- Method: ObjectHistory>>markUpdate (in category 'marking') ----- - markUpdate - "Add a new mark and compact the marks collection" - | mark prev | - "lazy init so this happens in the background process" - marks ifNil: [self reinitMarks]. - "add new mark to object memory" - mark := self newMark. - mark timestamp <= marks last timestamp ifTrue: [^self "could happen if clock is wrong"]. - marks addLast: mark. - "compact the table by removing adjacent marks" - prev := marks first. - marks removeAllSuchThat: [:each | | doDelete | - doDelete := prev objectAfter == each. - prev := each. - doDelete]. - "The loop above is O(n) in number of marks, but that number should never become so large to be an issue. Even if the number was large, this is running at system background priority so should not interfere with any user process, not even user background processes. The symptom should only be that the system is less idle. - - If we ever get to a point where the number of marks is an issue then the compacting here could be made partial: since old marks rarely get coalesced it would make sense to only check the newer ones often, and the old ones perhaps only at the system startup."! Item was removed: - ----- Method: ObjectHistory>>newMark (in category 'private') ----- - newMark - ^ ObjectHistoryMark new! Item was removed: - ----- Method: ObjectHistory>>oopClassesByAge (in category 'stats') ----- - oopClassesByAge - "Answer collection of (oopAge in seconds -> sorted counts of object classes) sorted from lowest age" - "ObjectHistory current oopClassesByAge" - - | stats prev endOfMemory now bag age obj | - endOfMemory := Object new. - stats := OrderedCollection new: 1000. - prev := nil. - now := self newMark timestamp. - marks do: [:mark | - prev ifNotNil: [ - bag := Bag new. - obj := prev objectAfter. - [obj == mark] whileFalse: [ - bag add: obj class. - obj := obj nextObject. - obj == endOfMemory ifTrue: [self error: 'should not happen']]. - age := (now - mark timestamp) asSeconds roundTo: self markRate. - stats addFirst: age -> bag sortedCounts]. - prev := mark]. - ^ stats - ! Item was removed: - ----- Method: ObjectHistory>>oopClassesByDate (in category 'stats') ----- - oopClassesByDate - "Answer collection of (Date -> sorted counts of object classes) sorted from newest date" - "ObjectHistory current oopClassesByDate" - - | stats prev endOfMemory bag date obj thisDate | - endOfMemory := Object new. - stats := OrderedCollection new: 1000. - prev := nil. - thisDate := nil. - bag := Bag new. - marks do: [:mark | - prev ifNotNil: [ - obj := prev objectAfter. - [obj == mark] whileFalse: [ - bag add: obj class. - obj := obj nextObject. - obj == endOfMemory ifTrue: [self error: 'should not happen']]. - date := mark timestamp asDate. - thisDate = date ifFalse: [ - stats addFirst: date -> bag sortedCounts. - bag := Bag new. - thisDate := date]]. - prev := mark]. - thisDate = date ifFalse: [ - stats addLast: date -> bag sortedCounts]. - ^ stats - ! Item was removed: - ----- Method: ObjectHistory>>oopCountsByAge (in category 'stats') ----- - oopCountsByAge - "Answer collection of (oopAge in seconds -> number of objects) sorted from lowest age" - "ObjectHistory current oopCountsByAge" - - | stats prev endOfMemory now n age obj | - endOfMemory := Object new. - stats := OrderedCollection new: 1000. - prev := nil. - now := self newMark timestamp. - marks do: [:mark | - prev ifNotNil: [ - n := 0. - obj := prev objectAfter. - [obj == mark] whileFalse: [ - n := n + 1. - obj := obj nextObject. - obj == endOfMemory ifTrue: [self error: 'should not happen']]. - age := (now - mark timestamp) asSeconds roundTo: self markRate. - stats addFirst: age -> n]. - prev := mark]. - ^ stats - ! Item was removed: - ----- Method: ObjectHistory>>reinitMarks (in category 'private') ----- - reinitMarks - marks := ObjectHistoryMark allInstances asOrderedCollection. - marks - ifEmpty: [marks add: self newMark] - ifNotEmpty: [ | prev | - prev := nil. - marks removeAllSuchThat: [:obj | - prev notNil and: [prev timestamp >= obj timestamp]]]. - ! Item was removed: - ----- Method: ObjectHistory>>restartMarkProcess (in category 'marking') ----- - restartMarkProcess - markProcess ifNotNil: [markProcess terminate]. - markProcess := [self markLoop] - forkAt: Processor systemBackgroundPriority - named: 'ObjectHistory''s markProcess'. - ! Item was removed: - ----- Method: ObjectHistory>>terminate (in category 'private') ----- - terminate - markProcess ifNotNil: - [markProcess terminate]! Item was removed: - ----- Method: ObjectHistory>>timestampOf: (in category 'queries') ----- - timestampOf: anObject - "Timestamp of anObject, or nil if too new" - | endOfMemory mark | - anObject class == SmallInteger ifTrue: [^nil]. - mark := anObject. - endOfMemory := Object new. - [mark class == ObjectHistoryMark] whileFalse: [ - mark := mark nextObject. - mark == endOfMemory ifTrue: [^nil]]. - ^mark timestamp! Item was removed: - ----- Method: ObjectHistory>>toggleRunning (in category 'private') ----- - toggleRunning - self isRunning - ifTrue: [self terminate] - ifFalse: [self restartMarkProcess]! Item was removed: - Object subclass: #ObjectHistoryMark - instanceVariableNames: 'timestamp' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! - - !ObjectHistoryMark commentStamp: 'bf 11/7/2012 00:12' prior: 0! - An ObjectHistoryMark is a permanent mark in the object memory. It holds a timestamp. - - While the timestamp could be used directly as mark by ObjectHistory, it's conceivable that its format might change in the future, and we do not want the mark's relative position in memory to change (which would be the case if it was migrated to a new format). So we use a distinct object instead (and we protect it against accidental become-ing by overriding those methods).! Item was removed: - ----- Method: ObjectHistoryMark>>become: (in category 'mutating') ----- - become: otherObject - ^self error: 'marks need to stay fixed in the object memory'! Item was removed: - ----- Method: ObjectHistoryMark>>becomeForward: (in category 'mutating') ----- - becomeForward: otherObject - ^self error: 'marks need to stay fixed in the object memory'! Item was removed: - ----- Method: ObjectHistoryMark>>initialize (in category 'initialization') ----- - initialize - timestamp := DateAndTime now floor. - ! Item was removed: - ----- Method: ObjectHistoryMark>>objectAfter (in category 'accessing') ----- - objectAfter - "Answer the next object in memory after me and my timestamp" - | successor | - successor := self nextObject. - successor == timestamp - ifTrue: [successor := successor nextObject]. - ^ successor! Item was removed: - ----- Method: ObjectHistoryMark>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - nextPutAll: self class name; - nextPut: $(; - print: timestamp; - nextPut: $)! Item was removed: - ----- Method: ObjectHistoryMark>>timestamp (in category 'accessing') ----- - timestamp - ^timestamp - ! Item was changed: ----- Method: SmalltalkImage>>compactClassesArray (in category 'special objects') ----- compactClassesArray "Smalltalk compactClassesArray" + "Backward-compatibility support. Spur does not have compact classes." + ^{}! - "Return the array of 31 classes whose instances may be - represented compactly" - ^ self specialObjectsArray at: 29! Item was added: + ----- Method: SmalltalkImage>>growMemoryByAtLeast: (in category 'memory space') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Essential. Fail if no memory is available." + <primitive: 180> + (numBytes isInteger and: [numBytes > 0]) ifTrue: + [OutOfMemory signal]. + ^self primitiveFailed! Item was added: + ----- Method: SmalltalkImage>>maxIdentityHash (in category 'system attributes') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>primBytesLeft (in category 'memory space') ----- primBytesLeft + "Primitive. Answer the number of free bytes available in old space. + Not accurate unless preceded by - "Primitive. Answer the number of bytes available for new object data. - Not accurate unless preceded by Smalltalk garbageCollectMost (for reasonable accuracy), or Smalltalk garbageCollect (for real accuracy). + See Object documentation whatIsAPrimitive." - See Object documentation whatIsAPrimitive." <primitive: 112> + ^0! - ^ 0! Item was changed: ----- Method: SmalltalkImage>>primitiveGarbageCollect (in category 'memory space') ----- primitiveGarbageCollect + "Primitive. Reclaims all garbage and answers the size of the largest free chunk in old space.." - "Primitive. Reclaims all garbage and answers the number of bytes of available space." <primitive: 130> + ^self primitiveFailed! - ^ self primBytesLeft! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | + newArray := Array new: 60. - newArray := Array new: 58. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. + newArray at: 10 put: BoxedFloat64. + newArray at: 11 put: (self globals at: #MethodContext ifAbsent: [self globals at: #Context]). + newArray at: 12 put: nil. "was BlockContext." - newArray at: 10 put: Float. - newArray at: 11 put: MethodContext. - newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. + newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" - newArray at: 18 put: (self specialObjectsArray at: 18). - "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. + Cog inlines table into machine code at: prim so do not regenerate it. + This is nil in Spur, which has immediate Characters." - Cog inlines table into machine code at: prim so do not regenerate it." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. + "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" - "An array of up to 31 classes whose instances will have compact headers" newArray at: 29 put: self compactClassesArray. + newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" + newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" - newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" - newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" + newArray at: 32 put: nil. "was the prototype Float" + newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" + newArray at: 34 put: nil. "was the prototype Point" - newArray at: 32 put: nil. "was (Float new: 2)" - newArray at: 33 put: nil. "was (LargePositiveInteger new: 4)" - newArray at: 34 put: nil. "was Point new" newArray at: 35 put: #cannotInterpret:. + newArray at: 36 put: nil. "was the prototype MethodContext" - "Note: This must be fixed once we start using context prototypes (yeah, right)" - "(MethodContext new: CompiledMethod fullFrameSize)." - newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" newArray at: 37 put: BlockClosure. + newArray at: 38 put: nil. "was the prototype BlockContext" - "(BlockContext new: CompiledMethod fullFrameSize)." - newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" "array of objects referred to by external code" + newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" - newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" + newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" + newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" - newArray at: 41 put: nil. "Reserved for a LinkedList instance for overlapped calls in CogMT" - "finalization Semaphore" - newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" + newArray at: 51 put: #attemptToAssign:withIndex:. - "newArray at: 51 put: #attemptToAssign:withIndex:." - newArray at: 51 put: (self specialObjectsArray at: 51 ifAbsent: []). newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' + #'object is pinned' #'primitive write beyond end of object'). - #'object is pinned'). "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). + newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." - newArray at: 54 put: #invokeCallbackContext::. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). + "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." + newArray at: 56 put: nil. - "Weak reference finalization" - newArray at: 56 put: (self at: #WeakFinalizationList ifAbsent: []). "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. + "59 reserved for Sista counter tripped message" + newArray at: 59 put: #conditionalBranchCounterTrippedOn:. + "60 reserved for Sista class trap message" + newArray at: 60 put: #classTrapFor:. "Now replace the interpreter's reference in one atomic operation" + self specialObjectsArray becomeForward: newArray! - self specialObjectsArray becomeForward: newArray - ! Item was changed: ----- Method: SmalltalkImage>>setGCParameters (in category 'snapshot and quit') ----- setGCParameters + "Adjust the VM's default GC parameters to avoid too much tenuring. + Maybe this should be left to the VM?" - "Adjust the VM's default GC parameters to avoid premature tenuring." + | proportion edenSize survivorSize averageObjectSize numObjects | + proportion := 0.9. "tenure when 90% of pastSpace is full" + edenSize := SmalltalkImage current vmParameterAt: 44. + survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" + averageObjectSize := 8 * self wordSize. "a good approximation" + numObjects := (proportion * survivorSize / averageObjectSize) rounded. + SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"! - self vmParameterAt: 5 put: 4000. "do an incremental GC after this many allocations" - self vmParameterAt: 6 put: 2000. "tenure when more than this many objects survive the GC" - ! Item was changed: ----- Method: SpaceTally>>spaceForInstancesOf: (in category 'instance size') ----- spaceForInstancesOf: aClass + "Answer a pair of the number of bytes consumed by all instances of the + given class, including their object headers, and the number of instances." - "Answer the number of bytes consumed by all instances of the given class, including their object headers and the number of instances." + | instances total | + instances := aClass allInstances. + instances isEmpty ifTrue: [^#(0 0)]. - | smallHeaderSize instVarBytes isVariable bytesPerElement total lastInstance instance instanceCount | - instance := aClass someInstance ifNil: [ ^#(0 0) ]. - smallHeaderSize := aClass isCompact ifTrue: [ 4 ] ifFalse: [ 8 ]. - instVarBytes := aClass instSize * 4. - isVariable := aClass isVariable. - bytesPerElement := isVariable - ifFalse: [ 0 ] - ifTrue: [ aClass isBytes ifTrue: [ 1 ] ifFalse: [ 4 ] ]. total := 0. + aClass isVariable + ifTrue: + [instances do: + [:i| total := total + (aClass byteSizeOfInstanceOfSize: i basicSize)]] + ifFalse: + [total := instances size * aClass byteSizeOfInstance]. + ^{ total. instances size }! - instanceCount := 0. - "A modified version of #allInstancesDo: is inlined here. It avoids an infinite loop when another process is creating new instances of aClass." - self flag: #allInstancesDo:. - lastInstance := - aClass == CompiledMethod "CompiledMethod has special format, see its class comment" - ifTrue: [aClass new] - ifFalse: [aClass basicNew]. - [ instance == lastInstance ] whileFalse: [ - | contentBytes headerBytes | - contentBytes := instVarBytes + (isVariable - ifFalse: [ 0 ] - ifTrue: [ instance basicSize * bytesPerElement ]). - headerBytes := contentBytes > 255 - ifTrue: [ 12 ] - ifFalse: [ smallHeaderSize ]. - total := total + headerBytes + (contentBytes roundUpTo: 4). - instanceCount := instanceCount + 1. - instance := instance nextInstance ]. - ^{ total. instanceCount }! Item was added: + ----- Method: SystemDictionary>>growMemoryByAtLeast: (in category 'memory space') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential." + <primitive: 180> + ^(numBytes isInteger and: [numBytes > 0]) + ifTrue: [OutOfMemory signal] + ifFalse: [self primitiveFailed]! Item was added: + ----- Method: SystemDictionary>>maxIdentityHash (in category 'system attributes') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was added: + ----- Method: SystemDictionary>>setGCParameters (in category 'snapshot and quit') ----- + setGCParameters + "Adjust the VM's default GC parameters to avoid too much tenuring. + Maybe this should be left to the VM?" + + | proportion edenSize survivorSize averageObjectSize numObjects | + proportion := 0.9. "tenure when 90% of pastSpace is full" + edenSize := SmalltalkImage current vmParameterAt: 44. + survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" + averageObjectSize := 8 * self wordSize. "a good approximation" + numObjects := (proportion * survivorSize / averageObjectSize) rounded. + SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"! Item was added: + ----- Method: SystemNavigation>>allObjects (in category 'query') ----- + allObjects + "Answer an Array of all objects in the system. Fail if + there isn't enough memory to instantiate the result." + <primitive: 178> + ^self primitiveFailed! Item was changed: ----- Method: SystemNavigation>>allObjectsDo: (in category 'query') ----- allObjectsDo: aBlock + "Evaluate the argument, aBlock, for each object in the system, excluding immediates + such as SmallInteger and Character." + self allObjectsOrNil + ifNotNil: [:allObjects| allObjects do: aBlock] + ifNil: + ["Fall back on the old single object primitive code. With closures, this needs + to use an end marker (lastObject) since activation of the block will create + new contexts and cause an infinite loop. The lastObject must be created + before calling someObject, so that the VM can settle the enumeration (e.g. + by flushing new space) as a side effect of someObject" + | object lastObject | + lastObject := Object new. + object := self someObject. + [lastObject == object or: [0 == object]] whileFalse: + [aBlock value: object. + object := object nextObject]]! - "Evaluate the argument, aBlock, for each object in the system - excluding SmallIntegers. With closures, this needs to use an end - marker (lastObject) since activation of the block will create new - contexts and cause an infinite loop." - | object lastObject | - object := self someObject. - lastObject := Object new. - [lastObject == object or: [0 == object]] - whileFalse: [aBlock value: object. - object := object nextObject]! Item was added: + ----- Method: SystemNavigation>>allObjectsOrNil (in category 'query') ----- + allObjectsOrNil + "Answer an Array of all objects in the system. Fail if there isn't + enough memory to instantiate the result and answer nil." + <primitive: 178> + ^nil!

1 0

Jump to page: