Squeak-dev June 2014

squeak-dev@lists.squeakfoundation.org

41 participants
191 discussions

The Inbox: Morphic-kfr.724.mcz
by commits＠source.squeak.org 28 Jun '14

28 Jun '14

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-kfr.724.mcz ==================== Summary ==================== Name: Morphic-kfr.724 Author: kfr Time: 28 June 2014, 1:46:47.335 pm UUID: ff507c56-3511-b446-abab-3e0c573e43c7 Ancestors: Morphic-kfr.723 Add convenience menu options for SketchMorph: encode graphics to a Workspace so graphics can be added in methods and a option to add graphics to Standard Graphics Library =============== Diff against Morphic-kfr.723 =============== Item was changed: ----- Method: SketchMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph "Add custom menu items" super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu add: 'restore base graphic' translated target: self action: #restoreBaseGraphicFromMenu. aCustomMenu add: 'call this my base graphic' translated target: self action: #callThisBaseGraphic. aCustomMenu add: 'choose new graphic...' translated target: self action: #chooseNewGraphic. aCustomMenu addLine. aCustomMenu add: 'set as background' translated target: rotatedForm action: #setAsBackground. + aCustomMenu add: 'add to StandardGraphicsLibrary' translated action: #addToStandardGraphicsLibrary. + aCustomMenu add: 'encode To Workspace' translated action: #encodeToWorkspace. self addPaintingItemsTo: aCustomMenu hand: aHandMorph! Item was added: + ----- Method: SketchMorph>>addToStandardGraphicsLibrary (in category 'menu') ----- + addToStandardGraphicsLibrary + | aName | + aName := FillInTheBlankMorph + request: 'Picture name ?' + initialAnswer: self name. + ScriptingSystem saveForm: rotatedForm atKey: aName + ! Item was added: + ----- Method: SketchMorph>>encodeToWorkspace (in category 'menu') ----- + encodeToWorkspace + | stream encodedStream text | + stream := RWBinaryOrTextStream on: String new. + PNGReadWriter putForm: rotatedForm onStream: stream. + encodedStream := stream contents asByteArray base64Encoded. + text := Workspace open model. + text contents: 'Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: ''' , encodedStream , ''' readStream)'!

1 0

The Inbox: MorphicExtras-kfr.148.mcz
by commits＠source.squeak.org 28 Jun '14

28 Jun '14

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.148.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.148 Author: kfr Time: 28 June 2014, 1:44:10.323 pm UUID: 5281164b-1be4-434c-99ac-d48214dcd109 Ancestors: MorphicExtras-tpr.147 Add convenience method for graphics in Standard Graphics Library: encode graphics to a Workspace so graphics can be added in methods. =============== Diff against MorphicExtras-tpr.147 =============== Item was added: + ----- Method: GraphicalDictionaryMenu>>encodeToWorkspace (in category 'menu commands') ----- + encodeToWorkspace + | stream encodedStream pict text | + pict := formChoices at: currentIndex. + stream := RWBinaryOrTextStream on: (String new). + PNGReadWriter putForm: pict onStream: stream. + encodedStream := stream contents asByteArray base64Encoded. + text := (Workspace open) model. + text contents: 'Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: ''', encodedStream,''' readStream)'! Item was changed: ----- Method: GraphicalDictionaryMenu>>showMenu (in category 'menu commands') ----- showMenu "Show the receiver's menu" | aMenu | aMenu := MenuMorph new defaultTarget: self. aMenu title: 'Graphics Library'. aMenu addStayUpItem. aMenu addList: #( ('remove' removeEntry 'Remove this entry from the dictionary') ('rename' renameEntry 'Rename this entry') ('repaint' repaintEntry 'Edit the actual graphic for this entry' ) - ('hand me one' handMeOne 'Hand me a morph with this picture as its form') + ('encode to Workspace' encodeToWorkspace 'Open a Workspace with the grapics encoded to be added to code') ('browse symbol references' browseIconReferences 'Browse methods that refer to this icon''s name') ('browse string references' browseStringIconReferences 'Browse methods that refer to string constants that contain this icon''s name') ('copy name' copyName 'Copy the name of this graphic to the clipboard') - ('find...' findEntry 'Find an entry by name') ('find again' findAgain 'Find the next match for the keyword previously searched for')). aMenu popUpInWorld !

1 0

Daily Commit Log
by commits＠source.squeak.org 28 Jun '14

28 Jun '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-June/007083.html Name: Collections.spur-ul.564 Ancestors: Collections-ul.564 Collections-ul.564 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Make sure that Array >> #isLiteral won't get into an infinite recursion, even if the receiver has an recursive structure. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007084.html Name: Collections.spur-topa.565 Ancestors: Collections-topa.565 Collections-topa.565 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 When a stream is created on a collection, it tries to keep using that collection instead of copying, even in the case of mutation of the original collection. The code removed prevented this. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007085.html Name: Collections.spur-nice.566 Ancestors: Collections-nice.566 Collections-nice.566 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Let NullStream understand protocol for Character writing. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007086.html Name: Collections.spur-eem.567 Ancestors: Collections-eem.567 Collections-eem.567 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix ([Read|Write]Stream on:...from:...to:...) contents. The old code would always copy from 1 to the end, not from whatever the from: argument was. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007087.html Name: Collections.spur-dtl.568 Ancestors: Collections-dtl.568 Collections-dtl.568 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Add a flush to WriteStream>>nextChunkPut: This is a workaround for a bug in the runtime library of some versions of Ubuntu. The symptom is that creation of a class comment for a class that previously had no comment leads to a file size error in the new RemoteStream that points to the class comment. Actual file size and contents of the changes file are not affected by this bug, and the error occurs when reading contents of the changes file immediately following the initial save, Flushing the stream after writing a chunk to the changes file prevents the problem. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007088.html Name: Collections.spur-nice.569 Ancestors: Collections-nice.569 Collections-nice.569 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Add NullStream>>ensureCr ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007089.html Name: Collections.spur-nice.570 Ancestors: Collections-nice.570 Collections-nice.570 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Let's optimize a bit LinkedList>>at:ifAbsent: by scanning the list only once, unlike super. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007090.html Name: Collections.spur-eem.571 Ancestors: Collections-eem.571 Collections-eem.571 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Speed up testing different sized strings for equality by adding a size text to String>>#=. Tis speeds up e.g. comparing the first 10,000 ByteString instances to each other by -67%. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007091.html Name: Collections.spur-nice.572 Ancestors: Collections-nice.572 Collections-nice.572 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Let asUppercase and asLowercase use the unicode tables for wide strings/characters. Care is also taken to correctly handle characters with east asian encoding, but I'm not sure how healthy is this support in trunk... Remove Character>>basicSqueakToIso which is totally obsolete (does not the right thing) and is not sent. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007092.html Name: Kernel.spur-cmm.835 Ancestors: Kernel-cmm.835 Kernel-cmm.835 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 - Why is FileStream class>>#stderr primitive failing when asked for its #size? ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007093.html Name: Kernel.spur-dtl.836 Ancestors: Kernel-dtl.836 Kernel-dtl.836 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Do not allow either basicNew: or basicNew for CompiledMethods because CompiledMethods may only be created with newMethod:header: (otherwise a VM crash may result). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007094.html Name: Kernel.spur-nice.838 Ancestors: Kernel-nice.838 Kernel-nice.838 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Don't let 0.1s1 // 0.1s1 engage an infinite loop when super would just do it right. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007095.html Name: Kernel.spur-nice.839 Ancestors: Kernel-nice.839 Kernel-nice.839 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 For conformance to IEEE 754-2008 (IEC 60559-2011), the sucessor of Float fmin negated is now a negativeZero. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007096.html Name: Kernel.spur-cwp.840 Ancestors: Kernel-cwp.840 Kernel-cwp.840 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Rename EnvironmentRequest to CurrentEnvironment. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007097.html Name: Kernel.spur-nice.837 Ancestors: Kernel-nice.837 Kernel-nice.837 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Allow uppercase exponents in ExtendedNumberParser ('1.00E-2' asNumber) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007098.html Name: Kernel.spur-nice.840 Ancestors: Kernel-nice.840 Kernel-nice.840 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Correct a comment: integerPart is the integer part, not the fractional part. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007099.html Name: Kernel.spur-nice.841 Ancestors: Kernel-nice.841 Kernel-nice.841 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Provide a somehow slower, but correct version of Integer>>#nthRoot: w.r.t. exactness ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007100.html Name: Kernel.spur-nice.842 Ancestors: Kernel-nice.842 Kernel-nice.842 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Avoid using #reciprocalFloorLog: #reciprocalFloorLog: does the same as #floorLog: just with more noise. Once upon a time it was required, but it is not anymore and should be deprecated. Note that floorLog: already cumulates 3 rounding errors via (self ln / base ln) (-1 to: (Float fminDenormalized floorLog: 10) + 1 by: -1) count: [:i | | pow | pow := 10 raisedTo: i. (pow asFloat floorLog: 10) < i and: [pow asFloat >= pow]]. 89 But reciprocalFloorLog: is even worse: (-1 to: (Float fminDenormalized floorLog: 10) + 1 by: -1) count: [:i | | pow | pow := 10 raisedTo: i. (pow asFloat reciprocalFloorLog: 10) < i and: [pow asFloat >= pow]]. 149 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007101.html Name: Kernel.spur-nice.843 Ancestors: Kernel-nice.843 Kernel-nice.843 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Correct the bug I introduced for large integer sqrtFloor. If receiver was of the form 2^2n*u we did answer 2^n *E(sqrt(u)) But sqrt(u) = E(sqrt(u)) + residue where 0<=residue<1 And result is rather E(2^n*sqrt(u)) = E( 2^n*(E(sqrt(u)) + residue)) = 2^n*E(sqrt(u)) + E(2^n*residue) As 2^n * residue can be big (superior to 1), we miss the correct value by default. If we want to correct this, an approximation of residue is (u-E(sqrt(u))^2) / 2 E(sqrt(u)) This is more or less like super Newton-Raphson inner loop... It would be possible to duplicate super work, but I feel like it's adding too much complexity for small reward, so I prefer to remove offending code for now ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007102.html Name: Kernel.spur-cwp.844 Ancestors: Kernel-cwp.844 Kernel-cwp.844 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 merge ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007103.html Name: Kernel.spur-cmm.845 Ancestors: Kernel-cmm.845 Kernel-cmm.845 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 - #flush after printing error information, and before image immediately exits, otherwise it won't always get written. - Add accessor for #negativeInfinity so I don't have to create new Float via Float infinity negated when all I want to do is compare. - #asBytesDescription for Float too because this is a very useful printing method for even things other than byte counts (and we should think of a better name for it too). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007104.html Name: Kernel.spur-eem.846 Ancestors: Kernel-eem.846 Kernel-eem.846 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix whichMethodsStoreInto: for pool variables. Any kind soul who wants to do the same for whichSelectorsStoreInto: et al is encouraged to do so. The test case is looking for reads or writes of a pool variable. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007105.html Name: Kernel.spur-eem.847 Ancestors: Kernel-eem.847 Kernel-eem.847 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix class reshaping losing the correct methodClassAssociation in instance side methods. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007106.html Name: Kernel.spur-nice.848 Ancestors: Kernel-nice.848 Kernel-nice.848 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Now that there is a direct access to Float negativeInfinity, use it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007107.html Name: Kernel.spur-nice.849 Ancestors: Kernel-nice.849 Kernel-nice.849 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 (Issue http://bugs.squeak.org/view.php?id=7755) Note that if other letters follow the s, then s is not interpreted as a scale, because it could be a message. For example, (25sin) is interpreted as (25 sin) like in Pharo rather than (25s0 in) like in VW. This way, the chances of ambiguous interpretation of existing code base is limited to the sole message #s. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007108.html Name: Kernel.spur-dtl.850 Ancestors: Kernel-dtl.850 Kernel-dtl.850 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Provide DateAndTme>>floor so that ObjectHistoryMark does not need to use instVarAt:put: to obtain a time stamp with whole seconds. This protects for future changes to DateAndTime that may not rely on an instance variable named #nanos. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007109.html Name: Kernel.spur-eem.851 Ancestors: Kernel-eem.851 Kernel-eem.851 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 First part of Kernel multiple bytecode sets switchover. Make sure CompiledMethod>>ncoderClass works as expected before depening on it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007110.html Name: Kernel.spur-eem.852 Ancestors: Kernel-eem.852 Kernel-eem.852 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Change scanning methods in InstructionStream and CompiledMethod to double-dispatch through CompiledMethod>>#encoderClass to provide pluggable multiple bytecode set support. The sign of a method's header chooses which of two bytecode sets are in effect, choosing between PrimaryBytecodeSetEncoderClass (header >= 0), and SecondaryBytecodeSetEncoderClass (header <= 0). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007111.html Name: Kernel.spur-eem.854 Ancestors: Kernel-eem.854 Kernel-eem.854 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix the regression caused by Kernel-eem.847. Instead of installing teh correct binding in compileAllFrom: add behavior>>updateMethodBindingsTo: and invoke it from ClassBuilder>>update:to:. This restores the failing PureBehaviorTests>>testReshapeClass. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007112.html Name: Kernel.spur-cmm.855 Ancestors: Kernel-cmm.855 Kernel-cmm.855 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 - A simple fix for an 8X performance improvement in DateAndTime>>#< as reported by LXTestDateAndTimePerformance. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007113.html Name: Kernel.spur-nice.853 Ancestors: Kernel-nice.853 Kernel-nice.853 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Introduce an isAnExactFloat test, which is true when a Number can be converted as Float exactly. Use this to boost some mixed arithmetic comparisons by avoidance of Float>>asTrueFraction in more cases. Use this to make Fraction>>hash more explicit. While at it, improve a bit the Fraction>>hash in inexact case (previous naive bitXor: causes too many collisions) Since some hash has been modified, rehashAll in postscript. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007114.html Name: Kernel.spur-dtl.856 Ancestors: Kernel-dtl.856 Kernel-dtl.856 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix inconsistent image state as reported on squeak-dev: Date: Wed, 11 Jun 2014 23:44:42 -0400 From: Florin Mateoc To: The general-purpose Squeak developers list Subject: [squeak-dev] Class subclasses I think this is an old bug, presumably since ProtoObject was introduced (and presumably because ObjectTracer was used in the process). If you ask Class for its subclasses (or if you inspect it) you see that ObjectTracer class is listed along with ProtoObject class, although ObjectTracer's superclass is ProtoObject. This can lead to some funny bugs if you try to write some hierarchy traversing code. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007115.html Name: Kernel.spur-eem.857 Ancestors: Kernel-eem.857 Kernel-eem.857 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Make the debuggber process faithful. "Process>>effectiveProcess is a mechanism to allow process- faithful debugging. The debugger executes code on behalf of processes, so unless some effort is made the identity of Processor activeProcess is not correctly maintained when debugging code. The debugger uses evaluate:onBehalfOf: to assign the debugged process as the effectiveProcess of the process executing the code, preserving process identity." ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007116.html Name: System.spur-dtl.666 Ancestors: System-dtl.666 System-dtl.666 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Sending basicNew to CompiledMethod may crash the VM, so don't do that. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007117.html Name: System.spur-cmm.667 Ancestors: System-cmm.667 System-cmm.667 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 - Added method to get a valid MethodReference from a stale, invalid one. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007118.html Name: System.spur-cmm.668 Ancestors: System-cmm.668 System-cmm.668 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 - Fix to SmalltalkImage>>#sourcesName allows appending the changes to the sources file (via Levente's SmalltalkImage>>#appendChangesTo:) to work. - Added #moveChanges as this should become a normal part of the release process. - Some categorizations. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007119.html Name: System.spur-cmm.669 Ancestors: System-cmm.669 System-cmm.669 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 #moveChanges should prompt for the name of the condensed sources. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007120.html Name: System.spur-cwp.670 Ancestors: System-cwp.670 System-cwp.670 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Rename EnvironmentRequest to CurrentEnvironment, use the new "Environment current" mechanism where appropriate. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007121.html Name: System.spur-eem.671 Ancestors: System-eem.671 System-eem.671 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix allStoresInto:from: for pool variables and hence fix browsing assignments... to a pool variable in classes that use the pool. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007122.html Name: System.spur-dtl.672 Ancestors: System-dtl.672 System-dtl.672 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Provide DateAndTme>>floor so that ObjectHistoryMark does not need to use instVarAt:put: to obtain a time stamp with whole seconds. This protects for future changes to DateAndTime that may not rely on an instance variable named #nanos. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-June/007123.html Name: Morphic-eem.726 Ancestors: Morphic-cmm.725 Open a SystemReporter in response to the About Squeak... menu pick. =============================================

1 0

The Trunk: Morphic-eem.726.mcz
by commits＠source.squeak.org 28 Jun '14

28 Jun '14

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.726.mcz ==================== Summary ==================== Name: Morphic-eem.726 Author: eem Time: 27 June 2014, 3:46:59.938 pm UUID: 7d5e6372-d581-4e1b-987c-9a7edd1e0d06 Ancestors: Morphic-cmm.725 Open a SystemReporter in response to the About Squeak... menu pick. =============== Diff against Morphic-cmm.725 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>aboutSqueak (in category 'menu actions') ----- aboutSqueak + false + ifTrue: + [UserDialogBoxMorph + inform: Smalltalk systemInformationString withCRs + title: 'About Squeak...' translated + at: World center] + ifFalse: + [| m | + m := SystemReporter open. + m label: 'About Squeak...' translated. + m setConstrainedPosition: World center - (m bounds extent / 2) + hangOut: false]! - UserDialogBoxMorph - inform: Smalltalk systemInformationString withCRs - title: 'About Squeak:' - at: World center. - !

1 0

SMServer beta update
by Chris Cunnington 27 Jun '14

27 Jun '14

http://oopfile.com I've added category fields to the Edit Info forms linked from the package and release pages. The bulk of the links you'll otherwise see do not work yet. I've uncommented them in an effort to remind myself of things I need to do. Chris

1 0

My first ride with Spur
by Chris Muller 27 Jun '14

27 Jun '14

Hi Eliot, I tried out your new 4.0-3018 today and wanted to report my experience. A litmus test whether I can bring it into my dev environment is if the Magma suit can pass. If it can't, I can't use it heavily yet. I started with your converted trunk46-spur.image and loaded Magma. Something strange happened while loading, LanguageEnvironment class>>#localeID: got into an infinite recursion because the KnownEnvironments dictionary (class-var) got a bunch of new entries into it, but left needing to be rehashed. I don't know if this is something related to the trunk46-spur image or something else. At any rate, I was able to get past it by changing that method to rehash the knownEnvironment dictionary before recursing, thusly: ^ self knownEnvironments at: localeID ifAbsent: [ self knownEnvironments rehash. "<--- added this" self localeID: (LocaleID isoLanguage: 'en') ] After witnessing a glimpse of what appeared to be _exhilerating_ performance for the load, running the test suite got about 20% through before one of the client images crashed. I began the process of inserting halt and restarting the suite to see if I could zero in on a specific operation but then it crashed slightly earlier. Okay, halt just before there -- stepping through, everything looking fine, about to do a commit. Boom. There is a lot to the commit process but before trying to debug it further, I'd like to at least say, the ".log" file of the client that crashed is reporting the crash originating out of exactly the same area that original Cog was crashing many moons ago (but which you have had fixed some time ago and never saw it at all in 2776). I backed off to a much simpler test suite, the MaObjectSerializer suite. It passed. _Blazing_ fast too. Awesome stuff, can't wait..

1 0

Re: [squeak-dev] The Trunk: SystemReporter-dtl.23.mcz
by Eliot Miranda 27 Jun '14

27 Jun '14

Thanks David! does the report look OK on the Interpreter VMs? On Thu, Jun 26, 2014 at 4:07 PM, <commits(a)source.squeak.org> wrote: > David T. Lewis uploaded a new version of SystemReporter to project The > Trunk: > http://source.squeak.org/trunk/SystemReporter-dtl.23.mcz > > ==================== Summary ==================== > > Name: SystemReporter-dtl.23 > Author: dtl > Time: 26 June 2014, 7:07:41.163 pm > UUID: 1becec2c-9df2-43f8-b6f3-374d5d490000 > Ancestors: SystemReporter-eem.22 > > Fix missing ifFalse: for isCog in VM parameters > > =============== Diff against SystemReporter-eem.22 =============== > > Item was changed: > ----- Method: SystemReporter>>reportVMParameters: (in category > 'reporting') ----- > reportVMParameters: aStream > | vmParameters isCog isSpur | > self header: 'Virtual Machine Parameters' on: aStream. > vmParameters := Smalltalk vm getVMParameters. > isCog := (vmParameters at: 41 ifAbsent: [0]) anyMask: 1. > "determine Cog/Stack via bit 0, requires native float order." > isSpur := isCog and: [(vmParameters at: 41 ifAbsent: [0]) anyMask: > 2r10000]. "bit 16 is the Spur bit" > (isSpur > ifFalse: > [#( 1 'size of old space' > 2 'size of young+old space' > 3 'size of memory')] > ifTrue: > [#( 1 'size of old space' > 2 'size of new space' > 3 'size of heap')]), > (isSpur > ifFalse: > [#( 4 'allocationCount' > 5 'allocations between GCs' > 6 'survivor count tenuring > threshold')] > ifTrue: [#()]), > #( 7 'full GCs since startup' > 8 'total milliseconds in full GCs since startup'), > (isSpur > ifFalse: [#( 9 'incremental GCs since startup' > 10 'total milliseconds in > incremental GCs since startup')] > ifTrue: [#( 9 'scavenging GCs since startup' > 10 'total milliseconds in > scavenging GCs since startup')]), > #( 11 'tenures of surving objects since startup'), > (isCog > ifFalse: > [#( 12 'specific to the translating VM' > 13 'specific to the translating VM' > 14 'specific to the translating VM' > 15 'specific to the translating VM' > 16 'specific to the translating VM' > 17 'specific to the translating VM' > 18 'specific to the translating VM' > 19 'specific to the translating VM' > 20 'specific to the translating VM')] > ifTrue: > [{12 to: 20. 'specific to the translating VM'}]), > #( 21 'root table size' > 22 'root table overflows since startup' > 23 'bytes of extra memory to reserve for VM buffers, > plugins, etc.' > 24 'memory threshold above which shrinking object > memory' > 25 'memory headroom when growing object memory'), > (isCog > ifFalse: > [#( 26 'interruptChecksEveryNms - force an > ioProcessEvents every N milliseconds, in case the image is not calling > getNextEvent often')] > ifTrue: > [#( 26 'heartbeat period (ms)')]), > (isSpur > ifFalse: > [#( 27 'number of times mark loop > iterated for current IGC/FGC includes ALL marking' > 28 'number of times sweep loop > iterated for current IGC/FGC' > 29 'number of times make forward loop > iterated for current IGC/FGC' > 30 'number of times compact move loop > iterated for current IGC/FGC')] > ifTrue: [#()]), > #( 31 'number of grow memory requests' > 32 'number of shrink memory requests'), > (isSpur > ifFalse: > [#( 33 'number of root table entries used > for current IGC/FGC' > 34 'number of allocations done before > current IGC/FGC' > 35 'number of survivor objects after > current IGC/FGC' > 36 'millisecond clock when current > IGC/FGC completed' > 37 'number of marked objects for Roots of > the world, not including Root Table entries for current IGC/FGC' > 38 'milliseconds taken by current IGC ' > 39 'Number of finalization signals for > Weak Objects pending when current IGC/FGC completed')] > ifTrue: > [#( 36 'millisecond clock when current > SGC/FGC completed' > 38 'milliseconds taken by current SGC ' > 39 'Number of finalization signals for > Weak Objects pending when current SGC/FGC completed')]), > #( 40 'VM word size - 4 or 8'), > + (isCog > + ifTrue: > + [#( > + 41 'imageFormatVersion for the VM' > + 42 'number of stack pages in use' > + 43 'desired number of stack pages > (stored in image file header, max 65535)' > + 44 'size of eden, in bytes' > + 45 'desired size of eden, in bytes > (stored in image file header)' > + 46 'machine code zone size, in bytes' > + 47 'desired machine code zone size (0 > => default 1Mb)' > + 48 'various header flags. See > getCogVMFlags.' > + 49 'max size the image promises to > grow the external semaphore table to'), > + (isSpur > + ifFalse: > + [{ 50 to: 54. 'reserved > for VM parameters that persist in the image (such as size of eden above)'. > + 55 to: 56. 'specific > to Spur' }] > + ifTrue: > + [{ 50 to: 53. 'reserved > for VM parameters that persist in the image (such as size of eden above)' }, > + #( 54 > 'total free old space' > + 55 > 'ratio of growth and image size at or above which a GC will be performed > post scavenge')]), > + #( 56 'number of process switches since > startup' > + 57 'number of ioProcessEvents calls > since startup' > + 58 'number of forceInterruptCheck > calls since startup' > + 59 'number of check event calls since > startup' > + 60 'number of stack page overflows > since startup' > + 61 'number of stack page divorces > since startup' > + 62 'compiled code compactions since > startup' > + 63 'total milliseconds in compiled > code compactions since startup' > + 64 'the number of methods that > currently have jitted machine-code' > + 65 'whether the VM supports > MULTIPLE_BYTECODE_SETS or not.' > + 66 'the byte size of a stack page'), > + { 67 to: 69. 'reserved for more > Cog-related info' }, > + #( 70 'the vmProxyMajorVersion (the > interpreterProxy VM_MAJOR_VERSION)' > + 71 'the vmProxyMinorVersion (the > interpreterProxy VM_MINOR_VERSION)')] > + ifFalse: > + [#()]) > - (isCog ifTrue: > - [#( > - 41 'imageFormatVersion for the VM' > - 42 'number of stack pages in use' > - 43 'desired number of stack pages (stored in > image file header, max 65535)' > - 44 'size of eden, in bytes' > - 45 'desired size of eden, in bytes (stored in > image file header)' > - 46 'machine code zone size, in bytes' > - 47 'desired machine code zone size (0 => > default 1Mb)' > - 48 'various header flags. See getCogVMFlags.' > - 49 'max size the image promises to grow the > external semaphore table to'), > - (isSpur > - ifFalse: > - [{ 50 to: 54. 'reserved for VM > parameters that persist in the image (such as size of eden above)'. > - 55 to: 56. 'specific to Spur' > }] > - ifTrue: > - [{ 50 to: 53. 'reserved for VM > parameters that persist in the image (such as size of eden above)' }, > - #( 54 'total > free old space' > - 55 'ratio of > growth and image size at or above which a GC will be performed post > scavenge')]), > - #( 56 'number of process switches since startup' > - 57 'number of ioProcessEvents calls since > startup' > - 58 'number of forceInterruptCheck calls since > startup' > - 59 'number of check event calls since startup' > - 60 'number of stack page overflows since > startup' > - 61 'number of stack page divorces since > startup' > - 62 'compiled code compactions since startup' > - 63 'total milliseconds in compiled code > compactions since startup' > - 64 'the number of methods that currently have > jitted machine-code' > - 65 'whether the VM supports > MULTIPLE_BYTECODE_SETS or not.' > - 66 'the byte size of a stack page'), > - { 67 to: 69. 'reserved for more Cog-related > info' }, > - #( 70 'the vmProxyMajorVersion (the > interpreterProxy VM_MAJOR_VERSION)' > - 71 'the vmProxyMinorVersion (the > interpreterProxy VM_MINOR_VERSION)')]) > pairsDo: [:idx :desc | | value values | > aStream nextPut: $#. > idx isInteger > ifTrue: > [value := vmParameters at: idx. > aStream print: idx; tab; nextPutAll: > ((value isInteger and: [idx ~= 41]) ifTrue: [value asStringWithCommas] > ifFalse: [value printString])] > ifFalse: > [value := vmParameters at: idx first. > aStream print: idx first; next: 2 put: > $.; print: idx last; tab. > values := idx collect: [:i| vmParameters > at: i]. > values asSet size = 1 > ifTrue: [aStream print: value] > ifFalse: [values do: [:v| aStream > print: v] separatedBy: [aStream nextPutAll: ', ']]]. > aStream tab; nextPutAll: desc; cr]! > > > -- best, Eliot

2 1

Re: [squeak-dev] The Trunk: Collections.spur-ul.564.mcz
by Eliot Miranda 27 Jun '14

27 Jun '14

there are going to be 40 of these. apologies for the noise. On Thu, Jun 26, 2014 at 5:29 PM, <commits(a)source.squeak.org> wrote: > Eliot Miranda uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections.spur-ul.564.mcz > > ==================== Summary ==================== > > Name: Collections.spur-ul.564 > Author: eem > Time: 26 June 2014, 5:26:28.553 pm > UUID: 0d182cd3-aa3a-4362-b954-e7ba46f46da1 > Ancestors: Collections-ul.564 > > Collections-ul.564 patched for Spur by > SpurBootstrapMonticelloPackagePatcher Cog-eem.160 > > Make sure that Array >> #isLiteral won't get into an infinite recursion, > even if the receiver has an recursive structure. > > =============== Diff against Collections-ul.564 =============== > > Item was changed: > ==== ERROR === > > Error: Unrecognized class type > > 27 June 2014 12:30:16.398 am > > VM: unix - a SmalltalkImage > Image: Squeak3.11alpha [latest update: #8824] > > SecurityManager state: > Restricted: false > FileAccess: true > SocketAccess: true > Working Dir /home/squeaksource > Trusted Dir /home/squeaksource/secure > Untrusted Dir /home/squeaksource/My Squeak > > MCClassDefinition(Object)>>error: > Receiver: a MCClassDefinition(Character) > Arguments and temporary variables: > aString: 'Unrecognized class type' > Receiver's instance variables: > name: #Character > superclassName: #Magnitude > variables: an OrderedCollection(a > MCClassVariableDefinition(CharacterTable) a M...etc... > category: #'Collections-Strings' > type: #immediate > comment: 'I represent a character by storing its > associated Unicode. The first ...etc... > commentStamp: 'ar 4/9/2005 22:35' > traitComposition: nil > classTraitComposition: nil > > MCClassDefinition>>kindOfSubclass > Receiver: a MCClassDefinition(Character) > Arguments and temporary variables: > > Receiver's instance variables: > name: #Character > superclassName: #Magnitude > variables: an OrderedCollection(a > MCClassVariableDefinition(CharacterTable) a M...etc... > category: #'Collections-Strings' > type: #immediate > comment: 'I represent a character by storing its > associated Unicode. The first ...etc... > commentStamp: 'ar 4/9/2005 22:35' > traitComposition: nil > classTraitComposition: nil > > MCClassDefinition>>printDefinitionOn: > Receiver: a MCClassDefinition(Character) > Arguments and temporary variables: > stream: a WriteStream > Receiver's instance variables: > name: #Character > superclassName: #Magnitude > variables: an OrderedCollection(a > MCClassVariableDefinition(CharacterTable) a M...etc... > category: #'Collections-Strings' > type: #immediate > comment: 'I represent a character by storing its > associated Unicode. The first ...etc... > commentStamp: 'ar 4/9/2005 22:35' > traitComposition: nil > classTraitComposition: nil > > [] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: > Receiver: a MCDiffyTextWriter > Arguments and temporary variables: > definition: a WriteStream > s: a MCClassDefinition(Character) > Receiver's instance variables: > stream: a WriteStream > initStream: nil > > > --- The full stack --- > MCClassDefinition(Object)>>error: > MCClassDefinition>>kindOfSubclass > MCClassDefinition>>printDefinitionOn: > [] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: > - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - > String class(SequenceableCollection class)>>new:streamContents: > String class(SequenceableCollection class)>>streamContents: > MCDiffyTextWriter(MCTextWriter)>>chunkContents: > MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: > MCDiffyTextWriter(MCStWriter)>>visitClassDefinition: > MCClassDefinition>>accept: > [] in MCDiffyTextWriter(MCTextWriter)>>visitInFork: > String class(SequenceableCollection class)>>new:streamContents: > String class(SequenceableCollection class)>>streamContents: > MCDiffyTextWriter(MCTextWriter)>>visitInFork: > MCDiffyTextWriter>>writePatchFrom:to: > MCDiffyTextWriter>>writeModification: > [] in MCDiffyTextWriter>>writePatch: > SortedCollection(OrderedCollection)>>do: > MCDiffyTextWriter>>writePatch: > SSDiffyTextWriter>>writePatch: > [] in SSDiffyTextWriter>>writeVersion:for: > BlockClosure>>on:do: > SSDiffyTextWriter>>writeVersion:for: > [] in SSEMailSubscription>>versionAdded:to: > BlockClosure>>on:do: > SSEMailSubscription>>versionAdded:to: > [] in [] in SSProject>>versionAdded: > [] in BlockClosure>>newProcess > > -- best, Eliot

2 2

The Trunk: System.spur-dtl.672.mcz
by commits＠source.squeak.org 27 Jun '14

27 Jun '14

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System.spur-dtl.672.mcz ==================== Summary ==================== Name: System.spur-dtl.672 Author: eem Time: 26 June 2014, 5:29:00.917 pm UUID: d844b99d-9d06-45b8-8103-50365ae4543d Ancestors: System-dtl.672 System-dtl.672 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Provide DateAndTme>>floor so that ObjectHistoryMark does not need to use instVarAt:put: to obtain a time stamp with whole seconds. This protects for future changes to DateAndTime that may not rely on an instance variable named #nanos. =============== Diff against System-dtl.672 =============== Item was changed: ----- Method: SmalltalkImage>>compactClassesArray (in category 'special objects') ----- compactClassesArray "Smalltalk compactClassesArray" + "Backward-compatibility support. Spur does not have compact classes." + ^{}! - "Return the array of 31 classes whose instances may be - represented compactly" - ^ self specialObjectsArray at: 29! Item was added: + ----- Method: SmalltalkImage>>growMemoryByAtLeast: (in category 'as yet unclassified') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Essential. Fail if no memory is available." + <primitive: 180> + (numBytes isInteger and: [numBytes > 0]) ifTrue: + [OutOfMemory signal]. + ^self primitiveFailed! Item was added: + ----- Method: SmalltalkImage>>maxIdentityHash (in category 'as yet unclassified') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>setGCParameters (in category 'snapshot and quit') ----- setGCParameters + "Adjust the VM's default GC parameters to avoid too much tenuring. + Maybe this should be left to the VM?" - "Adjust the VM's default GC parameters to avoid premature tenuring." + | proportion edenSize survivorSize averageObjectSize numObjects | + proportion := 0.9. "tenure when 90% of pastSpace is full" + edenSize := SmalltalkImage current vmParameterAt: 44. + survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" + averageObjectSize := 8 * self wordSize. "a good approximation" + numObjects := (proportion * survivorSize / averageObjectSize) rounded. + SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"! - self vmParameterAt: 5 put: 4000. "do an incremental GC after this many allocations" - self vmParameterAt: 6 put: 2000. "tenure when more than this many objects survive the GC" - ! Item was changed: ----- Method: SpaceTally>>spaceForInstancesOf: (in category 'instance size') ----- spaceForInstancesOf: aClass + "Answer a pair of the number of bytes consumed by all instances of the + given class, including their object headers, and the number of instances." - "Answer the number of bytes consumed by all instances of the given class, including their object headers and the number of instances." + | instances total | + instances := aClass allInstances. + instances isEmpty ifTrue: [^#(0 0)]. - | smallHeaderSize instVarBytes isVariable bytesPerElement total lastInstance instance instanceCount | - instance := aClass someInstance ifNil: [ ^#(0 0) ]. - smallHeaderSize := aClass isCompact ifTrue: [ 4 ] ifFalse: [ 8 ]. - instVarBytes := aClass instSize * 4. - isVariable := aClass isVariable. - bytesPerElement := isVariable - ifFalse: [ 0 ] - ifTrue: [ aClass isBytes ifTrue: [ 1 ] ifFalse: [ 4 ] ]. total := 0. + aClass isVariable + ifTrue: + [instances do: + [:i| total := total + (aClass byteSizeOfInstanceOfSize: i basicSize)]] + ifFalse: + [total := instances size * aClass byteSizeOfInstance]. + ^{ total. instances size }! - instanceCount := 0. - "A modified version of #allInstancesDo: is inlined here. It avoids an infinite loop when another process is creating new instances of aClass." - self flag: #allInstancesDo:. - lastInstance := - aClass == CompiledMethod "CompiledMethod has special format, see its class comment" - ifTrue: [aClass new] - ifFalse: [aClass basicNew]. - [ instance == lastInstance ] whileFalse: [ - | contentBytes headerBytes | - contentBytes := instVarBytes + (isVariable - ifFalse: [ 0 ] - ifTrue: [ instance basicSize * bytesPerElement ]). - headerBytes := contentBytes > 255 - ifTrue: [ 12 ] - ifFalse: [ smallHeaderSize ]. - total := total + headerBytes + (contentBytes roundUpTo: 4). - instanceCount := instanceCount + 1. - instance := instance nextInstance ]. - ^{ total. instanceCount }! Item was added: + ----- Method: SystemDictionary>>growMemoryByAtLeast: (in category 'as yet unclassified') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential." + <primitive: 180> + ^(numBytes isInteger and: [numBytes > 0]) + ifTrue: [OutOfMemory signal] + ifFalse: [self primitiveFailed]! Item was added: + ----- Method: SystemDictionary>>maxIdentityHash (in category 'as yet unclassified') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was added: + ----- Method: SystemDictionary>>setGCParameters (in category 'as yet unclassified') ----- + setGCParameters + "Adjust the VM's default GC parameters to avoid too much tenuring. + Maybe this should be left to the VM?" + + | proportion edenSize survivorSize averageObjectSize numObjects | + proportion := 0.9. "tenure when 90% of pastSpace is full" + edenSize := SmalltalkImage current vmParameterAt: 44. + survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" + averageObjectSize := 8 * self wordSize. "a good approximation" + numObjects := (proportion * survivorSize / averageObjectSize) rounded. + SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"! Item was added: + ----- Method: SystemNavigation>>allObjects (in category 'as yet unclassified') ----- + allObjects + "Answer an Array of all objects in the system. Fail if + there isn't enough memory to instantiate the result." + <primitive: 178> + ^self primitiveFailed! Item was changed: ----- Method: SystemNavigation>>allObjectsDo: (in category 'query') ----- allObjectsDo: aBlock + "Evaluate the argument, aBlock, for each object in the system, excluding immediates + such as SmallInteger and Character." + self allObjectsOrNil + ifNotNil: [:allObjects| allObjects do: aBlock] + ifNil: + ["Fall back on the old single object primitive code. With closures, this needs + to use an end marker (lastObject) since activation of the block will create + new contexts and cause an infinite loop. The lastObject must be created + before calling someObject, so that the VM can settle the enumeration (e.g. + by flushing new space) as a side effect of someObject" + | object lastObject | + lastObject := Object new. + object := self someObject. + [lastObject == object or: [0 == object]] whileFalse: + [aBlock value: object. + object := object nextObject]]! - "Evaluate the argument, aBlock, for each object in the system - excluding SmallIntegers. With closures, this needs to use an end - marker (lastObject) since activation of the block will create new - contexts and cause an infinite loop." - | object lastObject | - object := self someObject. - lastObject := Object new. - [lastObject == object or: [0 == object]] - whileFalse: [aBlock value: object. - object := object nextObject]! Item was added: + ----- Method: SystemNavigation>>allObjectsOrNil (in category 'as yet unclassified') ----- + allObjectsOrNil + "Answer an Array of all objects in the system. Fail if there isn't + enough memory to instantiate the result and answer nil." + <primitive: 178> + ^nil!

1 0

The Trunk: System.spur-eem.671.mcz
by commits＠source.squeak.org 27 Jun '14

27 Jun '14

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System.spur-eem.671.mcz ==================== Summary ==================== Name: System.spur-eem.671 Author: eem Time: 26 June 2014, 5:29:06.258 pm UUID: d2949aaf-6cbb-4883-b56f-37983215d07a Ancestors: System-eem.671 System-eem.671 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.160 Fix allStoresInto:from: for pool variables and hence fix browsing assignments... to a pool variable in classes that use the pool. =============== Diff against System-eem.671 =============== Item was changed: ----- Method: SmalltalkImage>>compactClassesArray (in category 'special objects') ----- compactClassesArray "Smalltalk compactClassesArray" + "Backward-compatibility support. Spur does not have compact classes." + ^{}! - "Return the array of 31 classes whose instances may be - represented compactly" - ^ self specialObjectsArray at: 29! Item was added: + ----- Method: SmalltalkImage>>growMemoryByAtLeast: (in category 'as yet unclassified') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Essential. Fail if no memory is available." + <primitive: 180> + (numBytes isInteger and: [numBytes > 0]) ifTrue: + [OutOfMemory signal]. + ^self primitiveFailed! Item was added: + ----- Method: SmalltalkImage>>maxIdentityHash (in category 'as yet unclassified') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was changed: ----- Method: SmalltalkImage>>setGCParameters (in category 'snapshot and quit') ----- setGCParameters + "Adjust the VM's default GC parameters to avoid too much tenuring. + Maybe this should be left to the VM?" - "Adjust the VM's default GC parameters to avoid premature tenuring." + | proportion edenSize survivorSize averageObjectSize numObjects | + proportion := 0.9. "tenure when 90% of pastSpace is full" + edenSize := SmalltalkImage current vmParameterAt: 44. + survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" + averageObjectSize := 8 * self wordSize. "a good approximation" + numObjects := (proportion * survivorSize / averageObjectSize) rounded. + SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"! - self vmParameterAt: 5 put: 4000. "do an incremental GC after this many allocations" - self vmParameterAt: 6 put: 2000. "tenure when more than this many objects survive the GC" - ! Item was changed: ----- Method: SpaceTally>>spaceForInstancesOf: (in category 'instance size') ----- spaceForInstancesOf: aClass + "Answer a pair of the number of bytes consumed by all instances of the + given class, including their object headers, and the number of instances." - "Answer the number of bytes consumed by all instances of the given class, including their object headers and the number of instances." + | instances total | + instances := aClass allInstances. + instances isEmpty ifTrue: [^#(0 0)]. - | smallHeaderSize instVarBytes isVariable bytesPerElement total lastInstance instance instanceCount | - instance := aClass someInstance ifNil: [ ^#(0 0) ]. - smallHeaderSize := aClass isCompact ifTrue: [ 4 ] ifFalse: [ 8 ]. - instVarBytes := aClass instSize * 4. - isVariable := aClass isVariable. - bytesPerElement := isVariable - ifFalse: [ 0 ] - ifTrue: [ aClass isBytes ifTrue: [ 1 ] ifFalse: [ 4 ] ]. total := 0. + aClass isVariable + ifTrue: + [instances do: + [:i| total := total + (aClass byteSizeOfInstanceOfSize: i basicSize)]] + ifFalse: + [total := instances size * aClass byteSizeOfInstance]. + ^{ total. instances size }! - instanceCount := 0. - "A modified version of #allInstancesDo: is inlined here. It avoids an infinite loop when another process is creating new instances of aClass." - self flag: #allInstancesDo:. - lastInstance := - aClass == CompiledMethod "CompiledMethod has special format, see its class comment" - ifTrue: [aClass new] - ifFalse: [aClass basicNew]. - [ instance == lastInstance ] whileFalse: [ - | contentBytes headerBytes | - contentBytes := instVarBytes + (isVariable - ifFalse: [ 0 ] - ifTrue: [ instance basicSize * bytesPerElement ]). - headerBytes := contentBytes > 255 - ifTrue: [ 12 ] - ifFalse: [ smallHeaderSize ]. - total := total + headerBytes + (contentBytes roundUpTo: 4). - instanceCount := instanceCount + 1. - instance := instance nextInstance ]. - ^{ total. instanceCount }! Item was added: + ----- Method: SystemDictionary>>growMemoryByAtLeast: (in category 'as yet unclassified') ----- + growMemoryByAtLeast: numBytes + "Grow memory by at least the requested number of bytes. + Primitive. Fail if no memory is available. Essential." + <primitive: 180> + ^(numBytes isInteger and: [numBytes > 0]) + ifTrue: [OutOfMemory signal] + ifFalse: [self primitiveFailed]! Item was added: + ----- Method: SystemDictionary>>maxIdentityHash (in category 'as yet unclassified') ----- + maxIdentityHash + "Answer the maximum identityHash value supported by the VM." + <primitive: 176> + ^self primitiveFailed! Item was added: + ----- Method: SystemDictionary>>setGCParameters (in category 'as yet unclassified') ----- + setGCParameters + "Adjust the VM's default GC parameters to avoid too much tenuring. + Maybe this should be left to the VM?" + + | proportion edenSize survivorSize averageObjectSize numObjects | + proportion := 0.9. "tenure when 90% of pastSpace is full" + edenSize := SmalltalkImage current vmParameterAt: 44. + survivorSize := edenSize / 5.0. "David's paper uses 140Kb eden + 2 x 28kb survivor spaces; Spur uses the same ratios :-)" + averageObjectSize := 8 * self wordSize. "a good approximation" + numObjects := (proportion * survivorSize / averageObjectSize) rounded. + SmalltalkImage current vmParameterAt: 6 put: numObjects "tenure when more than this many objects survive the GC"! Item was added: + ----- Method: SystemNavigation>>allObjects (in category 'as yet unclassified') ----- + allObjects + "Answer an Array of all objects in the system. Fail if + there isn't enough memory to instantiate the result." + <primitive: 178> + ^self primitiveFailed! Item was changed: ----- Method: SystemNavigation>>allObjectsDo: (in category 'query') ----- allObjectsDo: aBlock + "Evaluate the argument, aBlock, for each object in the system, excluding immediates + such as SmallInteger and Character." + self allObjectsOrNil + ifNotNil: [:allObjects| allObjects do: aBlock] + ifNil: + ["Fall back on the old single object primitive code. With closures, this needs + to use an end marker (lastObject) since activation of the block will create + new contexts and cause an infinite loop. The lastObject must be created + before calling someObject, so that the VM can settle the enumeration (e.g. + by flushing new space) as a side effect of someObject" + | object lastObject | + lastObject := Object new. + object := self someObject. + [lastObject == object or: [0 == object]] whileFalse: + [aBlock value: object. + object := object nextObject]]! - "Evaluate the argument, aBlock, for each object in the system - excluding SmallIntegers. With closures, this needs to use an end - marker (lastObject) since activation of the block will create new - contexts and cause an infinite loop." - | object lastObject | - object := self someObject. - lastObject := Object new. - [lastObject == object or: [0 == object]] - whileFalse: [aBlock value: object. - object := object nextObject]! Item was added: + ----- Method: SystemNavigation>>allObjectsOrNil (in category 'as yet unclassified') ----- + allObjectsOrNil + "Answer an Array of all objects in the system. Fail if there isn't + enough memory to instantiate the result and answer nil." + <primitive: 178> + ^nil!

1 0

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

Jump to page: