Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed make_vector macro

Browse source
This commit is contained in:
Justin Ethier 2015-07-27 21:31:33 -04:00
parent c0e6c7e297
commit d564fcee08
1 changed files with 1 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
include/cyclone/runtime.h
View file

@ -120,6 +120,7 @@ integer_type Cyc_length(object l);
integer_type Cyc_vector_length(object v); integer_type Cyc_vector_length(object v);
object Cyc_vector_ref(object v, object k); object Cyc_vector_ref(object v, object k);
object Cyc_vector_set(object v, object k, object obj); object Cyc_vector_set(object v, object k, object obj);
object Cyc_make_vector(object cont, object len, object fill);
string_type Cyc_number2string(object n) ; string_type Cyc_number2string(object n) ;
string_type Cyc_symbol2string(object sym) ; string_type Cyc_symbol2string(object sym) ;
object Cyc_string2symbol(object str); object Cyc_string2symbol(object str);
@ -237,18 +238,6 @@ void do_dispatch(int argc, function_type func, object clo, object *buffer);
} \ } \
} }
#define make_vector(v, len, fill) object v = nil; { \
Cyc_check_int(len); \
v = alloca(sizeof(vector_type)); \
((vector)v)->tag = vector_tag; \
((vector)v)->num_elt = ((integer_type *)len)->value; \
((vector)v)->elts = (((vector)v)->num_elt > 0) ? (object *)alloca(sizeof(object) * ((vector)v)->num_elt): NULL; \
int i; \
for (i = 0; i < ((vector)v)->num_elt; i++) { \
((vector)v)->elts[i] = fill; \
} \
}
/* Global variables. */ /* Global variables. */
extern clock_t start; /* Starting time. */ extern clock_t start; /* Starting time. */
extern char *stack_begin; /* Initialized by main. */ extern char *stack_begin; /* Initialized by main. */