Packages March 2020

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Tests-ul.429.mcz
by commits＠source.squeak.org 19 Mar '20

19 Mar '20

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.429.mcz ==================== Summary ==================== Name: Tests-ul.429 Author: ul Time: 18 March 2020, 7:46:07.363262 pm UUID: 8cb527c8-aeb4-4085-b0ea-dd7f2d9ee770 Ancestors: Tests-cmm.428 - test ThirtyTwoBitRegister>>leftRotateBy: with negative arguments as well =============== Diff against Tests-cmm.428 =============== Item was changed: ----- Method: ThirtyTwoBitRegisterTest>>testLeftRotateBy (in category 'tests - accumulator ops') ----- testLeftRotateBy + -33 to: 33 do: [ :shift | - 0 to: 33 do: [ :shift | self assertUnaryRegisterOperation: [ :rx | rx leftRotateBy: shift ] gives: [ :x | | actualShift | actualShift := shift \\ 32. (x << actualShift bitOr: x >> (32 - actualShift)) bitAnd: 16rFFFFFFFF ] times: 1000 ]!

1 0

The Trunk: Compiler-nice.420.mcz
by commits＠source.squeak.org 14 Mar '20

14 Mar '20

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.420.mcz ==================== Summary ==================== Name: Compiler-nice.420 Author: nice Time: 14 March 2020, 2:13:55.100268 am UUID: 8eac5555-d3f5-4e7f-95f6-7ca20d5f90e1 Ancestors: Compiler-eem.419 Fixup compilation of external function: #litIndex: is a message to be sent to the encoder now. =============== Diff against Compiler-eem.419 =============== Item was changed: ----- Method: Parser>>externalFunctionDeclaration (in category 'primitives') ----- externalFunctionDeclaration "Parse the function declaration for a call to an external library." | descriptorClass callType modifier retType externalName args argType module fn | descriptorClass := cue environment valueOf: #ExternalFunction ifAbsent: [^ false]. callType := descriptorClass callingConventionFor: here. callType == nil ifTrue:[^false]. [modifier := descriptorClass callingConventionModifierFor: token. modifier notNil] whileTrue: [self advance. callType := callType bitOr: modifier]. "Parse return type" self advance. retType := self externalType: descriptorClass. retType == nil ifTrue:[^self expected:'return type']. "Parse function name or index" externalName := here. (self match: #string) ifTrue:[externalName := externalName asSymbol] ifFalse:[(self match:#number) ifFalse:[^self expected:'function name or index']]. (self match: #leftParenthesis) ifFalse:[^self expected:'argument list']. args := WriteStream on: Array new. [self match: #rightParenthesis] whileFalse:[ argType := self externalType: descriptorClass. argType == nil ifTrue:[^self expected:'argument']. argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]]. (self matchToken: 'module:') ifTrue:[ module := here. (self match: #string) ifFalse:[^self expected: 'String']. module := module asSymbol]. Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| fn := xfn name: externalName module: module callType: callType returnType: retType argumentTypes: args contents. + encoder litIndex: fn. - self litIndex: fn. fn beWritableObject. "Undo the read-only setting in litIndex:"]. (self matchToken: 'error:') ifTrue: [| errorCodeVariable | errorCodeVariable := here. (hereType == #string or: [hereType == #word]) ifFalse:[^self expected: 'error code (a variable or string)']. self advance. self addPragma: (Pragma keyword: #primitive:error: arguments: (Array with: 120 with: errorCodeVariable)). fn ifNotNil: [fn setErrorCodeName: errorCodeVariable]] ifFalse: [self addPragma: (Pragma keyword: #primitive: arguments: #(120))]. ^true!

1 0

The Trunk: Tests-cmm.428.mcz
by commits＠source.squeak.org 14 Mar '20

14 Mar '20

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.428.mcz ==================== Summary ==================== Name: Tests-cmm.428 Author: cmm Time: 13 March 2020, 6:09:37.220407 pm UUID: cd4af6d7-7fed-44c1-bfe7-64a2de3cb7ee Ancestors: Tests-nice.427 Tests for #caseError. =============== Diff against Tests-nice.427 =============== Item was added: + TestCase subclass: #CaseErrorTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Bugs'! Item was added: + ----- Method: CaseErrorTest>>printOn: (in category 'tests') ----- + printOn: aStream + 3 caseOf: + { [1] -> [aStream nextPutAll: 'option 1']. + [2] -> [aStream nextPutAll: 'option 2'] } + "caseError in printOn:"! Item was added: + ----- Method: CaseErrorTest>>testCaseError (in category 'tests') ----- + testCaseError + self + should: + [2 caseOf: + { [1] -> ['option 1'] }] + raise: Error! Item was added: + ----- Method: CaseErrorTest>>testCaseErrorInPrintOn (in category 'tests') ----- + testCaseErrorInPrintOn + self should: [ self printString ] raise: Error!

1 0

The Trunk: Compiler-eem.419.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.419.mcz ==================== Summary ==================== Name: Compiler-eem.419 Author: eem Time: 12 March 2020, 10:28:24.737942 am UUID: f0f3fd57-9e0f-414f-9a9f-7638120dd7aa Ancestors: Compiler-eem.418 Fix a slip in enabling read-only literals. The property of being read-only should apply recursively to all literals embedded in array literals. Update the package postscript to apply this to existing array literals. =============== Diff against Compiler-eem.418 =============== Item was changed: ----- Method: Encoder>>litIndex: (in category 'encoding') ----- litIndex: literal | p | p := literalStream position. p = self maxNumLiterals ifTrue: [self notify: 'More than ', self maxNumLiterals printString, ' literals referenced.\You must split or otherwise simplify this method.\The ' withCRs, (self maxNumLiterals + 1) printString, 'th literal is: ', literal printString. ^nil]. literal isLiteral ifTrue: "filters out BlockClosures, ExternalLibraryFunctions" + [self setReadOnlyIfAppropriate: literal]. + "Would like to show where it is in the source code, but that info is hard to get." - [(literal isReadOnlyObject - or: [literal isVariableBinding]) ifFalse: - [literal setIsReadOnlyObject: true]]. - "Would like to show where it is in the source code, - but that info is hard to get." literalStream nextPut: literal. ^p! Item was added: + ----- Method: Encoder>>setReadOnlyIfAppropriate: (in category 'encoding') ----- + setReadOnlyIfAppropriate: literal + "If literal is not read-only and should be, set it to be read-only, along with any other such literals it may contain." + (literal isReadOnlyObject + or: [literal isVariableBinding]) ifFalse: + [literal setIsReadOnlyObject: true. + literal isArray ifTrue: + [literal do: [:subLiteral| self setReadOnlyIfAppropriate: subLiteral]]]! Item was changed: (PackageInfo named: 'Compiler') postscript: '"below, add code to be run after the loading of this package" "Make all relevant literals read-only, avoiding the recompile step, so as to avoid unbound methods" self systemNavigation allSelect: + [:m| | b | + b := #notNil. + b := [:lit| lit isCollection ifTrue: [lit beReadOnlyObject. lit isArray ifTrue: [lit do: b "do: b do:"]]]. - [:m| m allLiteralsDo: [:l| (l isLiteral and: [(l isCollection or: [l isNumber and: [l isReadOnlyObject not]]) and: [(l isArray and: [m primitive == 117 and: [l == (m literalAt: 1)]]) not]]) ifTrue: + [b value: l]]. - [l beReadOnlyObject]]. false]'!

1 0

The Trunk: CollectionsTests-nice.335.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.335.mcz ==================== Summary ==================== Name: CollectionsTests-nice.335 Author: nice Time: 12 March 2020, 12:08:41.875856 pm UUID: 7bd21d75-b53b-4dc6-a18c-95b65e628d21 Ancestors: CollectionsTests-mt.334 Avoid write-streaming on read-only literal =============== Diff against CollectionsTests-mt.334 =============== Item was changed: ----- Method: WriteStreamTest>>testCr (in category 'tests - character writing') ----- testCr "self debug: #testCr" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream cr. self assert: stream last = Character cr.! Item was changed: ----- Method: WriteStreamTest>>testCrLf (in category 'tests - character writing') ----- testCrLf "self debug: #testCrLf" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream crlf. self assert: (stream contents last: 2) = String crlf.! Item was changed: ----- Method: WriteStreamTest>>testCrTab (in category 'tests - character writing') ----- testCrTab "self debug: #testCrTab" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream crtab. self assert: (stream contents last: 2) = (String with: Character cr with: Character tab)! Item was changed: ----- Method: WriteStreamTest>>testCrTabs (in category 'tests - character writing') ----- testCrTabs "self debug: #testCrTabs" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream crtab: 2. self assert: (stream contents last: 3) = (String with: Character cr with: Character tab with: Character tab)! Item was changed: ----- Method: WriteStreamTest>>testInstanciationUsingOn (in category 'tests - instance creation') ----- testInstanciationUsingOn "self debug: #testInstanciationUsingOn" | stream | + stream := WriteStream on: #(1 2) copy. - stream := WriteStream on: #(1 2). stream nextPut: 3. self assert: stream contents = #(3)! Item was changed: ----- Method: WriteStreamTest>>testLf (in category 'tests - character writing') ----- testLf "self debug: #testLf" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream lf. self assert: stream last = Character lf.! Item was changed: ----- Method: WriteStreamTest>>testPosition (in category 'tests - positioning') ----- testPosition "self debug: #testPosition" | stream | + stream := WriteStream with: 'an elephant' copy. - stream := WriteStream with: 'an elephant'. stream position: 6. self assert: stream contents = 'an ele'. stream nextPutAll: 'vator'. stream assert: stream contents = 'an elevator'! Item was changed: ----- Method: WriteStreamTest>>testSize (in category 'tests - accessing') ----- testSize "self debug: #testSize" | string streamEmpty streamFull | string := 'a string'. + streamEmpty := WriteStream on: string copy. + streamFull := WriteStream with: string copy. - streamEmpty := WriteStream on: string. - streamFull := WriteStream with: 'a string'. self assert: streamEmpty size = 0. self assert: streamFull size = 8. streamEmpty nextPut: $.. streamFull nextPut: $.. self assert: streamEmpty size = 1. self assert: streamFull size = (string size + 1).! Item was changed: ----- Method: WriteStreamTest>>testSpace (in category 'tests - character writing') ----- testSpace "self debug: #testSpace" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream space. self assert: stream last = Character space.! Item was changed: ----- Method: WriteStreamTest>>testSpaces (in category 'tests - character writing') ----- testSpaces "self debug: #testSpaces" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream space: 3. self assert: (stream contents last: 3) = ' '! Item was changed: ----- Method: WriteStreamTest>>testTab (in category 'tests - character writing') ----- testTab "self debug: #testTab" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream tab. self assert: (stream contents last) = Character tab! Item was changed: ----- Method: WriteStreamTest>>testTabs (in category 'tests - character writing') ----- testTabs "self debug: #testTabs" | stream | + stream := WriteStream on: 'stream' copy. - stream := WriteStream on: 'stream'. stream tab: 3. self assert: (stream contents last: 3) = (String with: Character tab with: Character tab with: Character tab)!

1 0

The Trunk: Chronology-Core-nice.52.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Nicolas Cellier uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-nice.52.mcz ==================== Summary ==================== Name: Chronology-Core-nice.52 Author: nice Time: 12 March 2020, 12:03:38.8371 pm UUID: eb71ab74-c271-4a0e-bf81-ef3b0917ce67 Ancestors: Chronology-Core-mt.51 Normalize a copy of jdn,seconds,nanos so as to prevent attempts to modify a read-only literal. =============== Diff against Chronology-Core-mt.51 =============== Item was changed: ----- Method: DateAndTime>>ticks:offset: (in category 'private') ----- ticks: ticks offset: utcOffset "ticks is {julianDayNumber. secondCount. nanoSeconds}" + | jdn s nanos normalizedTicks | + normalizedTicks := ticks copy. + self normalize: 3 ticks: normalizedTicks base: NanosInSecond. + self normalize: 2 ticks: normalizedTicks base: SecondsInDay. - | jdn s nanos | - self normalize: 3 ticks: ticks base: NanosInSecond. - self normalize: 2 ticks: ticks base: SecondsInDay. + jdn := normalizedTicks at: 1. + s := normalizedTicks at: 2. + nanos := normalizedTicks at: 3. - jdn := ticks at: 1. - s := ticks at: 2. - nanos := ticks at: 3. localOffsetSeconds := utcOffset ifNil: [0] ifNotNil: [utcOffset asSeconds]. utcMicroseconds := self microsecondsFromDay: jdn seconds: s nanos: nanos offset: localOffsetSeconds. !

1 0

The Trunk: Kernel-eem.1319.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1319.mcz ==================== Summary ==================== Name: Kernel-eem.1319 Author: eem Time: 11 March 2020, 7:02:24.096302 pm UUID: c6d380c6-b6c0-483b-b3d3-3b4fce2880d8 Ancestors: Kernel-eem.1318 Make all Float class variables (that are floats) read-only. =============== Diff against Kernel-eem.1318 =============== Item was changed: ----- Method: Float class>>initialize (in category 'class initialization') ----- initialize "Float initialize" "Constants from Computer Approximations, pp. 182-183: Pi = 3.14159265358979323846264338327950288 Pi/2 = 1.57079632679489661923132169163975144 Pi*2 = 6.28318530717958647692528676655900576 Pi/180 = 0.01745329251994329576923690768488612 2.0 ln = 0.69314718055994530941723212145817657 2.0 sqrt = 1.41421356237309504880168872420969808" Pi := 3.14159265358979323846264338327950288. Halfpi := Pi / 2.0. Twopi := Pi * 2.0. ThreePi := Pi * 3.0. RadiansPerDegree := Pi / 180.0. Ln2 := 0.69314718055994530941723212145817657. Ln10 := 10.0 ln. Sqrt2 := 1.41421356237309504880168872420969808. E := 2.718281828459045235360287471353. Epsilon := 0.000000000001. "Defines precision of mathematical functions" MaxVal := 1.7976931348623157e308. MaxValLn := 709.782712893384. MinValLogBase2 := -1074. Infinity := MaxVal * MaxVal. NegativeInfinity := 0.0 - Infinity. NaN := Infinity - Infinity. NegativeZero := 1.0 / Infinity negated. + + {Infinity. NegativeInfinity. NaN} do: [:each| each beReadOnlyObject] !

1 0

The Trunk: Collections-eem.881.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.881.mcz ==================== Summary ==================== Name: Collections-eem.881 Author: eem Time: 11 March 2020, 7:01:23.310819 pm UUID: e9cf9901-53d5-4b5c-ab37-88beb605d007 Ancestors: Collections-eem.882 Include the Array become primitives in the ModificationForbidden framework. =============== Diff against Collections-eem.882 =============== Item was changed: ----- Method: Symbol class>>intern: (in category 'instance creation') ----- intern: aStringOrSymbol | originalNewSymbols | originalNewSymbols := NewSymbols. ^(self lookup: aStringOrSymbol) ifNil:[ + | aClass aSymbol newNewSymbols | - | aSymbol newNewSymbols | aStringOrSymbol isSymbol ifTrue:[ aSymbol := aStringOrSymbol. ] ifFalse:[ + aClass := aStringOrSymbol isOctetString ifTrue:[ByteSymbol] ifFalse:[WideSymbol]. + aSymbol := aClass new: aStringOrSymbol size. - aSymbol := (aStringOrSymbol isOctetString ifTrue:[ByteSymbol] ifFalse:[WideSymbol]) - new: aStringOrSymbol size. aSymbol string: aStringOrSymbol. - aSymbol beReadOnlyObject. ]. newNewSymbols := originalNewSymbols copyWith: aSymbol. originalNewSymbols == NewSymbols ifTrue: [ NewSymbols := newNewSymbols. newNewSymbols size > 1000 ifTrue: [ self condenseNewSymbols ]. aSymbol ] ifFalse: [ "Some other process has modified the symbols. Try again." self intern: aStringOrSymbol ] ]! Item was changed: + (PackageInfo named: 'Collections') postscript: 'Character initializeClassificationTable. + HashedCollection rehashAll.'! - (PackageInfo named: 'Collections') postscript: '"below, add code to be run after the loading of this package" - - "Make all Symbols read-only at the VM level" - Symbol allSubInstancesDo: [:s| s beReadOnlyObject]'!

1 0

The Trunk: Collections-eem.882.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.882.mcz ==================== Summary ==================== Name: Collections-eem.882 Author: eem Time: 11 March 2020, 7:01:02.481942 pm UUID: e2b87321-4e8a-4f08-82f7-2ac8e0a5db99 Ancestors: Collections-eem.881 Make Symbols read-only at the VM level. Set read-onlyness in intern:. Use the package postscript to make all existing symbols read-only. =============== Diff against Collections-eem.881 =============== Item was changed: ----- Method: Symbol class>>intern: (in category 'instance creation') ----- intern: aStringOrSymbol | originalNewSymbols | originalNewSymbols := NewSymbols. ^(self lookup: aStringOrSymbol) ifNil:[ + | aSymbol newNewSymbols | - | aClass aSymbol newNewSymbols | aStringOrSymbol isSymbol ifTrue:[ aSymbol := aStringOrSymbol. ] ifFalse:[ + aSymbol := (aStringOrSymbol isOctetString ifTrue:[ByteSymbol] ifFalse:[WideSymbol]) + new: aStringOrSymbol size. - aClass := aStringOrSymbol isOctetString ifTrue:[ByteSymbol] ifFalse:[WideSymbol]. - aSymbol := aClass new: aStringOrSymbol size. aSymbol string: aStringOrSymbol. + aSymbol beReadOnlyObject. ]. newNewSymbols := originalNewSymbols copyWith: aSymbol. originalNewSymbols == NewSymbols ifTrue: [ NewSymbols := newNewSymbols. newNewSymbols size > 1000 ifTrue: [ self condenseNewSymbols ]. aSymbol ] ifFalse: [ "Some other process has modified the symbols. Try again." self intern: aStringOrSymbol ] ]! Item was changed: + (PackageInfo named: 'Collections') postscript: '"below, add code to be run after the loading of this package" + + "Make all Symbols read-only at the VM level" + Symbol allSubInstancesDo: [:s| s beReadOnlyObject]'! - (PackageInfo named: 'Collections') postscript: 'Character initializeClassificationTable. - HashedCollection rehashAll.'!

1 0

The Trunk: Compiler-eem.418.mcz
by commits＠source.squeak.org 12 Mar '20

12 Mar '20

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.418.mcz ==================== Summary ==================== Name: Compiler-eem.418 Author: eem Time: 11 March 2020, 6:58:07.871201 pm UUID: 2e87ec87-7501-451f-88a5-3049d9cebf02 Ancestors: Compiler-nice.417 Enable read-only literals, and set all literals to be read-only via a paxkage postscript which avoids the recompile step. =============== Diff against Compiler-nice.417 =============== Item was changed: ----- Method: Encoder>>litIndex: (in category 'encoding') ----- litIndex: literal | p | p := literalStream position. p = self maxNumLiterals ifTrue: [self notify: 'More than ', self maxNumLiterals printString, ' literals referenced.\You must split or otherwise simplify this method.\The ' withCRs, (self maxNumLiterals + 1) printString, 'th literal is: ', literal printString. ^nil]. + literal isLiteral ifTrue: "filters out BlockClosures, ExternalLibraryFunctions" + [(literal isReadOnlyObject + or: [literal isVariableBinding]) ifFalse: + [literal setIsReadOnlyObject: true]]. "Would like to show where it is in the source code, but that info is hard to get." literalStream nextPut: literal. ^p! Item was changed: ----- Method: Parser>>externalFunctionDeclaration (in category 'primitives') ----- externalFunctionDeclaration "Parse the function declaration for a call to an external library." | descriptorClass callType modifier retType externalName args argType module fn | descriptorClass := cue environment valueOf: #ExternalFunction ifAbsent: [^ false]. callType := descriptorClass callingConventionFor: here. callType == nil ifTrue:[^false]. [modifier := descriptorClass callingConventionModifierFor: token. modifier notNil] whileTrue: [self advance. callType := callType bitOr: modifier]. "Parse return type" self advance. retType := self externalType: descriptorClass. retType == nil ifTrue:[^self expected:'return type']. "Parse function name or index" externalName := here. (self match: #string) ifTrue:[externalName := externalName asSymbol] ifFalse:[(self match:#number) ifFalse:[^self expected:'function name or index']]. (self match: #leftParenthesis) ifFalse:[^self expected:'argument list']. args := WriteStream on: Array new. [self match: #rightParenthesis] whileFalse:[ argType := self externalType: descriptorClass. argType == nil ifTrue:[^self expected:'argument']. argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]]. (self matchToken: 'module:') ifTrue:[ module := here. (self match: #string) ifFalse:[^self expected: 'String']. module := module asSymbol]. Smalltalk at: #ExternalLibraryFunction ifPresent:[:xfn| fn := xfn name: externalName module: module callType: callType returnType: retType argumentTypes: args contents. + self litIndex: fn. + fn beWritableObject. "Undo the read-only setting in litIndex:"]. - self allocateLiteral: fn]. (self matchToken: 'error:') ifTrue: [| errorCodeVariable | errorCodeVariable := here. (hereType == #string or: [hereType == #word]) ifFalse:[^self expected: 'error code (a variable or string)']. self advance. self addPragma: (Pragma keyword: #primitive:error: arguments: (Array with: 120 with: errorCodeVariable)). fn ifNotNil: [fn setErrorCodeName: errorCodeVariable]] ifFalse: [self addPragma: (Pragma keyword: #primitive: arguments: #(120))]. ^true! Item was changed: ----- Method: Parser>>primitive:module:error: (in category 'primitives') ----- primitive: aNameString module: aModuleStringOrNil error: errorCodeVariableOrNil "Create named primitive with optional error code." + | firstLiteral | - (aNameString isString and: [ aModuleStringOrNil isNil or: [ aModuleStringOrNil isString ] ]) ifFalse: [ ^ self expected: 'Named primitive' ]. + firstLiteral := { aModuleStringOrNil ifNotNil: [aModuleStringOrNil asSymbol]. + aNameString asSymbol. + 0. + 0 }. + (encoder litIndex: firstLiteral) ~= 0 ifTrue: + [self error: 'parser failed to allocate [primitive binding array as first literal']. + firstLiteral beWritableObject. "Undo the read-only setting in litIndex:" - self allocateLiteral: (Array - with: (aModuleStringOrNil isNil - ifFalse: [ aModuleStringOrNil asSymbol ]) - with: aNameString asSymbol - with: 0 with: 0). errorCodeVariableOrNil ifNotNil: [encoder floatTemp: (encoder bindTemp: errorCodeVariableOrNil) nowHasDef]. ^117! Item was changed: (PackageInfo named: 'Compiler') postscript: '"below, add code to be run after the loading of this package" + + "Make all relevant literals read-only, avoiding the recompile step, so as to avoid unbound methods" + self systemNavigation allSelect: + [:m| + m allLiteralsDo: + [:l| + (l isLiteral + and: [(l isCollection or: [l isNumber and: [l isReadOnlyObject not]]) + and: [(l isArray and: [m primitive == 117 and: [l == (m literalAt: 1)]]) not]]) ifTrue: + [l beReadOnlyObject]]. + false]'! - "Make sure that all those ``code generation (closures)'''' categoies disappear" - ParseNode withAllSubclasses do: - [:pnc| pnc organization removeEmptyCategories]'!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2020