From d564fcee084336274583f98016945c8ca4d9430c Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 27 Jul 2015 21:31:33 -0400 Subject: [PATCH] Removed make_vector macro --- include/cyclone/runtime.h | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h index e90ef00b..ebd8d879 100644 --- a/include/cyclone/runtime.h +++ b/include/cyclone/runtime.h @@ -120,6 +120,7 @@ integer_type Cyc_length(object l); integer_type Cyc_vector_length(object v); object Cyc_vector_ref(object v, object k); 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_symbol2string(object sym) ; 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. */ extern clock_t start; /* Starting time. */ extern char *stack_begin; /* Initialized by main. */