factor/vm/arrays.hpp

namespace factor
{

inline cell array_nth(array *array, cell slot)
{
#ifdef FACTOR_DEBUG
	assert(slot < array_capacity(array));
	assert(array->h.hi_tag() == ARRAY_TYPE);
#endif
	return array->data()[slot];
}

PRIMITIVE(array);
PRIMITIVE(resize_array);


}
Use C++ namespaces 2009-05-04 02:46:13 -04:00			`namespace factor`
			`{`
moved arrays.hpp functions to vm 2009-08-17 16:37:10 -04:00
			`inline cell array_nth(array *array, cell slot)`
VM: use better abstractions for tagged pointers, eliminate get()/set() stuff, clean up array, string, and byte-array element access 2009-05-04 02:00:30 -04:00			`{`
			`#ifdef FACTOR_DEBUG`
			`assert(slot < array_capacity(array));`
The great type renaming 2009-05-04 05:50:24 -04:00			`assert(array->h.hi_tag() == ARRAY_TYPE);`
VM: use better abstractions for tagged pointers, eliminate get()/set() stuff, clean up array, string, and byte-array element access 2009-05-04 02:00:30 -04:00			`#endif`
			`return array->data()[slot];`
			`}`

			`PRIMITIVE(array);`
			`PRIMITIVE(resize_array);`
Porting VM to C++ 2009-05-02 05:04:19 -04:00
Use C++ namespaces 2009-05-04 02:46:13 -04:00
			`}`