Revision: 3153 Author: eliot Date: 2014-11-26 14:45:03 -0800 (Wed, 26 Nov 2014) Log Message: ----------- Format the morphed float timestamps correctly. Modified Paths: -------------- branches/Cog/image/MorphFloat.st Modified: branches/Cog/image/MorphFloat.st =================================================================== --- branches/Cog/image/MorphFloat.st 2014-11-26 19:57:25 UTC (rev 3152) +++ branches/Cog/image/MorphFloat.st 2014-11-26 22:45:03 UTC (rev 3153) @@ -12,10 +12,10 @@ classVariableNames: '' poolDictionaries: '' category: 'Kernel-Numbers'. - '!!SoonToBeFloat class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! + '!!SoonToBeFloat class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew ^Float basicNew: 2!! !! -!!SoonToBeFloat class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! +!!SoonToBeFloat class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew: anInteger ^Float basicNew: 2!! !!' readStream fileIn. @@ -57,14 +57,14 @@ on: AttemptToWriteReadOnlyGlobal do: [:ex| ex resume: true]. - '!!Float class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! + '!!Float class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew ^BoxedFloat64 basicNew: 2!! !! -!!Float class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! +!!Float class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew: anInteger ^BoxedFloat64 basicNew: 2!! !! -!!BoxedFloat64 class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! +!!BoxedFloat64 class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew: sizeRequested "Primitive. Answer an instance of this class with the number of indexable variables specified by the argument, sizeRequested. @@ -82,10 +82,10 @@ [self error: ''a Float shall always have two slots'']]. self primitiveFailed!! !! -!!SmallFloat64 class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! +!!SmallFloat64 class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew: anInteger ^self basicNew!! !! -!!SmallFloat64 class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 7:54''!! +!!SmallFloat64 class methodsFor: ''instance creation'' stamp: ''eem 11/25/2014 07:54''!! basicNew self error: ''SmallFloat64s can only be created by performing arithmetic''!! !!' readStream fileIn. @@ -119,13 +119,13 @@ smallFloat compile: code classified: (boxedFloat organization categoryOfElement: s) - withStamp: 'eem 11/25/2014 7:54' + withStamp: 'eem 11/25/2014 07:54' notifying: nil]. smallFloat organization sortCategories. 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'. + stamp: 'eem 11/25/2014 07: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.' - stamp: 'eem 11/25/2014 7:54'. + stamp: 'eem 11/25/2014 07:54'. Undeclared removeUnreferencedKeys] |
Free forum by Nabble | Edit this page |