Squeak-dev April 2012

squeak-dev@lists.squeakfoundation.org

56 participants
149 discussions

Problems with OpenGL / Fedora 16 x86_64, FFI...
by Casimiro de Almeida Barreto 26 Apr '12

26 Apr '12

when executing OpenGL example (trunk image, "conventional VM", up to date Fedora 16 x86_64, all 32bit libs installed, LD_LIBRARY_PATH pointing to 32bit libs, etc) VM crashes with the following log: [CdAB@localhost ~]$ optirun squeak Segmentation fault 36517728 OpenGL>beginFrame 36517636 OGLUnixX11LE>beginFrame 36515176 OpenGL class>example 36515084 BlockClosure>ensure: 36445864 OpenGL class>example 36445756 UndefinedObject>? 35744436 Compiler>evaluate:in:to:notifying:ifFail:logged: 35787068 TextEditor>evaluateSelectionAndDo: 35786976 BlockClosure>on:do: 35786884 TextEditor>evaluateSelectionAndDo: 35786792 TextEditor>evaluateSelection 35786700 PluggableTextMorph>doIt 35780552 TextMorph>handleEdit: 35769096 PluggableTextMorph>handleEdit: 35769004 PluggableTextMorph>doIt 35768868 StringHolder>perform:orSendTo: 35768432 MenuItemMorph>invokeWithEvent: 35768340 BlockClosure>ensure: 35768248 Cursor>showWhile: 35725232 MenuItemMorph>invokeWithEvent: 35725128 MenuItemMorph>mouseUp: 35725036 MenuItemMorph>handleMouseUp: 35724904 MouseButtonEvent>sentTo: 35724812 Morph>handleEvent: 35724720 MorphicEventDispatcher>dispatchDefault:with: 35724628 MorphicEventDispatcher>dispatchEvent:with: 35724536 Morph>processEvent:using: 35724444 MorphicEventDispatcher>dispatchDefault:with: 35724336 MorphicEventDispatcher>dispatchEvent:with: 35724204 Morph>processEvent:using: 35724112 Morph>processEvent: 35724020 MenuMorph>handleFocusEvent: 35723928 HandMorph>sendFocusEvent:to:clear: 35723772 BlockClosure>on:do: 35723680 PasteUpMorph>becomeActiveDuring: 35723560 HandMorph>sendFocusEvent:to:clear: 35723468 HandMorph>sendEvent:focus:clear: 35723376 HandMorph>sendMouseEvent: 35722980 HandMorph>handleEvent: 35722684 HandMorph>processEvents 35722592 WorldState>doOneCycleNowFor: 35722500 SequenceableCollection>do: 35722408 WorldState>handsDo: 35722316 WorldState>doOneCycleNowFor: 35722132 WorldState>doOneCycleFor: 35722040 WorldState>doOneSubCycleFor: 35721948 PasteUpMorph>doOneSubCycle 35700624 MenuMorph>invokeModalAt:in:allowKeyboard: 35700532 MenuMorph>invokeModal: 35700428 MenuMorph>invokeModal 35693012 PluggableTextMorph>yellowButtonActivity: 35692920 ScrollPane>mouseDown: 35692828 Morph>handleMouseDown: 35692736 MouseButtonEvent>sentTo: 35692644 Morph>handleEvent: 35692472 MorphicEventDispatcher>dispatchMouseDown:with: 35692380 MorphicEventDispatcher>dispatchEvent:with: 35692288 Morph>processEvent:using: 35692156 MorphicEventDispatcher>dispatchMouseDown:with: 35692064 MorphicEventDispatcher>dispatchEvent:with: 35691972 Morph>processEvent:using: 35691880 MorphicEventDispatcher>dispatchMouseDown:with: 35691788 MorphicEventDispatcher>dispatchEvent:with: 35691680 Morph>processEvent:using: 35691588 PasteUpMorph>processEvent:using: 35691476 Morph>processEvent: 35691384 HandMorph>sendEvent:focus:clear: 35691292 HandMorph>sendMouseEvent: 35691148 HandMorph>handleEvent: 35690988 HandMorph>processEvents 35690896 WorldState>doOneCycleNowFor: 35690804 SequenceableCollection>do: 35690712 WorldState>handsDo: 35690620 WorldState>doOneCycleNowFor: 35690528 WorldState>doOneCycleFor: 35690436 PasteUpMorph>doOneCycle 31213232 Project class>spawnNewProcess 31213100 BlockClosure>newProcess /home/CdAB/bin/squeak: line 12: 11415 Abortado (imagem do núcleo gravada)/usr/local/bin/squeak "$@" There is no Squeak3D.log file. Best regards, CdAB

1 0

The Trunk: Kernel-eem.684.mcz
by commits＠source.squeak.org 26 Apr '12

26 Apr '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.684.mcz ==================== Summary ==================== Name: Kernel-eem.684 Author: eem Time: 26 April 2012, 11:07:37.737 am UUID: e838a325-27ec-4a62-a907-d4059451a046 Ancestors: Kernel-nice.683 Implement endPC numArgs and numTemps for closures and contexts (both block and method activations). Provide CompiledMethod>abstractBytecodeMessagesDo: et al. Implement BlockClosure>isClean to identify self-contained blocks. =============== Diff against Kernel-nice.683 =============== Item was added: + ----- Method: BlockClosure>>abstractBytecodeMessagesDo: (in category 'scanning') ----- + abstractBytecodeMessagesDo: aBlock + "Evaluate aBlock with the sequence of abstract bytecodes in the receiver." + self method + abstractBytecodeMessagesFrom: startpc + to: self endPC + do: aBlock + + "| msgs | + msgs := OrderedCollection new. + (SortedCollection sortBlock: [:a :b| a compare: b caseSensitive: false]) sortBlock + abstractBytecodeMessagesDo: [:msg| msgs add: msg selector]. + msgs"! Item was added: + ----- Method: BlockClosure>>blockCreationBytecodeMessage (in category 'scanning') ----- + blockCreationBytecodeMessage + "Answer the abstract bytecode message that created the receiver." + | blockCreationBytecodeSize | + ^self method abstractBytecodeMessageAt: startpc - (blockCreationBytecodeSize := 4) + + "(SortedCollection sortBlock: [:a :b| a compare: b caseSensitive: false]) sortBlock blockCreationBytecodeMessage"! Item was added: + ----- Method: BlockClosure>>endPC (in category 'accessing') ----- + endPC + ^self blockCreationBytecodeMessage arguments last + startpc - 1! Item was changed: ----- Method: BlockClosure>>hasMethodReturn (in category 'testing') ----- hasMethodReturn "Answer whether the receiver has a method-return ('^') in its code." + | scanner endpc | + scanner := InstructionStream new method: outerContext method pc: startpc. + endpc := self endPC. + scanner scanFor: [:byte | (byte between: 120 and: 124) or: [scanner pc > endpc]]. + ^scanner pc <= endpc! - | myMethod scanner preceedingBytecodeMessage end | - "Determine end of block from the instruction preceding it. - Find the instruction by using an MNU handler to capture - the instruction message sent by the scanner." - myMethod := outerContext method. - scanner := InstructionStream new method: myMethod pc: myMethod initialPC. - [scanner pc < startpc] whileTrue: - [[scanner interpretNextInstructionFor: nil] - on: MessageNotUnderstood - do: [:ex| preceedingBytecodeMessage := ex message]]. - end := preceedingBytecodeMessage arguments last + startpc - 1. - scanner method: myMethod pc: startpc. - scanner scanFor: [:byte | (byte between: 120 and: 124) or: [scanner pc > end]]. - ^scanner pc <= end! Item was added: + ----- Method: BlockClosure>>isClean (in category 'testing') ----- + isClean + "Answer if the receiver does not close-over any variables other than globals, and does + not ^-return (does not close over the home context). Clean blocks are amenable to + being created at compile-time." + self numCopiedValues > 0 ifTrue: + [^false]. + self abstractBytecodeMessagesDo: + [:msg| + (#( pushReceiver + pushReceiverVariable: popIntoReceiverVariable: storeIntoReceiverVariable: + methodReturnConstant: methodReturnReceiver methodReturnTop) + includes: msg selector) ifTrue: + [^false]]. + ^true + + "clean:" + "[] isClean" + "[:a :b| a < b] isClean" + "unclean" + "[^nil] isClean" + "[self class] isClean" + "| v | v := 0. + [v class] isClean"! Item was added: + ----- Method: BlockClosure>>numTemps (in category 'accessing') ----- + numTemps + "Answer the number of temporaries for the receiver; this includes + the number of arguments and the number of copied values." + | blockCreationBytecodeSize | + ^self numCopiedValues + + self numArgs + + (BlockLocalTempCounter + tempCountForBlockAt: startpc - (blockCreationBytecodeSize := 4) + in: self method)! Item was added: + ----- Method: CompiledMethod>>abstractBytecodeMessageAt: (in category 'scanning') ----- + abstractBytecodeMessageAt: pc + "Answer the abstract bytecode message at pc in the receiver." + ^[(InstructionStream new method: self pc: pc) interpretNextInstructionFor: nil] + on: MessageNotUnderstood + do: [:ex| ex message]! Item was added: + ----- Method: CompiledMethod>>abstractBytecodeMessagesDo: (in category 'scanning') ----- + abstractBytecodeMessagesDo: aBlock + "Evaluate aBlock with the sequence of abstract bytecodes in the receiver" + self abstractBytecodeMessagesFrom: self initialPC + to: self endPC + do: aBlock + + "| msgs | + msgs := OrderedCollection new. + CompiledMethod >> #abstractBytecodeMessagesFrom:to: abstractBytecodeMessagesDo: + [:msg| msgs add: msg selector]. + msgs"! Item was added: + ----- Method: CompiledMethod>>abstractBytecodeMessagesFrom:to:do: (in category 'scanning') ----- + abstractBytecodeMessagesFrom: startpc to: endpc do: aBlock + "Evaluate aBlock with the sequence of abstract bytecodes from startpc through endpc in the receiver" + | scanner | + scanner := InstructionStream new method: self pc: startpc. + [scanner pc <= endpc] whileTrue: + [[scanner interpretNextInstructionFor: nil] + on: MessageNotUnderstood + do: [:ex| aBlock value: ex message]] + + "| m msgs | + msgs := OrderedCollection new. + (m := CompiledMethod >> #abstractBytecodeMessagesFrom:to:) + abstractBytecodeMessagesFrom: m initialPC + to: m endPC + do: [:msg| msgs add: msg selector]. + msgs"! Item was added: + ----- Method: MethodContext>>endPC (in category 'private') ----- + endPC + ^closureOrNil + ifNil: [self method endPC] + ifNotNil: [closureOrNil endPC]! Item was added: + ----- Method: MethodContext>>numArgs (in category 'accessing') ----- + numArgs + "Answer the number of arguments for this activation." + ^closureOrNil + ifNil: [method numArgs] + ifNotNil: [closureOrNil numArgs]! Item was added: + ----- Method: MethodContext>>numTemps (in category 'accessing') ----- + numTemps + "Answer the number of temporaries for this activation; this includes + the number of arguments, and for blocks, the number of copied values." + ^closureOrNil + ifNil: [method numTemps] + ifNotNil: [closureOrNil numTemps]!

