Squeak-dev March 2013

squeak-dev@lists.squeakfoundation.org

73 participants
283 discussions

Daily Commit Log
by commits＠source.squeak.org 21 Mar '13

21 Mar '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-March/005804.html Name: Tools-eem.458 Ancestors: Tools-eem.457 In CHangeSorter, after forgetting a class, select at the same point in the class list, which helps if e.g. doing something repetitive such as moving a number of classes to another change set. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005805.html Name: Graphics-cbc.203 Ancestors: Graphics-nice.202 Added Form>>writePNGfileNamed: (along the lines of Form>>writeBMPfileNamed:) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005806.html Name: Kernel-eem.750 Ancestors: Kernel-eem.749 Avoid embeddedBlockClosures holding onto the ClosureExtractor that created them. Avoid repeatedly calling endPC in embeddedBlockClosures scan. =============================================

1 0

lowSpaceWatcher problems
by Chris Muller 20 Mar '13

20 Mar '13

I have a server performing a heavy-lift operation crash with "out of memory". Investigation revealed the lowSpaceWatcher did not give any of its #memoryHogs a chance to #freeSomeSpace because it the VM actually ran out of memory just prior to that -- during the initial GC (called from #bytesLeft). I notice #lowSpaceThreshold is only 400K which seems like a very insignificant amount of memory by 2013 standards, so I upped it 10-fold to 4M: lowSpaceThreshold ^ 4000000 My thought was that this would cause the VM to signal the LowSpaceSemaphore, when only 4M was remaining rather than when there was only 400K remaining. I'm allocating 700M to the server, so a LowSpace signal at 696M is absolutely fine! Unfortunately, the 4M threshold seems to create all sorts of strange slowness and... problems, I guess. I need lowSpaceWatcher to work, what is the proper way to fix this?

9 14

The Trunk: Kernel-eem.750.mcz
by commits＠source.squeak.org 20 Mar '13

20 Mar '13

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.750.mcz ==================== Summary ==================== Name: Kernel-eem.750 Author: eem Time: 20 March 2013, 2:06:11.127 pm UUID: ebc85716-a4ee-436b-a229-397e78b85586 Ancestors: Kernel-eem.749 Avoid embeddedBlockClosures holding onto the ClosureExtractor that created them. Avoid repeatedly calling endPC in embeddedBlockClosures scan. =============== Diff against Kernel-eem.749 =============== Item was changed: ----- Method: ClosureExtractor>>scanner: (in category 'accessing') ----- scanner: anInstructionStream scanner := anInstructionStream. currentContext := MethodContext sender: nil + receiver: nil - receiver: self method: scanner method arguments: (Array new: scanner method numArgs)! Item was changed: ----- Method: CompiledMethod>>embeddedBlockClosures (in category 'closures') ----- embeddedBlockClosures + | bms extractor scanner endPC | - - | bms extractor scanner | bms := OrderedCollection new. scanner := self scanner. extractor := ClosureExtractor withAction: [ :c | bms add: c ] andScanner: scanner. + endPC := self endPC. + [ scanner pc <= endPC ] whileTrue: [ scanner interpretNextInstructionFor: extractor ]. - [ scanner pc <= self endPC ] whileTrue: [ scanner interpretNextInstructionFor: extractor ]. ^ bms!

1 0

Re: [squeak-dev] The Inbox: Graphics-cbc.203.mcz
by Frank Shearar 20 Mar '13

20 Mar '13

On 14 Mar 2013, at 8:35, commits(a)source.squeak.org wrote: > A new version of Graphics was added to project The Inbox: > http://source.squeak.org/inbox/Graphics-cbc.203.mcz > > ==================== Summary ==================== > > Name: Graphics-cbc.203 > Author: cbc > Time: 13 March 2013, 4:14:19.182 pm > UUID: e843098f-81e9-c944-bc06-8b15a3d44f23 > Ancestors: Graphics-nice.202 > > Added Form>>writePNGfileNamed: (along the lines of Form>>writeBMPfileNamed:) > > =============== Diff against Graphics-nice.202 =============== > > Item was added: > + ----- Method: Form>>writePNGfileNamed: (in category 'fileIn/Out') ----- > + writePNGfileNamed: fName "Display writePNGfileNamed: 'display.png'" > + PNGReadWriter putForm: self onFileNamed: fName! Given that Form and PNGReadWriter are in the same package, I'd be happy to see this in trunk. frank

2 2

The Trunk: Graphics-cbc.203.mcz
by commits＠source.squeak.org 20 Mar '13

20 Mar '13

Frank Shearar uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-cbc.203.mcz ==================== Summary ==================== Name: Graphics-cbc.203 Author: cbc Time: 13 March 2013, 4:14:19.182 pm UUID: e843098f-81e9-c944-bc06-8b15a3d44f23 Ancestors: Graphics-nice.202 Added Form>>writePNGfileNamed: (along the lines of Form>>writeBMPfileNamed:) =============== Diff against Graphics-nice.202 =============== Item was added: + ----- Method: Form>>writePNGfileNamed: (in category 'fileIn/Out') ----- + writePNGfileNamed: fName "Display writePNGfileNamed: 'display.png'" + PNGReadWriter putForm: self onFileNamed: fName!

