Packages May 2010

packages@lists.squeakfoundation.org

1 participants
207 discussions

The Trunk: Morphic-cmm.438.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.438.mcz ==================== Summary ==================== Name: Morphic-cmm.438 Author: cmm Time: 25 May 2010, 1:04:01.956 pm UUID: 5cd1f813-d403-4520-9752-0a1d4f18794d Ancestors: Morphic-spd.437 Don't refuse a prettyPrint request unnecessarily. =============== Diff against Morphic-spd.437 =============== Item was changed: ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') ----- prettyPrint: decorated "Reformat the contents of the receiver's view (a Browser)." | selectedClass newText | - model selectedMessageName ifNil: [ ^ morph flash ]. selectedClass := model selectedClassOrMetaClass. + selectedClass ifNil: [ ^ morph flash ]. newText := selectedClass compilerClass new format: self text in: selectedClass notifying: self decorated: decorated. newText ifNotNil: [ self deselect ; selectInvisiblyFrom: 1 to: paragraph text size. self replaceSelectionWith: (newText asText makeSelectorBoldIn: selectedClass). self selectAt: self text size + 1 ]!

1 0

The Trunk: Morphic-cmm.438.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

1 0

The Trunk: Kernel-ar.452.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ar.452.mcz ==================== Summary ==================== Name: Kernel-ar.452 Author: ar Time: 24 May 2010, 8:43:58.049 pm UUID: 468fbdc7-4fcb-9845-8223-5333334177b8 Ancestors: Kernel-nice.451 Eliot's fix for ContextPart>>tryNamedPrim... =============== Diff against Kernel-nice.451 =============== Item was changed: ----- Method: ContextPart>>tryNamedPrimitiveIn:for:withArgs: (in category 'private') ----- tryNamedPrimitiveIn: aCompiledMethod for: aReceiver withArgs: arguments "Hack. Attempt to execute the named primitive from the given compiled method" | selector theMethod spec | arguments size > 8 ifTrue:[^PrimitiveFailToken]. selector := #( tryNamedPrimitive tryNamedPrimitive: tryNamedPrimitive:with: tryNamedPrimitive:with:with: tryNamedPrimitive:with:with:with: tryNamedPrimitive:with:with:with:with: tryNamedPrimitive:with:with:with:with:with: tryNamedPrimitive:with:with:with:with:with:with: tryNamedPrimitive:with:with:with:with:with:with:with:) at: arguments size+1. theMethod := aReceiver class lookupSelector: selector. theMethod == nil ifTrue:[^PrimitiveFailToken]. spec := theMethod literalAt: 1. spec replaceFrom: 1 to: spec size with: (aCompiledMethod literalAt: 1) startingAt: 1. + theMethod flushCache. + selector flushCache. ^aReceiver perform: selector withArguments: arguments!

1 0

The Trunk: Kernel-ar.452.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

1 0

The Trunk: Kernel-ar.452.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

1 0

The Trunk: Compiler-ar.143.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

Andreas Raab uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ar.143.mcz ==================== Summary ==================== Name: Compiler-ar.143 Author: ar Time: 24 May 2010, 8:42:36.032 pm UUID: af1d9aa9-96ff-9e4f-9df9-94e11682c0b4 Ancestors: Compiler-ar.142 Verify the number of arguments in FFI calls. =============== Diff against Compiler-ar.142 =============== Item was changed: ----- Method: Parser>>externalFunctionDeclaration (in category 'primitives') ----- externalFunctionDeclaration "Parse the function declaration for a call to an external library." | descriptorClass callType retType externalName args argType module | descriptorClass := Smalltalk at: #ExternalFunction ifAbsent:[nil]. descriptorClass == nil ifTrue:[^false]. callType := descriptorClass callingConventionFor: here. callType == nil ifTrue:[^false]. "Parse return type" self advance. retType := self externalType: descriptorClass. retType == nil ifTrue:[^self expected:'return type']. "Parse function name or index" externalName := here. (self match: #string) ifTrue:[externalName := externalName asSymbol] ifFalse:[(self match:#number) ifFalse:[^self expected:'function name or index']]. (self matchToken: #'(') ifFalse:[^self expected:'argument list']. args := WriteStream on: Array new. [here == #')'] whileFalse:[ argType := self externalType: descriptorClass. argType == nil ifTrue:[^self expected:'argument']. argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]. ]. + (args position = self properties selector numArgs) ifFalse:[ + ^self expected: 'Matching number of arguments' + ]. (self matchToken:#')') ifFalse:[^self expected:')']. (self matchToken: 'module:') ifTrue:[ module := here. (self match: #string) ifFalse:[^self expected: 'String']. module := module asSymbol]. Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| | fn | fn := xfn name: externalName module: module callType: callType returnType: retType argumentTypes: args contents. self allocateLiteral: fn. ]. self addPragma: (Pragma keyword: #primitive: arguments: #(120)). ^true!

1 0

The Trunk: Compiler-ar.143.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

1 0

The Trunk: Compiler-ar.143.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

1 0

The Trunk: Tests-eem.81.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.81.mcz ==================== Summary ==================== Name: Tests-eem.81 Author: eem Time: 22 May 2010, 10:45:06.967 am UUID: 0452f6cc-7439-4792-9ace-76f6ca4287a2 Ancestors: Tests-spd.80 ClosureTests: Add a test that checks that a temp in an inlined block is nil at the start of each iteration of the loop. Needs Compiler-ar.141 (and perhaps a recompile) to pass. =============== Diff against Tests-spd.80 =============== Item was added: + ----- Method: ClosureTests>>testWhileWithTempIsNil (in category 'testing-while') ----- + testWhileWithTempIsNil + | index | + index := 0. + [ index < 5 ] whileTrue: [ + | temp | + collection add: temp. + temp := index := index + 1. + collection add: temp]. + self assertValues: #(nil 1 nil 2 nil 3 nil 4 nil 5)!

1 0

The Trunk: Tests-eem.81.mcz
by commits＠source.squeak.org 25 May '10

25 May '10

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 May 2010