1 0

The Trunk: Kernel-nice.683.mcz
by commits＠source.squeak.org 26 Apr '12

26 Apr '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.683.mcz ==================== Summary ==================== Name: Kernel-nice.683 Author: nice Time: 26 April 2012, 7:06:10.666 pm UUID: a7c12ee7-fee9-ae44-b849-f314f0859c25 Ancestors: Kernel-eem.682, Kernel-nice.652 Merge with nice.652 (Float unambiguous printing). =============== Diff against Kernel-eem.682 =============== Item was changed: ----- Method: Float>>absPrintExactlyOn:base: (in category 'printing') ----- absPrintExactlyOn: aStream base: base "Print my value on a stream in the given base. Assumes that my value is strictly positive; negative numbers, zero, and NaNs have already been handled elsewhere. Based upon the algorithm outlined in: Robert G. Burger and R. Kent Dybvig Printing Floating Point Numbers Quickly and Accurately ACM SIGPLAN 1996 Conference on Programming Language Design and Implementation June 1996. This version guarantees that the printed representation exactly represents my value by using exact integer arithmetic." | significand exp baseExpEstimate r s mPlus mMinus scale roundingIncludesLimits d tc1 tc2 fixedFormat decPointCount slowbit shead | self isInfinite ifTrue: [aStream nextPutAll: 'Infinity'. ^ self]. significand := self significandAsInteger. roundingIncludesLimits := significand even. exp := (self exponent - 52) max: MinValLogBase2. baseExpEstimate := (self exponent * base asFloat reciprocalLogBase2 - 1.0e-10) ceiling. exp >= 0 ifTrue: [significand ~= 16r10000000000000 ifTrue: [r := significand bitShift: 1 + exp. s := 2. mPlus := mMinus := 1 bitShift: exp] ifFalse: [r := significand bitShift: 2 + exp. s := 4. mPlus := 2 * (mMinus := 1 bitShift: exp)]] ifFalse: [(exp = MinValLogBase2 or: [significand ~= 16r10000000000000]) ifTrue: [r := significand bitShift: 1. s := 1 bitShift: 1 - exp. mPlus := mMinus := 1] ifFalse: [r := significand bitShift: 2. s := 1 bitShift: 2 - exp. mPlus := 2. mMinus := 1]]. baseExpEstimate >= 0 ifTrue: [s := s * (base raisedToInteger: baseExpEstimate)] ifFalse: [scale := base raisedToInteger: baseExpEstimate negated. r := r * scale. mPlus := mPlus * scale. mMinus := mMinus * scale]. + ((r + mPlus >= s) and: [roundingIncludesLimits or: [r + mPlus > s]]) - ((r + mPlus < s) not and: [roundingIncludesLimits or: [r + mPlus > s]]) ifTrue: [baseExpEstimate := baseExpEstimate + 1] ifFalse: [r := r * base. mPlus := mPlus * base. mMinus := mMinus * base]. (fixedFormat := baseExpEstimate between: -3 and: 6) ifTrue: [decPointCount := baseExpEstimate. baseExpEstimate <= 0 ifTrue: [aStream nextPutAll: ('0.000000' truncateTo: 2 - baseExpEstimate)]] ifFalse: [decPointCount := 1]. slowbit := 1 - s lowBit . shead := s bitShift: slowbit. [d := (r bitShift: slowbit) // shead. r := r - (d * s). + (tc1 := (r <= mMinus) and: [roundingIncludesLimits or: [r < mMinus]]) | + (tc2 := (r + mPlus >= s) and: [roundingIncludesLimits or: [r + mPlus > s]])] whileFalse: - (tc1 := (r > mMinus) not and: [roundingIncludesLimits or: [r < mMinus]]) | - (tc2 := (r + mPlus < s) not and: [roundingIncludesLimits or: [r + mPlus > s]])] whileFalse: [aStream nextPut: (Character digitValue: d). r := r * base. mPlus := mPlus * base. mMinus := mMinus * base. + (decPointCount := decPointCount - 1) = 0 ifTrue: [aStream nextPut: $.]]. - decPointCount := decPointCount - 1. - decPointCount = 0 ifTrue: [aStream nextPut: $.]]. tc2 ifTrue: [(tc1 not or: [r * 2 >= s]) ifTrue: [d := d + 1]]. aStream nextPut: (Character digitValue: d). decPointCount > 0 ifTrue: + [decPointCount - 1 to: 1 by: -1 do: [:i | aStream nextPut: $0]. + aStream nextPutAll: '.0']. + fixedFormat + ifFalse: + [aStream nextPut: $e. + aStream nextPutAll: (baseExpEstimate - 1) printString]! - [decPointCount - 1 to: 1 by: -1 do: [:i | aStream nextPut: $0]. - aStream nextPutAll: '.0']. - fixedFormat ifFalse: - [aStream nextPut: $e. - aStream nextPutAll: (baseExpEstimate - 1) printString]! Item was changed: ----- Method: Float>>printOn:base: (in category 'printing') ----- printOn: aStream base: base + "Print the receiver with the minimal number of digits that describes it unambiguously. + This way, every two different Float will have a different printed representation. + More over, every Float can be reconstructed from its printed representation with #readFrom:." - "Handle sign, zero, and NaNs; all other values passed to absPrintOn:base:" self isNaN ifTrue: [aStream nextPutAll: 'NaN'. ^ self]. "check for NaN before sign" self > 0.0 + ifTrue: [self absPrintExactlyOn: aStream base: base] - ifTrue: [self absPrintOn: aStream base: base] ifFalse: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self negated absPrintExactlyOn: aStream base: base]]! - ifTrue: [aStream nextPutAll: '0.0'. ^ self] - ifFalse: [self negated absPrintOn: aStream base: base]]!

1 0

The Trunk: Kernel-nice.652.mcz
by commits＠source.squeak.org 26 Apr '12

26 Apr '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.652.mcz ==================== Summary ==================== Name: Kernel-nice.652 Author: nice Time: 5 November 2011, 12:54:57.688 am UUID: 6588c880-ca5d-4c3d-a39b-b75588ce0263 Ancestors: Kernel-laza.649 PURPOSE: Any Float now prints with the minimal number of digits that describes it unambiguously. This way, every two different Float will have a different printed representation. More over, every Float can be reconstructed from its printed representation with #readFrom:. self assert: ([:f | f isNaN or: [(Float readFrom: f printString) = f]] value: Float someInstance). Note that Float nan, Float infinity and Float infinity negated still print as 'NaN' 'Infinity' and '-Infinity' which are compatible with #readFrom:. RATIONALE: the old behaviour was obscuring our data like for example: 0.1 successor printString = 0.1 printString. 1.0e-100 printString = '9.99999999999999e-101'. The old behaviour was returning many digits without any guaranty of exactness which is useless. The old behaviour was faster (x4) but this is less relevant than exactness. Similar or better speed should be obtained by controlling number of printed digits if we can afford inexactness. IMPLEMENTATION: The essential change was to use #absPrintExactlyOn:base: in #printOn:base: Side note: this is really a bad name, because it prints the shortest base-representation, not the exact one. Anyway, we can only print the exact one in even bases. For example, the exact representation of 0.1 in base 10 is: 0.1 asFraction asScaledDecimal = 0.1000000000000000055511151231257827021181583404541015625s55. The second change was to marginally fast-up #absPrintExactlyOn:base: main loop by avoiding a #not send and piping decimal point test. Avoiding the #not makes the intention a tiny bit clearer. Also of few formatting has been performed in the last lines. REJECTED CHANGES: It is possible to move self > 0.0 before self isNaN to statistically reduce the number of tests performed. This works because Float nan > 0.0 = false. But this speed-up is quite marginal. Similarly (self = Infinity) could replace (self isInfinite) and save another send and also another test (because NegativeInfinity can't happen at this stage). This would be at the price of a class var reference leak. It could be more interesting to move this #isInfinite test in #printOn:base: in order to gather print rules for exceptional values. I didn't to avoid duplicating the test in the two branches > 0.0 and < 0.0. A far more efficient speed-up would be to optimize LargeInteger arithmetic. I think there is room, the VM is still using byte operations (thus at most 16 bits). =============== Diff against Kernel-laza.649 =============== Item was changed: ----- Method: Float>>absPrintExactlyOn:base: (in category 'printing') ----- absPrintExactlyOn: aStream base: base "Print my value on a stream in the given base. Assumes that my value is strictly positive; negative numbers, zero, and NaNs have already been handled elsewhere. Based upon the algorithm outlined in: Robert G. Burger and R. Kent Dybvig Printing Floating Point Numbers Quickly and Accurately ACM SIGPLAN 1996 Conference on Programming Language Design and Implementation June 1996. This version guarantees that the printed representation exactly represents my value by using exact integer arithmetic." | significand exp baseExpEstimate r s mPlus mMinus scale roundingIncludesLimits d tc1 tc2 fixedFormat decPointCount slowbit shead | self isInfinite ifTrue: [aStream nextPutAll: 'Infinity'. ^ self]. significand := self significandAsInteger. roundingIncludesLimits := significand even. exp := (self exponent - 52) max: MinValLogBase2. baseExpEstimate := (self exponent * base asFloat reciprocalLogBase2 - 1.0e-10) ceiling. exp >= 0 ifTrue: [significand ~= 16r10000000000000 ifTrue: [r := significand bitShift: 1 + exp. s := 2. mPlus := mMinus := 1 bitShift: exp] ifFalse: [r := significand bitShift: 2 + exp. s := 4. mPlus := 2 * (mMinus := 1 bitShift: exp)]] ifFalse: [(exp = MinValLogBase2 or: [significand ~= 16r10000000000000]) ifTrue: [r := significand bitShift: 1. s := 1 bitShift: 1 - exp. mPlus := mMinus := 1] ifFalse: [r := significand bitShift: 2. s := 1 bitShift: 2 - exp. mPlus := 2. mMinus := 1]]. baseExpEstimate >= 0 ifTrue: [s := s * (base raisedToInteger: baseExpEstimate)] ifFalse: [scale := base raisedToInteger: baseExpEstimate negated. r := r * scale. mPlus := mPlus * scale. mMinus := mMinus * scale]. + ((r + mPlus >= s) and: [roundingIncludesLimits or: [r + mPlus > s]]) - ((r + mPlus < s) not and: [roundingIncludesLimits or: [r + mPlus > s]]) ifTrue: [baseExpEstimate := baseExpEstimate + 1] ifFalse: [r := r * base. mPlus := mPlus * base. mMinus := mMinus * base]. (fixedFormat := baseExpEstimate between: -3 and: 6) ifTrue: [decPointCount := baseExpEstimate. baseExpEstimate <= 0 ifTrue: [aStream nextPutAll: ('0.000000' truncateTo: 2 - baseExpEstimate)]] ifFalse: [decPointCount := 1]. slowbit := 1 - s lowBit . shead := s bitShift: slowbit. [d := (r bitShift: slowbit) // shead. r := r - (d * s). + (tc1 := (r <= mMinus) and: [roundingIncludesLimits or: [r < mMinus]]) | + (tc2 := (r + mPlus >= s) and: [roundingIncludesLimits or: [r + mPlus > s]])] whileFalse: - (tc1 := (r > mMinus) not and: [roundingIncludesLimits or: [r < mMinus]]) | - (tc2 := (r + mPlus < s) not and: [roundingIncludesLimits or: [r + mPlus > s]])] whileFalse: [aStream nextPut: (Character digitValue: d). r := r * base. mPlus := mPlus * base. mMinus := mMinus * base. + (decPointCount := decPointCount - 1) = 0 ifTrue: [aStream nextPut: $.]]. - decPointCount := decPointCount - 1. - decPointCount = 0 ifTrue: [aStream nextPut: $.]]. tc2 ifTrue: [(tc1 not or: [r * 2 >= s]) ifTrue: [d := d + 1]]. aStream nextPut: (Character digitValue: d). decPointCount > 0 ifTrue: + [decPointCount - 1 to: 1 by: -1 do: [:i | aStream nextPut: $0]. + aStream nextPutAll: '.0']. + fixedFormat + ifFalse: + [aStream nextPut: $e. + aStream nextPutAll: (baseExpEstimate - 1) printString]! - [decPointCount - 1 to: 1 by: -1 do: [:i | aStream nextPut: $0]. - aStream nextPutAll: '.0']. - fixedFormat ifFalse: - [aStream nextPut: $e. - aStream nextPutAll: (baseExpEstimate - 1) printString]! Item was changed: ----- Method: Float>>printOn:base: (in category 'printing') ----- printOn: aStream base: base + "Print the receiver with the minimal number of digits that describes it unambiguously. + This way, every two different Float will have a different printed representation. + More over, every Float can be reconstructed from its printed representation with #readFrom:." - "Handle sign, zero, and NaNs; all other values passed to absPrintOn:base:" self isNaN ifTrue: [aStream nextPutAll: 'NaN'. ^ self]. "check for NaN before sign" self > 0.0 + ifTrue: [self absPrintExactlyOn: aStream base: base] - ifTrue: [self absPrintOn: aStream base: base] ifFalse: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self negated absPrintExactlyOn: aStream base: base]]! - ifTrue: [aStream nextPutAll: '0.0'. ^ self] - ifFalse: [self negated absPrintOn: aStream base: base]]!

1 0

The Trunk: Monticello-eem.505.mcz
by commits＠source.squeak.org 26 Apr '12

26 Apr '12

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.505.mcz ==================== Summary ==================== Name: Monticello-eem.505 Author: eem Time: 26 April 2012, 9:41:06.528 am UUID: 343bf518-4d54-4622-a5ff-4a6c299ddfd2 Ancestors: Monticello-bf.504 Simple history search for the working copy browser. Open a Workspace containing all the history (version summaries) for the current package. =============== Diff against Monticello-bf.504 =============== Item was added: + ----- Method: MCWorkingCopyBrowser>>searchHistory (in category 'actions') ----- + searchHistory + workingCopy ifNotNil: + [(UIManager default + edit: (String streamContents: + [:s| + "Ignore the initial MCWorkingAncestry instance." + workingCopy ancestry topologicalAncestors allButFirst + do: [:versionInfo| + s nextPutAll: versionInfo summary] + separatedBy: [s cr; cr"; next: 32 put: $-; cr; cr"]]) + label: 'Version History: ', workingCopy packageName) + extent: (0.6@1) * Display height * 0.9]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') ----- workingCopyListMenu: aMenu workingCopy ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('add required package' #addRequiredPackage) ('clear required packages' #clearRequiredPackages) ('add repository...' #addPackageRepository) ('browse package' #browseWorkingCopy) ('view changes' #viewChanges) ('view history' #viewHistory) + ('search history' #searchHistory) ('recompile package' #recompilePackage) ('revert package...' #revertPackage) ('unload package' #unloadPackage) ('delete working copy' #deleteWorkingCopy) ('rename package...' #renamePackage)). (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [ aMenu add: 'make SAR' target: self selector: #fileOutAsSAR ]. self insertExternalMenuEntries: aMenu. ^aMenu!

