Packages September 2015

packages@lists.squeakfoundation.org

1 participants
86 discussions

The Trunk: Regex-Tests-Core-ul.3.mcz
by commits＠source.squeak.org 25 Sep '15

25 Sep '15

Levente Uzonyi uploaded a new version of Regex-Tests-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Tests-Core-ul.3.mcz ==================== Summary ==================== Name: Regex-Tests-Core-ul.3 Author: ul Time: 25 September 2015, 5:39:06.012 pm UUID: cf86029f-c2dd-4fe9-a926-d1024319d981 Ancestors: Regex-Tests-Core-ul.2 Added a test for character sets containing escaped characters. =============== Diff against Regex-Tests-Core-ul.2 =============== Item was added: + ----- Method: RxParserTest>>testCharacterSetWithEscapedCharacters (in category 'tests') ----- + testCharacterSetWithEscapedCharacters + "self debug: #testCharacterSetRange" + + { + '[\r]'. String cr. String space. + '[\n]'. String lf. String space. + '[\t]'. String tab. String space. + '[\e]'. Character escape asString. String space. + '[\f]'. Character newPage asString. String space. + '[\]]+'. ']]]'. '[[['. + '[\S]+[\s]+=[\s]+#[^\[(]'. 'foo = #bar'. 'foo = #[1 2 3]'. + '[\d]+'. '123'. 'abc'. + '[\D]+'. 'abc'. '123'. + '[\w]+'. 'a1_b2'. '...'. + '[\W]+'. '...'. 'a1_b2'. + } groupsDo: [ :regexString :inputToAccept :inputToReject | + | regex | + regex := regexString asRegex. + self + assert: (regex search: inputToAccept); + deny: (regex search: inputToReject) ]!

1 0

The Trunk: Regex-Tests-Core-ul.3.mcz
by commits＠source.squeak.org 25 Sep '15

25 Sep '15

1 0

The Trunk: MonticelloConfigurations-topa.138.mcz
by commits＠source.squeak.org 24 Sep '15

24 Sep '15

Tobias Pape uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-topa.138.mcz ==================== Summary ==================== Name: MonticelloConfigurations-topa.138 Author: topa Time: 24 September 2015, 2:48:24.846 pm UUID: 153b9666-3723-4eb0-b230-7bc75450b892 Ancestors: MonticelloConfigurations-dtl.137 Do not nil out Updaters on initialize, beacuse this can screw the whole update process. =============== Diff against MonticelloConfigurations-dtl.137 =============== Item was changed: ----- Method: MCMcmUpdater class>>initialize (in category 'class initialization') ----- initialize "MCMcmUpdater initialize" DefaultUpdateURL ifNil:[ DefaultUpdateURL := MCHttpRepository trunkUrlString. ]. + "Call + MCMcmUpdater resetUpdaters + manually if necessary"! - Updaters := nil. - ! Item was added: + ----- Method: MCMcmUpdater class>>resetUpdaters (in category 'class initialization') ----- + resetUpdaters + + Updaters := nil.!

1 0

The Trunk: MonticelloConfigurations-topa.138.mcz
by commits＠source.squeak.org 24 Sep '15

24 Sep '15

1 0

The Trunk: Morphic-mt.1006.mcz
by commits＠source.squeak.org 20 Sep '15

20 Sep '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1006.mcz ==================== Summary ==================== Name: Morphic-mt.1006 Author: mt Time: 20 September 2015, 4:16:42.826 pm UUID: 9653938a-98f0-4943-b266-64f4bba540b6 Ancestors: Morphic-mt.1005 Fixes the preference for showing the world main docking bar. That preference value is stored only in the project-specific flags. No need to spam the quasi-global preference dictionary with it. =============== Diff against Morphic-mt.1005 =============== Item was changed: ----- Method: MorphicProject>>showWorldMainDockingBar: (in category 'docking bars support') ----- showWorldMainDockingBar: aBoolean "Change the receiver to show the main docking bar" self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBoolean. - (self == Project current - and: [aBoolean ~= Preferences showWorldMainDockingBar]) - ifTrue: [Preferences setPreference: #showWorldMainDockingBar toValue: aBoolean]. self assureMainDockingBarPresenceMatchesPreference!

1 0

The Trunk: Morphic-mt.1006.mcz
by commits＠source.squeak.org 20 Sep '15

20 Sep '15

1 0

The Trunk: Tools-eem.633.mcz
by commits＠source.squeak.org 17 Sep '15

17 Sep '15

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.633.mcz ==================== Summary ==================== Name: Tools-eem.633 Author: eem Time: 17 September 2015, 1:18:07.129 pm UUID: 2a5a8395-fa44-4d48-b6ed-a920c18dbc02 Ancestors: Tools-mt.632 Fix hard VM crash when defining quick methods from MNUs in the debugger. The bug is that the sender context (Message>>sentTo:) is doing a perform:withArguments:[inSuperclass:] but the receiver and arguments have already been removed from the context, so simply backing up to the point of send and proceeding will have disastrous consequences; there must be a receiver and arguments on the stack. So if the arguments are unavailable we simply restart the context inmstead of backing up to the point of send. To reproduce: 0. make sure e.g. Object>>#zork is unimplemented 1. evaluate "nil zork" 2. in the debugger examine the doesNotUnderstand: context and then hit proceed. 3. click the Create button and define Object>>#zork ^nil 4. (the debugger sets the active context to Message>>sentTo:) hit proceed Before the VM woudl crash. Now the debugger sets the pc to the start of the Message>>sentTo: method. =============== Diff against Tools-mt.632 =============== Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController "The retrieved information has changed and its source must now be updated. In this case, the retrieved information is the method of the selected context." | result selector classOfMethod category h ctxt newMethod | contextStackIndex = 0 ifTrue: [^false]. self selectedContext isExecutingBlock ifTrue: [h := self selectedContext activeHome. h ifNil: [self inform: 'Method for block not found on stack, can''t edit and continue'. ^false]. (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs) ifFalse: [^false]. self resetContext: h changeContents: false. "N.B. Only reset the contents if the compilation succeeds. If contents are reset when compilation fails both compiler error message and modifications are lost." (result := self contents: aText notifying: aController) ifTrue: [self contentsChanged]. ^result]. classOfMethod := self selectedClass. category := self selectedMessageCategoryName. selector := self selectedClass newParser parseSelector: aText. (selector == self selectedMessageName or: [(self selectedMessageName beginsWith: 'DoIt') and: [selector numArgs = self selectedMessageName numArgs]]) ifFalse: [self inform: 'can''t change selector'. ^false]. selector := classOfMethod compile: aText classified: category notifying: aController. selector ifNil: [^false]. "compile cancelled" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. newMethod isQuick ifTrue: + [self cutBackExecutionToSenderContext]. - [self down. - self selectedContext jump: (self selectedContext previousPc - self selectedContext pc)]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs] ifTrue: [newMethod isQuick ifFalse: [interruptedProcess restartTopWith: newMethod; stepToSendOrReturn]. contextVariablesInspector object: nil]. self resetContext: ctxt. Smalltalk isMorphic ifTrue: [World addAlarm: #changed: withArguments: #(contentsSelection) for: self at: (Time millisecondClockValue + 200)]. ^true! Item was added: + ----- Method: Debugger>>cutBackExecutionToSenderContext (in category 'private') ----- + cutBackExecutionToSenderContext + "When accepting a new version of a method which can't be simulated (i.e. a quick method) we + must cut back to the sender. But this is non-trivial. If the quick method has been reached via + a perform: (as it is when one uses Create toi implement a method from an MNU) then the relevant + arguments won't be on the stack and we can't simply proceed without crashing the VM." + | oldContext context sel | + oldContext := self selectedContext. + self down. + context := self selectedContext. + context jump: (context previousPc - context pc). + sel := context selectorToSendOrSelf. + sel numArgs = oldContext method numArgs + ifTrue: + [context push: oldContext receiver. + oldContext arguments do: + [:arg| context push: arg]] + ifFalse: + [context privRefresh; stepToSendOrReturn]!

1 0

The Trunk: Tools-eem.633.mcz
by commits＠source.squeak.org 17 Sep '15

17 Sep '15

1 0

The Trunk: Compiler-eem.309.mcz
by commits＠source.squeak.org 17 Sep '15

