<br><br><div class="gmail_quote">On Sat, Apr 18, 2009 at 6:30 PM, John M McIntosh <span dir="ltr"><<a href="mailto:johnmci@smalltalkconsulting.com">johnmci@smalltalkconsulting.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<br>
This collide with reverseBytesInImage ?</blockquote><div><br></div><div>yes, but easy to fix:</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>(fmt = 6 and: [BytesPerWord = 8])</div>
<div><span class="Apple-style-span" style="white-space: pre; "> </span><span class="Apple-tab-span" style="white-space:pre"> </span>ifTrue: ["Object contains 32-bit half-words packed into 64-bit machine words."</div>
<div><span class="Apple-style-span" style="white-space: pre; "> </span><span class="Apple-tab-span" style="white-space:pre"> </span>wordAddr := oop + BaseHeaderSize.</div><div><span class="Apple-style-span" style="white-space: pre; "> </span><span class="Apple-tab-span" style="white-space:pre"> </span>self reverseWordsFrom: wordAddr to: oop + (self sizeBitsOf: oop)]].</div>
<div>=></div><div><span class="Apple-style-span" style="white-space: pre; "> </span>(fmt = 6 ifTrue:</div><div><span class="Apple-style-span" style="white-space: pre; "> </span>[(self fetchClassOfNonInt: oop) = floatClass</div>
<div><span class="Apple-style-span" style="white-space: pre; "> <span class="Apple-style-span" style="white-space: normal; ">ifTrue:</span></span></div><div><span class="Apple-style-span" style="white-space: pre; "> [self swapWordFrom: <span class="Apple-style-span" style="white-space: normal; ">oop + BaseHeaderSize to: </span></span>oop + BaseHeaderSize + 8]<br>
</div><div><span class="Apple-style-span" style="white-space: pre; "> <span class="Apple-style-span" style="white-space: normal; ">ifFalse:</span></span></div><div><span class="Apple-style-span" style="white-space: pre; "> <span class="Apple-style-span" style="white-space: normal; ">[BytesPerWord = 8]) ifTrue:</span><span class="Apple-style-span" style="white-space: normal; "></span></span></div>
<div><span class="Apple-style-span" style="white-space: pre; "> <span class="Apple-style-span" style="white-space: normal; ">["Object contains 32-bit half-words packed into 64-bit machine words."</span><span class="Apple-style-span" style="white-space: normal; "></span></span></div>
<div><span class="Apple-style-span" style="white-space: pre; "> <span class="Apple-style-span" style="white-space: normal; ">wordAddr := oop + BaseHeaderSize.</span><span class="Apple-style-span" style="white-space: normal; "></span></span></div>
<div><span class="Apple-style-span" style="white-space: pre; "> <span class="Apple-style-span" style="white-space: normal; ">self reverseWordsFrom: wordAddr to: oop + (self sizeBitsOf: oop)]]].</span><span class="Apple-style-span" style="white-space: normal; "></span></span></div>
<div> </div><div>(BTW, is reverseWordsFrom:to: broken for 64-bit images?)</div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div></div><div class="h5">
<br>
<br>
On 18-Apr-09, at 6:15 PM, Eliot Miranda wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hi All,<br>
<br>
I see that Float 32-bit word order is big-endian (PowerPC) on all platforms.<br>
</blockquote>
<br></div></div><font color="#888888">
--<br>
===========================================================================<br>
John M. McIntosh <<a href="mailto:johnmci@smalltalkconsulting.com" target="_blank">johnmci@smalltalkconsulting.com</a>><br>
Corporate Smalltalk Consulting Ltd. <a href="http://www.smalltalkconsulting.com" target="_blank">http://www.smalltalkconsulting.com</a><br>
===========================================================================<br>
<br>
<br>
<br>
</font></blockquote></div><br>