factor/vm/tuples.hpp

15 lines
231 B
C++
Raw Normal View History

2009-05-04 02:46:13 -04:00
namespace factor
{
2009-05-04 05:50:24 -04:00
inline static cell tuple_size(tuple_layout *layout)
2009-05-02 05:04:19 -04:00
{
2009-05-04 05:50:24 -04:00
cell size = untag_fixnum(layout->size);
return sizeof(tuple) + size * sizeof(cell);
2009-05-02 05:04:19 -04:00
}
PRIMITIVE(tuple);
PRIMITIVE(tuple_boa);
PRIMITIVE(tuple_layout);
2009-05-04 02:46:13 -04:00
}