2007-05-02 01:07:00 +00:00
|
|
|
/*
|
2008-03-04 05:21:33 +00:00
|
|
|
* $Id: array.c 118 2008-03-03 11:21:33Z baconevi $
|
2007-05-02 01:07:00 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include <ase/stx/array.h>
|
|
|
|
|
#include <ase/stx/object.h>
|
|
|
|
|
#include <ase/bas/assert.h>
|
|
|
|
|
|
|
|
|
|
ase_word_t ase_stx_new_array (ase_stx_t* stx, ase_word_t size)
|
|
|
|
|
{
|
|
|
|
|
ase_word_t x;
|
|
|
|
|
|
|
|
|
|
ase_assert (stx->class_array != stx->nil);
|
|
|
|
|
x = ase_stx_alloc_word_object (stx, ASE_NULL, 0, ASE_NULL, size);
|
|
|
|
|
ASE_STX_CLASS(stx,x) = stx->class_array;
|
|
|
|
|
|
|
|
|
|
return x;
|
|
|
|
|
}
|