1 0

The Trunk: Tools-eem.458.mcz
by commits＠source.squeak.org 20 Mar '13

20 Mar '13

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.458.mcz ==================== Summary ==================== Name: Tools-eem.458 Author: eem Time: 20 March 2013, 12:36:28.93 pm UUID: 92bec064-c457-41af-b8c3-86f7daafbbb9 Ancestors: Tools-eem.457 In CHangeSorter, after forgetting a class, select at the same point in the class list, which helps if e.g. doing something repetitive such as moving a number of classes to another change set. =============== Diff against Tools-eem.457 =============== Item was changed: ----- Method: ChangeSorter>>forgetClass (in category 'class list') ----- forgetClass + "Remove all mention of this class from the changeSet. + After forgetting, select at the same point in the class + list, which helps if e.g. doing something repetitive such + as moving a number of classes to the other side." + | index classList | - "Remove all mention of this class from the changeSet" - self okToChange ifFalse: [^ self]. + currentClassName ifNil: [^self]. + index := self classList indexOf: currentClassName. + myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName). + currentSelector := nil. + classList := self classList. + currentClassName := classList isEmpty ifFalse: + [classList at: (index min: classList size)]. + self showChangeSet: myChangeSet! - currentClassName ifNotNil: [ - myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName). - currentClassName := nil. - currentSelector := nil. - self showChangeSet: myChangeSet]. - !

1 0

Another Memory Problem
by Herbert König 20 Mar '13

20 Mar '13

Hi, I'm no expert in crashing the VM so maybe it's me doing something stupid. I have a 157 MB semicolon delimited file from which I basically want to create 1.5 million objects. Around 1.37 million I get the attached crash dump. Memory is around 530M Everything works fine if I only read the second half of the file. I tried croquet.exe -memory: 1024 without success. I read the whole file into a String and before I sprinkled the method with debugging aids it looked like: initFrom: aString "read the protocol file via feeding its lines into a state machine each performed method returns the state for the next line" |status| status := #initialHeaders:. aString linesDo: [:line| status := self perform: status with: line]. Latest Cog VM, image updated to 12333. Cheers, Herbert

7 10

Squeak news team?
by tim Rowledge 18 Mar '13

18 Mar '13

I've been volunteered as the SOB news team representative; but the details we have don't provide me with much information as to who is taking any part in the team. So, whoever your, please email me to let me know and we'll try to get links reconnected. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim You never finish a program, you just stop working on it.

4 5

The Inbox: Installer-Core-fbs.366.mcz
by commits＠source.squeak.org 18 Mar '13

18 Mar '13

Frank Shearar uploaded a new version of Installer-Core to project The Inbox: http://source.squeak.org/inbox/Installer-Core-fbs.366.mcz ==================== Summary ==================== Name: Installer-Core-fbs.366 Author: fbs Time: 18 March 2013, 11:46:52.277 am UUID: f665ad84-81d3-4337-8527-4c5f320ec2ab Ancestors: Installer-Core-fbs.365 InstallerGitHub lets you install source stored in a GitHub repository. It detects FileTree repositories (through the .filetree marker file) and otherwise assumes chunk format. It will lazily pull in WebClient, SqueakSSL and FileTree as and when necessary. Note that since GitHub uses SSL everywhere, you MUST have the SqueakSSL plugin installed in your VM to use this class. =============== Diff against Installer-Core-fbs.365 =============== Item was added: + Installer subclass: #InstallerGitHub + instanceVariableNames: 'user repository commitId' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! + + !InstallerGitHub commentStamp: 'fbs 3/18/2013 11:41' prior: 0! + An Installer that can install code stored in GitHub repositories (either in chunk format or FileTree). Typical usage: + + (Installer github + user: 'frankshearar' repository: 'Zippers' commitId: 'master') install! Item was added: + ----- Method: InstallerGitHub class>>user:repository: (in category 'instance creation') ----- + user: userString repository: repoString + ^ self basicNew + initializeWithUser: userString + repository: repoString + commitId: 'master'! Item was added: + ----- Method: InstallerGitHub class>>user:repository:commitId: (in category 'instance creation') ----- + user: userString repository: repoString commitId: treeishString + ^ self basicNew + initializeWithUser: userString + repository: repoString + commitId: treeishString! Item was added: + ----- Method: InstallerGitHub>>basicBrowse (in category 'basic interface') ----- + basicBrowse + ^ (Installer url: self gitHubUrl asString) browse! Item was added: + ----- Method: InstallerGitHub>>basicInstall (in category 'basic interface') ----- + basicInstall + | zip webResponse | + useFileIn := true. + webResponse := self webClientClassReference httpGet: self zipballUrl asString. + webResponse isSuccess ifFalse: [self error: ('Failed to download zipball ({1})' format: {webResponse printString})]. + zip := ZipArchive new + readFrom: (RWBinaryOrTextStream with: webResponse content). + zip members + detect: [:member | member fileName = '.filetree'] + ifFound: [self loadFiletreeFormatFiles: zip] + ifNone: [self loadChunkFormatFiles: zip]! Item was added: + ----- Method: InstallerGitHub>>basicView (in category 'basic interface') ----- + basicView + ^ (Installer url: self gitHubUrl) view! Item was added: + ----- Method: InstallerGitHub>>commitId (in category 'accessing') ----- + commitId + ^ commitId! Item was added: + ----- Method: InstallerGitHub>>createTempDir (in category 'private') ----- + createTempDir + | newDir | + "Vulnerable to a time-of-check-time-of-use race." + [newDir := UUID new asString. + FileDirectory default directoryExists: newDir] + whileTrue. + ^ FileDirectory default createDirectory: newDir! Item was added: + ----- Method: InstallerGitHub>>fileTreeStReader (in category 'class references') ----- + fileTreeStReader + self class environment + at: #MCFileTreeStReader + ifPresent: [:cls | ^ cls] + ifAbsent: [self installFileTree]. + ^ self class environment at: #MCFileTreeStReader! Item was added: + ----- Method: InstallerGitHub>>gitHubUrl (in category 'urls') ----- + gitHubUrl + ^ ('https://github.com/{1}/{2}/commits/{3}' format: {user. repository. commitId}) asUrl! Item was added: + ----- Method: InstallerGitHub>>initializeWithUser:repository:commitId: (in category 'initialize-release') ----- + initializeWithUser: userString repository: repoString commitId: treeishString + user := userString. + repository := repoString. + commitId := treeishString.! Item was added: + ----- Method: InstallerGitHub>>installFiletree (in category 'private') ----- + installFiletree + Installer squeakmap + update; + install: 'FileTree (for Squeak 4.4)'! Item was added: + ----- Method: InstallerGitHub>>installWebClient (in category 'private') ----- + installWebClient + Installer ss project: 'WebClient'; + install: 'WebClient-Core-ar.92.mcz'. + Installer ss project: 'SqueakSSL'; + install: 'SqueakSSL-Core-ar.26.mcz'! Item was added: + ----- Method: InstallerGitHub>>loadChunkFormatFiles: (in category 'private') ----- + loadChunkFormatFiles: zip + | defns loader | + defns := (zip membersMatching: '*.st') + collect: [:member | MCSnapshot fromDefinitions: (MCStReader new stream: member contentStream) definitions]. + loader := MCPackageLoader new. + defns + do: [:member | loader installSnapshot: member]. + loader loadWithName: repository! Item was added: + ----- Method: InstallerGitHub>>loadFiletreeFormatFiles: (in category 'private') ----- + loadFiletreeFormatFiles: zip + "FileTree works with directories. Extract the zip contents, load the definitions, and clean up." + | loader tempDir | + tempDir := self createTempDirectory. + [zip extractAllTo: tempDir. + loader := self fileTreeStReader new. + loader directory: FileDirectory. + loader loadDefinitions.] + ensure: [FileDirectory default deleteDirectory: tempDir pathName].! Item was added: + ----- Method: InstallerGitHub>>repository (in category 'accessing') ----- + repository + ^ repository! Item was added: + ----- Method: InstallerGitHub>>user (in category 'accessing') ----- + user + ^ user! Item was added: + ----- Method: InstallerGitHub>>user:repository: (in category 'copying') ----- + user: userString repository: repoString + ^ self class user: userString repository: repoString! Item was added: + ----- Method: InstallerGitHub>>user:repository:commitId: (in category 'copying') ----- + user: userString repository: repoString commitId: treeishString + ^ self class + user: userString + repository: repoString + commitId: treeishString.! Item was added: + ----- Method: InstallerGitHub>>webClientClassReference (in category 'class references') ----- + webClientClassReference + self class environment + at: #WebClient + ifPresent: [:cls | ^ cls] + ifAbsent: [self installWebClient]. + ^ self class environment at: #WebClient! Item was added: + ----- Method: InstallerGitHub>>zipballUrl (in category 'urls') ----- + zipballUrl + ^ ('https://github.com/{1}/{2}/zipball/{3}' format: {user. repository. commitId}) asUrl!

1 0

More than 256 literals referenced
by David T. Lewis 18 Mar '13

18 Mar '13

Something changed in trunk a couple of days ago that results in a 'More than 256 literals referenced' error in a filein script that previously did not display this problem (see attached). It does not seem to be anything in the Compiler package (I reverted back a half dozen versions, no change), so I'm looking at the CI builds for reference. The problem appears in the image from SqueakTrunk build #213 and later, and is not present in the image from build #212 and earlier. I spotted the problem in the CogVM build job, which has been failing for a couple of days. The failures are due to the above issue, and the script file that fails on filein is http://build.squeak.org/job/CogVM/ws/VMCogUnixBuild.st The problem showed up in the CogVM job by coincidence and is not related to the VM. Filing this VMCogUnixBuild.st into an updated trunk image will reproduce the problem. Dave

6 11

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

Jump to page: