Packages July 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Monticello-bf.516.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.516.mcz ==================== Summary ==================== Name: Monticello-bf.516 Author: bf Time: 5 July 2012, 5:07:51.433 pm UUID: 42f8b4e0-b227-46ec-bcfa-a0426a152467 Ancestors: Monticello-bf.515 Fix a problem with very short MCVersionNames (e.g. 'MC1' as used by the test suite) =============== Diff against Monticello-bf.515 =============== Item was changed: ----- Method: MCVersionName>>versionName (in category 'accessing') ----- versionName "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes." | end | self isEmpty ifTrue: [^ String empty]. end := self indexOf: $( ifAbsent: [ + (self size > 4 and: [(self copyFrom: self size - 3 to: self size - 1) = '.mc']) - ('.mc#' startingAt: 1 match: self startingAt: self size - 3) ifTrue: [self size - 3] ifFalse: [self size + 1]]. ^self first: end - 1!

1 0

The Trunk: Monticello-bf.516.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

1 0

The Trunk: Kernel-ul.704.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.704.mcz ==================== Summary ==================== Name: Kernel-ul.704 Author: ul Time: 5 July 2012, 11:22:10.913 am UUID: 224efcec-9920-7b4f-9fad-46ae9554a560 Ancestors: Kernel-eem.703, Kernel-cmm.701 Merged. Every package should have one head version in the Trunk. =============== Diff against Kernel-eem.703 =============== Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration - nowWithOffset: aDuration | nanoTicks msm | - nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. + "The following usually only executes at system startup." + ^ LastTick < nanoTicks + ifTrue: + [ LastTick := nanoTicks. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: msm // 1000 + nano: msm \\ 1000 * 1000000 + offset: aDuration ] + ifFalse: + [ LastTickSemaphore critical: + [ LastTick := LastTick + 1. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: LastTick // 1000000000 + nano: LastTick \\ 1000000000 + offset: aDuration ] ] - - (LastTick < nanoTicks) ifTrue: [ - LastTick := nanoTicks. - ^ self todayAtMilliSeconds: msm offset: aDuration]. - - LastTickSemaphore critical: [ - LastTick := LastTick + 1. - ^ self todayAtNanoSeconds: LastTick offset: aDuration] - " [ 10000 timesRepeat: [ self now. ] ] timeToRun / 10000.0 . If calls to DateAndTime-c-#now are within a single millisecond the semaphore code to ensure that (self now <= self now) slows things down considerably by a factor of about 20. The actual speed of a single call to DateAndTime-now in milliseconds is demonstrated by the unguarded method below. [ 100000 timesRepeat: [ self todayAtMilliSeconds: (self milliSecondsSinceMidnight) ] ] timeToRun / 100000.0 . 0.00494 0.00481 0.00492 0.00495 "! Item was removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight - self deprecated: 'Use todayAtMilliSeconds:offset:.'. - ^ self - todayAtMilliSeconds: milliSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds:offset: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (milliSecondsSinceMidnight // 1000) - nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) - offset: aDuration - - " - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. - "! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight - self deprecated: 'Use todayAtNanoSeconds:offset:.'. - self - todayAtNanoSeconds: nanoSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds:offset: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (nanoSecondsSinceMidnight // 1000000000) - nano: (nanoSecondsSinceMidnight \\ 1000000000 ) - offset: aDuration - ! Item was changed: ----- Method: Integer>>asStringWithCommas (in category 'printing') ----- asStringWithCommas "123456789 asStringWithCommas" "-123456789 asStringWithCommas" + ^ self asStringWithCommasSigned: false! - | digits | - digits := self abs printString. - ^ String streamContents: - [:strm | - self sign = -1 ifTrue: [strm nextPut: $-]. - 1 to: digits size do: - [:i | strm nextPut: (digits at: i). - (i < digits size and: [(i - digits size) \\ 3 = 0]) - ifTrue: [strm nextPut: $,]]]! Item was changed: ----- Method: Integer>>asStringWithCommasSigned (in category 'printing') ----- asStringWithCommasSigned "123456789 asStringWithCommasSigned" "-123456789 asStringWithCommasSigned" | digits | + self deprecated: 'Use #asStringWithCommasSigned:'. digits := self abs printString. ^ String streamContents: [:strm | self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+]. 1 to: digits size do: [:i | strm nextPut: (digits at: i). (i < digits size and: [(i - digits size) \\ 3 = 0]) ifTrue: [strm nextPut: $,]]]! Item was added: + ----- Method: Integer>>asStringWithCommasSigned: (in category 'printing') ----- + asStringWithCommasSigned: aBoolean + "123456789 asStringWithCommasSigned: true" + "-123456789 asStringWithCommasSigned: false" + | digits | + digits := self abs printString. + ^ String streamContents: + [:strm | + self sign = -1 ifTrue: [strm nextPut: $-] ifFalse: [aBoolean ifTrue: [strm nextPut: $+]]. + 1 to: digits size do: + [:i | strm nextPut: (digits at: i). + (i < digits size and: [(i - digits size) \\ 3 = 0]) + ifTrue: [strm nextPut: $,]]]!

1 0

The Trunk: Kernel-ul.704.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

1 0

The Trunk: Kernel-ul.704.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

1 0

The Trunk: MonticelloConfigurations-bf.105.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Bert Freudenberg uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-bf.105.mcz ==================== Summary ==================== Name: MonticelloConfigurations-bf.105 Author: bf Time: 5 July 2012, 3:07:18.328 pm UUID: 5cfbc597-c2d8-45e7-966e-cd8465385785 Ancestors: MonticelloConfigurations-bf.104 Ignore errors when asking server for fast diffs. =============== Diff against MonticelloConfigurations-bf.104 =============== Item was changed: ----- Method: MCConfiguration>>versionNamed:for:from: (in category 'private') ----- versionNamed: aMCVersionName for: aDependency from: repo | baseName fileName ver | (repo filterFileNames: repo cachedFileNames forVersionNamed: aMCVersionName) ifNotEmptyDo: [:cachedNames | fileName := cachedNames anyOne. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Using cached ', fileName]. ver := repo versionNamed: fileName]. ver ifNil: [ baseName := self diffBaseFor: aDependency. (baseName notNil and: [baseName ~= aMCVersionName and: [repo includesVersionNamed: baseName]]) ifTrue: [ fileName := (MCDiffyVersion nameForVer: aMCVersionName base: baseName), '.mcd'. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Downloading ', fileName]. + ver := [repo versionNamed: fileName] ifError: []]]. - ver := repo versionNamed: fileName]]. ver ifNil: [ fileName := aMCVersionName versionName, '.mcz'. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Downloading ', fileName]. ver := repo versionNamed: fileName]. ^ver!

1 0

The Trunk: MonticelloConfigurations-bf.105.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

1 0

The Trunk: MonticelloConfigurations-bf.105.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

1 0

The Trunk: Kernel-eem.703.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.703.mcz ==================== Summary ==================== Name: Kernel-eem.703 Author: eem Time: 4 July 2012, 1:52:09.978 pm UUID: 072b8788-6194-499e-99f3-877f353d3f8e Ancestors: Kernel-bf.702 Fix copying of the AdditionalMethodState on CompiledMethod copy. Fix setting copied pragmas' methods to the copied method for both CompiledMethod>>copyWithTrailerBytes: and CompiledMethod>>copy. =============== Diff against Kernel-bf.702 =============== Item was changed: + ----- Method: CompiledMethod>>copyWithTrailerBytes: (in category 'copying') ----- - ----- Method: CompiledMethod>>copyWithTrailerBytes: (in category 'initialize-release') ----- copyWithTrailerBytes: trailer "Testing: (CompiledMethod compiledMethodAt: #copyWithTrailerBytes:) tempNamesPut: 'copy end ' " | copy end start penultimateLiteral | start := self initialPC. end := self endPC. copy := trailer createMethod: end - start + 1 class: self class header: self header. 1 to: self numLiterals do: [:i | copy literalAt: i put: (self literalAt: i)]. (penultimateLiteral := self penultimateLiteral) isMethodProperties ifTrue: [copy penultimateLiteral: (penultimateLiteral copy setMethod: copy; + yourself). + self pragmas do: + [:p| p setMethod: self]]. - yourself)]. start to: end do: [:i | copy at: i put: (self at: i)]. ^copy! Item was added: + ----- Method: CompiledMethod>>postCopy (in category 'copying') ----- + postCopy + | penultimateLiteral | + (penultimateLiteral := self penultimateLiteral) isMethodProperties ifTrue: + [self penultimateLiteral: (penultimateLiteral copy + setMethod: self; + yourself). + self pragmas do: + [:p| p setMethod: self]]! Item was removed: - ----- Method: CompiledMethodTrailer>>createMethod:header: (in category 'creating a method') ----- - createMethod: numberOfBytesForAllButTrailer header: headerWord - | meth | - - encodedData ifNil: [ self encode ]. - - "without >>self compiledMethodClass<<, subclassing CompiledMethod is duplicating code" - meth := self compiledMethodClass newMethod: numberOfBytesForAllButTrailer + size header: headerWord. - - "copy the encoded trailer data" - - 1 to: size do: - [:i | meth at: meth size - size + i put: (encodedData at: i)]. - - ^ meth!

1 0

The Trunk: Kernel-eem.703.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

1 0

← Newer
1
...
8
9
10
11
12
13
14
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2012