intptr_t marshal(IoDynLib *self, IoObject *arg)
{
intptr_t n = 0;
if (ISNUMBER(arg))
{
n = IoNumber_asInt(arg);
}
else if (ISSYMBOL(arg))
{
n = (intptr_t)CSTRING(arg);
}
else if (ISLIST(arg))
{
int i;
intptr_t *l = io_calloc(1, IoList_rawSize(arg) * sizeof(intptr_t));
for (i = 0; i < IoList_rawSize(arg); i ++)
l[i] = marshal(self, List_rawAt_(IoList_rawList(arg), i));
n = (intptr_t)l;
}
else if (ISBUFFER(arg))
{
n = (intptr_t)IoSeq_rawBytes(arg);
}
else if (ISBLOCK(arg))
{
unsigned char *blk = io_calloc(1, 20), *p = blk;
// FIXME: need trampoline code for other architectures
*p++ = 0x68;
*((intptr_t *)p) = (intptr_t)arg;
p += sizeof(intptr_t);
*p++ = 0xb8;
*((intptr_t *)p) = (intptr_t)bouncer;
p += sizeof(intptr_t);
*p++ = 0xff;
*p++ = 0xd0;
*p++ = 0x83;
*p++ = 0xc4;
*p++ = 0x04;
*p++ = 0xc3;
n = (intptr_t)blk;
}
else
{
n = (intptr_t)arg; //IONIL(self);
}
return n;
}
void IoMessage_copy_(IoMessage *self, IoMessage *other)
{
IoMessage_rawSetName_(self, DATA(other)->name);
{
List *l1 = DATA(self)->args;
List *l2 = DATA(other)->args;
size_t i, max = List_size(l2);
List_removeAll(l1);
for (i = 0; i < max; i ++)
{
List_append_(l1, IOREF(List_rawAt_(l2, i)));
}
}
IoMessage_rawSetNext_(self, DATA(other)->next);
IoMessage_rawSetCachedResult_(self, DATA(other)->cachedResult);
IoMessage_rawCopySourceLocation(self, other);
}
