I updated it Thanks anyway because this is good to see people pushing some changes from sqeuak to pharo. I'm reimplementing my package class right now. See you later :) Stef On Feb 27, 2010, at 3:17 PM, Miguel Enrique Cobá Martinez wrote:
El sáb, 27-02-2010 a las 09:44 +0100, Stéphane Ducasse escribió:
:)
http://code.google.com/p/pharo/issues/detail?id=2087
:)
:), yes, I was in a hurry and I didn't create a issue, thanks for creating it.
Cheers
On Feb 27, 2010, at 8:29 AM, Miguel Enrique Cobá Martinez wrote:
Maybe we can add this to the cleanUpForRelease script.
Cheers -- Miguel Cobá http://miguel.leugim.com.mx
From: commits@source.squeak.org Date: February 26, 2010 6:38:01 PM GMT+01:00 To: squeak-dev@lists.squeakfoundation.org, packages@lists.squeakfoundation.org Subject: [squeak-dev] The Trunk: Kernel-ar.411.mcz Reply-To: squeak-dev@lists.squeakfoundation.org
Andreas Raab uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ar.411.mcz
==================== Summary ====================
Name: Kernel-ar.411 Author: ar Time: 26 February 2010, 7:36:40.257 pm UUID: b69a28db-8475-bc4b-89ed-285ccf3841cd Ancestors: Kernel-ul.410
Add MethodDictionary class>>compactAllInstances to save space in releases. Compacting all MDs in my images saves 600k in image size which isn't bad at all.
=============== Diff against Kernel-ul.410 ===============
Item was added: + ----- Method: MethodDictionary class>>compactAllInstances (in category 'initialization') ----- + compactAllInstances "MethodDictionary compactAllInstances" + "Compacts all MethodDictionaries to save space" + + | oldInstances newInstances | + oldInstances := self allInstances. + newInstances := oldInstances collect:[:md| + (self new: md size) + compactCopyFrom: md; + yourself]. + oldInstances elementsForwardIdentityTo: newInstances. + !
Item was added: + ----- Method: MethodDictionary>>compactCopyFrom: (in category 'private') ----- + compactCopyFrom: sourceMD + "Copy the contents of source dictionary without growing" + + sourceMD keysAndValuesDo:[:key :value| | index | + index := self scanFor: key. + (self basicAt: index) ifNotNil:[self error: 'Something is horribly broken']. + self basicAt: index put: key. + array at: index put: value. + tally := tally + 1. + ]. + self size = self capacity ifTrue:[self grow]. "grow only if we reach capacity" + !
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
-- Miguel Cobá http://miguel.leugim.com.mx
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project