Packages August 2018

packages@lists.squeakfoundation.org

1 participants
21 discussions

The Trunk: KernelTests-cmm.348.mcz
by commits＠source.squeak.org 29 Aug '18

29 Aug '18

Chris Muller uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.348.mcz ==================== Summary ==================== Name: KernelTests-cmm.348 Author: cmm Time: 29 August 2018, 5:54:41.347658 pm UUID: 684f3fdd-c6e7-4fbd-a467-5836ba630909 Ancestors: KernelTests-eem.347 Added test which exposes a bug in detection of duplicate inst-var names in class hierarchies. =============== Diff against KernelTests-eem.347 =============== Item was changed: ClassTestCase subclass: #ClassBuilderTest + instanceVariableNames: 'baseClass subClass baseClass2 subSubClass' - instanceVariableNames: 'baseClass subClass' classVariableNames: '' poolDictionaries: '' category: 'KernelTests-Classes'! Item was changed: ----- Method: ClassBuilderTest>>cleanup (in category 'utilities') ----- cleanup + subSubClass ifNotNil:[subSubClass removeFromSystem]. subClass ifNotNil:[subClass removeFromSystem]. baseClass ifNotNil:[baseClass removeFromSystem]. + baseClass2 ifNotNil: [baseClass2 removeFromSystem]. (Smalltalk organization listAtCategoryNamed: self categoryNameForTemporaryClasses) isEmpty ifTrue: [Smalltalk organization removeCategory: self categoryNameForTemporaryClasses]! Item was added: + ----- Method: ClassBuilderTest>>subSubClassName (in category 'utilities') ----- + subSubClassName + ^#DummyClassBuilderFormatTestSubSubClass! Item was changed: ----- Method: ClassBuilderTest>>testDuplicateInstanceVariableError (in category 'testing - reshape') ----- testDuplicateInstanceVariableError + | didRaise | + "Define 'var' in a superclass." + baseClass := Object + subclass: self baseClassName - baseClass := Object subclass: self baseClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' category: self categoryNameForTemporaryClasses. + "Ensure trying to define a subclass with same var errors." + didRaise := false. + [baseClass subclass: self subClassName - - self should:[ - subClass := baseClass subclass: self subClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses ] + on: DuplicateVariableError do: + [ : err | + didRaise := true. + self assert: err superclass == baseClass. + self assert: err variable = 'var' ]. + self assert: didRaise. + "Prepare for next test: Remove 'var' from superclass." + baseClass := Object + subclass: self baseClassName - category: self categoryNameForTemporaryClasses - ] raise: DuplicateVariableError. - - [subClass := baseClass subclass: self subClassName - instanceVariableNames: 'var' - classVariableNames: '' - poolDictionaries: '' - category: self categoryNameForTemporaryClasses - ] on: DuplicateVariableError do:[:ex| - self assert: ex superclass == baseClass. - self assert: ex variable = 'var'. - ex resume. - ]. - - baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: self categoryNameForTemporaryClasses. + "Define a subclass without 'var'..." + subClass := baseClass + subclass: self subClassName + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self categoryNameForTemporaryClasses. + "... but with a subclass of THAT, with 'var' defined." + subSubClass := subClass subclass: self subSubClassName + instanceVariableNames: 'var' + classVariableNames: '' + poolDictionaries: '' + category: self categoryNameForTemporaryClasses. + "... as well as a different base class with 'var' already defined..." + baseClass2 := Object + subclass: (self baseClassName,'2') asSymbol + instanceVariableNames: 'var' + classVariableNames: '' + poolDictionaries: '' + category: self categoryNameForTemporaryClasses. + "...and now try to move the middle subClass, whose subclass (a.k.a., subSubClass) defines 'var', to the new baseClass which also defines 'var'." + didRaise := false. + [baseClass2 subclass: self subClassName + instanceVariableNames: '' - - self should:[ - baseClass := Object subclass: self baseClassName - instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses ] + on: DuplicateVariableError do: + [ : err | + didRaise := true. + self assert: err superclass == baseClass2. + self assert: err variable = 'var' ]. + self assert: didRaise! - category: self categoryNameForTemporaryClasses. - ] raise: DuplicateVariableError. - - [baseClass := Object subclass: self baseClassName - instanceVariableNames: 'var' - classVariableNames: '' - poolDictionaries: '' - category: self categoryNameForTemporaryClasses. - ] on: DuplicateVariableError do:[:ex| - self assert: ex superclass == baseClass. - self assert: ex variable = 'var'. - ex resume. - ].!

1 0

The Trunk: Collections-eem.804.mcz
by commits＠source.squeak.org 25 Aug '18

25 Aug '18

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.804.mcz ==================== Summary ==================== Name: Collections-eem.804 Author: eem Time: 25 August 2018, 3:03:35.102786 pm UUID: e4fae5d7-2676-4f01-bc05-21ac3946d248 Ancestors: Collections-eem.803 Fix TranscriptStream class>>redirectToStdOut: on "platforms" where stdout is not necessarily available (Windows). The existing implementation raises an error on start up on these "platforms". =============== Diff against Collections-dtl.802 =============== Item was changed: ----- Method: Dictionary>>fillFrom:with: (in category 'private') ----- fillFrom: aCollection with: aBlock "Evaluate aBlock with each of aCollections's elements as the argument. Collect the resulting values into self. Answer self." + aCollection isSequenceable + ifTrue: + [aCollection associationsDo: + [ :element | self add: (aBlock value: element)]] + ifFalse: + [aCollection keysAndValuesDo: + [ :key :value | self at: key put: (aBlock value: value)]]! - aCollection keysAndValuesDo: [ :key :value | - self at: key put: (aBlock value: value) ]! Item was changed: ----- Method: TranscriptStream class>>redirectToStdOut: (in category 'preferences') ----- redirectToStdOut: aBoolean + "In setting up redirection, first remove all dependents that are stdout, + which may include stale files from the last session. Then add a dependency + only if asked to redirect to stdout. Blithely doing + Transcript removeDependent: FileStream stdout + raises an error if stdout is unavailable." + Transcript dependents do: + [:dep| + (dep isStream and: [dep name = #stdout]) ifTrue: + [Transcript removeDependent: dep]]. + (RedirectToStdOut := aBoolean) ifTrue: + [Transcript addDependent: FileStream stdout]! - - (RedirectToStdOut := aBoolean) - ifTrue: [Transcript addDependent: FileStream stdout] - ifFalse: [Transcript removeDependent: FileStream stdout].!

1 0

The Trunk: System-eem.1041.mcz
by commits＠source.squeak.org 24 Aug '18

24 Aug '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1041.mcz ==================== Summary ==================== Name: System-eem.1041 Author: eem Time: 24 August 2018, 3:27:21.106494 pm UUID: d696fe38-c1f1-f347-aa6a-9f53055d2306 Ancestors: System-eem.1040 Add the image side primitive error support for FFI exceptions. See ExceptionInFFICallError's class comment for an example. =============== Diff against System-eem.1040 =============== Item was added: + PrimitiveError subclass: #ExceptionInFFICallError + instanceVariableNames: 'pc' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Support'! + + !ExceptionInFFICallError commentStamp: 'eem 8/24/2018 15:21' prior: 0! + An ExceptionInFFICallError is used to answer the exception code and program counter at which an exceprion occurred during an FFI call. Note that such exceptions are only delivered under certain circumstances, by default if an FFI callout method includes an error code variable. But the VM provides command-line arguments to override this behaviour, either to always deliver or never deliver such exceptions as primitive failures. And support appeared in VMs from VMMaker.oscog-eem.2433 or later. + + Instance Variables + pc: <Integer> + + errorCode (inherited) + - the error code for the exception, which is platform-dependent. e.g. on Win32 it is the ExceptionRecord->ExceptionCode, such as 16rC0000005, and on Unix it is SIGBUS, SIGILL, SIGSEGV et al. + + pc + - the program counter of the instruction that raised an exception + + Here is a small FFI example to provoke such an error. Warning: this will crash the VM if either the VM is too old, or if ExternalFunction>>#invokeWithArguments: is lacking an error code, or if the handling has been overridden by the relevant VM command line argument. + + | pt handleClass elf | + pt := Parser new parse: 'function <cdecl: void ''foo'' () error: ec> self ffiCallFailedWith: ec' class: UndefinedObject. + elf := pt encoder literals first. + handleClass := elf getHandle class. + ByteArray adoptInstance: elf getHandle. "otherwise ExternalHandle access fails cuz address not in heap" + Smalltalk wordSize = 8 + ifTrue: [elf getHandle unsignedLongLongAt: 1 put: 17] + ifFalse: [elf getHandle unsignedLongAt: 1 put: 17]. + handleClass adoptInstance: elf getHandle. + elf invoke + ! Item was added: + ----- Method: ExceptionInFFICallError>>isExceptionInFFICallError (in category 'testing') ----- + isExceptionInFFICallError + "Answer if the receiver is an error object for an exception during an FFI call." + ^true! Item was added: + ----- Method: ExceptionInFFICallError>>pc (in category 'accessing') ----- + pc + + ^ pc! Item was added: + ----- Method: ExceptionInFFICallError>>pc: (in category 'accessing') ----- + pc: anObject + + pc := anObject.! Item was changed: ----- Method: Object>>isPrimitiveError (in category '*system-support') ----- isPrimitiveError + "Answer if the receiver is an error object returned by a primitive." - "Answer a boolean indicating if the receiver is an error object returned by a primitive" ^false! Item was added: + ----- Method: PrimitiveError>>isExceptionInFFICallError (in category 'testing') ----- + isExceptionInFFICallError + "Answer if the receiver is an error object for an exception during an FFI call." + ^false! Item was changed: ----- Method: PrimitiveError>>isPrimitiveError (in category 'testing') ----- isPrimitiveError + "Answer if the receiver is an error object returned by a primitive." - "Answer a boolean indicating if the receiver is an error object returned by a primitive" ^true! Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 60. "Nil false and true get used throughout the VM" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self specialObjectsArray at: 4) "(self bindingOf: #Processor) but it answers an Alias". "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: BoxedFloat64. newArray at: 11 put: (self globals at: #Context). newArray at: 12 put: nil. "was BlockContext." newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: ((self specialObjectsArray at: 18) ifNil: [Semaphore new]). "low space Semaphore" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #~~ 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. Cog inlines table into machine code at: prim so do not regenerate it. This is nil in Spur, which has immediate Characters." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers; an empty array in Spur" newArray at: 29 put: self compactClassesArray. newArray at: 30 put: ((self specialObjectsArray at: 30) ifNil: [Semaphore new]). "delay Semaphore" newArray at: 31 put: ((self specialObjectsArray at: 31) ifNil: [Semaphore new]). "user interrupt Semaphore" "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" newArray at: 32 put: nil. "was the prototype Float" newArray at: 33 put: nil. "was the prototype 4-byte LargePositiveInteger" newArray at: 34 put: nil. "was the prototype Point" newArray at: 35 put: #cannotInterpret:. newArray at: 36 put: nil. "was the prototype MethodContext" newArray at: 37 put: BlockClosure. newArray at: 38 put: nil. "was the prototype BlockContext" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: ((self specialObjectsArray at: 41) ifNil: [LinkedList new]). "Reserved for a LinkedList instance for overlapped calls in CogMT" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). "finalization Semaphore" newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" newArray at: 51 put: #attemptToAssign:withIndex:. newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move' #'resource limit exceeded' #'object is pinned' #'primitive write beyond end of object' #'object moved' #'object not pinned' #'callback error'), + {PrimitiveError new errorName: #'operating system error'; yourself. + ExceptionInFFICallError new errorName: #'exception in FFI call'; yourself}. - {PrimitiveError new errorName: #'operating system error'; yourself}. "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallbackContext:. "use invokeCallback:stack:registers:jmpbuf: for old Alien callbacks." newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Used to be WeakFinalizationList for WeakFinalizationList hasNewFinalization, obsoleted by ephemeron support." newArray at: 56 put: nil. "reserved for foreign callback process" newArray at: 57 put: (self specialObjectsArray at: 57 ifAbsent: []). newArray at: 58 put: #unusedBytecode. "59 reserved for Sista counter tripped message" newArray at: 59 put: #conditionalBranchCounterTrippedOn:. "60 reserved for Sista class trap message" newArray at: 60 put: #classTrapFor:. "Now replace the virtual machine's reference in one atomic operation" self specialObjectsArray becomeForward: newArray! Item was changed: (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUp: true. + (UserInterfaceTheme named: UserInterfaceTheme current name) apply. + (Smalltalk primitiveErrorTable size >= 22 + and: [(Smalltalk primitiveErrorTable at: 22) isPrimitiveError + and: [(Smalltalk primitiveErrorTable at: 22) isExceptionInFFICallError]]) ifFalse: + [Smalltalk recreateSpecialObjectsArray]'! - (UserInterfaceTheme named: UserInterfaceTheme current name) apply.'!

1 0

The Trunk: Compiler-bf.393.mcz
by commits＠source.squeak.org 24 Aug '18

24 Aug '18

Bert Freudenberg uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-bf.393.mcz ==================== Summary ==================== Name: Compiler-bf.393 Author: bf Time: 23 August 2018, 7:44:43.576279 pm UUID: 860565e2-2f2c-49bb-9e2f-e0d69d7b46c5 Ancestors: Compiler-bf.392 Fix pc highlighting for ifNil:ifNotNil:. =============== Diff against Compiler-bf.392 =============== Item was changed: ----- Method: MessageNode>>transformIfNilIfNotNil: (in category 'macro transformations') ----- transformIfNilIfNotNil: encoder "vb: Changed to support one-argument ifNotNil: branch. In the 1-arg case we transform the receiver to (var := receiver) which is further transformed to (var := receiver) == nil ifTrue: .... ifFalse: ... This does not allow the block variable to shadow an existing temp, but it's no different from how to:do: is done." | ifNotNilArg | ifNotNilArg := arguments at: 2. ((self checkBlock: (arguments at: 1) as: 'Nil arg' from: encoder maxArgs: 0) and: [self checkBlock: ifNotNilArg as: 'NotNil arg' from: encoder maxArgs: 1]) ifFalse: [^false]. ifNotNilArg numberOfArguments = 1 ifTrue: [receiver := AssignmentNode new variable: ifNotNilArg firstArgument + value: receiver. + encoder noteSourceRange: (encoder sourceRangeFor: self) forNode: receiver]. - value: receiver]. selector := SelectorNode new key: #ifTrue:ifFalse: code: #macro. receiver := MessageNode new receiver: receiver selector: #== arguments: (Array with: NodeNil) precedence: 2 from: encoder. + encoder noteSourceRange: (encoder sourceRangeFor: self) forNode: receiver. arguments do: [:arg| arg noteOptimizedIn: self]. ^true! Item was changed: ----- Method: MessageNode>>transformIfNotNilIfNil: (in category 'macro transformations') ----- transformIfNotNilIfNil: encoder "vb: Changed to support one-argument ifNotNil: branch. In the 1-arg case we transform the receiver to (var := receiver) which is further transformed to (var := receiver) == nil ifTrue: .... ifFalse: ... This does not allow the block variable to shadow an existing temp, but it's no different from how to:do: is done." | ifNotNilArg | ifNotNilArg := arguments at: 1. ((self checkBlock: ifNotNilArg as: 'NotNil arg' from: encoder maxArgs: 1) and: [self checkBlock: (arguments at: 2) as: 'Nil arg' from: encoder maxArgs: 0]) ifFalse: [^false]. ifNotNilArg numberOfArguments = 1 ifTrue: [receiver := AssignmentNode new variable: ifNotNilArg firstArgument + value: receiver. + encoder noteSourceRange: (encoder sourceRangeFor: self) forNode: receiver]. - value: receiver]. selector := SelectorNode new key: #ifTrue:ifFalse: code: #macro. receiver := MessageNode new receiver: receiver selector: #== arguments: (Array with: NodeNil) precedence: 2 from: encoder. + encoder noteSourceRange: (encoder sourceRangeFor: self) forNode: receiver. arguments swap: 1 with: 2. arguments do: [:arg| arg noteOptimizedIn: self]. ^true!

1 0

The Trunk: Compiler-bf.392.mcz
by commits＠source.squeak.org 24 Aug '18

24 Aug '18

Bert Freudenberg uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-bf.392.mcz ==================== Summary ==================== Name: Compiler-bf.392 Author: bf Time: 23 August 2018, 6:06:38.314464 pm UUID: 039d1b50-5fe6-4c03-b82f-8015a2bac469 Ancestors: Compiler-eem.391 Mark macro senders for browsing =============== Diff against Compiler-eem.391 =============== Item was added: + ----- Method: MessageNode class>>isMacroEmitter: (in category 'browsing support') ----- + isMacroEmitter: aLiteral + "Let our macro methods be found when browsing senders" + ^aLiteral isSymbol + and: [MacroEmitters includes: aLiteral]! Item was added: + ----- Method: MessageNode class>>isMacroPrinter: (in category 'browsing support') ----- + isMacroPrinter: aLiteral + "Let our macro methods be found when browsing senders" + ^aLiteral isSymbol + and: [MacroPrinters includes: aLiteral] + ! Item was added: + ----- Method: MessageNode class>>isMacroSizer: (in category 'browsing support') ----- + isMacroSizer: aLiteral + "Let our macro methods be found when browsing senders" + ^aLiteral isSymbol + and: [MacroSizers includes: aLiteral] + ! Item was added: + ----- Method: MessageNode class>>isMacroTransformer: (in category 'browsing support') ----- + isMacroTransformer: aLiteral + "Let our macro methods be found when browsing senders" + ^aLiteral isSymbol + and: [MacroTransformers includes: aLiteral]! Item was changed: ----- Method: MessageNode>>emitCodeForEffect:encoder: (in category 'code generation') ----- emitCodeForEffect: stack encoder: encoder "For #ifTrue:ifFalse: and #whileTrue: / #whileFalse: style messages, the pc is set to the jump instruction, so that mustBeBoolean exceptions can be shown correctly." + <hasLiteralTest: #isMacroEmitter:> special > 0 ifTrue: [pc := 0. self perform: (MacroEmitters at: special) with: stack with: encoder with: false] ifFalse: [super emitCodeForEffect: stack encoder: encoder]! Item was changed: ----- Method: MessageNode>>emitCodeForValue:encoder: (in category 'code generation') ----- emitCodeForValue: stack encoder: encoder "For #ifTrue:ifFalse: and #whileTrue: / #whileFalse: style messages, the pc is set to the jump instruction, so that mustBeBoolean exceptions can be shown correctly." + <hasLiteralTest: #isMacroEmitter:> special > 0 ifTrue: [pc := 0. self perform: (MacroEmitters at: special) with: stack with: encoder with: true] ifFalse: [receiver ~~ nil ifTrue: [receiver emitCodeForValue: stack encoder: encoder]. arguments do: [:argument | argument emitCodeForValue: stack encoder: encoder]. pc := encoder nextPC. "debug pc is first byte of the send, i.e. the next byte". selector emitCode: stack args: arguments size encoder: encoder super: receiver == NodeSuper]! Item was changed: ----- Method: MessageNode>>printOn:indent: (in category 'printing') ----- printOn: aStream indent: level "may not need this check anymore - may be fixed by the #receiver: change" + <hasLiteralTest: #isMacroPrinter:> + special ifNil: [^aStream nextPutAll: '** MessageNode with nil special **']. special > 0 ifTrue: [^self perform: self macroPrinter with: aStream with: level]. self printReceiver: receiver on: aStream indent: level. selector isForFFICall ifTrue: [aStream space. selector printAsFFICallWithArguments: arguments on: aStream indent: 0] ifFalse: [self printKeywords: selector key arguments: arguments on: aStream indent: level]! Item was changed: ----- Method: MessageNode>>printWithClosureAnalysisOn:indent: (in category 'printing') ----- printWithClosureAnalysisOn: aStream indent: level "may not need this check anymore - may be fixed by the #receiver: change" + <hasLiteralTest: #isMacroPrinter:> + special ifNil: [^aStream nextPutAll: '** MessageNode with nil special **']. special > 0 ifTrue: [^self perform: self macroPrinter with: aStream with: level]. self printWithClosureAnalysisReceiver: receiver on: aStream indent: level. self printWithClosureAnalysisKeywords: selector key arguments: arguments on: aStream indent: level! Item was changed: ----- Method: MessageNode>>sizeCodeForEffect: (in category 'code generation') ----- sizeCodeForEffect: encoder + <hasLiteralTest: #isMacroSizer:> special > 0 ifTrue: [encoder noteOptimizedSelector: originalSelector. ^self perform: (MacroSizers at: special) with: encoder with: false]. ^super sizeCodeForEffect: encoder! Item was changed: ----- Method: MessageNode>>sizeCodeForValue: (in category 'code generation') ----- sizeCodeForValue: encoder + <hasLiteralTest: #isMacroSizer:> | total | special > 0 ifTrue: [encoder noteOptimizedSelector: originalSelector. ^self perform: (MacroSizers at: special) with: encoder with: true]. receiver == NodeSuper ifTrue: [selector := selector forSuperSend "only necessary for special selectors"]. total := selector sizeCode: encoder args: arguments size super: receiver == NodeSuper. receiver ifNotNil: [total := total + (receiver sizeCodeForValue: encoder)]. sizes := arguments collect: [:arg | | argSize | argSize := arg sizeCodeForValue: encoder. total := total + argSize. argSize]. ^total! Item was changed: ----- Method: MessageNode>>transform: (in category 'macro transformations') ----- transform: encoder + <hasLiteralTest: #isMacroTransformer:> + special = 0 ifTrue: [^false]. (self perform: (MacroTransformers at: special) with: encoder) ifTrue: [^true] ifFalse: [special := 0. ^false]!

1 0

The Trunk: Kernel-eem.1189.mcz
by commits＠source.squeak.org 22 Aug '18

22 Aug '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1189.mcz ==================== Summary ==================== Name: Kernel-eem.1189 Author: eem Time: 22 August 2018, 3:10:02.805606 pm UUID: 5e417598-ae15-4ccc-ac34-d14015fc48b7 Ancestors: Kernel-eem.1188 and remove Object>>perform:with:with:with:with:with: which I committed in error from a VMMaker image. =============== Diff against Kernel-eem.1188 =============== Item was removed: - ----- Method: Object>>perform:with:with:with:with:with: (in category 'message handling') ----- - perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject - "Send the selector, aSymbol, to the receiver with the given arguments. - Fail if the number of arguments expected by the selector is not five. - Primitive. Optional. See Object documentation whatIsAPrimitive." - - <primitive: 83> - ^ self perform: aSymbol withArguments: { firstObject. secondObject. thirdObject. fourthObject. fifthObject }!

1 0

The Trunk: Kernel-eem.1188.mcz
by commits＠source.squeak.org 22 Aug '18

22 Aug '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1188.mcz ==================== Summary ==================== Name: Kernel-eem.1188 Author: eem Time: 22 August 2018, 3:07:49.600876 pm UUID: ecaf5086-5596-4e43-a9f6-82207e9f99d0 Ancestors: Kernel-eem.1187 Use tuples to create the Arrays in a few places. The bytecode is more compact as well as being quicker. =============== Diff against Kernel-eem.1187 =============== Item was changed: ----- Method: InstructionStream class>>initialize (in category 'class initialization') ----- initialize + "Initialize an array of special constants returned by single-bytecode returns + in the SqueakV3 bytecode set." - "Initialize an array of special constants returned by single-bytecode returns." + SpecialConstants := {true. false. nil. -1. 0. 1. 2} - SpecialConstants := - (Array with: true with: false with: nil) - , (Array with: -1 with: 0 with: 1 with: 2) "InstructionStream initialize." ! Item was changed: ----- Method: Object>>perform: (in category 'message handling') ----- perform: aSymbol "Send the unary selector, aSymbol, to the receiver. Fail if the number of arguments expected by the selector is not zero. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> + ^ self perform: aSymbol withArguments: {}! - ^ self perform: aSymbol withArguments: (Array new: 0)! Item was changed: ----- Method: Object>>perform:with: (in category 'message handling') ----- perform: aSymbol with: anObject "Send the selector, aSymbol, to the receiver with anObject as its argument. Fail if the number of arguments expected by the selector is not one. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> + ^ self perform: aSymbol withArguments: { anObject }! - ^ self perform: aSymbol withArguments: (Array with: anObject)! Item was changed: ----- Method: Object>>perform:with:with: (in category 'message handling') ----- perform: aSymbol with: firstObject with: secondObject "Send the selector, aSymbol, to the receiver with the given arguments. Fail if the number of arguments expected by the selector is not two. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> + ^ self perform: aSymbol withArguments: { firstObject. secondObject }! - ^ self perform: aSymbol withArguments: (Array with: firstObject with: secondObject)! Item was changed: ----- Method: Object>>perform:with:with:with: (in category 'message handling') ----- perform: aSymbol with: firstObject with: secondObject with: thirdObject "Send the selector, aSymbol, to the receiver with the given arguments. Fail if the number of arguments expected by the selector is not three. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> + ^ self perform: aSymbol withArguments: { firstObject. secondObject. thirdObject }! - ^ self perform: aSymbol - withArguments: (Array with: firstObject with: secondObject with: thirdObject)! Item was changed: ----- Method: Object>>perform:with:with:with:with: (in category 'message handling') ----- perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject "Send the selector, aSymbol, to the receiver with the given arguments. Fail if the number of arguments expected by the selector is not four. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> + ^ self perform: aSymbol withArguments: { firstObject. secondObject. thirdObject. fourthObject }! - ^ self perform: aSymbol - withArguments: (Array with: firstObject with: secondObject with: thirdObject with: fourthObject)! Item was changed: ----- Method: Object>>perform:with:with:with:with:with: (in category 'message handling') ----- perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject "Send the selector, aSymbol, to the receiver with the given arguments. Fail if the number of arguments expected by the selector is not five. Primitive. Optional. See Object documentation whatIsAPrimitive." <primitive: 83> + ^ self perform: aSymbol withArguments: { firstObject. secondObject. thirdObject. fourthObject. fifthObject }! - ^ self perform: aSymbol - withArguments: (Array with: firstObject with: secondObject with: thirdObject with: fourthObject with: fifthObject)!

1 0

The Trunk: System-eem.1040.mcz
by commits＠source.squeak.org 21 Aug '18

21 Aug '18

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1040.mcz ==================== Summary ==================== Name: System-eem.1040 Author: eem Time: 21 August 2018, 4:24:32.752185 pm UUID: 3faa888d-fcee-4714-99a0-7f1e72a82022 Ancestors: System-fn.1039 Auto-select for browseAllCallsOn:and: =============== Diff against System-fn.1039 =============== Item was changed: ----- Method: SystemNavigation>>browseAllCallsOn:and: (in category 'browse') ----- browseAllCallsOn: literal1 and: literal2 "Create and schedule a message browser on each method that calls on the two Symbols, literal1 and literal2." "self default browseAllCallsOn: #at: and: #at:put:." + | both autoSelect | + both := { literal1. literal2}. + autoSelect := both + detect: [:ea| ea isSymbol] + ifNone: [(both + detect: [:ea| ea isVariableBinding and: [ea key isSymbol]] + ifNone: []) ifNotNil: [:vb| vb key]]. - ^self browseMessageList: [ self allCallsOn: literal1 and: literal2 ] + name: literal1 printString , ' -and- ' , literal2 printString + autoSelect: autoSelect! - name: literal1 printString , ' -and- ' , literal2 printString!

1 0

The Trunk: Compiler-eem.391.mcz
by commits＠source.squeak.org 21 Aug '18

21 Aug '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.391.mcz ==================== Summary ==================== Name: Compiler-eem.391 Author: eem Time: 21 August 2018, 3:37:49.438481 pm UUID: 95e267a4-cfe8-4aa4-8e83-876603470983 Ancestors: Compiler-bf.390 Fix pc highlighting for ifNil:[ifNotNil:] et al, as in {char ifNil: [ Error signal ]} in | str char | str := '1234' readStream. char := str next. char ifNil: [ Error signal ]. char caseOf: { [$4] -> ['four']. [$3] -> ['three' asUppercase]. [$2] -> ['two']. [$1] -> ['one' asUppercase]. } otherwise: [ 'No' ]. =============== Diff against Compiler-bf.390 =============== Item was changed: ----- Method: MessageNode>>emitCodeForIfNil:encoder:value: (in category 'code generation') ----- emitCodeForIfNil: stack encoder: encoder value: forValue | theNode theSize ifNotNilSelector | theNode := arguments first. theSize := sizes at: 1. ifNotNilSelector := #ifNotNil:. receiver emitCodeForValue: stack encoder: encoder. forValue ifTrue: [encoder genDup. stack push: 1]. encoder genPushSpecialLiteral: nil. stack push: 1. equalNode emitCode: stack args: 1 encoder: encoder. + pc := encoder pc. self emitCodeForBranchOn: (selector key == ifNotNilSelector) dist: theSize pop: stack encoder: encoder. - pc := encoder pc. forValue ifTrue: [encoder genPop. stack pop: 1. theNode emitCodeForEvaluatedValue: stack encoder: encoder] ifFalse: [theNode emitCodeForEvaluatedEffect: stack encoder: encoder]!

1 0

The Trunk: Services-Base-cmm.65.mcz
by commits＠source.squeak.org 21 Aug '18

21 Aug '18

Chris Muller uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-cmm.65.mcz ==================== Summary ==================== Name: Services-Base-cmm.65 Author: cmm Time: 20 August 2018, 7:50:42.081643 pm UUID: 6070147d-ed58-4d1b-b078-4aeda587a3f2 Ancestors: Services-Base-tpr.64 Fixes a minor bug with the use of up/down arrow keys in the message list of an "inheritance (i)" browser, when traceMessages and reuseWindows are both active, and the inheritance window was already open but with a different method selected than the one it was invoked from. =============== Diff against Services-Base-tpr.64 =============== Item was added: + ----- Method: MessageTrace>>selectReference: (in category '*services-base') ----- + selectReference: aMethodReference + super selectReference: aMethodReference. + self okToChange ifTrue: [ anchorIndex := messageListIndex ]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2018