#include "std.h" #include "lpc_incl.h" void dealloc_class P1(array_t *, p) { int i; for (i = p->size; i--;) free_svalue(&p->item[i], "dealloc_class"); FREE((char *) p); } void free_class P1(array_t *, p) { if (--(p->ref) > 0) return; dealloc_class(p); } array_t *allocate_class P2(class_def_t *, cld, int, has_values) { array_t *p; int n = cld->size; p = (array_t *)DXALLOC(sizeof(array_t) + sizeof(svalue_t) * (n - 1), TAG_CLASS, "allocate_class"); p->ref = 1; p->size = n; if (has_values) { while (n--) p->item[n] = *sp--; } else { while (n--) p->item[n] = const0; } return p; } array_t *allocate_class_by_size P1(int, size) { array_t *p; p = (array_t *)DXALLOC(sizeof(array_t) + sizeof(svalue_t) * (size - 1), TAG_CLASS, "allocate_class"); p->ref = 1; p->size = size; while (size--) p->item[size] = const0; return p; } array_t *allocate_empty_class_by_size P1(int, size) { array_t *p; p = (array_t *)DXALLOC(sizeof(array_t) + sizeof(svalue_t) * (size - 1), TAG_CLASS, "allocate_class"); p->ref = 1; p->size = size; return p; }