1 0

Re: [Pharo-project] Pharo and the rest of the ecosystem
by Edgar De Cleene 26 Apr '12

26 Apr '12

El 4/26/12 5:19 AM, "Pavel Krivanek" <pavel.krivanek(a)gmail.com> escribió: > Hi Chris, > > the planed changes in Pharo are not autotelic but in most cases they > are replacements of current buggy and unmaintainable subsytems. > We also use automatic or semiautomatic tools for shrinking and > modularization of the image. For example uMorphic is generated moslty > automatically with subsequent hand-made cleanup. The original Squeak > KernelImage was generated in the similar way. But we use the results > of this tools only as the supporting experimental sources of > information. > The goals of Cuis, Spoon and Pharo are very very similar. Everyone > wants to have the "small, clean, understandable Smalltalk system". But > Pharo development is more evolutional and modularity is more valuable > than small size. > In Smalltalk it is easy to dive into the system and create something > like Cuis, Spoon or KernelImage. But this projects were created by a > single person and the degree of adoption of this forks is low. You may > for example to take the current PharoKernel and withing few days to > create a perfect small and clean kernel. It is cool intelectual > adventure but to make it generally used stuff is another story. > > -- Pavel Again i ask to fellows on all forks adopt the great work of years from Pavel. We should not waste valuable time and instead take PharoKernel and build our beloved pet on top of it. Edgar

1 0

Daily Commit Log
by commits＠source.squeak.org 26 Apr '12

26 Apr '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-April/005305.html Name: Kernel-eem.682 Ancestors: Kernel-bf.681 Faster non-local return through unwind-protects by not ignoring the firstUnwindContext supplied by the VM. =============================================

1 0

Float differences
by Sven Van Caekenberghe 26 Apr '12

26 Apr '12

Hi, The following code ((-10 to: 10) collect: [ :each | each * Float pi ]) = ((((-10 to: 10) collect: [ :each | each * Float pi ]) collect: [ :each | each asString]) collect: [ :each | Float readFrom: each ]) returns true on Pharo 1.4 and false on Squeak 4.3 Some of the Floats in the array compare equal, some not. Similary, (10 raisedTo: -100) asFloat prints as '1.0e-100' in Pharo and as ' 9.99999999999999e-101' in Squeak. I know that comparing Floats on equality is often dangerous and that #closeTo: is better. But I would like to understand how there could be such a difference between the two. Nicolas ? Thx, Sven

4 9

The Trunk: Kernel-eem.682.mcz
by commits＠source.squeak.org 25 Apr '12

25 Apr '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.682.mcz ==================== Summary ==================== Name: Kernel-eem.682 Author: eem Time: 25 April 2012, 10:58:44.627 am UUID: 700ce759-d9db-45ed-9929-20018642651d Ancestors: Kernel-bf.681 Faster non-local return through unwind-protects by not ignoring the firstUnwindContext supplied by the VM. =============== Diff against Kernel-bf.681 =============== Item was added: + ----- Method: ContextPart>>resume:through: (in category 'controlling') ----- + resume: value through: firstUnwindCtxt + "Unwind thisContext to self and resume with value as result of last send. + Execute any unwind blocks while unwinding. + ASSUMES self is a sender of thisContext." + + | ctxt unwindBlock | + self isDead ifTrue: [self cannotReturn: value to: self]. + ctxt := firstUnwindCtxt. + [ctxt isNil] whileFalse: + [(ctxt tempAt: 2) ifNil: + [ctxt tempAt: 2 put: true. + unwindBlock := ctxt tempAt: 1. + thisContext terminateTo: ctxt. + unwindBlock value]. + ctxt := ctxt findNextUnwindContextUpTo: self]. + thisContext terminateTo: self. + ^value + ! Item was added: + ----- Method: ContextPart>>return:through: (in category 'controlling') ----- + return: value through: firstUnwindContext + "Unwind thisContext to self and return value to self's sender. + Execute any unwind blocks while unwinding. + ASSUMES self is a sender of thisContext." + + sender ifNil: [self cannotReturn: value to: sender]. + sender resume: value through: firstUnwindContext! Item was changed: ----- Method: MethodContext>>aboutToReturn:through: (in category 'private') ----- aboutToReturn: result through: firstUnwindContext "Called from VM when an unwindBlock is found between self and its home. Return to home's sender, executing unwind blocks on the way." + self methodReturnContext return: result through: firstUnwindContext! - self methodReturnContext return: result!

1 0

GSoC news: we have 13 projects!
by Janko Mivšek 24 Apr '12

24 Apr '12

Dear Smalltalkers! We have 13 GSoC projects and let we welcome to all students whose proposals were accepted: 1. Santiago Bragagnolo Concrete Type Inference -- Call graph http://gsoc2012.esug.org/projects/type-inference 2. Lars Wassermann ARM jitter for Squeak VM http://gsoc2012.esug.org/projects/arm-jitter 3. Facundo Mainere Interactive & social online Smalltalk tutorial http://gsoc2012.esug.org/projects/interactive-tutorial 4. Benjamin Van Ryseghem Nautilus http://gsoc2012.esug.org/projects/nautilus 5. Martín Dias Package management with Fuel http://gsoc2012.esug.org/projects/fuel-packages 6. Guillermo Polito Bootstrapping the core-Hazelnut http://gsoc2012.esug.org/projects/hazelnut 7. Pablo Estefo TestSurgeon http://gsoc2012.esug.org/projects/testsurgeon 8. Daniel Uber SciSmalltalk http://gsoc2012.esug.org/projects/sci-smalltalk 9. Rustem Khubbatov HMI (Human-Machine Interface) with Amber http://gsoc2012.esug.org/projects/mmi-amber 10. Juan Pablo Sandoval Alcocer Rizel - Multidimensional Profiler http://gsoc2012.esug.org/projects/rizel 11. Saurav Bhattacharya Export Excel files and other spreadsheet related goodies http://gsoc2012.esug.org/projects/excel-export 12. Steve Granda Finish Physical Etoys port to Sugar http://gsoc2012.esug.org/projects/etoys-sugar 13. Paul Kuzovkin Esse, a framework for visualizing, storing and exploring ideas http://gsoc2012.esug.org/projects/esse 5 students from Argentina, 2 from Chile, 2 from Russia, 1 from Sweden, France, USA and let we specially welcome our first Indian student! Now a Community bonding period started, when students get to know mentors, read documentation, get up to speed to begin working on their projects. Until 21.May when coding begin. Good luck to everyone! Janko @ Carla -- Smalltalk GSoC Admin Team http://gsoc2012.esug.org

4 3

← Newer
1
2
3
4
5
6
7
...
15
Older →

Jump to page: