Squeak-dev December 2010

squeak-dev@lists.squeakfoundation.org

95 participants
379 discussions

The Trunk: Collections-ul.411.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.411.mcz ==================== Summary ==================== Name: Collections-ul.411 Author: ul Time: 23 November 2010, 1:56:22.424 pm UUID: 42a0b87a-f525-6345-bd2c-e55186e17c9d Ancestors: Collections-ul.410 - use #shouldBePrintedAsLiteral instead of #isLiteral when printing or storing characters and arrays =============== Diff against Collections-ul.410 =============== Item was changed: ----- Method: Array>>printOn: (in category 'printing') ----- printOn: aStream + self shouldBePrintedAsLiteral ifTrue: [^self printAsLiteralFormOn: aStream]. - self isLiteral ifTrue: [^self printAsLiteralFormOn: aStream]. self class = Array ifTrue: [^self printAsBraceFormOn: aStream]. ^super printOn: aStream! Item was added: + ----- Method: Array>>shouldBePrintedAsLiteral (in category 'testing') ----- + shouldBePrintedAsLiteral + + ^self class == Array and: [ self allSatisfy: [ :each | each shouldBePrintedAsLiteral ] ]! Item was changed: ----- Method: Array>>storeOn: (in category 'printing') ----- storeOn: aStream "Use the literal form if possible." + self shouldBePrintedAsLiteral - self isLiteral ifTrue: [aStream nextPut: $#; nextPut: $(. self do: [:element | element storeOn: aStream. aStream space]. aStream nextPut: $)] ifFalse: [super storeOn: aStream]! Item was changed: ----- Method: Array>>storeOnStream: (in category 'filter streaming') ----- storeOnStream:aStream + + self shouldBePrintedAsLiteral + ifTrue: [ super storeOnStream:aStream ] + ifFalse:[ aStream writeCollection:self ] - self isLiteral ifTrue: [super storeOnStream:aStream] ifFalse:[aStream writeCollection:self]. ! Item was changed: + ----- Method: Character>>isLiteral (in category 'testing') ----- - ----- Method: Character>>isLiteral (in category 'printing') ----- isLiteral ^true! Item was added: + ----- Method: Character>>shouldBePrintedAsLiteral (in category 'testing') ----- + shouldBePrintedAsLiteral + + ^value between: 33 and: 255! Item was changed: ----- Method: Character>>storeOn: (in category 'printing') ----- storeOn: aStream "Common character literals are preceded by '$', however special need to be encoded differently: for some this might be done by using one of the shortcut constructor methods for the rest we have to create them by ascii-value." | name | + self shouldBePrintedAsLiteral - (value between: 33 and: 255) ifTrue: [ aStream nextPut: $$; nextPut: self ] ifFalse: [ name := self class constantNameFor: self. name notNil ifTrue: [ aStream nextPutAll: self class name; space; nextPutAll: name ] ifFalse: [ aStream nextPut: $(; nextPutAll: self class name; nextPutAll: ' value: '; print: value; nextPut: $) ] ].!

1 0

The Trunk: Kernel-ul.518.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.518.mcz ==================== Summary ==================== Name: Kernel-ul.518 Author: ul Time: 23 November 2010, 1:54:49.317 pm UUID: b098496d-94bb-f943-9cf9-bd07ab3b0b71 Ancestors: Kernel-dtl.517 - introduced Object >> #shouldBePrintedAsLiteral as a replacement for #isLiteral during printing and storing =============== Diff against Kernel-dtl.517 =============== Item was added: + ----- Method: Object>>shouldBePrintedAsLiteral (in category 'testing') ----- + shouldBePrintedAsLiteral + + ^self isLiteral! Item was changed: ----- Method: ScaledDecimal>>storeOn: (in category 'printing') ----- storeOn: aStream "SxaledDecimal sometimes have more digits than they print (potentially an infinity). In this case, do not use printOn: because it would loose some extra digits" + self shouldBePrintedAsLiteral - self isLiteral ifTrue: [self printOn: aStream] ifFalse: [aStream nextPut: $(; store: fraction numerator; nextPut: $/; store: fraction denominator; nextPut: $s; store: scale; nextPut: $)]!

1 0

Daily Commit Log
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-December/003982.h… Name: Morphic-mha.486 Ancestors: Morphic-cmm.485 * introduced dedicated method category for extras menu * added menu rebuild to postscript =============================================

1 0

The Trunk: Morphic-mha.486.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Michael Haupt uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mha.486.mcz ==================== Summary ==================== Name: Morphic-mha.486 Author: mha Time: 8 December 2010, 12:24:42.826 am UUID: e9e7dbd9-2992-4e83-8b9c-5f0011e17644 Ancestors: Morphic-cmm.485 * introduced dedicated method category for extras menu * added menu rebuild to postscript =============== Diff against Morphic-cmm.485 =============== Item was changed: + ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'submenu - extras') ----- - ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'construction') ----- extrasMenuOn: aDockingBar aDockingBar addItem: [ :it| it contents: 'Extras' translated; addSubMenu: [:menu| menu addItem:[:item| item contents: 'Recover Changes' translated; help: 'Recover changes after a crash' translated; icon: MenuIcons smallHelpIcon; target: ChangeList; selector: #browseRecentLog]. menu addLine. menu addItem:[:item| item contents: 'Window Colors' translated; help: 'Changes the window color scheme' translated; addSubMenu:[:submenu| self windowColorsOn: submenu]]. menu addItem:[:item| item contents: 'Set Author Initials' translated; help: 'Sets the author initials' translated; target: Utilities; selector: #setAuthorInitials]. menu addItem:[:item| item contents: 'Restore Display (r)' translated; help: 'Redraws the entire display' translated; target: World; selector: #restoreMorphicDisplay]. menu addItem:[:item| item contents: 'Rebuild Menus' translated; help: 'Rebuilds the menu bar' translated; target: TheWorldMainDockingBar; selector: #updateInstances]. menu addLine. menu addItem:[:item| item contents: 'Start Profiler' translated; help: 'Starts the profiler' translated; target: self; selector: #startMessageTally]. menu addItem:[:item| item contents: 'Collect Garbage' translated; help: 'Run the garbage collector and report space usage' translated; target: Utilities; selector: #garbageCollectAndReport]. menu addItem:[:item| item contents: 'Purge Undo Records' translated; help: 'Save space by removing all the undo information remembered in all projects' translated; target: CommandHistory; selector: #resetAllHistory]. menu addItem:[:item| item contents: 'VM statistics' translated; help: 'Virtual Machine information' translated; target: self; selector: #vmStatistics]. menu addLine. menu addItem:[:item| item contents: 'Graphical Imports' translated; help: 'View the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList' translated; target: (Imports default); selector: #viewImages]. menu addItem:[:item| item contents: 'Standard Graphics Library' translated; help: 'Lets you view and change the system''s standard library of graphics' translated; target: ScriptingSystem; selector: #inspectFormDictionary]. menu addItem:[:item| item contents: 'Annotation Setup' translated; help: 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools' translated; target: Preferences; selector: #editAnnotations]. ] ]! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') ----- helpMenuOn: aDockingBar aDockingBar addItem: [ :it | it contents: 'Help' translated; addSubMenu: [ :menu | 'Todo'. menu addItem:[:item| item contents: 'Online Resources' translated; help: 'Online resources for Squeak' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #showWelcomeText:label:in:; arguments: { #squeakOnlineResources. 'Squeak Online Resources'. (140@140 extent: 560@360) }]. menu addItem:[:item| item contents: 'Keyboard Shortcuts' translated; help: 'Keyboard bindings used in Squeak' translated; target: Utilities; selector: #openCommandKeyHelp ]. menu addItem:[:item| item contents: 'Font Size Summary' translated; help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated; target: TextStyle; selector: #fontSizeSummary ]. menu addItem:[:item| item contents: 'Useful Expressions' translated; help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated; target: Utilities; selector: #openStandardWorkspace ]. menu addLine. menu addItem:[:item| item contents: 'Extending the system' translated; help: 'Includes code snippets to evaluate for extending the system' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #showWelcomeText:label:in:; arguments: { #extendingTheSystem. 'How to extend the system'. (140@140 extent: 560@360) }]. menu addLine. menu addItem:[:item| item contents: 'Welcome Workspaces' translated; help: 'The Welcome Workspaces' translated; addSubMenu:[:submenu| self welcomeWorkspacesOn: submenu]]. (Smalltalk classNamed: #HelpBrowser) ifNotNil: [:classHelpBrowser| menu addLine. menu addItem: [ :item | item contents: 'Terse Guide to Squeak' translated; help: 'concise information about language and environment' translated; target: classHelpBrowser; selector: #openOn:; arguments: { TerseGuideHelp } ]. menu addLine. menu addItem: [ :item | item contents: 'Help Browser' translated; help: 'Integrated Help System' translated; target: classHelpBrowser; selector: #open ] ]. + ]]. + ! - ]].! Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. SystemProgressMorph initialize; reset. TextEditor initialize. + SmalltalkEditor initialize. + TheWorldMainDockingBar updateInstances'! - SmalltalkEditor initialize'!

1 0

problem with OCompletion
by Chris Muller 07 Dec '10

07 Dec '10

Hi, I am trying OCompletion but have stumbled on an apparent problem right away. When I simply press Command+b on a class name in a Smalltalk code editor, I receive the error below. I'm have Ocompletion-ul.87, OcompletionSqueakCompatibility-ul.1 loaded. In fact there are no definitions of ECController>>'editor', so it cannot ever be anything but nil, so this is almost certainly a bug..? Thanks, Chris 6 December 2010 2:22:06.292 pm VM: unix - Smalltalk Image: Squeak4.2alpha [latest update: #10738] UndefinedObject(Object)>>error: Receiver: nil Arguments and temporary variables: aString: 'Instances of UndefinedObject are not indexable' Receiver's instance variables: nil UndefinedObject(Object)>>errorNotIndexable Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil UndefinedObject(Object)>>at:put: Receiver: nil Arguments and temporary variables: index: 1 value: a SmalltalkEditor Receiver's instance variables: nil OController(ECController)>>editor: Receiver: an OController Arguments and temporary variables: theEditor: a SmalltalkEditor Receiver's instance variables: model: a WeakArray(a Workspace) menuMorph: nil editor: nil context: nil oppositeChar: nil caret: nil inverseMapping: nil expanded: nil contextClass: OContext --- The full stack --- UndefinedObject(Object)>>error: UndefinedObject(Object)>>errorNotIndexable UndefinedObject(Object)>>at:put: OController(ECController)>>editor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OController>>handleKeystrokeBefore:editor: TextMorphForEditView(TextMorph)>>keyStroke: TextMorphForEditView>>keyStroke: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess

4 4

Daily Commit Log
by commits＠source.squeak.org 07 Dec '10

07 Dec '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-December/003981.h… Name: Morphic-cmm.485 Ancestors: Morphic-cmm.484 - Allow each MorphicProject to maintain its own docking-bar. - Minor clean-ups of access to the "project-parameter" api.. =============================================

1 0

Re: [squeak-dev] Re: [ANN] Connectors for Squeak 4.2
by Chris Muller 06 Dec '10

06 Dec '10

> Does it have everything from the Connectors 2 that Ned mentions here: <http://bike-nomad.com/squeak/> ? Yes, that is the version this is based off of.

1 0

The Trunk: Morphic-cmm.485.mcz
by commits＠source.squeak.org 06 Dec '10

06 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.485.mcz ==================== Summary ==================== Name: Morphic-cmm.485 Author: cmm Time: 6 December 2010, 3:37:12.45 pm UUID: b112abf5-1ce6-4854-9b01-817977a7ff09 Ancestors: Morphic-cmm.484 - Allow each MorphicProject to maintain its own docking-bar. - Minor clean-ups of access to the "project-parameter" api.. =============== Diff against Morphic-cmm.484 =============== Item was changed: ----- Method: MorphicProject>>cleanseDisabledGlobalFlapIDsList (in category 'flaps support') ----- cleanseDisabledGlobalFlapIDsList "Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them" | disabledFlapIDs currentGlobalIDs oldList | disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new]. currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID]. oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil]. oldList ifNotNil: [disabledFlapIDs := oldList select: [:aFlap | aFlap flapID]]. disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID]. self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs. + self removeParameter: #disabledGlobalFlaps. - projectParameters ifNotNil: - [projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]. ! Item was changed: ----- Method: MorphicProject>>createOrUpdateMainDockingBar (in category 'docking bars support') ----- createOrUpdateMainDockingBar "Private - create a new main docking bar or update the current one" | w mainDockingBars | w := self world. mainDockingBars := w mainDockingBars. mainDockingBars isEmpty ifTrue: ["no docking bar, just create a new one" + self dockingBar createDockingBar openInWorld: w. - TheWorldMainDockingBar instance createDockingBar openInWorld: w. ^ self]. "update if needed" mainDockingBars + do: [:each | self dockingBar updateIfNeeded: each]! - do: [:each | TheWorldMainDockingBar instance updateIfNeeded: each]! Item was added: + ----- Method: MorphicProject>>dockingBar (in category 'docking bars support') ----- + dockingBar + ^ self + projectParameterAt: #dockingBar + ifAbsent: [ TheWorldMainDockingBar instance ]! Item was added: + ----- Method: MorphicProject>>dockingBar: (in category 'docking bars support') ----- + dockingBar: aTheWorldMainDockingBar + self + projectParameterAt: #dockingBar + put: aTheWorldMainDockingBar. + self isCurrentProject ifTrue: [ TheWorldMainDockingBar instance: aTheWorldMainDockingBar ]! Item was changed: ----- Method: MorphicProject>>exportSegmentWithCatagories:classes:fileName:directory: (in category 'file in/out') ----- exportSegmentWithCatagories: catList classes: classList fileName: aFileName directory: aDirectory "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. What do we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder | self flag: #toRemove. self halt. "unused" "world == World ifTrue: [^ false]." "self inform: 'Can''t send the current world out'." world ifNil: [^ false]. world presenter ifNil: [^ false]. Utilities emptyScrapsBook. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ self error: 'Still holding onto Global flaps']. world releaseSqueakPages. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" + revertSeg := self parameterAt: #revertToMe. - revertSeg := self projectParameters at: #revertToMe ifAbsent: [nil]. self projectParameters removeKey: #revertToMe ifAbsent: []. roots := OrderedCollection new. roots add: self; add: world; add: transcript; add: changeSet; add: thumbnail. roots add: world activeHand; addAll: classList; addAll: (classList collect: [:cls | cls class]). roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" catList do: [:sysCat | (SystemOrganization listAtCategoryNamed: sysCat asSymbol) do: [:symb | roots add: (Smalltalk at: symb); add: (Smalltalk at: symb) class]]. is := ImageSegment new copySmartRootsExport: roots asArray. "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)" is state = #tooBig ifTrue: [^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' withCRs]. str isEmpty ifFalse: [ ans := (UIManager default chooseFrom: #('Do not write file' 'Write file anyway' 'Debug') title: str). ans = 1 ifTrue: [ + revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg]. - revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. ^ false]. ans = 3 ifTrue: [self halt: 'Segment not written']]. is writeForExportWithSources: aFileName inDirectory: aDirectory. + revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg]. - revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. holder. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true ! Item was changed: ----- Method: MorphicProject>>exportSegmentWithChangeSet:fileName:directory: (in category 'file in/out') ----- exportSegmentWithChangeSet: aChangeSetOrNil fileName: aFileName directory: aDirectory "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. Whatdo we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder collector fd mgr stacks | "Files out a changeSet first, so that a project can contain its own classes" world ifNil: [^ false]. world presenter ifNil: [^ false]. Utilities emptyScrapsBook. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ self error: 'Still holding onto Global flaps']. world releaseSqueakPages. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" + revertSeg := self parameterAt: #revertToMe. + self removeParameter: #revertToMe. - revertSeg := self projectParameters at: #revertToMe ifAbsent: [nil]. - self projectParameters removeKey: #revertToMe ifAbsent: []. roots := OrderedCollection new. roots add: self; add: world; add: transcript; add: changeSet; add: thumbnail. roots add: world activeHand. "; addAll: classList; addAll: (classList collect: [:cls | cls class])" roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" fd := aDirectory directoryNamed: self resourceDirectoryName. fd assureExistence. "Clean up resource references before writing out" mgr := self resourceManager. self resourceManager: nil. ResourceCollector current: ResourceCollector new. ResourceCollector current localDirectory: fd. ResourceCollector current baseUrl: self resourceUrl. ResourceCollector current initializeFrom: mgr. ProgressNotification signal: '2:findingResources' extra: '(collecting resources...)' translated. "Must activate old world because this is run at #armsLength. Otherwise references to ActiveWorld, ActiveHand, or ActiveEvent will not be captured correctly if referenced from blocks or user code." world becomeActiveDuring:[ is := ImageSegment new copySmartRootsExport: roots asArray. "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)" ]. self resourceManager: mgr. collector := ResourceCollector current. ResourceCollector current: nil. ProgressNotification signal: '2:foundResources' extra: ''. is state = #tooBig ifTrue: [ collector replaceAll. ^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' translated withCRs]. str isEmpty ifFalse: [ ans := UIManager default chooseFrom: { 'Do not write file' translated. 'Write file anyway' translated. 'Debug' translated. } title: str. ans = 1 ifTrue: [ revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. collector replaceAll. ^ false]. ans = 3 ifTrue: [ collector replaceAll. self halt: 'Segment not written' translated]]. stacks := is findStacks. is writeForExportWithSources: aFileName inDirectory: fd changeSet: aChangeSetOrNil. SecurityManager default signFile: aFileName directory: fd. "Compress all files and update check sums" collector forgetObsolete. self storeResourceList: collector in: fd. self storeHtmlPageIn: fd. self storeManifestFileIn: fd. self writeStackText: stacks in: fd registerIn: collector. "local proj.005.myStack.t" self compressFilesIn: fd to: aFileName in: aDirectory resources: collector. "also deletes the resource directory" "Now update everything that we know about" mgr updateResourcesFrom: collector. revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. holder. collector replaceAll. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true !

