Mercurial > repos > tabletprog

comparison runtime/progfoot.inc @ 38:e7be612fd3ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Very basic array support
author Mike Pavone <pavone@retrodev.com>
date Tue, 10 Jul 2012 23:09:44 -0700
parents bf5e88f6419d
children 927fd7911a01
comparison
equal deleted inserted replaced
37:a6bf4869fcbe 38:e7be612fd3ae
1
2 object * make_array(uint32_t num_els, ...)
3 {
4 va_list els;
5 int i;
6 array * arr = malloc(sizeof(array));
7 arr->header.meta = &array_meta;
8 arr->header.parent = NULL;
9 arr->storage = arr->size = num_els;
10 arr->data = malloc(sizeof(object *) * num_els);
11 va_start(els, num_els);
12 for (i = 0; i < num_els; i++)
13 arr->data[i] = va_arg(els, object *);
14 va_end(els);
15 return &(arr->header);
16 }
1 17
2 int main(int argc, char ** argv) 18 int main(int argc, char ** argv)
3 { 19 {
4 object * ret = mcall(METHOD_ID_MAIN, 1, mainModule()); 20 object * ret = mcall(METHOD_ID_MAIN, 1, mainModule());
5 if (ret->meta == &obj_int32_meta) { 21 if (ret->meta == &obj_int32_meta) {