On Wed, 2 Oct 2019, Thiede, Christoph wrote:

> 
> Now we have the same version number twice in Trunk. Was that desired?

The current number is 1271. Duplicate numbers in the ancestry are fine.

Levente

> 
> Christoph
> 
> __________________________________________________________________________________________________________________________________________________________
> Von: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von commits at source.squeak.org <commits at source.squeak.org>
> Gesendet: Mittwoch, 2. Oktober 2019 15:33:50
> An: squeak-dev at lists.squeakfoundation.org; packages at lists.squeakfoundation.org
> Betreff: [squeak-dev] The Trunk: Kernel-ul.1270.mcz  
> Levente Uzonyi uploaded a new version of Kernel to project The Trunk:
> http://source.squeak.org/trunk/Kernel-ul.1270.mcz
> 
> ==================== Summary ====================
> 
> Name: Kernel-ul.1270
> Author: ul
> Time: 1 October 2019, 12:57:10.938369 pm
> UUID: a05d4cc6-2b21-4ae3-90ad-68d18accd34f
> Ancestors: Kernel-mt.1269
> 
> Context and InstructionStream:
> - moved Debugger specific extension methods to Tools
> - recategorized a few methods
> 
> =============== Diff against Kernel-mt.1269 ===============
> 
> Item was changed:
> + ----- Method: Context>>methodClass (in category 'accessing') -----
> - ----- Method: Context>>methodClass (in category 'debugger access') -----
>   methodClass
>          "Answer the class in which the receiver's method was found."
>         
>          ^self method methodClass ifNil: [self objectClass: self receiver].!
> 
> Item was removed:
> - ----- Method: Context>>namedTempAt: (in category 'debugger access') -----
> - namedTempAt: index
> -        "Answer the value of the temp at index in the receiver's sequence of tempNames."
> -        ^self debuggerMap namedTempAt: index in: self!
> 
> Item was removed:
> - ----- Method: Context>>namedTempAt:put: (in category 'debugger access') -----
> - namedTempAt: index put: aValue
> -        "Set the value of the temp at index in the receiver's sequence of tempNames.
> -         (Note that if the value is a copied value it is also set out along the lexical chain,
> -          but alas not in along the lexical chain.)."
> -        ^self debuggerMap namedTempAt: index put: aValue in: self!
> 
> Item was changed:
> + ----- Method: Context>>pc (in category 'accessing') -----
> - ----- Method: Context>>pc (in category 'debugger access') -----
>   pc
>          "Answer the index of the next bytecode to be executed."
>  
>          ^pc!
> 
> Item was removed:
> - ----- Method: Context>>print:on: (in category 'debugger access') -----
> - print: anObject on: aStream
> -        "Safely print anObject in the face of direct ProtoObject subclasses."
> -        | objClass title |
> -        objClass := self objectClass: anObject.
> -        (objClass canUnderstand: #printOn:) ifTrue:
> -                [^anObject printOn: aStream].
> -        title := objClass name.
> -        aStream
> -                nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']);
> -                nextPutAll: title!
> 
> Item was changed:
> + ----- Method: Context>>selector (in category 'accessing') -----
> - ----- Method: Context>>selector (in category 'debugger access') -----
>   selector
>          "Answer the selector of the method that created the receiver."
>  
>          ^self method selector ifNil: [self method defaultSelector].!
> 
> Item was changed:
> + ----- Method: Context>>sender (in category 'accessing') -----
> - ----- Method: Context>>sender (in category 'debugger access') -----
>   sender
>          "Answer the context that sent the message that created the receiver."
>  
>          ^sender!
> 
> Item was changed:
> + ----- Method: Context>>sourceCode (in category 'accessing') -----
> - ----- Method: Context>>sourceCode (in category 'debugger access') -----
>   sourceCode
>          ^self method getSource.
>         
>          "Note: The above is a bit safer than
>                  ^ methodClass sourceCodeAt: selector
>          which may fail if the receiver's method has been changed in
>          the debugger (e.g., the method is no longer in the methodDict
>          and thus the above selector is something like #Doit:with:with:with:)
>          but the source code is still available."!
> 
> Item was removed:
> - ----- Method: Context>>tempNames (in category 'debugger access') -----
> - tempNames
> -        "Answer a SequenceableCollection of the names of the receiver's temporary
> -         variables, which are strings."
> -
> -        ^ self debuggerMap tempNamesForContext: self!
> 
> Item was removed:
> - ----- Method: Context>>tempsAndValues (in category 'debugger access') -----
> - tempsAndValues
> -        "Return a string of the temporary variables and their current values"
> -        ^self debuggerMap tempsAndValuesForContext: self!
> 
> Item was removed:
> - ----- Method: Context>>tempsAndValuesLimitedTo:indent: (in category 'debugger access') -----
> - tempsAndValuesLimitedTo: sizeLimit indent: indent
> -        "Return a string of the temporary variabls and their current values"
> -
> -        | aStream |
> -        aStream := WriteStream on: (String new: 100).
> -        self tempNames
> -                doWithIndex: [:title :index |
> -                        indent timesRepeat: [aStream tab].
> -                        aStream nextPutAll: title; nextPut: $:; space; tab.
> -                        aStream nextPutAll:
> -                                ((self tempAt: index) printStringLimitedTo: (sizeLimit -3 -title size max: 1)).
> -                        aStream cr].
> -        ^aStream contents!
> 
> Item was removed:
> - ----- Method: InstructionStream>>abstractPC (in category 'debugger access') -----
> - abstractPC
> -        ^self method abstractPCForConcretePC: pc!
> 
> Item was removed:
> - ----- Method: InstructionStream>>debuggerMap (in category 'debugger access') -----
> - debuggerMap
> -        ^self method debuggerMap!
> 
> 
> 
>