Mercurial > repos > tabletprog
view runtime/object.c @ 219:b70be565d54c
Fix check of return value from env.find in symbol.quote so that falsey found values do not cause trouble.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 23 Dec 2013 14:22:20 -0800 |
parents | abc6f3d644a4 |
children | 75dc7161c1ca |
line wrap: on
line source
#include "object.h" #include <stdarg.h> #include <stdlib.h> #include <stddef.h> #include <gc/gc.h> object * make_object(obj_meta * meta, void * parent, int num_props, ...) { va_list args; object * newobj = GC_MALLOC(meta->size); newobj->meta = meta; newobj->parent = parent; va_start(args, num_props); object ** curprop = ((object **)(newobj + 1)); for (; num_props > 0; num_props--) { *curprop = va_arg(args, object *); curprop++; } va_end(args); return newobj; } object * mcall(uint32_t method_id, uint32_t num_args, object * self, ...) { va_list args; va_start(args, self); object * ret = self->meta->meth_lookup[method_id & 0xF](method_id, num_args, self, args); va_end(args); return ret; }