Squeak-dev November 2012

squeak-dev@lists.squeakfoundation.org

56 participants
115 discussions

The Trunk: System-cwp.501.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.501.mcz ==================== Summary ==================== Name: System-cwp.501 Author: cwp Time: 7 November 2012, 10:06:06.385 pm UUID: 6cc43c45-80fd-43fd-bf05-13adf4e37864 Ancestors: System-dtl.500 When removing a class from the system, catch AttemptToWriteReadOnlyGlobal, and proceed with the modification. =============== Diff against System-dtl.500 =============== Item was changed: ----- Method: SystemDictionary>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool "Delete the class, aClass, from the system. Note that this doesn't do everything required to dispose of a class - to do that use Class>>removeFromSystem." aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. aClass isObsolete ifFalse: [ (self associationAt: aClass name ifAbsent: [ nil ]) ifNotNil: [ :oldBinding | | newBinding | newBinding := oldBinding shallowCopy. self replaceBinding: oldBinding in: aClass with: newBinding. (self isThisBindingReferred: oldBinding) ifTrue: [ + [oldBinding value: nil] + on: AttemptToWriteReadOnlyGlobal + do: [:ex | true]. - oldBinding value: nil. Undeclared add: oldBinding ] ] ]. self removeKey: aClass name ifAbsent: []. self flushClassNameCache!

1 0

The Trunk: SystemReporter-dtl.20.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

David T. Lewis uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-dtl.20.mcz ==================== Summary ==================== Name: SystemReporter-dtl.20 Author: dtl Time: 7 November 2012, 11:35:58.387 pm UUID: fb07b2ef-d22a-4054-a266-1e94e274f3ef Ancestors: SystemReporter-cmm.19 Display image format and word size in #reportImage: =============== Diff against SystemReporter-cmm.19 =============== Item was changed: ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- reportImage: aStream self header: 'Image' on: aStream. aStream nextPutAll: Smalltalk image imageName; cr; nextPutAll: SystemVersion current version; cr; nextPutAll: Smalltalk image lastUpdateString; cr; + nextPutAll: Smalltalk image currentChangeSetString; cr. + [ | imageFormat bitsPerWord | + imageFormat := Smalltalk image imageFormatVersion. + bitsPerWord := Smalltalk image wordSize * 8. + aStream nextPutAll: 'Image format '; + nextPutAll: imageFormat asString; + nextPutAll: ' ('; + nextPutAll: bitsPerWord asString; + nextPutAll: ' bit)'; cr] + on: Warning + do: ["primitive not present in VM"]. - nextPutAll: Smalltalk image currentChangeSetString; cr !

1 0

The Trunk: System-dtl.500.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.500.mcz ==================== Summary ==================== Name: System-dtl.500 Author: dtl Time: 7 November 2012, 11:34:11.125 pm UUID: 004afe3f-701a-441e-8b2a-b0288f54beb2 Ancestors: System-eem.499 In SmalltalkImage>>imageFormatVersion, if primitiveImageFormatVersion is not supported try vmParameterAt: 41 =============== Diff against System-eem.499 =============== Item was changed: ----- Method: SmalltalkImage>>imageFormatVersion (in category 'image') ----- imageFormatVersion "Answer an integer identifying the type of image in memory. The image version number may identify the format of the image (e.g. 32 or 64-bit word size) or specific requirements of the image (e.g. block closure support required). This invokes an optional primitive that may not be available on all virtual machines." "Smalltalk image imageFormatVersion" <primitive: 'primitiveImageFormatVersion'> + + "Cog provides a VM parameter" + ^[Smalltalk vm vmParameterAt: 41] + on: Error + do: [self notify: 'This virtual machine does not support the optional ', + 'primitive #primitiveImageFormatVersion' translated. + nil] + ! - self notify: 'This virtual machine does not support the optional primitive #primitiveImageFormatVersion' translated. - ^''!

1 0

Why it takes longer time for waking up from suspended state with squeak running?
by Sungjin Chun 07 Nov '12

07 Nov '12

Hi, I'm not sure that this is my fault or OS or squeaks, but it seems that if I keep running squeak vm and make my laptop(Windows 8 Prof.) suspended, then after 10 or more hours later, it takes longer time for waking up compared to the case of not running squeak. Can anyone help me on this? Thanks in advance.

1 0

Daily Commit Log
by commits＠source.squeak.org 07 Nov '12

07 Nov '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-November/005552.h… Name: Compiler-eem.240 Ancestors: Compiler-eem.239 Have the decompiler map whileTrue/False: [] to whileTrue/False instead of relying on MethodNode. Fixes decompiler tests after fixing printing of whileTrue/False: [] to be side-effect free in Compiler-eem.239. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-November/005553.h… Name: Compiler-eem.241 Ancestors: Compiler-eem.240 Fix decompilation of to:do: loops now they return their receiver. =============================================

1 0

The Trunk: Compiler-eem.241.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.241.mcz ==================== Summary ==================== Name: Compiler-eem.241 Author: eem Time: 6 November 2012, 1:59:52.95 pm UUID: 2a0df8c2-f597-4958-9851-e290b9ac05f5 Ancestors: Compiler-eem.240 Fix decompilation of to:do: loops now they return their receiver. =============== Diff against Compiler-eem.240 =============== Item was changed: ----- Method: Decompiler>>convertToDoLoop (in category 'private') ----- convertToDoLoop "If statements contains the pattern var := startExpr. [var <= limit] whileTrue: [...statements... var := var + incConst] then replace this by startExpr to: limit by: incConst do: [:var | ...statements...]" | initStmt toDoStmt limitStmt | + (stack notEmpty + and: [stack last isAssignmentNode]) - statements size < 2 ifTrue: + [initStmt := stack last. + (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: - [(statements size = 1 - and: [stack notEmpty - and: [stack last isAssignmentNode]]) ifFalse: [^self]. - initStmt := stack last. - (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: [^self]. stack removeLast; addLast: toDoStmt. statements removeLast] ifFalse: + [statements size < 2 ifTrue: + [^self]. + initStmt := statements at: statements size-1. + (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: + [^self]. - [initStmt := statements at: statements size-1. - (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: [^self]. statements removeLast; removeLast; addLast: toDoStmt]. initStmt variable scope: -1. "Flag arg as block temp" "Attempt further conversion of the pattern limitVar := limitExpr. startExpr to: limitVar by: incConst do: [:var | ...statements...] to startExpr to: limitExpr by: incConst do: [:var | ...statements...]" statements size < 2 ifTrue: [^ self]. limitStmt := statements at: statements size-1. ((limitStmt isMemberOf: AssignmentNode) and: [limitStmt variable isTemp and: [limitStmt variable == toDoStmt arguments first and: [self blockScopeRefersOnlyOnceToTemp: limitStmt variable fieldOffset]]]) ifFalse: [^ self]. toDoStmt arguments at: 1 put: limitStmt value. limitStmt variable scope: -2. "Flag limit var so it won't print" statements removeLast; removeLast; addLast: toDoStmt !

1 0

Re: [squeak-dev] The Trunk: Compiler-eem.239.mcz
by Nicolas Cellier 06 Nov '12

06 Nov '12

Some kind of Heisenberg principle, you cannot observe a node without some sort of interaction ;). We should create a price for the best anti-pattern of the month. It's invaluable for teaching. Nicolas 2012/11/6 <commits(a)source.squeak.org>: > Eliot Miranda uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-eem.239.mcz > > ==================== Summary ==================== > > Name: Compiler-eem.239 > Author: eem > Time: 5 November 2012, 3:09:13.298 pm > UUID: 074c58f2-bc92-4c3f-adff-56c47d3884ef > Ancestors: Compiler-eem.238 > > Eliminate horrible side-effect in printing whileTrue/whileFalse > nodes that undid the tranformation to whileTrue:/whileFalse:. > > =============== Diff against Compiler-eem.238 =============== > > Item was changed: > ----- Method: MessageNode>>printWhileOn:indent: (in category 'printing') ----- > printWhileOn: aStream indent: level > - > self printReceiver: receiver on: aStream indent: level. > + self > + printKeywords: originalSelector > + arguments: originalArguments > - (arguments isEmpty not > - and: [arguments first isJust: NodeNil]) ifTrue: > - [selector := SelectorNode new > - key: > - (selector key == #whileTrue: > - ifTrue: [#whileTrue] > - ifFalse: [#whileFalse]) > - code: #macro. > - arguments := Array new]. > - self printKeywords: selector key arguments: arguments > on: aStream indent: level! > >

3 5

The Trunk: Compiler-eem.240.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.240.mcz ==================== Summary ==================== Name: Compiler-eem.240 Author: eem Time: 6 November 2012, 1:15:13.684 pm UUID: 7b6bc3de-112b-442d-8f73-3cafe5819fbc Ancestors: Compiler-eem.239 Have the decompiler map whileTrue/False: [] to whileTrue/False instead of relying on MethodNode. Fixes decompiler tests after fixing printing of whileTrue/False: [] to be side-effect free in Compiler-eem.239. =============== Diff against Compiler-eem.239 =============== Item was changed: ----- Method: Decompiler>>jump:if: (in category 'instruction decoding') ----- jump: dist if: condition | savePc sign elsePc elseStart end cond ifExpr thenBlock elseBlock + thenJump elseJump condHasValue isIfNil saveStack blockBody blockArgs | - thenJump elseJump condHasValue isIfNil saveStack blockBody | lastJumpIfPcStack addLast: lastPc. stack last == CascadeFlag ifTrue: [^ [self case: dist] ensure: [lastJumpIfPcStack removeLast]]. elsePc := lastPc. elseStart := pc + dist. end := limit. "Check for bfp-jmp to invert condition. Don't be fooled by a loop with a null body." sign := condition. savePc := pc. self interpretJump ifNotNil: [:elseDist| (elseDist >= 0 and: [elseStart = pc]) ifTrue: [sign := sign not. elseStart := pc + elseDist]]. pc := savePc. ifExpr := stack removeLast. (isIfNil := stack size > 0 and: [stack last == IfNilFlag]) ifTrue: [stack removeLast]. saveStack := stack. stack := OrderedCollection new. thenBlock := self blockTo: elseStart. condHasValue := hasValue or: [isIfNil]. "ensure jump is within block (in case thenExpr returns)" thenJump := exit <= end ifTrue: [exit] ifFalse: [elseStart]. "if jump goes back, then it's a loop" thenJump < elseStart ifTrue: ["Must be a while loop... thenJump will jump to the beginning of the while expr. In the case of while's with a block in the condition, the while expr should include more than just the last expression: find all the statements needed by re-decompiling." stack := saveStack. pc := thenJump. blockBody := self statementsTo: elsePc. "discard unwanted statements from block" blockBody size - 1 timesRepeat: [statements removeLast]. + blockArgs := thenBlock statements = constructor codeEmptyBlock statements + ifTrue: [#()] + ifFalse: [{ thenBlock }]. statements addLast: (constructor codeMessage: (constructor codeBlock: blockBody returns: false) selector: (constructor + codeSelector: (blockArgs isEmpty + ifTrue: + [sign + ifTrue: [#whileFalse] + ifFalse: [#whileTrue]] + ifFalse: + [sign + ifTrue: [#whileFalse:] + ifFalse: [#whileTrue:]]) - codeSelector: (sign - ifTrue: [#whileFalse:] - ifFalse: [#whileTrue:]) code: #macro) + arguments: blockArgs). - arguments: { thenBlock }). pc := elseStart. self convertToDoLoop] ifFalse: ["Must be a conditional..." elseBlock := self blockTo: thenJump. elseJump := exit. "if elseJump is backwards, it is not part of the elseExpr" elseJump < elsePc ifTrue: [pc := lastPc]. cond := isIfNil ifTrue: [constructor codeMessage: ifExpr ifNilReceiver selector: (constructor codeSelector: (sign ifTrue: [#ifNotNil:] ifFalse: [#ifNil:]) code: #macro) arguments: (Array with: thenBlock)] ifFalse: [constructor codeMessage: ifExpr selector: (constructor codeSelector: #ifTrue:ifFalse: code: #macro) arguments: (sign ifTrue: [{elseBlock. thenBlock}] ifFalse: [{thenBlock. elseBlock}])]. stack := saveStack. condHasValue ifTrue: [stack addLast: cond] ifFalse: [statements addLast: cond]]. lastJumpIfPcStack removeLast.!

1 0

Re: [squeak-dev] The Inbox: Tools-eem.426.mcz
by Chris Muller 06 Nov '12

06 Nov '12

Interesting; what does this do? I take it this is something more than simply typing an expression directly in the debugger's code pane and running it there? On Mon, Nov 5, 2012 at 12:39 PM, <commits(a)source.squeak.org> wrote: > A new version of Tools was added to project The Inbox: > http://source.squeak.org/inbox/Tools-eem.426.mcz > > ==================== Summary ==================== > > Name: Tools-eem.426 > Author: eem > Time: 5 November 2012, 10:39:18.848 am > UUID: d2507ad6-1423-4b1a-9922-41894ea2174a > Ancestors: Tools-ul.425 > > A serviceable "run until expression" for the debugger. > Would be nice if the UI updated. > WOuld be nice if there was some solution for temporaries > that are undefined rather than writing explicit guards in the > expressions. > Hence publishing to inbox for now. > > =============== Diff against Tools-ul.425 =============== > > Item was changed: > CodeHolder subclass: #Debugger > + instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message untilExpression' > - instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message' > classVariableNames: 'ContextStackKeystrokes ErrorRecursion InterruptUIProcessIfBlockedOnErrorInBackgroundProcess' > poolDictionaries: '' > category: 'Tools-Debugger'! > > !Debugger commentStamp: '<historical>' prior: 0! > I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. > > Special note on recursive errors: > Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. > > * A recursive error is detected. > * The current project is queried for an isolationHead > * Changes in the isolationHead are revoked > * The parent project of isolated project is returned to > * The debugger is opened there and execution resumes. > > If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. ! > > Item was changed: > ----- Method: Debugger>>codePaneMenu:shifted: (in category 'code pane menu') ----- > codePaneMenu: aMenu shifted: shifted > + aMenu > + add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval; > + add: 'run until...' target: self selector: #runUntil; > + addLine. > - aMenu add: 'run to here' target: self selector: #runToSelection: argument: thisContext sender receiver selectionInterval. > - aMenu addLine. > super codePaneMenu: aMenu shifted: shifted. > ^aMenu.! > > Item was added: > + ----- Method: Debugger>>runUntil (in category 'code pane menu') ----- > + runUntil > + | expression receiver context method value | > + expression := UIManager default > + request: 'run until expression is true' > + initialAnswer: (untilExpression ifNil: 'boolean expression'). > + (expression isNil or: [expression isEmpty]) ifTrue: > + [^self]. > + untilExpression := expression. > + context := self selectedContext. > + receiver := context receiver. > + FakeClassPool adopt: receiver class. > + method := receiver class evaluatorClass new > + compiledMethodFor: untilExpression > + in: context > + to: receiver > + notifying: nil > + ifFail: [FakeClassPool adopt: nil. ^ #failedDoit] > + logged: false. > + > + FakeClassPool adopt: nil. > + [self selectedContext == context > + and: [(value := receiver with: context executeMethod: method) == false]] whileTrue: > + [self doStep]. > + (value ~~ false and: [value ~~ true]) ifTrue: > + [UIManager default inform: 'expression ', (untilExpression contractTo: 40), ' answered ', (value printString contractTo: 20), '!!!!'] > + ! > >

2 2

About a object life
by Edgar J. De Cleene 06 Nov '12

06 Nov '12

Folks: I wish know how old a object is. Any have code for this ? Thanks in advance Edgar

7 10

← Newer
1
...
6
7
8
9
10
11
12
Older →