Mercurial > repos > tabletprog
comparison runtime/progfoot.inc @ 87:25bc8a5ab41e
Improve llMessage a bit and move implementation of string into string.tp module using llMessage. Update TASKS list
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 22 Jul 2012 14:18:34 -0700 |
parents | abc6f3d644a4 |
children | 18598163e3ef |
comparison
equal
deleted
inserted
replaced
86:ce6a81b3be70 | 87:25bc8a5ab41e |
---|---|
41 GC_INIT(); | 41 GC_INIT(); |
42 array * arr = alloc_array(argc); | 42 array * arr = alloc_array(argc); |
43 for (i = 0; i < argc; ++i) { | 43 for (i = 0; i < argc; ++i) { |
44 arg = (string *)make_object(&string_meta, NULL, 0); | 44 arg = (string *)make_object(&string_meta, NULL, 0); |
45 arg->data = argv[i]; | 45 arg->data = argv[i]; |
46 arg->bytes = arg->length = strlen(argv[i]); | 46 arg->bytes = arg->len = strlen(argv[i]); |
47 arr->data[i] = &(arg->header); | 47 arr->data[i] = &(arg->header); |
48 } | 48 } |
49 object * ret = mcall(METHOD_ID_MAIN, 2, mainModule(), &(arr->header)); | 49 object * ret = mcall(METHOD_ID_MAIN, 2, mainModule(), &(arr->header)); |
50 if (ret->meta == &obj_int32_meta) { | 50 if (ret->meta == &obj_int32_meta) { |
51 obj_int32 * reti32 = (obj_int32 *) ret; | 51 obj_int32 * reti32 = (obj_int32 *) ret; |