Recovered from cvs revision 2007-05-01 07:40:00

ase/stx/array.c

@@ -0,0 +1,18 @@
+/* 
+ * $Id: array.c,v 1.3 2007/04/30 08:32:40 bacon Exp $
+ */
+
+#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;	
+}