<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<meta content="text/html; charset=UTF-8">
<style type="text/css" style="">
<!--
p
{margin-top:0;
margin-bottom:0}
-->
</style>
<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Calibri,Helvetica,sans-serif">
<p>Now we have the same version number twice in Trunk. Was that desired?</p>
<p>Christoph</p>
<div id="x_Signature">
<div name="x_divtagdefaultwrapper" style="font-family:Calibri,Arial,Helvetica,sans-serif; font-size:; margin:0">
<div><font size="2" color="#808080"></font></div>
</div>
</div>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Mittwoch, 2. Oktober 2019 15:33:50<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: Kernel-ul.1270.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Levente Uzonyi uploaded a new version of Kernel to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Kernel-ul.1270.mcz">http://source.squeak.org/trunk/Kernel-ul.1270.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-ul.1270<br>
Author: ul<br>
Time: 1 October 2019, 12:57:10.938369 pm<br>
UUID: a05d4cc6-2b21-4ae3-90ad-68d18accd34f<br>
Ancestors: Kernel-mt.1269<br>
<br>
Context and InstructionStream:<br>
- moved Debugger specific extension methods to Tools<br>
- recategorized a few methods<br>
<br>
=============== Diff against Kernel-mt.1269 ===============<br>
<br>
Item was changed:<br>
+ ----- Method: Context>>methodClass (in category 'accessing') -----<br>
- ----- Method: Context>>methodClass (in category 'debugger access') -----<br>
methodClass <br>
"Answer the class in which the receiver's method was found."<br>
<br>
^self method methodClass ifNil: [self objectClass: self receiver].!<br>
<br>
Item was removed:<br>
- ----- Method: Context>>namedTempAt: (in category 'debugger access') -----<br>
- namedTempAt: index<br>
- "Answer the value of the temp at index in the receiver's sequence of tempNames."<br>
- ^self debuggerMap namedTempAt: index in: self!<br>
<br>
Item was removed:<br>
- ----- Method: Context>>namedTempAt:put: (in category 'debugger access') -----<br>
- namedTempAt: index put: aValue<br>
- "Set the value of the temp at index in the receiver's sequence of tempNames.<br>
- (Note that if the value is a copied value it is also set out along the lexical chain,<br>
- but alas not in along the lexical chain.)."<br>
- ^self debuggerMap namedTempAt: index put: aValue in: self!<br>
<br>
Item was changed:<br>
+ ----- Method: Context>>pc (in category 'accessing') -----<br>
- ----- Method: Context>>pc (in category 'debugger access') -----<br>
pc<br>
"Answer the index of the next bytecode to be executed."<br>
<br>
^pc!<br>
<br>
Item was removed:<br>
- ----- Method: Context>>print:on: (in category 'debugger access') -----<br>
- print: anObject on: aStream<br>
- "Safely print anObject in the face of direct ProtoObject subclasses."<br>
- | objClass title |<br>
- objClass := self objectClass: anObject.<br>
- (objClass canUnderstand: #printOn:) ifTrue:<br>
- [^anObject printOn: aStream].<br>
- title := objClass name.<br>
- aStream<br>
- nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']);<br>
- nextPutAll: title!<br>
<br>
Item was changed:<br>
+ ----- Method: Context>>selector (in category 'accessing') -----<br>
- ----- Method: Context>>selector (in category 'debugger access') -----<br>
selector<br>
"Answer the selector of the method that created the receiver."<br>
<br>
^self method selector ifNil: [self method defaultSelector].!<br>
<br>
Item was changed:<br>
+ ----- Method: Context>>sender (in category 'accessing') -----<br>
- ----- Method: Context>>sender (in category 'debugger access') -----<br>
sender<br>
"Answer the context that sent the message that created the receiver."<br>
<br>
^sender!<br>
<br>
Item was changed:<br>
+ ----- Method: Context>>sourceCode (in category 'accessing') -----<br>
- ----- Method: Context>>sourceCode (in category 'debugger access') -----<br>
sourceCode<br>
^self method getSource.<br>
<br>
"Note: The above is a bit safer than<br>
^ methodClass sourceCodeAt: selector<br>
which may fail if the receiver's method has been changed in<br>
the debugger (e.g., the method is no longer in the methodDict<br>
and thus the above selector is something like #Doit:with:with:with:)<br>
but the source code is still available."!<br>
<br>
Item was removed:<br>
- ----- Method: Context>>tempNames (in category 'debugger access') -----<br>
- tempNames<br>
- "Answer a SequenceableCollection of the names of the receiver's temporary
<br>
- variables, which are strings."<br>
- <br>
- ^ self debuggerMap tempNamesForContext: self!<br>
<br>
Item was removed:<br>
- ----- Method: Context>>tempsAndValues (in category 'debugger access') -----<br>
- tempsAndValues<br>
- "Return a string of the temporary variables and their current values"<br>
- ^self debuggerMap tempsAndValuesForContext: self!<br>
<br>
Item was removed:<br>
- ----- Method: Context>>tempsAndValuesLimitedTo:indent: (in category 'debugger access') -----<br>
- tempsAndValuesLimitedTo: sizeLimit indent: indent<br>
- "Return a string of the temporary variabls and their current values"<br>
- <br>
- | aStream |<br>
- aStream := WriteStream on: (String new: 100).<br>
- self tempNames<br>
- doWithIndex: [:title :index |<br>
- indent timesRepeat: [aStream tab].<br>
- aStream nextPutAll: title; nextPut: $:; space; tab.<br>
- aStream nextPutAll: <br>
- ((self tempAt: index) printStringLimitedTo: (sizeLimit -3 -title size max: 1)).<br>
- aStream cr].<br>
- ^aStream contents!<br>
<br>
Item was removed:<br>
- ----- Method: InstructionStream>>abstractPC (in category 'debugger access') -----<br>
- abstractPC<br>
- ^self method abstractPCForConcretePC: pc!<br>
<br>
Item was removed:<br>
- ----- Method: InstructionStream>>debuggerMap (in category 'debugger access') -----<br>
- debuggerMap<br>
- ^self method debuggerMap!<br>
<br>
<br>
</div>
</span></font>
</body>
</html>