Packages April 2017

packages@lists.squeakfoundation.org

1 participants
121 discussions

The Trunk: Compiler-eem.340.mcz
by commits＠source.squeak.org 06 Apr '17

06 Apr '17

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.340.mcz ==================== Summary ==================== Name: Compiler-eem.340 Author: eem Time: 3 April 2017, 5:00:32.319924 pm UUID: 76902ca3-f64d-427a-af3d-466a103a3ce3 Ancestors: Compiler-eem.339 Use the encoder-specifc limit for maxNumLiterals. =============== Diff against Compiler-eem.339 =============== Item was changed: ----- Method: BytecodeEncoder>>computeMethodHeaderForNumArgs:numTemps:numLits:primitive: (in category 'method generation') ----- computeMethodHeaderForNumArgs: numArgs numTemps: numTemps numLits: numLits primitive: primitiveIndex numArgs > 15 ifTrue: [^self error: 'Cannot compile -- too many arguments']. numTemps > 63 ifTrue: [^self error: 'Cannot compile -- too many temporary variables']. + numLits > self maxNumLiterals ifTrue: - numLits > 32767 ifTrue: [^self error: 'Cannot compile -- too many literals']. ^(CompiledMethod headerFlagForEncoder: self) + (numArgs bitShift: 24) + (numTemps bitShift: 18) "+ (largeBit bitShift: 17)" "largeBit gets filled in later" + (primitiveIndex > 0 ifTrue: [1 bitShift: 16] ifFalse: [0]) "+ (optimizedBit bitShift: 15)" "Sista marker may get filled in later" + numLits!

1 0

The Trunk: Kernel-eem.1086.mcz
by commits＠source.squeak.org 05 Apr '17

05 Apr '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1086.mcz ==================== Summary ==================== Name: Kernel-eem.1086 Author: eem Time: 4 April 2017, 5:56:56.293644 pm UUID: b7a5b8d8-6a97-4193-87b9-f1ca83a6f52d Ancestors: Kernel-eem.1085 Improve Context's comment and move methods out of the effectively obsolete closure-specific instruction-decoding category. =============== Diff against Kernel-eem.1085 =============== Item was changed: InstructionStream variableSubclass: #Context instanceVariableNames: 'stackp method closureOrNil receiver' classVariableNames: 'MaxLengthForASingleDebugLogReport MaxStackDepthForASingleDebugLogReport PrimitiveFailToken QuickStep ValueIndex' poolDictionaries: '' category: 'Kernel-Methods'! + !Context commentStamp: 'eem 4/4/2017 17:45' prior: 0! + My instances hold all the dynamic state associated with the execution of either a method activation resulting from a message send or a block activation resulting from a block evaluation. In addition to their inherited state, this includes the receiver (self), the closure for a BlockClosure activation (which is nil for a method activation), a CompiledMethod, and space in the variable part of the context for arguments, temporary variables, and intermediate results, and the stack pointer to the top of stack in this variable part. + + Contexts are created automatically (at least conceptually (*)) whenever a message send activates a method, or a block evaluation activates a block. The current context can always be accessed via the thisContext pseudo-variable. For example, explore the following: + { thisContext. thisContext copy. thisContext method. thisContext pc. thisContext receiver. thisContext stackPtr. thisContext sender }. + + Contexts refer to the context in which they were created via the sender inst var. An execution stack is made up of of a linked list of contexts, linked through their sender inst var. Returning involves returning back to the sender. When a context is returned from its sender and pc are nilled, and, if the context is still referred to, the virtual machine guarantees to preserve only the arguments after a return. A Smalltalk Process is simply a chain of contexts specific to that process. The debugger is essentially a Process inspector. Stepping in the debugger is done by sending messages to contexts to get them to execute their bytecodes. See methods in the instruction decoding protocol. + - !Context commentStamp: 'eem 3/30/2017 17:27' prior: 0! - My instances hold all the dynamic state associated with the execution of either a method activation resulting from a message send or a block activation resulting from a block evaluation. In addition to their inherited state, this includes the receiver (self), the closure for a BlockClosure activation (which is nil for a method activation), a CompiledMethod, and space in the variable part of the context for arguments and temporary variables. - Contexts, though normal in their variable size, are actually only used in two sizes, small and large, which are determined by the temporary space required by the method being executed. + Contexts must only be created using the method newForMethod:. Note that it is impossible to determine the real object size of a Context except by asking for the frameSize of its method. Any fields above the stack pointer (stackp) are truly invisible -- even (and especially!!) to the garbage collector. Any store into stackp other than by the primitive method stackp: is potentially fatal. + + (*) efficient virtual machines create contexts lazily on demand, avoiding the overhead of creating them on every message send and of copying receiver and arguments from sender context to caller context. This optimization is invisible to the Smalltalk system.! - Contexts must only be created using the method newForMethod:. Note that it is impossible to determine the real object size of a Context except by asking for the frameSize of its method. Any fields above the stack pointer (stackp) are truly invisible -- even (and especially!!) to the garbage collector. Any store into stackp other than by the primitive method stackp: is potentially fatal.! Item was changed: + ----- Method: Context>>blockReturnTop (in category 'instruction decoding') ----- - ----- Method: Context>>blockReturnTop (in category 'instruction decoding (closures)') ----- blockReturnTop "Simulate the interpreter's action when a ReturnTopOfStackToCaller bytecode is encountered in the receiver. This should only happen in a closure activation." self assert: closureOrNil isClosure. ^self return: self pop from: self! Item was changed: + ----- Method: Context>>pushConsArrayWithElements: (in category 'instruction decoding') ----- - ----- Method: Context>>pushConsArrayWithElements: (in category 'instruction decoding (closures)') ----- pushConsArrayWithElements: numElements | array | array := Array new: numElements. numElements to: 1 by: -1 do: [:i| array at: i put: self pop]. self push: array!

1 0

The Trunk: EToys-eem.291.mcz
by commits＠source.squeak.org 05 Apr '17

05 Apr '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.291.mcz ==================== Summary ==================== Name: EToys-eem.291 Author: eem Time: 4 April 2017, 5:55:00.217947 pm UUID: c62015f2-3ec7-4885-a001-f7b39758b4d5 Ancestors: EToys-eem.290 Remove more unused cruft from EToys kernel and compiler classes. =============== Diff against EToys-eem.290 =============== Item was removed: - ----- Method: CompiledMethod>>qDecompress: (in category '*Etoys-Squeakland-source code management') ----- - qDecompress: byteArray - "Decompress strings compressed by qCompress:. - Most common 12 chars get values 0-11 packed in one 4-bit nibble; - others get values 12-15 (2 bits) * 16 plus next nibble" - | charTable extended ext | - charTable := "Character encoding table must match qCompress:" - ' eatrnoislcm bdfghjkpquvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'. - ^ String streamContents: - [:strm | extended := false. "Flag for 2-nibble characters" - byteArray do: - [:byte | - (Array with: byte//16 with: byte\\16) - do: - [:nibble | extended - ifTrue: [strm nextPut: (charTable at: ext*16+nibble + 1). extended := false] - ifFalse: [nibble < 12 ifTrue: [strm nextPut: (charTable at: nibble + 1)] - ifFalse: [ext := nibble-12. extended := true]]]]]! Item was removed: - ----- Method: CompiledMethod>>scanLongLoad: (in category '*Etoys-Squeakland-scanning') ----- - scanLongLoad: extension - "Answer whether the receiver contains a long load whose extension is the - argument." - - | scanner | - scanner := InstructionStream on: self. - ^scanner scanFor: [:instr | instr = 128 and: [scanner followingByte = extension]]! Item was removed: - ----- Method: CompiledMethod>>scanLongStore: (in category '*Etoys-Squeakland-scanning') ----- - scanLongStore: extension - "Answer whether the receiver contains a long store whose extension is - the argument." - | scanner | - scanner := InstructionStream on: self. - ^scanner scanFor: - [:instr | (instr = 129 or: [instr = 130]) and: [scanner followingByte = extension]]! Item was removed: - ----- Method: CompiledMethod>>scanVeryLongLoad:offset: (in category '*Etoys-Squeakland-scanning') ----- - scanVeryLongLoad: extension offset: offset - "Answer whether the receiver contains a long load whose extension is the - argument." - | scanner | - scanner := InstructionStream on: self. - ^ scanner scanFor: [:instr | (instr = 132 and: [scanner followingByte = extension]) - and: [scanner thirdByte = offset]]! Item was removed: - ----- Method: Decompiler>>checkForBlock: (in category '*Etoys-Squeakland-control') ----- - checkForBlock: receiver - "We just saw a blockCopy: message. Check for a following block." - - | savePc jump args argPos block | - receiver == constructor codeThisContext ifFalse: [^false]. - savePc := pc. - (jump := self interpretJump) notNil - ifFalse: - [pc := savePc. ^nil]. - "Definitely a block" - jump := jump + pc. - argPos := statements size. - [self willStorePop] - whileTrue: - [stack addLast: ArgumentFlag. "Flag for doStore:" - self interpretNextInstructionFor: self]. - args := Array new: statements size - argPos. - 1 to: args size do: "Retrieve args" - [:i | args at: i put: statements removeLast. - (args at: i) scope: -1 "flag args as block temps"]. - block := self blockTo: jump. - stack addLast: (constructor codeArguments: args block: block). - ^true! Item was removed: - ----- Method: InstructionStream>>interpretExtension:in:for: (in category '*Etoys-Squeakland-private') ----- - interpretExtension: offset in: method for: client - | type offset2 byte2 byte3 | - offset <=6 ifTrue: - ["Extended op codes 128-134" - byte2 := method at: pc. - pc := pc + 1. - offset <= 2 ifTrue: - ["128-130: extended pushes and pops" - type := byte2 // 64. - offset2 := byte2 \\ 64. - offset = 0 ifTrue: - [type = 0 ifTrue: [^ client pushReceiverVariable: offset2]. - type = 1 ifTrue: [^ client pushTemporaryVariable: offset2]. - type = 2 ifTrue: [^ client pushConstant: (method literalAt: offset2 + 1)]. - type = 3 ifTrue: [^ client pushLiteralVariable: (method literalAt: offset2 + 1)]]. - offset = 1 ifTrue: - [type = 0 ifTrue: [^ client storeIntoReceiverVariable: offset2]. - type = 1 ifTrue: [^ client storeIntoTemporaryVariable: offset2]. - type = 2 ifTrue: [self error: 'illegalStore']. - type = 3 ifTrue: [^ client storeIntoLiteralVariable: (method literalAt: offset2 + 1)]]. - offset = 2 ifTrue: - [type = 0 ifTrue: [^ client popIntoReceiverVariable: offset2]. - type = 1 ifTrue: [^ client popIntoTemporaryVariable: offset2]. - type = 2 ifTrue: [self error: 'illegalStore']. - type = 3 ifTrue: [^ client popIntoLiteralVariable: (method literalAt: offset2 + 1)]]]. - "131-134: extended sends" - offset = 3 ifTrue: "Single extended send" - [^ client send: (method literalAt: byte2 \\ 32 + 1) - super: false numArgs: byte2 // 32]. - offset = 4 ifTrue: "Double extended do-anything" - [byte3 := method at: pc. pc := pc + 1. - type := byte2 // 32. - type = 0 ifTrue: [^ client send: (method literalAt: byte3 + 1) - super: false numArgs: byte2 \\ 32]. - type = 1 ifTrue: [^ client send: (method literalAt: byte3 + 1) - super: true numArgs: byte2 \\ 32]. - type = 2 ifTrue: [^ client pushReceiverVariable: byte3]. - type = 3 ifTrue: [^ client pushConstant: (method literalAt: byte3 + 1)]. - type = 4 ifTrue: [^ client pushLiteralVariable: (method literalAt: byte3 + 1)]. - type = 5 ifTrue: [^ client storeIntoReceiverVariable: byte3]. - type = 6 ifTrue: [^ client popIntoReceiverVariable: byte3]. - type = 7 ifTrue: [^ client storeIntoLiteralVariable: (method literalAt: byte3 + 1)]]. - offset = 5 ifTrue: "Single extended send to super" - [^ client send: (method literalAt: byte2 \\ 32 + 1) - super: true numArgs: byte2 // 32]. - offset = 6 ifTrue: "Second extended send" - [^ client send: (method literalAt: byte2 \\ 64 + 1) - super: false numArgs: byte2 // 64]]. - offset = 7 ifTrue: [^ client doPop]. - offset = 8 ifTrue: [^ client doDup]. - offset = 9 ifTrue: [^ client pushActiveContext]. - self error: 'unusedBytecode'!

1 0

The Trunk: EToys-eem.290.mcz
by commits＠source.squeak.org 05 Apr '17

05 Apr '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.290.mcz ==================== Summary ==================== Name: EToys-eem.290 Author: eem Time: 4 April 2017, 5:25:34.811493 pm UUID: 225c2132-0e40-4ed9-9134-9621442c5a2b Ancestors: EToys-eem.289 Eliminate some VMMaker-speciasif cruft from EToys. Have primitiveFindSubstring:in:startingAt:matchTable: declare vars using the pragma form to avoid dependency on the (obsolete) empty Object method. =============== Diff against EToys-eem.289 =============== Item was changed: ----- Method: ByteString>>primitiveFindSubstring:in:startingAt:matchTable: (in category '*Etoys-Squeakland-comparing') ----- primitiveFindSubstring: key in: body startingAt: start matchTable: matchTable "Answer the index in the string body at which the substring key first occurs, at or beyond start. The match is determined using matchTable, which can be used to effect, eg, case-insensitive matches. If no match is found, zero will be returned. The algorithm below is not optimum -- it is intended to be translated to C which will go so fast that it wont matter." | index | <primitive: 'primitiveFindSubstring' module: 'MiscPrimitivePlugin'> + <var: #key declareC: 'unsigned char *key'> + <var: #body declareC: 'unsigned char *body'> + <var: #matchTable declareC: 'unsigned char *matchTable'> - self var: #key declareC: 'unsigned char *key'. - self var: #body declareC: 'unsigned char *body'. - self var: #matchTable declareC: 'unsigned char *matchTable'. key size = 0 ifTrue: [^ 0]. start to: body size - key size + 1 do: [:startIndex | index := 1. [(matchTable at: (body at: startIndex+index-1) asciiValue + 1) = (matchTable at: (key at: index) asciiValue + 1)] whileTrue: [index = key size ifTrue: [^ startIndex]. index := index+1]]. ^ 0 " ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 1 matchTable: CaseSensitiveOrder 1 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 2 matchTable: CaseSensitiveOrder 7 ' ' findSubstring: 'abc' in: 'abcdefabcd' startingAt: 8 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseSensitiveOrder 0 ' ' findSubstring: 'abc' in: 'abcdefABcd' startingAt: 2 matchTable: CaseInsensitiveOrder 7 "! Item was removed: - ----- Method: Object>>var:declareC: (in category '*Etoys-Squeakland-translation support') ----- - var: varSymbol declareC: declString - "For translation only; noop when running in Smalltalk."! Item was removed: - ----- Method: String class>>ccg:prolog:expr:index: (in category '*Etoys-Squeakland-plugin generation') ----- - ccg: cg prolog: aBlock expr: aString index: anInteger - - ^cg - ccgLoad: aBlock - expr: aString - asCharPtrFrom: anInteger - andThen: (cg ccgValBlock: 'isBytes') - ! Item was removed: - ----- Method: String class>>ccgDeclareCForVar: (in category '*Etoys-Squeakland-plugin generation') ----- - ccgDeclareCForVar: aSymbolOrString - - ^'char *', aSymbolOrString - !

1 0

The Trunk: ST80-cmm.227.mcz
by commits＠source.squeak.org 04 Apr '17

04 Apr '17

Chris Muller uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-cmm.227.mcz ==================== Summary ==================== Name: ST80-cmm.227 Author: cmm Time: 4 April 2017, 3:54:17.967782 pm UUID: e738a074-c662-4707-81e2-92802a6bc926 Ancestors: ST80-eem.226 Fix the race condition introduced with Debugger>>'ErrorRecursion' which was causing an inescapable Emergency Evaluator to appear even when there was no recursion. =============== Diff against ST80-eem.226 =============== Item was changed: ----- Method: Debugger class>>mvcOpenContext:label:contents: (in category '*ST80-opening') ----- + mvcOpenContext: aContext label: aString contents: contentsStringOrNil - mvcOpenContext: aContext label: aString contents: contentsStringOrNil "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + "Simulation guard" + <primitive: 19> + ErrorRecursionGuard critical: + [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: + [ Smalltalk + logSqueakError: aString + inContext: aContext ]. + ErrorRecursion ifTrue: + [ ErrorRecursion := false. + self primitiveError: aString ]. + ErrorRecursion := true. + self + informExistingDebugger: aContext + label: aString. + (Debugger mvcContext: aContext) + openNotifierContents: contentsStringOrNil + label: aString. - <primitive: 19> "Simulation guard" - ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: - [Smalltalk logSqueakError: aString inContext: aContext]. - ErrorRecursion ifTrue:[ ErrorRecursion := false. + Processor activeProcess suspend ]! - self primitiveError: aString]. - ErrorRecursion := true. - self informExistingDebugger: aContext label: aString. - (Debugger mvcContext: aContext) - openNotifierContents: contentsStringOrNil - label: aString. - ErrorRecursion := false. - Processor activeProcess suspend.!

1 0

The Trunk: Morphic-cmm.1333.mcz
by commits＠source.squeak.org 04 Apr '17

04 Apr '17

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1333.mcz ==================== Summary ==================== Name: Morphic-cmm.1333 Author: cmm Time: 4 April 2017, 3:52:04.9926 pm UUID: 64767f0b-c6c4-4c32-97a9-d122c30222d5 Ancestors: Morphic-eem.1332 Fix the race condition introduced with Debugger>>'ErrorRecursion' which resulted in the Emergency Evaluator being opened too eagerly (and unable to be closed!) -- even when there was no recursion. =============== Diff against Morphic-eem.1332 =============== Item was changed: ----- Method: Debugger class>>morphicOpenContext:label:contents: (in category '*Morphic-opening') ----- + morphicOpenContext: aContext label: aString contents: contentsStringOrNil - morphicOpenContext: aContext label: aString contents: contentsStringOrNil "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + "Simulation guard" + <primitive: 19> + ErrorRecursionGuard critical: + [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: + [ Smalltalk + logSqueakError: aString + inContext: aContext ]. + ErrorRecursion ifTrue: + [ ErrorRecursion := false. + self primitiveError: aString ]. + ErrorRecursion := true. + self + informExistingDebugger: aContext + label: aString. + (Debugger morphicContext: aContext) + openNotifierContents: contentsStringOrNil + label: aString. - <primitive: 19> "Simulation guard" - ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: - [Smalltalk logSqueakError: aString inContext: aContext]. - ErrorRecursion ifTrue:[ ErrorRecursion := false. + Processor activeProcess suspend ]! - self primitiveError: aString]. - ErrorRecursion := true. - self informExistingDebugger: aContext label: aString. - (Debugger morphicContext: aContext) - openNotifierContents: contentsStringOrNil - label: aString. - ErrorRecursion := false. - Processor activeProcess suspend.! Item was changed: ----- Method: Debugger class>>morphicOpenOn:context:label:contents:fullView: (in category '*Morphic-opening') ----- + morphicOpenOn: process context: context label: title contents: contentsStringOrNil fullView: full - morphicOpenOn: process context: context label: title contents: contentsStringOrNil fullView: full "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger." + ErrorRecursionGuard critical: + [ | errorWasInUIProcess debugger | + ErrorRecursion ifTrue: + [ "self assert: process == Project current uiProcess -- DOCUMENTATION ONLY" + ErrorRecursion := false. + ^ Project current handleFatalDrawingError: title ]. + [ ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue: + [ Smalltalk + logSqueakError: title + inContext: context ] ] + on: Error + do: [ : ex | ex return: nil ]. + ErrorRecursion := true. + errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: process. + "Schedule debugging in deferred UI message because - - | errorWasInUIProcess debugger | - ErrorRecursion ifTrue: [ - "self assert: process == Project current uiProcess -- DOCUMENTATION ONLY" - ErrorRecursion := false. - ^ Project current handleFatalDrawingError: title]. - - [ErrorRecursion not & Preferences logDebuggerStackToFile - ifTrue: [Smalltalk logSqueakError: title inContext: context]] on: Error do: [:ex | ex return: nil]. - - ErrorRecursion := true. - - errorWasInUIProcess := Project current spawnNewProcessIfThisIsUI: process. - - "Schedule debugging in deferred UI message because 1) If process is the current UI process, it is already broken. 2) If process is some other process, it must not execute UI code" + Project current addDeferredUIMessage: + [ debugger := self new + process: process + controller: nil + context: context. + full + ifTrue: [ debugger openFullNoSuspendLabel: title ] + ifFalse: + [ debugger + openNotifierContents: contentsStringOrNil + label: title ]. + debugger errorWasInUIProcess: errorWasInUIProcess. + "Try drawing the debugger tool at least once to avoid freeze." + Project current world displayWorldSafely. + ErrorRecursion := false ]. + process suspend ]! - Project current addDeferredUIMessage: [ - debugger := self new process: process controller: nil context: context. - full - ifTrue: [debugger openFullNoSuspendLabel: title] - ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title]. - debugger errorWasInUIProcess: errorWasInUIProcess. - - "Try drawing the debugger tool at least once to avoid freeze." - Project current world displayWorldSafely. - - ErrorRecursion := false. - ]. - process suspend. - !

1 0

The Trunk: Tools-cmm.755.mcz
by commits＠source.squeak.org 04 Apr '17

04 Apr '17

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.755.mcz ==================== Summary ==================== Name: Tools-cmm.755 Author: cmm Time: 4 April 2017, 3:49:36.354898 pm UUID: d6acf9c9-c3e4-4076-b2a5-9757eefe0b0e Ancestors: Tools-eem.754 Fix the race condition introduced with Debugger>>'ErrorRecursion' which resulted in the Emergency Evaluator being opened too eagerly (and unable to be closed!) -- even when there was no recursion. =============== Diff against Tools-eem.754 =============== Item was changed: CodeHolder subclass: #Debugger instanceVariableNames: 'interruptedProcess interruptedController contextStack contextStackIndex contextStackList receiverInspector contextVariablesInspector externalInterrupt proceedValue selectingPC savedCursor isolationHead failedProject errorWasInUIProcess labelString message untilExpression' + classVariableNames: 'ContextStackKeystrokes ErrorRecursion ErrorRecursionGuard ErrorReportServer InterruptUIProcessIfBlockedOnErrorInBackgroundProcess WantsAnnotationPane' - classVariableNames: 'ContextStackKeystrokes ErrorRecursion ErrorReportServer InterruptUIProcessIfBlockedOnErrorInBackgroundProcess WantsAnnotationPane' poolDictionaries: '' category: 'Tools-Debugger'! !Debugger commentStamp: '<historical>' prior: 0! I represent the machine state at the time of an interrupted process. I also represent a query path into the state of the process. The debugger is typically viewed through a window that views the stack of suspended contexts, the code for, and execution point in, the currently selected message, and inspectors on both the receiver of the currently selected message, and the variables in the current context. Special note on recursive errors: Some errors affect Squeak's ability to present a debugger. This is normally an unrecoverable situation. However, if such an error occurs in an isolation layer, Squeak will attempt to exit from the isolation layer and then present a debugger. Here is the chain of events in such a recovery. * A recursive error is detected. * The current project is queried for an isolationHead * Changes in the isolationHead are revoked * The parent project of isolated project is returned to * The debugger is opened there and execution resumes. If the user closes that debugger, execution continues in the outer project and layer. If, after repairing some damage, the user proceeds from the debugger, then the isolationHead is re-invoked, the failed project is re-entered, and execution resumes in that world. ! Item was changed: ----- Method: Debugger class>>initialize (in category 'class initialization') ----- initialize ErrorRecursion := false. + ErrorRecursionGuard := Mutex new. ContextStackKeystrokes := Dictionary new at: $e put: #send; at: $t put: #doStep; at: $T put: #stepIntoBlock; at: $p put: #proceed; at: $r put: #restart; at: $f put: #fullStack; at: $w put: #where; yourself. "Debugger initialize"! Item was changed: + (PackageInfo named: 'Tools') postscript: 'Debugger initialize.'! - (PackageInfo named: 'Tools') postscript: 'ProcessBrowser initialize.'!

1 0

The Trunk: Compiler-eem.341.mcz
by commits＠source.squeak.org 04 Apr '17

04 Apr '17

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.341.mcz ==================== Summary ==================== Name: Compiler-eem.341 Author: eem Time: 3 April 2017, 5:25:34.125602 pm UUID: a66d7b39-0d0f-4d67-8e82-02964c101b10 Ancestors: Compiler-eem.340 Add the refactored encoder-specific method generator. This one moves generation from MethodNode to BytecodeEncoder and subclasses, and hence allows easier bytecode set selection, or at least far more sends to self than to encoder. =============== Diff against Compiler-eem.340 =============== Item was added: + ----- Method: BytecodeEncoder>>generateMethodOfClass:trailer:from: (in category 'method encoding') ----- + generateMethodOfClass: aCompiledMethodClass trailer: trailer from: methodNode + "The receiver is the root of a parse tree. Answer an instance of aCompiledMethodClass. + The argument, trailer, is arbitrary but is typically either the reference to the source code + that is stored with every CompiledMethod, or an encoding of the method's temporary names." + + | primErrNode blkSize nLits locals literals header method stack | + primErrNode := methodNode primitiveErrorVariableName ifNotNil: + [self fixTemp: methodNode primitiveErrorVariableName]. + methodNode ensureClosureAnalysisDone. + self rootNode: methodNode. "this is for BlockNode>>sizeCodeForClosureValue:" + blkSize := (methodNode block sizeCodeForEvaluatedValue: self) + + (methodNode primitive > 0 + ifTrue: [self sizeCallPrimitive: methodNode primitive] + ifFalse: [0]) + + (primErrNode + ifNil: [0] + ifNotNil: + [primErrNode + index: methodNode arguments size + methodNode temporaries size; + sizeCodeForStore: self "The VM relies on storeIntoTemp: (129)"]). + locals := methodNode arguments, methodNode temporaries, (primErrNode ifNil: [#()] ifNotNil: [{primErrNode}]). + self noteBlockExtent: methodNode block blockExtent hasLocals: locals. + header := self computeMethodHeaderForNumArgs: methodNode arguments size + numTemps: locals size + numLits: (nLits := (literals := self allLiterals) size) + primitive: methodNode primitive. + method := trailer + createMethod: blkSize + class: aCompiledMethodClass + header: header. + 1 to: nLits do: [:lit | method literalAt: lit put: (literals at: lit)]. + self streamToMethod: method. + stack := ParseStack new init. + methodNode primitive > 0 ifTrue: + [self genCallPrimitive: methodNode primitive]. + primErrNode ifNotNil: + [primErrNode emitCodeForStore: stack encoder: self]. + stack position: method numTemps. + [methodNode block emitCodeForEvaluatedValue: stack encoder: self] + on: Error "If an attempt is made to write too much code the method will be asked" + do: [:ex| "to grow, and the grow attempt will fail in CompiledMethod class>>#new:" + ex signalerContext sender method = (CompiledMethod class>>#new:) + ifTrue: [^self error: 'Compiler code size discrepancy'] + ifFalse: [ex pass]]. + stack position ~= (method numTemps + 1) ifTrue: + [^self error: 'Compiler stack discrepancy']. + self methodStreamPosition ~= (method size - trailer size) ifTrue: + [^self error: 'Compiler code size discrepancy']. + method needsFrameSize: stack size - method numTemps. + ^method!

1 0

The Trunk: Compiler-eem.340.mcz
by commits＠source.squeak.org 04 Apr '17

04 Apr '17

1 0

The Trunk: EToys-eem.289.mcz
by commits＠source.squeak.org 04 Apr '17

04 Apr '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.289.mcz ==================== Summary ==================== Name: EToys-eem.289 Author: eem Time: 3 April 2017, 4:55:54.254019 pm UUID: a288db28-8cdf-4e91-a6f8-2c8b94bee676 Ancestors: EToys-eem.288 Nuke a now unnecessary ScriptEncoder override, allowing EToys to also use a different bytecode set, if installed and preferred. =============== Diff against EToys-eem.288 =============== Item was removed: - ----- Method: ScriptEncoder>>computeMethodHeaderForNumArgs:numTemps:numLits:primitive: (in category 'method generation') ----- - computeMethodHeaderForNumArgs: numArgs numTemps: numTemps numLits: numLits primitive: primitiveIndex - "copied from superclass, only change is the >>headerFlagForEncoder: argument" - numArgs > 15 ifTrue: - [^self error: 'Cannot compile -- too many arguments']. - numTemps > 63 ifTrue: - [^self error: 'Cannot compile -- too many temporary variables']. - numLits > 65535 ifTrue: - [^self error: 'Cannot compile -- too many literals']. - ^(CompiledMethod headerFlagForEncoder: EncoderForV3PlusClosures new) - + (numArgs bitShift: 24) - + (numTemps bitShift: 18) - "+ (largeBit bitShift: 17)" "largeBit gets filled in later" - + (primitiveIndex > 0 ifTrue: [1 bitShift: 16] ifFalse: [0]) - + numLits!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2017