Packages May 2010

packages@lists.squeakfoundation.org

1 participants
207 discussions

The Trunk: Tests-HenrikSperreJohansen.82.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-HenrikSperreJohansen.82.mcz ==================== Summary ==================== Name: Tests-HenrikSperreJohansen.82 Author: HenrikSperreJohansen Time: 27 May 2010, 2:20:17.48 pm UUID: bf33877c-d5ae-4b9e-b3bf-753289ae9821 Ancestors: Tests-eem.81 Test for the cases described in Compiler-HenrikSperreJohansen.144 =============== Diff against Tests-eem.81 =============== Item was added: + ----- Method: ClosureCompilerTest>>testBlockDoitDecompilation (in category 'tests') ----- + testBlockDoitDecompilation + "Tests that decompile of a doit block with remote vars executes correcly" + "Tests that decompilation of a Block, when 'method' of block is equivalent to that compiled by a DoIt, preserves the temp names " + + |blockSourceStream methodNode compiledMethod block decompiledBlock| + blockSourceStream := '|x y| [:a :b | x := a. y := b. x + y]' readStream. + methodNode := nil class evaluatorClass new + from: blockSourceStream class: nil class context: nil notifying: nil; + translate: blockSourceStream noPattern: true ifFail: [nil]. + compiledMethod := methodNode generateWithTempNames. + block := nil withArgs: #() executeMethod: compiledMethod. + + self shouldnt: [decompiledBlock := block decompile] raise: Error. + self assert: '{[:a :b | + x := a. + y := b. + x + y]}' equals: decompiledBlock printString + !

1 0

The Trunk: Tests-HenrikSperreJohansen.82.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

1 0

The Trunk: Tests-HenrikSperreJohansen.82.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

1 0

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

28 May '10

Andreas Raab uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ar.145.mcz ==================== Summary ==================== Name: Compiler-ar.145 Author: ar Time: 27 May 2010, 9:38:04.277 pm UUID: 932818d3-1aeb-104b-826b-60c5a6f6f6a1 Ancestors: Compiler-HenrikSperreJohansen.144 Merging Compiler-HenrikSperreJohansen.144 Fix for BlockClosure decompilation in Workspace doits. Previously, blocks with remoteTemps would fail to decompile, f.ex: | x y | [:a :b | x := a. y := b] decompile (http://code.google.com/p/pharo/issues/detail?id=767) Also, temp names would not be preserved when inspecting a non-remoteTemps block, say [:x :y | | temp | 1 + x@y. ^temp] decompile printString. Getting the instvar names from MethodTrailer if present in decompileBlock: solves both these issues. (ar: restore formatting and refer to SyntaxErrorNotification directly) =============== Diff against Compiler-ar.143 =============== Item was changed: ----- Method: Decompiler>>decompileBlock: (in category 'public access') ----- decompileBlock: aBlock "Decompile aBlock, returning the result as a BlockNode. Show temp names from source if available." "Decompiler new decompileBlock: [3 + 4]" | startpc end homeClass blockNode methodNode home source | (home := aBlock home) ifNil: [^ nil]. method := home method. (homeClass := home methodClass) == #unknown ifTrue: [^ nil]. constructor := self constructorForMethod: aBlock method. + self withTempNames: (method tempNamesString ifNil:[ method fileIndex ~~ 0 ifTrue: "got any source code?" [source := [method getSourceFromFile] on: Error do: [:ex | ^ nil]. methodNode := [homeClass compilerClass new parse: source in: homeClass notifying: nil] + on: SyntaxErrorNotification - on: (Smalltalk classNamed: 'SyntaxErrorNotification') do: [:ex | ^ nil]. + methodNode schematicTempNamesString]]). - self withTempNames: methodNode schematicTempNamesString]. self initSymbols: homeClass. startpc := aBlock startpc. end := aBlock isClosure ifTrue: [(method at: startpc - 2) * 256 + (method at: startpc - 1) + startpc - 1] ifFalse: [(method at: startpc - 2) \\ 16 - 4 * 256 + (method at: startpc - 1) + startpc - 1]. stack := OrderedCollection new: method frameSize. caseExits := OrderedCollection new. statements := OrderedCollection new: 20. super method: method pc: (aBlock isClosure ifTrue: [startpc - 4] ifFalse: [startpc - 5]). aBlock isClosure ifTrue: [numLocalTemps := #decompileBlock: "Get pushClosureCopy... to hack fake temps for copied values"]. blockNode := self blockTo: end. stack isEmpty ifFalse: [self error: 'stack not empty']. ^blockNode statements first!

1 0

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

28 May '10

1 0

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

28 May '10

1 0

The Trunk: System-dtl.333.mcz
by commits＠source.squeak.org 26 May '10

26 May '10

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.333.mcz ==================== Summary ==================== Name: System-dtl.333 Author: dtl Time: 25 May 2010, 9:00:22.752 pm UUID: 489a377d-3a51-40d3-aa52-da816020f755 Ancestors: System-spd.332 Update SmalltalkImage>>recreateSpecialObjectsArray for support of Alien and improved finalization (Mantis 7473). Corresponding VM support is in SqS/VMMaker-dtl.175. =============== Diff against System-spd.332 =============== Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "The Special Objects Array is an array of object pointers used by the Squeak virtual machine. Its contents are critical and unchecked, so don't even think of playing here unless you know what you are doing." | newArray | + newArray := Array new: 56. - newArray := Array new: 50. "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 associationAt: #Processor). "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: 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). "(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. "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." newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]). 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" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" "Prototype instances that can be copied for fast initialization" newArray at: 32 put: (Float new: 2). newArray at: 33 put: (LargePositiveInteger new: 4). newArray at: 34 put: Point new. newArray at: 35 put: #cannotInterpret:. "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. "(BlockContext new: CompiledMethod fullFrameSize)." newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" "array of objects referred to by external code" newArray at: 40 put: PseudoContext. newArray at: 41 put: TranslatedMethod. "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:. + "Entries 51 through 55 are for Alien support" + newArray at: 51 put: nil. + newArray at: 52 put: nil. + newArray at: 53 put: (self at: #Alien ifAbsent: []). + newArray at: 54 put: #invokeCallback:stack:registers:jmpbuf:. + newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). + "Weak reference finalization" + newArray at: 56 put: (self at: #WeakFinalizer ifAbsent: []). "Now replace the interpreter's reference in one atomic operation" self specialObjectsArray become: newArray!

1 0

The Trunk: System-dtl.333.mcz
by commits＠source.squeak.org 26 May '10

26 May '10

1 0

The Trunk: System-dtl.333.mcz
by commits＠source.squeak.org 26 May '10

26 May '10

1 0

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

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