Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

Bug whith contextOn:do:
by Tobias Pape 28 May '15

28 May '15

Hey fellow Squeakers [Attention: low level lengthy stuff] I today encountered a strange behavior. When running the Startup code, somewhen ContextPart>>#complete is called, which, in the process issues #contextOn:do:, which subsequently somewhere interanlly does a jump: contextOn: exceptionClass do: block "Create an #on:do: context that is ready to return from executing its receiver" | ctxt chain | ctxt := thisContext. [chain := thisContext sender cut: ctxt. ctxt jump] on: exceptionClass do: block. "jump above will resume here without unwinding chain" ^ chain The idea is that we end up right before '^ chain' as the comment indicates. so what happens is that ctxt is the context of #contextOn:do: itself and it gets send #jump in the closure. Jump now does the following: jump "Abandon thisContext and resume self instead (using the same current process). You may want to save thisContext's sender before calling this so you can jump back to it. Self MUST BE a top context (ie. a suspended context or a abandoned context that was jumped out of). A top context already has its return value on its stack (see Interpreter>>primitiveSuspend and other suspending primitives). thisContext's sender is converted to a top context (by pushing a nil return value on its stack) so it can be jump back to." | top | "Make abandoned context a top context (has return value (nil)) so it can be jumped back to" thisContext sender push: nil. "Pop self return value then return it to self (since we jump to self by returning to it)" stackp = 0 ifTrue: [self stepToSendOrReturn]. stackp = 0 ifTrue: [self push: nil]. "must be quick return self/constant" top := self pop. thisContext privSender: self. ^ top So. bytecode for #contextOn:do: is: 29 <8A 01> push: (Array new: 1) 31 <6B> popIntoTemp: 3 32 <89> pushThisContext: 33 <6A> popIntoTemp: 2 34 <12> pushTemp: 2 35 <13> pushTemp: 3 36 <8F 20 00 0A> closureNumCopied: 2 numArgs: 0 bytes 40 to 49 40 <89> pushThisContext: 41 <D2> send: sender 42 <10> pushTemp: 0 43 <E1> send: cut: 44 <8E 00 01> popIntoTemp: 0 inVectorAt: 1 47 <10> pushTemp: 0 48 <D3> send: jump 49 <7D> blockReturn 50 <10> pushTemp: 0 51 <11> pushTemp: 1 52 <F0> send: on:do: 53 <87> pop 54 <8C 00 03> pushTemp: 0 inVectorAt: 3 57 <7C> returnTop The jump lands right at 53 and does a pop. HOWEVER, at this point the stack of this context is empty and the pop actually pops the 3rd temp from the temps that 'just happens' to be right under the stack. This should be fatal. HOWEVER again, Squeak actually does not pop but only decrement the SP so the temp access still works(this _could_ be fine but some implementations (Eg, RSqueak) tried to separate temps and stack; which is not possible currently). What could be the problem here? - are the 'stackp = 0'-checks in #jump wrong and they actually should check for the actual stack depth _after_ temps? - should we put in a "sacrificial anode" in #contextOn:do: so that the pop does not pop the empty stack? (like this: contextOn: exceptionClass do: block "Create an #on:do: context that is ready to return from executing its receiver" | ctxt chain | ctxt := thisContext. [chain := thisContext sender cut: ctxt. ctxt push: nil. "sacrifical anode" ctxt jump ] on: exceptionClass do: block. "jump above will resume here without unwinding chain" ^ chain - Or is there an even better way? Best -Tobias

4 9

SqueakSSL + TLS SNI
by Levente Uzonyi 20 Apr '15

20 Apr '15

Hi, I've implemented support for TLS SNI[1] for SqueakSSL on unix. I've uploaded the modified source files[2][3], a diff[4], and a prebuilt module[5] (built on Ubuntu 14.04 from the Cog branch). The image side code is also available[6], along with an updated version of the WebClient[7] package, and intermediate packages with various improvements[8]. The image side code works even if the plugin doesn't support TLS SNI, but this version of WebClient won't work with older versions of the SqueakSSL-Core package. Please review the changes, and consider adding them to the corresponding repositories! Levente [1] https://en.wikipedia.org/wiki/Server_Name_Indication [2] http://leves.web.elte.hu/squeak/SqueakSSL/SqueakSSL.h [3] http://leves.web.elte.hu/squeak/SqueakSSL/sqUnixOpenSSL.c [4] http://leves.web.elte.hu/squeak/SqueakSSL/diff.txt [5] http://leves.web.elte.hu/squeak/SqueakSSL/SqueakSSL [6] http://leves.web.elte.hu/squeak/SqueakSSL/SqueakSSL-Core-ul.29.mcz [7] http://leves.web.elte.hu/squeak/SqueakSSL/WebClient-Core-ul.98.mcz [8] http://leves.web.elte.hu/squeak/SqueakSSL/

3 8

New Cog VMs available
by Eliot Miranda 09 Apr '15

09 Apr '15

http://www.mirandabanda.org/files/Cog/VM/VM.r3254/ These fix two important bugs in the Spur VMs, so Newspeakers should update, and changes the default text encoding to UTF-8 on linux. -- best, Eliot

6 20

Re: [squeak-dev] Ometa vs XTreams PEG, PetitParser, Helvetia
by Hannes Hirzel 08 Apr '15

08 Apr '15

On 3/30/11, Nikolay Suslov <nsuslovi(a)gmail.com> wrote: > >From conceptual and practical point of view, > OMeta - is not yet another "system tool" written for Squeak or another fork, > in contrary to XTreams (a generalized stream/iterator framework written in > Smalltalk) burned in Pharo. OMeta is a language which allows to simplify an > existed tools in it's hosted language (Squeak, Pharo, JavaScript, etc) where > it is implemented, while not porting, learning and using another ones, like > XTreams. So, redefined tools with OMeta could become really portable and > mobile, ready for using in any other fork, even in another language, like > JavaScript. > > Regards, > Nikolay XTreams is primarily a generalized stream/iterator framework. It contains PEG parser generation facilities, which I assume might use XTreams. If not the PEG parser stuff could be separated. Nikolay, what you write is interesting but too terse for me to understand. If I understand you right you mean that OMeta goes beyond the PEG parser in XTreams and PetitParser (L. Renggli) and Helvetia (L Renggli). In which ways does OMeta go beyond these other tools? AND: Of course very welcome that you run for the board. --Hannes

8 11

build.squeak.org slaves: which are there after all?
by Tobias Pape 02 Apr '15

02 Apr '15

Hi I am looking around on our Jenkins CI and was puzzled that there are several slave nodes (yay) but none of them seem to have been alive for some time (nay…) what can we do? Best -Tobias

4 4

Re: [squeak-dev] The Trunk: Morphic-mt.794.mcz
by Eliot Miranda 01 Apr '15

01 Apr '15

I'm getting a failed update: This package depends on the following classes: NewBalloonMorph You must resolve these dependencies before you will be able to load these definitions: NewBalloonMorph>>isBalloonHelp latest update: #14275 On Tue, Mar 31, 2015 at 2:38 AM, <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.794.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.794 > Author: mt > Time: 31 March 2015, 11:38:42.253 am > UUID: 765a2201-af4c-0948-b90d-72414d335160 > Ancestors: Morphic-mt.793 > > New-style balloon morph added and used. Can be switched back to old-style > balloon morphs via preferences. > > New-style balloon morphs support: > - text (not only strings) > - layouting via text paragraph (not hard-cutted via: #noLineLongerThan:) > - positioning at current hand position (if not supplied with other > reference point) > > In general, new-style balloon morphs have an improved readability. > > =============== Diff against Morphic-mt.793 =============== > > Item was changed: > ----- Method: BalloonMorph class>>string:for:corner: (in category > 'instance creation') ----- > string: str for: morph corner: cornerName > "Make up and return a balloon for morph. Find the quadrant that > clips the text the least, using cornerName as a tie-breaker. tk > 9/12/97" > | tm vertices | > + tm := self > + getTextMorph: (str asString withNoLineLongerThan: > Preferences maxBalloonHelpLineLength) > + for: morph. > - tm := self getTextMorph: str for: morph. > vertices := self getVertices: tm bounds. > vertices := self > getBestLocation: vertices > for: morph > corner: cornerName. > ^ self new color: morph balloonColor; > setVertices: vertices; > addMorph: tm; > setTarget: morph! > > Item was changed: > ----- Method: MenuMorph>>showKeyboardHelp (in category 'keystroke > helpers') ----- > showKeyboardHelp > > | help | > + help := self balloonMorphClass > + string: 'Enter text to narrow selection\down to matching > items ' withCRs > - help := BalloonMorph > - string: 'Enter text to\narrow selection down\to matching > items ' withCRs > for: self > corner: #topLeft. > + help popUpAt: self topCenter forHand: self activeHand! > - help popUpForHand: self activeHand! > > Item was added: > + ----- Method: Morph>>balloonMorphClass (in category 'halos and balloon > help') ----- > + balloonMorphClass > + > + ^ NewBalloonMorph useNewBalloonMorph > + ifTrue: [NewBalloonMorph] > + ifFalse: [BalloonMorph]! > > Item was changed: > ----- Method: Morph>>showBalloon:hand: (in category 'halos and balloon > help') ----- > showBalloon: msgString hand: aHand > "Pop up a balloon containing the given string, > first removing any existing BalloonMorphs in the world." > > | w balloon h | > (w := self world) ifNil: [^ self]. > h := aHand. > h ifNil:[ > h := w activeHand]. > + balloon := self balloonMorphClass > + string: msgString > - balloon := BalloonMorph > - string: (msgString asString withNoLineLongerThan: > Preferences maxBalloonHelpLineLength) > for: self balloonHelpAligner. > balloon popUpFor: self hand: h.! > > Item was added: > + Morph subclass: #NewBalloonMorph > + instanceVariableNames: 'balloonOwner textMorph maximumWidth > orientation hasTail' > + classVariableNames: 'UseNewBalloonMorph' > + poolDictionaries: '' > + category: 'Morphic-Widgets'! > + > + !NewBalloonMorph commentStamp: 'mt 3/31/2015 10:15' prior: 0! > + A balloon is a bubble with an optional tail. It contains rich text, > which describes something about its balloon-owner.! > > Item was added: > + ----- Method: NewBalloonMorph class>>string:for: (in category 'instance > creation') ----- > + string: str for: morph > + > + ^ self string: str for: morph corner: #bottomLeft! > > Item was added: > + ----- Method: NewBalloonMorph class>>string:for:corner: (in category > 'instance creation') ----- > + string: message for: morph corner: symbol > + > + ^ self new > + balloonOwner: morph; > + setText: message; > + orientation: symbol; > + yourself! > > Item was added: > + ----- Method: NewBalloonMorph class>>useNewBalloonMorph (in category > 'preferences') ----- > + useNewBalloonMorph > + > + <preference: 'Use new-style balloon morphs' > + category: #Morphic > + description: 'The new-style balloon morphs are improved > for better reading quality and support rich text.' > + type: #Boolean> > + ^ UseNewBalloonMorph ifNil: [true]! > > Item was added: > + ----- Method: NewBalloonMorph class>>useNewBalloonMorph: (in category > 'preferences') ----- > + useNewBalloonMorph: aBoolean > + > + UseNewBalloonMorph := aBoolean.! > > Item was added: > + ----- Method: NewBalloonMorph>>balloonOwner (in category 'accessing') > ----- > + balloonOwner > + > + ^ balloonOwner! > > Item was added: > + ----- Method: NewBalloonMorph>>balloonOwner: (in category 'accessing') > ----- > + balloonOwner: aMorph > + > + balloonOwner := aMorph.! > > Item was added: > + ----- Method: NewBalloonMorph>>bubbleBounds (in category 'geometry') > ----- > + bubbleBounds > + > + ^ self bounds insetBy: (0 @ self tailHeight corner: 0 @ self > tailHeight)! > > Item was added: > + ----- Method: NewBalloonMorph>>bubbleInset (in category 'geometry') ----- > + bubbleInset > + > + ^ 5@2! > > Item was added: > + ----- Method: NewBalloonMorph>>defaultBorderColor (in category > 'initialization') ----- > + defaultBorderColor > + > + ^ self defaultColor muchDarker"Color black"! > > Item was added: > + ----- Method: NewBalloonMorph>>defaultBorderWidth (in category > 'initialization') ----- > + defaultBorderWidth > + > + ^ 1! > > Item was added: > + ----- Method: NewBalloonMorph>>defaultColor (in category > 'initialization') ----- > + defaultColor > + > + ^ BalloonMorph balloonColor! > > Item was added: > + ----- Method: NewBalloonMorph>>drawDropShadowOn: (in category 'drawing') > ----- > + drawDropShadowOn: aCanvas > + > + aCanvas > + translateBy: self shadowOffset > + during: [ :shadowCanvas | > + (shadowCanvas isVisible: self bubbleBounds) > ifTrue: [ > + self wantsRoundedCorners > + ifTrue: [shadowCanvas > fillRoundRect: self bubbleBounds radius: self class preferredCornerRadius > fillStyle: self shadowColor] > + ifFalse: [shadowCanvas > fillRectangle: self bubbleBounds fillStyle: self shadowColor]]. > + > + self hasTail ifTrue: [ > + shadowCanvas > + drawPolygon: self > verticesForTail > + fillStyle: self > shadowColor]]. > + > + ! > > Item was added: > + ----- Method: NewBalloonMorph>>drawOn: (in category 'drawing') ----- > + drawOn: aCanvas > + > + "Bubble." > + self wantsRoundedCorners > + ifTrue: [aCanvas > + frameAndFillRoundRect: self bubbleBounds > + radius: self class preferredCornerRadius > fillStyle: self fillStyle borderWidth: self borderStyle width borderColor: > self borderStyle color] > + ifFalse: [aCanvas > + fillRectangle: self bubbleBounds > + fillStyle: self fillStyle borderStyle: self > borderStyle]. > + > + "Tail." > + self hasTail ifTrue: [ > + self verticesForTail in: [:points | > + | pixelOffset | > + pixelOffset := points first y < points second y > + ifFalse: [points first x < points second x > + ifTrue: [self borderStyle width > negated @ self borderStyle width] "bottomLeft" > + ifFalse: [self borderStyle width @ > self borderStyle width]] "bottomRight" > + ifTrue: [points first x < points second x > + ifTrue: [self borderStyle width > negated @ self borderStyle width negated] "topLeft" > + ifFalse: [self borderStyle width @ > self borderStyle width negated]]. "topRight" > + > + aCanvas > + drawPolygon: points > + fillStyle: self fillStyle. > + aCanvas > + line: points first > + to: points second + pixelOffset > + width: self borderStyle width > + color: self borderStyle color. > + aCanvas > + line: points first > + to: points third + pixelOffset > + width: self borderStyle width > + color: self borderStyle color]]! > > Item was added: > + ----- Method: NewBalloonMorph>>hasTail (in category 'accessing') ----- > + hasTail > + > + ^ hasTail ifNil: [true]! > > Item was added: > + ----- Method: NewBalloonMorph>>hasTail: (in category 'accessing') ----- > + hasTail: aBoolean > + > + hasTail := aBoolean.! > > Item was added: > + ----- Method: NewBalloonMorph>>initialize (in category 'initialization') > ----- > + initialize > + > + super initialize. > + > + self > + borderWidth: self defaultBorderWidth; > + borderColor: self defaultBorderColor; > + color: (self defaultColor alpha: 1.0); "no alpha due to > drop shadow" > + hasDropShadow: true; > + shadowOffset: 1@1; > + shadowColor: (self color muchDarker muchDarker alpha: > 0.333); > + orientation: #bottomLeft. > + > + MenuMorph roundedMenuCorners > + ifTrue: [self cornerStyle: #rounded]. > + > + textMorph := TextMorph new > + wrapFlag: false; > + lock; > + yourself. > + > + self addMorph: textMorph.! > > Item was added: > + ----- Method: NewBalloonMorph>>maximumWidth (in category 'accessing') > ----- > + maximumWidth > + > + ^ maximumWidth ifNil: [ > + maximumWidth := (self balloonOwner balloonFont widthOf: > $m) * Preferences maxBalloonHelpLineLength]! > > Item was added: > + ----- Method: NewBalloonMorph>>maximumWidth: (in category 'accessing') > ----- > + maximumWidth: anInteger > + > + maximumWidth := anInteger.! > > Item was added: > + ----- Method: NewBalloonMorph>>morphicLayerNumber (in category 'WiW > support') ----- > + morphicLayerNumber > + > + "helpful for insuring some morphs always appear in front of or > behind others. > + smaller numbers are in front" > + > + ^5 "Balloons are very front-like things"! > > Item was added: > + ----- Method: NewBalloonMorph>>move: (in category 'geometry') ----- > + move: targetPoint > + > + self perform: (self orientation, #:) asSymbol with: targetPoint.! > > Item was added: > + ----- Method: NewBalloonMorph>>orientation (in category 'accessing') > ----- > + orientation > + "Encodes the position of the tail. #topLeft, #topRight, > #bottomLeft, #bottomRight" > + > + ^ orientation! > > Item was added: > + ----- Method: NewBalloonMorph>>orientation: (in category 'accessing') > ----- > + orientation: aSymbol > + > + orientation := aSymbol. > + self changed.! > > Item was added: > + ----- Method: NewBalloonMorph>>popUpAt:forHand: (in category > 'initialization') ----- > + popUpAt: point forHand: aHand > + "Pop up the receiver as balloon help for the given hand" > + > + #(bottomLeft bottomRight topLeft topRight) detect: > [:nextOrientation | > + self orientation: nextOrientation. > + self move: point. > + self bounds: (self bounds translatedToBeWithin: aHand > world bounds). > + (self bounds perform: self orientation) = point] ifNone: > ["Keep last try."]. > + > + aHand world addMorphFront: self. > + aHand balloonHelp: self.! > > Item was added: > + ----- Method: NewBalloonMorph>>popUpFor:hand: (in category > 'initialization') ----- > + popUpFor: aMorph hand: aHand > + "Pop up the receiver as balloon help for the given hand" > + > + self balloonOwner: aMorph. > + self popUpForHand: aHand.! > > Item was added: > + ----- Method: NewBalloonMorph>>popUpForHand: (in category > 'initialization') ----- > + popUpForHand: aHand > + > + self popUpAt: aHand position forHand: aHand.! > > Item was added: > + ----- Method: NewBalloonMorph>>setText: (in category 'initialization') > ----- > + setText: stringOrText > + > + | text | > + text := stringOrText asText. > + text addAttribute: (TextFontReference toFont: (self balloonOwner > ifNil: [BalloonMorph]) balloonFont). > + > + self textMorph wrapFlag: false. > + self textMorph newContents: text. > + self textMorph fullBounds. > + > + (self maximumWidth > 0 and: [self textMorph width > self > maximumWidth]) > + ifTrue: [ > + self textMorph > + wrapFlag: true; > + width: self maximumWidth]. > + > + self updateLayout.! > > Item was added: > + ----- Method: NewBalloonMorph>>tailHeight (in category 'geometry') ----- > + tailHeight > + > + ^ 8! > > Item was added: > + ----- Method: NewBalloonMorph>>tailPosition (in category 'geometry') > ----- > + tailPosition > + > + ^ self innerBounds perform: self orientation! > > Item was added: > + ----- Method: NewBalloonMorph>>tailWidth (in category 'geometry') ----- > + tailWidth > + > + ^ 15! > > Item was added: > + ----- Method: NewBalloonMorph>>textMorph (in category 'accessing - ui') > ----- > + textMorph > + > + ^ textMorph! > > Item was added: > + ----- Method: NewBalloonMorph>>updateLayout (in category 'layout') ----- > + updateLayout > + > + self textMorph fullBounds. > + self extent: self textMorph extent + (2* self bubbleInset) + (0 @ > (2*self tailHeight)). > + self textMorph center: self center.! > > Item was added: > + ----- Method: NewBalloonMorph>>verticesForTail (in category 'drawing') > ----- > + verticesForTail > + > + | offset factorX factorY tpos bpos | > + offset := 5 + (self wantsRoundedCorners > + ifTrue: [self class preferredCornerRadius] > + ifFalse: [0]). > + tpos := self tailPosition. > + factorX := tpos x < self center x ifTrue: [1] ifFalse: [-1]. > + factorY := tpos y > self center y ifTrue: [1] ifFalse: [-1]. > + bpos := self bubbleBounds perform: self orientation. > + > + ^ { > + tpos. > + bpos + (((offset + self tailWidth) * factorX) @ (self > borderStyle width negated * factorY)). > + bpos + ((offset * factorX) @ (self borderStyle width > negated * factorY)).}! > > > -- best, Eliot

3 5

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

31 Mar '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-March/007724.html Name: Morphic-mt.794 Ancestors: Morphic-mt.793 New-style balloon morph added and used. Can be switched back to old-style balloon morphs via preferences. New-style balloon morphs support: - text (not only strings) - layouting via text paragraph (not hard-cutted via: #noLineLongerThan:) - positioning at current hand position (if not supplied with other reference point) In general, new-style balloon morphs have an improved readability. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007725.html Name: Morphic-mt.795 Ancestors: Morphic-mt.794 Backwards-compatibility in old-style balloon morphs for being opened at a specific position. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007726.html Name: MorphicExtras-mt.158 Ancestors: MorphicExtras-mt.157 Classify new-style balloon morphs as valid balloon help. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007727.html Name: Tools-mt.568 Ancestors: Tools-mt.567 Help message added to object explorer code pane. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007728.html Name: Morphic-mt.796 Ancestors: Morphic-mt.795 Indicate hovered item in lists. Can be turned off via preference. Redraw of the highlight is fast because we only invalidate the rectangles from the affected rows. Extended #handleMouseMove: and not #mouseMove: because there is a mouse-button guard in #handleMouseMove:, which is exploited in the multi-selection list morphs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007729.html Name: ToolBuilder-Morphic-mt.108 Ancestors: ToolBuilder-Morphic-mt.107 Support added for list item-specific balloon help. (Similar to the one in tree morphs.) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007730.html Name: Morphic-mt.797 Ancestors: Morphic-mt.796 Fixed problem with disappearing new-style balloon morph in certain cases. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007731.html Name: Compiler.spur-cmm.297 Ancestors: Compiler-cmm.297, Compiler.spur-topa.296 Compiler-cmm.297 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 DoIt evaluation in the debugger needs to be from the selected Context's methodClass, not the receiver's class so that "super" will refer to the correct class. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007732.html Name: Collections.spur-mt.605 Ancestors: Collections-mt.605, Collections.spur-ul.604 Collections-mt.605 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Support #withBlanksTrimmed in texts. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007733.html Name: Kernel.spur-eem.913 Ancestors: Kernel-eem.913, Kernel.spur-topa.912 Kernel-eem.913 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Provide missing copyWithSourceCode: depended on by new breakpointing with source code. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007734.html Name: System.spur-eem.709 Ancestors: System-eem.709, System.spur-eem.708 System-eem.709 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Fix breakpoint source when pragmas follow temporaries. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007735.html Name: Kernel.spur-cmm.914 Ancestors: Kernel-cmm.914 Kernel-cmm.914 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Include filed-in methods in the RecentMessages list. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007736.html Name: System.spur-topa.710 Ancestors: System-topa.710, System.spur-eem.709 System-topa.710 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Port the wrapping breakpoint implementation from OB-SUnitintegration. (An addition to BreakPoint, no replacement) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007737.html Name: System.spur-cmm.711 Ancestors: System-cmm.711 System-cmm.711 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 - Log filed-in code to the changes file. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007738.html Name: System.spur-eem.712 Ancestors: System-eem.712, System.spur-cmm.711 System-eem.712 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Fix allStoresInto: for pool variables. Shared pools are inherited and don't have to be declared in each subclass. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007739.html Name: Kernel-topa.915 Ancestors: Kernel-cmm.914 Fix arguments access in WeakMessageSend comparison. They may be nil; but the accessor guards that already. =============================================

1 0

slow display update on debugger proceed
by Eliot Miranda 31 Mar '15

31 Mar '15

Hi All, Hi Bert, a while ago I complained about the, now seemingly more freq -- best, Eliot

4 11

The Trunk: Kernel-topa.915.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Tobias Pape uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-topa.915.mcz ==================== Summary ==================== Name: Kernel-topa.915 Author: topa Time: 31 March 2015, 10:15:55.476 pm UUID: 3318e7de-b5f6-4f3b-a105-7d404be3b78f Ancestors: Kernel-cmm.914 Fix arguments access in WeakMessageSend comparison. They may be nil; but the accessor guards that already. =============== Diff against Kernel-cmm.914 =============== Item was changed: ----- Method: WeakMessageSend>>= (in category 'comparing') ----- = anObject "Compare equal to equivalent MessageSend" ^ anObject isMessageSend and: [self receiver == anObject receiver and: [selector == anObject selector + and: [(Array withAll: self arguments) = (Array withAll: anObject arguments)]]] - and: [(Array withAll: arguments) = (Array withAll: anObject arguments)]]] !

1 0

The Trunk: System.spur-eem.712.mcz
by commits＠source.squeak.org 31 Mar '15

31 Mar '15

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System.spur-eem.712.mcz ==================== Summary ==================== Name: System.spur-eem.712 Author: eem Time: 31 March 2015, 12:26:00.126 pm UUID: c8b167ff-cab3-4623-8f64-3e6b1e20ee62 Ancestors: System-eem.712, System.spur-cmm.711 System-eem.712 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.255 Fix allStoresInto: for pool variables. Shared pools are inherited and don't have to be declared in each subclass. =============== Diff against System-eem.712 =============== Item was removed: - Object subclass: #ObjectHistory - instanceVariableNames: 'marks markProcess' - classVariableNames: 'Current' - 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>>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>>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: - 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: