Squeak-dev November 2014

squeak-dev@lists.squeakfoundation.org

41 participants
125 discussions

Float class comment
by Eliot Miranda 27 Nov '14

27 Nov '14

Hi All, who wrote the Float class comment? Two things, - first the comment mentions "I" and thanks several people, but there is no comment stamp to reveal the author. It would be lovely if the author could "sign" this comment - second, there seems to be a minor error (but I'm no expert), the comment states "It may help you to know that the basic format is... sign 1 bit exponent 11 bits with bias of 1023 (16r3FF) to produce an exponent in the range -1023 .. +1024 - 16r000: significand = 0: Float zero significand ~= 0: Denormalized number (exp = -1024, no hidden '1' bit) - 16r7FF: significand = 0: Infinity significand ~= 0: Not A Number (NaN) representation mantissa 53 bits, but only 52 are stored (20 in the first word, 32 in the second). This is because a normalized mantissa, by definition, has a 1 to the right of its floating point, and IEEE-754 omits this redundant bit to gain an extra bit of precision instead. People talk about the mantissa without its leading one as the FRACTION, and with its leading 1 as the SIGNFICAND." But if the significand has a leading zero then surely the section in the middle should read sign 1 bit exponent 11 bits with bias of 1023 (16r3FF) to produce an exponent in the range -1023 .. +1024 - 16r000: mantissa = 0: Float zero mantissa ~= 0: Denormalized number (exp = -1024, no hidden '1' bit) - 16r7FF: mantissa = 0: Infinity mantissa ~= 0: Not A Number (NaN) representation Right? -- best, Eliot

3 2

Re: [Vm-dev] [commit][3152] Make sure to compile the SmallFloat64 primitives.
by Eliot Miranda 26 Nov '14

26 Nov '14

Hi Ben, On Wed, Nov 26, 2014 at 2:27 PM, Ben Coman <btc(a)openinworld.com> wrote: > > commits(a)squeakvm.org wrote: > >> Revision: 3152 >> Author: eliot >> Date: 2014-11-26 11:57:25 -0800 (Wed, 26 Nov 2014) >> Log Message: >> ----------- >> Make sure to compile the SmallFloat64 primitives. >> >> boxedFloat comment: 'My instances hold 64-bit Floats in heap >> objects. This is the only representation on 32-bit systems. But on 64-bit >> systems SmallFloat64 holds a subset of the full 64-bit double-precision >> range in immediate objects.' >> stamp: 'eem 11/25/2014 7:54'. >> smallFloat comment: 'My instances represent 64-bit Floats whose >> exponent fits in 8 bits as immediate objects. This representation is only >> available on 64-bit systems, not 32-bit systems.' >> >> > So are SmallFloats converted to BoxedFloats on the fly when an image is > moved from a 64-bit host to a 32-bit host ? > No; there is no automatic conversion between 32-bit and 64-bit images. 64-bit Spur images will only be runnable on 64-bit machines. There are scripts that convert 32-bit non-Spur images to 32-bit Spur images and from 32-bit Spur images to 64-bit Spur images, and it would be easy to add a script that converted from a 64-bit Spur image to a 32-bit Spur image. But none of these conversions will be provided "automatically" (e.g. as a side-effect of starting up an image), although they may be wrapped up in tools. Currently the conversion time from 32-bit non-Spur to 32-bit Spur on a fast laptop is 5 minutes, and IIRC conversion from 32-bit Spur to 64-bit Spur takes a couple of minutes. So I don't think one will ever want this to happen automatically. Further, I hope and expect that we're moving to/have already moved to a construction-oriented image build process where one will take a pre-prepared base image of the appropriate pointer width and run scripts to load packages into them. So I expect the main use of the Spur 32-bit to 64-bit bootstrap is in preparing base release images. btw, Does that comment need updating... didn't you go with SmallDouble, > BoxedDouble? > No. Bert suggested (IIRC) ImmediateFloat64 and BoxedFloat64 and I went with SmallFloat64 and BoxedFloat64 for two reasons. SmallFloat64 because I like the symmetry with SmallInteger, and because this name scheme gracefully admits SmallFloat32, BoxedFloat32 and BoxedFloat80 if ever there was the energy to add them. -- best, Eliot

2 1

New Cog VMs available
by Eliot Miranda 26 Nov '14

26 Nov '14

at http://www.mirandabanda.org/files/Cog/VM/VM.r3148/. Normal service has resumed after the recent instability due to 64-bit work. CogVM binaries as per VMMaker.oscog-eem.956/r3148 Fix regression in primitive[SmallFloat]Truncated Fix some warnings and some 64-bit issues with the ThreadedFFIPlugin. Fix positive64BitIntegerFor: by fixing new generateSignedShiftRight:on:indent:. Symptom is LargePositiveInteger results from primGetPosition: for SmallInteger values. -- best, Eliot

4 3

Squeak 4.5: System-cmm.669.mcz
by commits＠source.squeak.org 26 Nov '14

26 Nov '14

Chris Muller uploaded a new version of System to project Squeak 4.5: http://source.squeak.org/squeak45/System-cmm.669.mcz ==================== Summary ==================== Name: System-cmm.669 Author: cmm Time: 16 March 2014, 10:02:19.13 pm UUID: aa83e977-ce6e-468d-8a8b-e51ce624f1b2 Ancestors: System-cmm.668 #moveChanges should prompt for the name of the condensed sources. =============== Diff against System-cmm.668 =============== Item was changed: ----- Method: SmalltalkImage>>moveChanges (in category 'housekeeping') ----- moveChanges "Move the current version of every method in .changes to my .sources file." + self appendChangesTo: + ((UIManager default + request: 'Please specify the name of the\.sources file to move changes to.' withCRs + initialAnswer: self sourceFileVersionString) ifEmpty: [ ^ self inform: 'Aborted.' ])! - self appendChangesTo: self sourceFileVersionString!

1 0

Squeak 4.5: System-cmm.668.mcz
by commits＠source.squeak.org 26 Nov '14

26 Nov '14

Chris Muller uploaded a new version of System to project Squeak 4.5: http://source.squeak.org/squeak45/System-cmm.668.mcz ==================== Summary ==================== Name: System-cmm.668 Author: cmm Time: 16 March 2014, 8:40:25.265 pm UUID: 5ce12f1b-ffdc-46a3-8621-82a592a12377 Ancestors: System-cmm.667 - 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. =============== Diff against System-cmm.667 =============== Item was changed: + ----- Method: SmalltalkImage>>aboutThisSystem (in category 'miscellaneous') ----- - ----- Method: SmalltalkImage>>aboutThisSystem (in category 'sources, changes log') ----- aboutThisSystem "Identify software version" ^self globals at: #SystemReporter ifPresent: [:sys | sys open] ifAbsent: [self inform: self systemInformationString withCRs]! Item was changed: + ----- Method: SmalltalkImage>>appendChangesTo: (in category 'sources, changes log') ----- - ----- Method: SmalltalkImage>>appendChangesTo: (in category 'housekeeping') ----- appendChangesTo: sourcesName "Condense changes to the end of the given sources file. If the file is the same as Smalltalk sourcesName, then just append the changes. If the file is different, then copy the sources file and append the changes afterwards." "Smalltalk appendChangesTo: 'test123.sources'" "To verify correctness of the operation run the following code: [ | sourceMap | sourceMap := Dictionary new. (CompiledMethod allInstances select:[:cm| cm isInstalled]) do:[:cm| sourceMap at: cm methodReference put: (cm getSourceFor: cm selector in: cm methodClass)]. Smalltalk allClassesAndTraitsDo:[:aClass| sourceMap at: aClass put: aClass comment]. Smalltalk appendChangesTo: 'verify.sources'. (CompiledMethod allInstances select:[:cm| cm isInstalled]) do:[:cm| self assert: (sourceMap at: cm methodReference) = (cm getSourceFor: cm selector in: cm methodClass)]. Smalltalk allClassesAndTraitsDo:[:aClass| self assert: (sourceMap at: aClass) = aClass comment]. ]" | fullName sourcesFile | fullName := FileDirectory default fullNameFor: sourcesName. + (fullName endsWith: '.sources') ifFalse: [ fullName := fullName , '.sources' ]. - (fullName endsWith: '.sources') ifFalse:[self error: 'New name must end with .sources']. fullName = Smalltalk sourcesName ifFalse:[ "Copy sources file; change file name accordingly" + FileStream forceNewFileNamed: fullName do: [ :newFile | - FileStream forceNewFileNamed: fullName do:[:newFile| | bufSize | - bufSize := 16r10000. sourcesFile := (SourceFiles at: 1) readOnlyCopy. + FileDirectory default copyFile: sourcesFile toFile: newFile. + sourcesFile position: 0 ]. - sourcesFile position: 0. - 'Copying sources...' - displayProgressFrom: 0 to: sourcesFile size during:[:bar| - [sourcesFile atEnd] whileFalse:[ - bar value: sourcesFile position. - newFile nextPutAll: (sourcesFile next: bufSize)]]. - newFile position = sourcesFile size ifFalse:[self error: 'File copy failed']. - ]. self setMacFileInfoOn: fullName. "Change to the new sources file and reopen" + self + closeSourceFiles ; + sourceFileVersionString: ((FileDirectory localNameFor: fullName) allButLast: '.sources' size) ; + openSourceFiles. - self closeSourceFiles. - SourceFileVersionString := (FileDirectory localNameFor: fullName) - allButLast: '.sources' size. - self openSourceFiles. ]. "We've copied the old to the new sources file; reopen the sources file read/write" sourcesFile := SourceFiles at: 1. sourcesFile close; open: sourcesFile fullName forWrite: true. "should be openReadWrite" + sourcesFile setToEnd; timeStamp "remember when we did this". - sourcesFile setToEnd; timeStamp. "remember when we did this" "Copy method sources from changes to sources" CompiledMethod allInstances do:[:method| (method isInstalled and:[method fileIndex = 2]) ifTrue:[ | class selector category preamble changeList index chgRec string source | class := method methodClass. selector := method selector. source := class sourceCodeAt: selector. category := class organization categoryOfElement: selector. preamble := class name, ' methodsFor: ', category asString printString, ' stamp: ', method timeStamp printString. "Find the last version in the sources file; link up the prior: version" changeList := ChangeSet scanVersionsOf: method class: class meta: class isMeta category: category selector: selector. index := changeList findLast:[:any| any fileIndex = 1]. index > 0 ifTrue:[ chgRec := changeList at: index. preamble := preamble, ' prior: ', (SourceFiles sourcePointerFromFileIndex: chgRec fileIndex andPosition: chgRec position) printString]. "append to sources file" sourcesFile setToEnd; cr; nextPut: $!!; nextChunkPut: preamble; cr. string := RemoteString newString: source onFileNumber: 1 toFile: sourcesFile. sourcesFile nextChunkPut: ' '. method setSourcePosition: string position inFile: 1 ]. ] displayingProgress: 'Moving changes...'. "Copy class comments from changes to sources" self allClassesAndTraitsDo: [:classOrTrait | classOrTrait moveClassCommentTo: sourcesFile fileIndex: 1. ]. "We've moved everything; reopen the source files" self closeSourceFiles; openSourceFiles. + "Former changes are now in .sources, no need for them in .changes. Condense them." + self condenseChanges! - "Finally, run condenseChanges -- they *should* be empty - but it's better to be safe than sorry" - self condenseChanges. - ! Item was changed: + ----- Method: SmalltalkImage>>currentProjectDo: (in category 'miscellaneous') ----- - ----- Method: SmalltalkImage>>currentProjectDo: (in category 'sources, changes log') ----- currentProjectDo: aBlock "So that code can work after removal of Projects" self at: #Project ifPresent: [:projClass | aBlock value: projClass current]! Item was added: + ----- Method: SmalltalkImage>>locateSourcesEntry (in category 'image, changes names') ----- + locateSourcesEntry + | sourcesFilename | + sourcesFilename := SourceFileVersionString , FileDirectory dot , 'sources'. + ^ {Smalltalk vmPath. + FileDirectory default fullName, FileDirectory slash} + detect: [ : each | (each , sourcesFilename) asDirectoryEntry notNil ] + ifFound: [ : foundPath | (foundPath , sourcesFilename) asDirectoryEntry ] + ifNone: [ nil ]! Item was added: + ----- Method: SmalltalkImage>>moveChanges (in category 'housekeeping') ----- + moveChanges + "Move the current version of every method in .changes to my .sources file." + self appendChangesTo: self sourceFileVersionString! Item was changed: + ----- Method: SmalltalkImage>>setMacFileInfoOn: (in category 'sources, changes log') ----- - ----- Method: SmalltalkImage>>setMacFileInfoOn: (in category 'miscellaneous') ----- setMacFileInfoOn: aString "On Mac, set the file type and creator (noop on other platforms)" FileDirectory default setMacFileNamed: aString type: 'STch' creator: 'FAST'.! Item was changed: + ----- Method: SmalltalkImage>>sourceFileVersionString: (in category 'image, changes names') ----- - ----- Method: SmalltalkImage>>sourceFileVersionString: (in category 'miscellaneous') ----- sourceFileVersionString: aString SourceFileVersionString := aString! Item was changed: ----- Method: SmalltalkImage>>sourcesName (in category 'image, changes names') ----- sourcesName + "Answer the full path to the version-stable source code if it exists, otherwise the desired location" + ^ self locateSourcesEntry + ifNil: [ self vmPath , SourceFileVersionString , FileDirectory dot , 'sources' ] + ifNotNil: [ : entry | entry fullName ]! - "Answer the full path to the version-stable source code" - ^ self vmPath , SourceFileVersionString , FileDirectory dot , 'sources'!

1 0

Squeak 4.5: System-cmm.667.mcz
by commits＠source.squeak.org 26 Nov '14

26 Nov '14

Chris Muller uploaded a new version of System to project Squeak 4.5: http://source.squeak.org/squeak45/System-cmm.667.mcz ==================== Summary ==================== Name: System-cmm.667 Author: cmm Time: 7 March 2014, 11:05:02.41 am UUID: 5687957c-9a9d-4e72-9db9-14480a1a52e2 Ancestors: System-dtl.666 - Added method to get a valid MethodReference from a stale, invalid one. =============== Diff against System-dtl.666 =============== Item was added: + ----- Method: MethodReference>>asValid (in category 'converting') ----- + asValid + "Sometimes persistent MethodReferences may become stale after a refactoring which moved some methods to a superclass. This method answers the new valid MethodReference if that happened." + ^ self isValid + ifTrue: [ self ] + ifFalse: + [ | cm | + cm := self actualClass lookupSelector: self selector. + cm ifNotNil: [ cm methodReference ] ]! Item was changed: ----- Method: SmalltalkImage>>haltOrQuit (in category 'command line') ----- haltOrQuit + self isHeadless - Smalltalk isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ self halt ]! Item was changed: ----- Method: SmalltalkImage>>run: (in category 'command line') ----- + run: aBlock - run: aBlock [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) + ifTrue: + [ "Allow a large, variable number of arguments to be passed as an Array to aBlock." + aBlock value: self arguments ] + ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] - ifTrue: [ aBlock value: self arguments ] - ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] on: ProgressInitiationException do: [ : pie | "Don't want to log this notification." pie defaultAction ] ] on: Notification , Warning do: [ : noti | FileStream stdout nextPutAll: DateAndTime now asString ; space ; nextPutAll: noti description ; cr. noti resume ] on: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; cr. self haltOrQuit ] on: Error do: [ : err | err printVerboseOn: FileStream stderr. self haltOrQuit. err isResumable ifTrue: [ err resume ] ]!

1 0

squeak wiki running on box4
by Chris Cunnington 25 Nov '14

25 Nov '14

I’ve got the swiki running on box4. [1] It looks OK. I’ll poke at it the next few days to see how it’s doing. Chris [1] http://box4.squeak.org:8080/squeak <http://box4.squeak.org:8080/squeak>

1 0

Raspberry Jam in Nanaimo
by tim Rowledge 25 Nov '14

25 Nov '14

I understand that a lot of you aren’t really in a position to make the trip to Nanaimo for a Raspberry Jam, but just in case https://www.picatic.com/RaspberryJamNanaimoDec2014 tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Throughout history, every mystery solved has turned out to be… *not magic*

1 0

Daily Commit Log
by commits＠source.squeak.org 25 Nov '14

25 Nov '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-November/007382.h… Name: Monticello-bf.604 Ancestors: Monticello-mtf.603 Deal with non-class globals. =============================================

1 0

Re: [squeak-dev] The Trunk: Monticello-bf.604.mcz
by Chris Muller 24 Nov '14

24 Nov '14

When would a MethodDefinitions #actualClass not be a Class? On Mon, Nov 24, 2014 at 11:31 AM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Monticello to project The Trunk: > http://source.squeak.org/trunk/Monticello-bf.604.mcz > > ==================== Summary ==================== > > Name: Monticello-bf.604 > Author: bf > Time: 24 November 2014, 6:30:56.448 pm > UUID: b1f76c5b-7165-4dcb-bc69-07a1c7978fd7 > Ancestors: Monticello-mtf.603 > > Deal with non-class globals. > > =============== Diff against Monticello-mtf.603 =============== > > Item was changed: > ----- Method: MCMethodDefinition>>actualClass (in category 'accessing') ----- > actualClass > + ^Smalltalk at: className ifPresent: [:class | > + class isBehavior ifTrue: [classIsMeta ifTrue: [class classSide] ifFalse: [class]]]! > - ^Smalltalk at: className > - ifPresent: [:class | classIsMeta ifTrue: [class classSide] ifFalse: [class]]! > >

4 4

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