alloc_bignum alloc_bytevector alloc_string assign_complex_num assign_double bignum_value bn_cmp_type boolean boolean_desc boolean_f boolean_t bytevector c_opaque closure closure0 closure1 closureN complex_num_value cond_var cvar Cyc_EOF CYC_IO_BUF_LEN defprimitive defsymbol double_value forward function_type function_type_va inline_function_type integer_value list maclosure0 macro make_boolean make_c_opaque make_cell make_complex_num make_cvar make_double make_empty_bytevector make_empty_vector make_input_port make_list_1 make_list_2 make_list_3 make_list_4 make_pair make_port make_string make_string_noalloc make_string_with_len make_utf8_string make_utf8_string_noalloc make_utf8_string_with_len mclosure0 mclosure1 mmacro mutex object object_tag opaque_ptr pair prim prim_name primitive quote_void return_copy set_pair string_len string_num_cp string_str symbol symbol_desc tag_type type_of vector

#define alloc_string (   _data,   _s,   _len,   _num_cp  ) Value: if (_len >= MAX_STACK_OBJ) { \ int heap_grown; \ _s = gc_alloc(((gc_thread_data *)data)->heap, \ sizeof(string_type) + _len + 1, \ boolean_f, /* OK to populate manually over here */ \ (gc_thread_data *)data, \ &heap_grown); \ ((string_type *) _s)->hdr.mark = ((gc_thread_data *)data)->gc_alloc_color; \ ((string_type *) _s)->hdr.grayed = 0; \ ((string_type *) _s)->tag = string_tag; \ ((string_type *) _s)->len = _len; \ ((string_type *) _s)->num_cp = _num_cp; \ ((string_type *) _s)->str = (((char *)_s) + sizeof(string_type)); \ } else { \ _s = alloca(sizeof(string_type)); \ ((string_type *)_s)->hdr.mark = gc_color_red; \ ((string_type *)_s)->hdr.grayed = 0; \ ((string_type *)_s)->tag = string_tag; \ ((string_type *)_s)->len = _len; \ ((string_type *)_s)->num_cp = _num_cp; \ ((string_type *)_s)->str = alloca(sizeof(char) * (_len + 1)); \ } Allocate a new string, either on the stack or heap depending upon size