diff --git a/include/cyclone/types.h b/include/cyclone/types.h index d05b63fa..3380b882 100644 --- a/include/cyclone/types.h +++ b/include/cyclone/types.h @@ -186,10 +186,13 @@ typedef struct {gc_header_type hdr; tag_type tag; double value;} double_type; /* Define string type */ typedef struct {gc_header_type hdr; tag_type tag; int len; char *str;} string_type; -//#define make_cstring(cs, len, s) \ -// string_type cs; cs.tag = string_tag; cs.len = len; cs.str = s; -// TODO: all of the dhalloc below needs to go away for this GC. maybe -// just plan on having strings be allocated separately like vectors. +// TODO: new way to allocate strings, but this requires changes to +// all functions that allocate strings, the GC, cgen, and maybe more. +#define make_string(cs, len, s) string_type cs; \ +{ cs.tag = string_tag; cs.len = len; \ + cs.str = alloca(sizeof(char) * (len + 1)); \ + strcpy(cs.str, s);} +// TODO: all of the dhalloc below needs to go away... #define make_string(cv,s) string_type cv; cv.tag = string_tag; \ { int len = strlen(s); cv.str = dhallocp; \ if ((dhallocp + len + 1) >= dhbottom + global_heap_size) { \