1 0

Building CogVM on FreeBSD
by Pierce Ng 06 Dec '10

06 Dec '10

Hi, Here's how to build the Cog VM on FreeBSD. First, some numbers. Cog, PharoCore 1.1.1, FreeBSD 7.3: 439108061 bytecodes/sec; 44986622 sends/sec 484848484 bytecodes/sec; 44903004 sends/sec 464609800 bytecodes/sec; 45028548 sends/sec 480300187 bytecodes/sec; 46726917 sends/sec 485768500 bytecodes/sec; 47229357 sends/sec 4.0.3-2202, a slighly older non-compatible Pharo image, same FreeBSD 7.3: 525667351 bytecodes/sec; 15328014 sends/sec 548473486 bytecodes/sec; 14943262 sends/sec 545260915 bytecodes/sec; 14728594 sends/sec 545260915 bytecodes/sec; 14600418 sends/sec 524590163 bytecodes/sec; 14646769 sends/sec Build the VM on a 32bit FreeBSD boxen. - Download the sources: $ svn co http://squeakvm.org/svn/squeak/branches/Cog/platforms $ svn co http://squeakvm.org/svn/squeak/branches/Cog/src $ svn co http://squeakvm.org/svn/squeak/branches/Cog/unixbuild - Apply the following patches from the FreeBSD port of Squeak, found in /usr/ports/lang/squeak/files: patch-platforms__Cross__plugins__Mpeg3Plugin__libmpeg__mpeg3io.h patch-platforms__unix__config__configure patch-platforms__unix__plugins__PseudoTTYPlugin_openpty.h patch-platforms__unix__plugins__SqueakFFIPrims__ffi-config - Apply the following patch to platforms/Cross/plugins/SqueakFFIPrims/sqFFIPlugin.c: --- sqFFIPlugin.c.bak 2010-12-03 23:41:56.000000000 +0800 +++ sqFFIPlugin.c 2010-12-04 14:38:02.000000000 +0800 @@ -10,7 +10,7 @@ *****************************************************************************/ #include <stdio.h> -#if !WIN32 +#if !defined(WIN32 ) && !defined(__FreeBSD__) # include <alloca.h> #endif #include <string.h> - Configure the VM as follows in the 'bld' directory: $ ../../platforms/unix/config/configure \ CFLAGS="-g -O -msse2 -DNDEBUG -DITIMER_HEARTBEAT=1 -DNO_VM_PROFILE=1 -DCOGMTVM=0 -DDEBUGVM=0" \ --without-npsqueak - Build the VM. Voila. HTH.

5 8

Etoys developer chat today
by Bert Freudenberg 06 Dec '10

06 Dec '10

Please join our weekly Etoys developer chat today, as every Monday at 12 noon Squeakland Time. For local time and how to participate, look here: http://etoys.squeak.org/chat/ Logs are also linked from that page. Here's a conversation from last week: http://meeting.sugarlabs.org/etoys/2010-12-02#i_2597465 - Bert - PS: I'll be 10 km above the Atlantic by then but will try to join anyway. I heard Lufthansa has Wifi nowadays ...

1 0

← Newer
1
...
30
31
32
33
34
35
36
37
38
Older →

Jump to page: