Packages March 2017

packages@lists.squeakfoundation.org

1 participants
168 discussions

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

31 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.945.mcz ==================== Summary ==================== Name: System-eem.945 Author: eem Time: 30 March 2017, 4:03:18.930537 pm UUID: 2af969d8-3253-405c-bdb1-05ab5455c7ff Ancestors: System-eem.944 Change the segment loader to do without BlockContext and to use Context in place of MethodContext. At some stage we /could/ implement morphing the old blocks into new blocks, but it would be challenging. =============== Diff against System-eem.944 =============== Item was changed: ----- Method: ImageSegmentLoader class>>initialize (in category 'class initialization') ----- initialize HeaderTypeMask := 3. HeaderTypeSizeAndClass := 0. "3-word header" HeaderTypeClass := 1. "2-word header" HeaderTypeFree := 2. "free block" HeaderTypeShort := 3. "1-word header" BytesInHeader := { HeaderTypeSizeAndClass -> 12. HeaderTypeClass -> 8. HeaderTypeShort -> 4. } as: Dictionary. "explicit list in case image has no/different compact classes" CompactClasses := {CompiledMethod. nil. Array. nil. LargePositiveInteger. Float. MethodDictionary. Association. Point. Rectangle. ByteString. nil. + nil "was BlockCOntext; needs special handling". Context. nil. Bitmap. - BlockContext. MethodContext. nil. Bitmap. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil}. ! Item was changed: ----- Method: ImageSegmentLoader>>allocateBlockContext: (in category 'allocating') ----- allocateBlockContext: nWords | homeOop methodOop method | homeOop := self uint32At: position + 24. methodOop := self uint32At: homeOop + 16. method := self readObjectAt: methodOop. + ^self shouldBeImplemented! - ^BlockContext newForMethod: method.! Item was changed: ----- Method: ImageSegmentLoader>>allocateMethodContext: (in category 'allocating') ----- allocateMethodContext: nWords | methodOop method | methodOop := self uint32At: position + 16. method := self readObjectAt: methodOop. + ^Context newForMethod: method! - ^MethodContext newForMethod: method.!

1 0

The Trunk: Tools-eem.752.mcz
by commits＠source.squeak.org 31 Mar '17

31 Mar '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.752.mcz ==================== Summary ==================== Name: Tools-eem.752 Author: eem Time: 30 March 2017, 4:01:34.56151 pm UUID: 300fa820-73ad-4c48-9865-342e8a258a5b Ancestors: Tools-eem.751 Remove debugging support methods on obsolete context classes. =============== Diff against Tools-eem.751 =============== Item was removed: - ----- Method: ContextPart>>errorReportOn: (in category '*Tools-debugger access') ----- - errorReportOn: strm - "Write a detailed error report on the stack (above me) on a stream. For both the error file, and emailing a bug report. Suppress any errors while getting printStrings. Limit the length." - - | cnt aContext startPos | - strm print: Date today; space; print: Time now; cr. - strm cr. - strm nextPutAll: 'VM: '; - nextPutAll: Smalltalk platformName asString; - nextPutAll: ' - '; - nextPutAll: Smalltalk asString; - cr. - strm nextPutAll: 'Image: '; - nextPutAll: SystemVersion current version asString; - nextPutAll: ' ['; - nextPutAll: Smalltalk lastUpdateString asString; - nextPutAll: ']'; - cr. - strm cr. - SecurityManager default printStateOn: strm. - - "Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack." - cnt := 0. startPos := strm position. - aContext := self. - [aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue: - [aContext printDetails: strm. "variable values" - strm cr. - aContext := aContext sender]. - - strm cr; nextPutAll: '--- The full stack ---'; cr. - aContext := self. - cnt := 0. - [aContext == nil] whileFalse: - [cnt := cnt + 1. - cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr]. - strm print: aContext; cr. "just class>>selector" - - "exit early if too long..." - strm position > (startPos+ self class maxLengthForASingleDebugLogReport) ifTrue: [strm nextPutAll: '...etc...'. ^ self]. cnt > self class maxStackDepthForASingleDebugLogReport ifTrue: [strm nextPutAll: '-- and more not shown --'. ^ self]. - aContext := aContext sender]. - ! Item was removed: - ----- Method: MethodContext>>errorReportOn: (in category '*Tools-debugger access') ----- - errorReportOn: strm - "Write a detailed error report on the stack (above me) on a stream. For both the error file, and emailing a bug report. Suppress any errors while getting printStrings. Limit the length." - - | cnt aContext startPos | - strm print: Date today; space; print: Time now; cr. - strm cr. - strm nextPutAll: 'VM: '; - nextPutAll: Smalltalk platformName asString; - nextPutAll: ' - '; - nextPutAll: Smalltalk asString; - cr. - strm nextPutAll: 'Image: '; - nextPutAll: SystemVersion current version asString; - nextPutAll: ' ['; - nextPutAll: Smalltalk lastUpdateString asString; - nextPutAll: ']'; - cr. - strm cr. - SecurityManager default printStateOn: strm. - - "Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack." - cnt := 0. startPos := strm position. - aContext := self. - [aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue: - [aContext printDetails: strm. "variable values" - strm cr. - aContext := aContext sender]. - - strm cr; nextPutAll: '--- The full stack ---'; cr. - aContext := self. - cnt := 0. - [aContext == nil] whileFalse: - [cnt := cnt + 1. - cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr]. - strm print: aContext; cr. "just class>>selector" - - "exit early if too long..." - strm position > (startPos+ self class maxLengthForASingleDebugLogReport) ifTrue: [strm nextPutAll: '...etc...'. ^ self]. cnt > self class maxStackDepthForASingleDebugLogReport ifTrue: [strm nextPutAll: '-- and more not shown --'. ^ self]. - aContext := aContext sender]. - ! Item was removed: - ----- Method: MethodContext>>inspectorClass (in category '*Tools-Inspector') ----- - inspectorClass - "Answer the class of the inspector to be used on the receiver. Called by inspect; - use basicInspect to get a normal (less useful) type of inspector." - - ^ ContextInspector!

1 0

The Trunk: Tools-eem.751.mcz
by commits＠source.squeak.org 31 Mar '17

31 Mar '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.751.mcz ==================== Summary ==================== Name: Tools-eem.751 Author: eem Time: 30 March 2017, 3:24:18.73121 pm UUID: a07a8811-44e8-4eec-9d25-e8459f1c6ee4 Ancestors: Tools-eem.750 Commit the essential cange of reference from MethodContext to Context before commiting the Kernel that does away with MethodContext. =============== Diff against Tools-eem.750 =============== Item was added: + ----- Method: Context>>errorReportOn: (in category '*Tools-debugger access') ----- + errorReportOn: strm + "Write a detailed error report on the stack (above me) on a stream. For both the error file, and emailing a bug report. Suppress any errors while getting printStrings. Limit the length." + + | cnt aContext startPos | + strm print: Date today; space; print: Time now; cr. + strm cr. + strm nextPutAll: 'VM: '; + nextPutAll: Smalltalk platformName asString; + nextPutAll: ' - '; + nextPutAll: Smalltalk asString; + cr. + strm nextPutAll: 'Image: '; + nextPutAll: SystemVersion current version asString; + nextPutAll: ' ['; + nextPutAll: Smalltalk lastUpdateString asString; + nextPutAll: ']'; + cr. + strm cr. + SecurityManager default printStateOn: strm. + + "Note: The following is an open-coded version of ContextPart>>stackOfSize: since this method may be called during a low space condition and we might run out of space for allocating the full stack." + cnt := 0. startPos := strm position. + aContext := self. + [aContext notNil and: [(cnt := cnt + 1) < 20]] whileTrue: + [aContext printDetails: strm. "variable values" + strm cr. + aContext := aContext sender]. + + strm cr; nextPutAll: '--- The full stack ---'; cr. + aContext := self. + cnt := 0. + [aContext == nil] whileFalse: + [cnt := cnt + 1. + cnt = 20 ifTrue: [strm nextPutAll: ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'; cr]. + strm print: aContext; cr. "just class>>selector" + + "exit early if too long..." + strm position > (startPos+ self class maxLengthForASingleDebugLogReport) ifTrue: [strm nextPutAll: '...etc...'. ^ self]. cnt > self class maxStackDepthForASingleDebugLogReport ifTrue: [strm nextPutAll: '-- and more not shown --'. ^ self]. + aContext := aContext sender]. + ! Item was added: + ----- Method: Context>>inspectorClass (in category '*Tools-Inspector') ----- + inspectorClass + "Answer the class of the inspector to be used on the receiver. Called by inspect; + use basicInspect to get a normal (less useful) type of inspector." + + ^ ContextInspector! Item was changed: ----- Method: Debugger class>>informExistingDebugger:label: (in category 'instance creation') ----- informExistingDebugger: aContext label: aString "Walking the context chain, we try to find out if we're in a debugger stepping situation. If we find the relevant contexts, we must rearrange them so they look just like they would if the methods were executed outside of the debugger. hmm 8/3/2001 13:05" | ctx quickStepMethod oldSender baseContext | ctx := thisContext. + quickStepMethod := Context compiledMethodAt: #quickSend:to:with:super:. - quickStepMethod := MethodContext compiledMethodAt: #quickSend:to:with:super:. [ctx sender == nil or: [ctx sender method == quickStepMethod]] whileFalse: [ctx := ctx sender]. ctx sender ifNil: [^self]. baseContext := ctx. "baseContext is now the context created by the #quickSend... method." oldSender := ctx := ctx sender home sender. "oldSender is the context which originally sent the #quickSend... method" [ctx == nil or: [(ctx objectClass: ctx receiver) includesBehavior: self]] whileFalse: [ctx := ctx sender]. ctx ifNil: [^self]. "ctx is the context of the Debugger method #doStep" ctx receiver labelString: aString; externalInterrupt: false; proceedValue: aContext receiver. baseContext swapSender: baseContext sender sender sender. "remove intervening contexts" thisContext swapSender: oldSender. "make myself return to debugger" ErrorRecursion := false. ^aContext!

1 0

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

31 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.944.mcz ==================== Summary ==================== Name: System-eem.944 Author: eem Time: 30 March 2017, 3:20:14.605252 pm UUID: 2723331f-0c11-4484-a28e-7b9c5f6a9b3a Ancestors: System-eem.943 Commit the essential cange of reference from MethodContext to Context before commiting the Kernel that does away with MethodContext. =============== Diff against System-eem.943 =============== Item was changed: ----- Method: WrappedBreakpoint>>run:with:in: (in category 'evaluation') ----- run: aSelector with: anArray in: aReceiver | process | process := Process + forContext: (Context - forContext: (MethodContext sender: thisContext sender receiver: aReceiver method: method arguments: anArray) priority: Processor activeProcess priority. ToolSet + debug: process + context: process suspendedContext - debug: process context: process suspendedContext label: 'Breakpoint in ' , method methodClass name , '>>#' , method selector + contents: nil + fullView: true. - contents: nil fullView: true. Project current spawnNewProcessIfThisIsUI: Processor activeProcess. thisContext swapSender: nil. + Processor activeProcess terminate! - Processor activeProcess terminate.!

1 0

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

31 Mar '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1077.mcz ==================== Summary ==================== Name: Kernel-eem.1077 Author: eem Time: 30 March 2017, 3:10:36.830931 pm UUID: f5ff4330-d306-4363-811c-7b3f933c2c47 Ancestors: Kernel-eem.1076 Pull the MethodContext => Context switch. Better luck this time, we hope. =============== Diff against Kernel-eem.1076 =============== Item was changed: + (PackageInfo named: 'Kernel') preamble: 'CompiledMethod addCompiledCodeAndCompiledBlock. + [InstructionStream bootstrapContext] valueSupplyingAnswer: #default'! - (PackageInfo named: 'Kernel') preamble: 'CompiledMethod addCompiledCodeAndCompiledBlock'!

1 0

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

30 Mar '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1076.mcz ==================== Summary ==================== Name: Kernel-eem.1076 Author: eem Time: 30 March 2017, 1:56:08.159569 pm UUID: 5bd0442e-e498-4794-a357-40629712f858 Ancestors: Kernel-eem.1075 Add the method to bootstrap MethodContext => Context (to the class side of InstructionStream so its not going to move). Make sure the old name is still around until after the putsch. =============== Diff against Kernel-eem.1075 =============== Item was added: + ----- Method: InstructionStream class>>bootstrapContext (in category 'bootstrap context') ----- + bootstrapContext + "Rename MethodContext to Context." + "InstructionStream bootstrapContext" + thisContext class name = #Context ifTrue: + [self assert: (Smalltalk classNamed: #MethodContext) == thisContext class. + self assert: (Smalltalk classNamed: #Context) == thisContext class. + ^self]. + MethodContext ensureClassPool. + MethodContext classPool addAll: ContextPart classPool associations. + MethodContext superclass: InstructionStream. + MethodContext class superclass: InstructionStream class. + InstructionStream addSubclass: MethodContext. + MethodContext + setInstVarNames: ContextPart instVarNames, MethodContext instVarNames; + rename: #Context. + Smalltalk at: #MethodContext ifAbsentPut: [Smalltalk classNamed: #Context]. + self assert: (Smalltalk classNamed: #MethodContext) == thisContext class. + self assert: (Smalltalk classNamed: #Context) == thisContext class!

1 0

The Trunk: Tools-eem.750.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.750.mcz ==================== Summary ==================== Name: Tools-eem.750 Author: eem Time: 30 March 2017, 1:31:36.530145 pm UUID: 2188b2e3-1681-43f0-aa6c-2df827745939 Ancestors: Tools-eem.749 Eliminate an explicit reference to MethodContext in the PointerFInder and make its access to the class of the context's receiver robust in the face of forwarders. =============== Diff against Tools-eem.749 =============== Item was changed: ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') ----- contents "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash." | objects weakOnlyReferences | objects := self object inboundPointersExcluding: { self. self item. model }. weakOnlyReferences := OrderedCollection new. objects removeAllSuchThat: [ :each | each class == self class or: [ each class == PointerExplorer + or: [ (each isContext + and: [ (each objectClass: each receiver) == PointerExplorer ] ) - or: [ (each class == MethodContext - and: [ each receiver class == PointerExplorer ] ) or: [ (each pointsOnlyWeaklyTo: self object) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | self class with: each name: each identityHash asString model: self object ]) addAll: (weakOnlyReferences replace: [ :each | (self class with: each name: '(', each identityHash asString, ')' model: self object) weakOnly: true; yourself ]); yourself!

1 0

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

30 Mar '17

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.373.mcz ==================== Summary ==================== Name: Tests-eem.373 Author: eem Time: 30 March 2017, 1:29:06.956254 pm UUID: baddb401-7953-4a95-ad16-0c2424edab06 Ancestors: Tests-eem.372 In the Monticello tests for kindOfSubclass, eliminate a reference to the variable subclass MethodContext in favour of the variable subclass BlockClosure, and add BoxedFloat64 and SmallFloat64 and CompiledMethod and the non-pointer variable subclasses (no ephemeronSubclass: in the base image as of yet). =============== Diff against Tests-eem.372 =============== Item was changed: ----- Method: MCClassDefinitionTest>>testKindOfSubclass (in category 'as yet unclassified') ----- testKindOfSubclass + {self mockClassA. String. ByteString. WideString. BlockClosure. WeakArray. BoxedFloat64. SmallFloat64. CompiledMethod. ByteArray. DoubleByteArray. IntegerArray. DoubleWordArray. } + do: [:c | + self assert: c asClassDefinition kindOfSubclass equals: c kindOfSubclass]! - | classes | - classes := {self mockClassA. String. MethodContext. WeakArray. Float}. - classes do: [:c | | d | - d := c asClassDefinition. - self assert: d kindOfSubclass = c kindOfSubclass. - ].!

1 0

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

30 Mar '17

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.943.mcz ==================== Summary ==================== Name: System-eem.943 Author: eem Time: 30 March 2017, 1:13:51.515243 pm UUID: 9668f030-a0c9-42bf-a030-8ffd7af62ed5 Ancestors: System-eem.942 Eliminate an explicit reference to MethodContext in lowSpaceThreshold and make it more accurate for 64-bits. =============== Diff against System-eem.942 =============== Item was changed: ----- Method: SmalltalkImage>>lowSpaceThreshold (in category 'memory space') ----- lowSpaceThreshold "Answer the low space threshold. When the amount of free memory (after garbage collection) falls below this limit, the system is in serious danger of completely exhausting memory and crashing. This limit should be made high enough to allow the user open a debugger to diagnose a problem or to save the image. In a stack-based VM such as Cog contexts for activations in the stack zone will have to be created as the debugger opens, requiring additional headroom." | slotsForDebugger slotsForContextsOnStackPages | slotsForDebugger := 65536. "Arbitrary guess" slotsForContextsOnStackPages := (self vmParameterAt: 42) ifNil: [0] ifNotNil: [:numStackPages| | headerSize numActivationsPerPage maxContextSize | + numActivationsPerPage := 40. "Design goal of the Cog & Stack VMs" + headerSize := 8 / self wordSize. "64-bits for Spur" + maxContextSize := thisContext class instSize + CompiledMethod fullFrameSize + headerSize. - numActivationsPerPage := 40. "Design goal of the Cog VM" - headerSize := 2. "64-bytes for Spur" - maxContextSize := MethodContext instSize + CompiledMethod fullFrameSize + headerSize. numStackPages * numActivationsPerPage * maxContextSize]. ^slotsForDebugger + slotsForContextsOnStackPages * self wordSize!

1 0

The Trunk: EToys-eem.288.mcz
by commits＠source.squeak.org 30 Mar '17

30 Mar '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.288.mcz ==================== Summary ==================== Name: EToys-eem.288 Author: eem Time: 30 March 2017, 1:00:57.646171 pm UUID: 34cc818f-f554-4177-b1f5-cbdde48a1882 Ancestors: EToys-eem.287 Eliminate an explicit reference to MethodContext and correct the intent, which was to look for a method activation. With closures we use a single context cass (methodCOntxt, soon to be names Context) to execute both blocks and methods. Use the more popular sExecutingBlock to determine which. =============== Diff against EToys-eem.287 =============== Item was changed: ----- Method: StandardScriptingSystem>>reportToUser: (in category '*Etoys-utilities') ----- reportToUser: aString "Make a message accessible to the user. " | trigger current baseTriggerer topTriggerer mclass sel topSelector | trigger := Player compiledMethodAt: #triggerScript:. current := thisContext. baseTriggerer := nil. topTriggerer := nil. [current notNil] whileTrue: [ topTriggerer ifNil: [ current receiver class isUniClass ifTrue: [ "Look for the top-most uniclass script in the call chain." sel := current receiver class selectorAtMethod: current method setClass: [:c | mclass := c]. mclass = current receiver class ifTrue: [ topTriggerer := current. topSelector := sel. ]. ]. ]. + (current method = trigger and: [current isExecutingBlock not]) ifTrue: [ - (current method = trigger and: [current class == MethodContext]) ifTrue: [ "Look for the bottom-most #triggerScript: and its selector." baseTriggerer := current ]. current := current sender. ]. baseTriggerer ifNotNil: [ (baseTriggerer receiver scriptInstantiationForSelector: (baseTriggerer at: 1)) resetTo: #paused ifCurrently: #ticking. ]. (topTriggerer notNil and: [topSelector notNil]) ifTrue: [ ^ self eToysError: aString, '\', topTriggerer receiver knownName, '\', topSelector. ]. + self error: aString! - self error: aString. - !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2017