7 #define CL_SV_NO_RANGECHECKS
13 #include "cl_malloc.h"
15 const cl_SV_any copy (const cl_SV_any& src)
17 var uintL len = src.length();
18 var cl_heap_SV_any* hv = (cl_heap_SV_any*) cl_malloc_hook(sizeof(cl_heap_SV_any)+sizeof(cl_gcobject)*len);
20 hv->type = src.pointer_type();
21 new (&hv->v) cl_SV_inner<cl_gcobject> (len);
22 for (var uintL i = 0; i < len; i++)
23 init1(cl_gcobject, hv->v[i]) (src[i]);