<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">2015-11-13 2:30 GMT+01:00  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span>:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Eliot Miranda uploaded a new version of Kernel to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Kernel-eem.969.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/trunk/Kernel-eem.969.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-eem.969<br>
Author: eem<br>
Time: 12 November 2015, 5:30:04.713 pm<br>
UUID: ec5388a5-1235-4c2d-8ec1-9ec28a9f617a<br>
Ancestors: Kernel-nice.968<br>
<br>
Fix tow speeling sorres.<br></blockquote><div><br>Worse than that, words are so short in English, it&#39;s not amazing that any typo find an entry in the urban dictionary ;)<br><a href="http://www.urbandictionary.com/define.php?term=sput">http://www.urbandictionary.com/define.php?term=sput</a><br> <br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
Handle the case where a method compiled in the debugger has a large frame.<br>
<br>
=============== Diff against Kernel-nice.968 ===============<br>
<br>
Item was changed:<br>
  ----- Method: InstructionPrinter&gt;&gt;callPrimitive: (in category &#39;instruction decoding&#39;) -----<br>
  callPrimitive: index<br>
+       &quot;Print the callPrimitive bytecode.&quot;<br>
-       &quot;Print the callPrimitive.&quot;<br>
<br>
+       self print: &#39;callPrimitive: &#39; , index printString!<br>
-       self print: &#39;callPrimtive: &#39; , index printString!<br>
<br>
Item was changed:<br>
  ----- Method: Process&gt;&gt;restartTopWith: (in category &#39;changing suspended state&#39;) -----<br>
  restartTopWith: method<br>
        &quot;Rollback top context and replace with new method.  Assumes self is suspended&quot;<br>
<br>
        method isQuick<br>
+               ifTrue: [self popTo: suspendedContext sender]<br>
+               ifFalse:<br>
+                       [suspendedContext method frameSize &gt;= method frameSize<br>
+                               ifTrue: [suspendedContext privRefreshWith: method]<br>
+                               ifFalse:<br>
+                                       [self assert: suspendedContext isExecutingBlock not.<br>
+                                        suspendedContext := MethodContext<br>
+                                                                                               sender: suspendedContext sender<br>
+                                                                                               receiver: suspendedContext receiver<br>
+                                                                                               method: method<br>
+                                                                                               arguments: ((1 to: method numArgs) collect:<br>
+                                                                                                                               [:i| suspendedContext tempAt: i])]].<br>
-               ifTrue: [ self popTo: suspendedContext sender ]<br>
-               ifFalse: [ suspendedContext privRefreshWith: method ].<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: SmallInteger&gt;&gt;objectForDataStream: (in category &#39;objects from disk&#39;) -----<br>
  objectForDataStream: refStrm<br>
+       &quot;In a 64-bit Spur VM, we may have to fake 32-bit SmallIntegers for compatibility.&quot;<br>
-       &quot;In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility&quot;<br>
<br>
        | large |<br>
        self &gt; 16r3FFFFFFF ifTrue: [<br>
                large := LargePositiveInteger new: self digitLength neg: false.<br>
                1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)].<br>
                ^large].<br>
        self &lt; -16r40000000 ifTrue: [<br>
                large := LargeNegativeInteger new: self digitLength neg: true.<br>
                1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)].<br>
                ^large].<br>
+       ^ self!<br>
-       ^ self<br>
- !<br>
<br>
<br>
</blockquote></div><br></div></div>