17 Sep '15

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.309.mcz ==================== Summary ==================== Name: Compiler-eem.309 Author: eem Time: 16 September 2015, 5:26:18.544 pm UUID: 89f65602-802e-41c5-b52c-c85cf61e299f Ancestors: Compiler-eem.308 Fix the compiler to collapse optimized block temps of the same name to the same temp location for a better debugging UX. =============== Diff against Compiler-eem.308 =============== Item was changed: ----- Method: BlockNode>>addHoistedTemps: (in category 'code generation (closures)') ----- addHoistedTemps: additionalTemporaries "<SequenceableCollection>" + | tempsToBeMerged additionalTempsToAdd | additionalTemporaries do: [:temp| temp definingScope ifNil: [temp definingScope: self]]. + (temporaries isNil or: [temporaries isEmpty]) ifTrue: + [temporaries := additionalTemporaries copy. + ^self]. + tempsToBeMerged := additionalTemporaries select: + [:t| + t isBlockArg + and: [temporaries anySatisfy: [:existing| existing isBlockArg and: [existing key = t key]]]]. + additionalTempsToAdd := tempsToBeMerged isEmpty + ifTrue: [additionalTemporaries copy] + ifFalse: [additionalTemporaries reject: [:temp| tempsToBeMerged identityIncludes: temp]]. temporaries := (temporaries isNil or: [temporaries isEmpty]) + ifTrue: [additionalTempsToAdd] - ifTrue: [additionalTemporaries copy] ifFalse: [temporaries last isIndirectTempVector + ifTrue: [temporaries allButLast, additionalTempsToAdd, { temporaries last }] + ifFalse: [temporaries, additionalTempsToAdd]]. + tempsToBeMerged do: + [:t| | merge | + merge := temporaries detect: [:existing| existing isBlockArg and: [existing key = t key]]. + merge absorbHoistedTemp: t]! - ifTrue: [temporaries allButLast, additionalTemporaries, { temporaries last }] - ifFalse: [temporaries, additionalTemporaries]]! Item was changed: ----- Method: BytecodeEncoder>>bindTemp: (in category 'temps') ----- bindTemp: name "Declare a temporary; error not if a field or class variable or out-of-scope temp. Read the comment in Encoder>>bindBlockArg:within: and subclass implementations." self supportsClosureOpcodes ifFalse: [^super bindTemp: name]. scopeTable at: name ifPresent: [:node| "When non-interactive raise the error only if it is a duplicate" node isTemp ifTrue:[node scope >= 0 ifTrue: + [^self notify: 'Name already used in this method']] - [^self notify:'Name is already defined']] ifFalse:[self warnAboutShadowed: name]]. ^self reallyBind: name! Item was added: + ----- Method: TempVariableNode>>absorbHoistedTemp: (in category 'code generation (closures)') ----- + absorbHoistedTemp: aTempVar + "Collapse aTempVar into the receiver, being sure to update any closure analysis." + aTempVar copyScopeAccessTo: self. + aTempVar becomeForward: self! Item was added: + ----- Method: TempVariableNode>>copyScopeAccessTo: (in category 'code generation (closures)') ----- + copyScopeAccessTo: aTempVar + "For absorbHoistedTemp:, copy the receiver's reads and writes into the record in aTempVar." + readingScopes ifNotNil: + [readingScopes keysAndValuesDo: + [:scopeBlock :reads| + reads do: + [:location| + aTempVar addReadWithin: scopeBlock "<BlockNode>" at: location]]]. + writingScopes ifNotNil: + [writingScopes keysAndValuesDo: + [:scopeBlock :writes| + writes do: + [:location| + aTempVar addWriteWithin: scopeBlock "<BlockNode>" at: location]]]! Item was changed: + (PackageInfo named: 'Compiler') postscript: '"Make sure all affected methods are recompiled" + UIManager default + informUser: ''Recompiling affected methods'' + during: + [(self systemNavigation allMethodsSelect: + [:m| | ebc | "All affected methods send one of these optimized selectors..." + (#(to:do: to:by:do: ifNotNil: ifNil:ifNotNil: ifNotNil:ifNil:) anySatisfy: [:l| m refersToLiteral: l]) + "but the textDomain properties confuse method comparison below..." + and: [(m propertyValueAt: #textDomain ifAbsent: nil) isNil + and: [m numTemps > m numArgs "and have non-argument temporaries in them..." + or: [(ebc := m embeddedBlockClosures) notEmpty + and: [ebc anySatisfy: [:bc| bc numTemps > bc numArgs]]]]]]) do: + [:mr| | old new | + old := mr compiledMethod. + "do a test recompile of the method..." + new := (mr actualClass compile: old getSource asString notifying: nil trailer: old trailer ifFail: nil) method. + "and if it changed, report it to the transcript and really recompile it..." + old ~= new ifTrue: + [Transcript cr. old printReferenceOn: Transcript. Transcript flush. + mr actualClass recompile: old selector]]]'! - (PackageInfo named: 'Compiler') postscript: '"Migrate preference value" - Scanner allowBlockArgumentAssignment: Preferences allowBlockArgumentAssignment'!

1 0

The Trunk: Compiler-eem.309.mcz
by commits＠source.squeak.org 17 Sep '15

17 Sep '15

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2015