[Vm-dev] [commit] r2441 - Get two loops in ALien marshalling
consistent (albeit completely wrong).
Eliot Miranda
eliot.miranda at gmail.com
Tue Jul 5 16:30:00 UTC 2011
On Tue, Jul 5, 2011 at 2:16 AM, Bert Freudenberg <bert at freudenbergs.de>wrote:
>
>
> On 05.07.2011, at 03:44, commits at squeakvm.org wrote:
>
> >
> > Author: eliot
> > Date: 2011-07-04 18:44:47 -0700 (Mon, 04 Jul 2011)
> > New Revision: 2441
> >
> > Modified:
> > trunk/platforms/Cross/plugins/IA32ABI/dabusiness.h
> > Log:
> > Get two loops in ALien marshalling consistent (albeit completely wrong).
>
> Are you applying for the obfuscated-snippet-of-the-week award? ;)
>
<blush>As unwitting winner many times before there's little point in my
reapplying :( But I hope I've finally got it right in r2442...</blush> :)
>
> > Modified: trunk/platforms/Cross/plugins/IA32ABI/dabusiness.h
> > ===================================================================
> > --- trunk/platforms/Cross/plugins/IA32ABI/dabusiness.h 2011-07-05
> 01:44:26 UTC (rev 2440)
> > +++ trunk/platforms/Cross/plugins/IA32ABI/dabusiness.h 2011-07-05
> 01:44:47 UTC (rev 2441)
> > @@ -18,7 +18,7 @@
> >
> > #if STACKVM /* Need to access args downwards from first arg */
> > if (numArgs < 0)
> > - for (i = size = 0; --i > numArgs;) {
> > + for (i = size = 0; --i >= numArgs;) {
> > sqInt arg = argVector[i];
> > if (objIsAlien(arg) && sizeField(arg))
> > size +=
> moduloPOT(sizeof(long),abs(sizeField(arg)));
> > @@ -57,7 +57,7 @@
> >
> > #if STACKVM /* Need to access args downwards from first arg */
> > if (numArgs < 0)
> > - for (i = size = 0; --i > numArgs;) {
> > + for (i = size = 0; --i >= numArgs;) {
> > sqInt arg = argVector[i];
> > if (isSmallInt(arg)) {
> > *(long *)argvec = intVal(arg);
> >
>
> - Bert -
>
>
>
--
best,
Eliot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/vm-dev/attachments/20110705/bf380578/attachment.htm
More information about the Vm-dev
mailing list