]> www.ginac.de Git - cln.git/blobdiff - src/vector/cl_SV_ringelt.cc
Make some functions more memory efficient:
[cln.git] / src / vector / cl_SV_ringelt.cc
index 0af6c93a1bdcc7a7e58088766de6572ba2c82a8b..b867b727cd896dca1cb379d8672afa97a4ff93af 100644 (file)
@@ -6,13 +6,12 @@
 CL_PROVIDE(cl_SV_ringelt)
 
 // Specification.
-#include "cl_SV_ringelt.h"
+#include "cln/SV_ringelt.h"
 
 
 // Implementation.
 
-#include "cl_abort.h"
-
+namespace cln {
 
 static void cl_svector_ringelt_destructor (cl_heap* pointer)
 {
@@ -28,9 +27,9 @@ cl_class cl_class_svector_ringelt = {
        0
 };
 
-cl_heap_SV_ringelt* cl_make_heap_SV_ringelt_uninit (uintL len)
+cl_heap_SV_ringelt* cl_make_heap_SV_ringelt_uninit (uintC len)
 {
-       var cl_heap_SV_ringelt* hv = (cl_heap_SV_ringelt*) cl_malloc_hook(sizeof(cl_heap_SV_ringelt)+sizeof(_cl_ring_element)*len);
+       var cl_heap_SV_ringelt* hv = (cl_heap_SV_ringelt*) malloc_hook(sizeof(cl_heap_SV_ringelt)+sizeof(_cl_ring_element)*len);
        hv->refcount = 1;
        hv->type = &cl_class_svector_ringelt;
        new (&hv->v) cl_SV_inner<_cl_ring_element> (len);
@@ -38,18 +37,20 @@ cl_heap_SV_ringelt* cl_make_heap_SV_ringelt_uninit (uintL len)
        return hv;
 }
 
-cl_heap_SV_ringelt* cl_make_heap_SV_ringelt (uintL len)
+cl_heap_SV_ringelt* cl_make_heap_SV_ringelt (uintC len)
 {
-       var cl_heap_SV_ringelt* hv = (cl_heap_SV_ringelt*) cl_malloc_hook(sizeof(cl_heap_SV_ringelt)+sizeof(_cl_ring_element)*len);
+       var cl_heap_SV_ringelt* hv = (cl_heap_SV_ringelt*) malloc_hook(sizeof(cl_heap_SV_ringelt)+sizeof(_cl_ring_element)*len);
        hv->refcount = 1;
        hv->type = &cl_class_svector_ringelt;
        new (&hv->v) cl_SV_inner<_cl_ring_element> (len);
-       for (var uintL i = 0; i < len; i++)
+       for (var uintC i = 0; i < len; i++)
                init1(_cl_ring_element, hv->v[i]) ();
        return hv;
 }
 
 // An empty vector.
-const cl_SV_ringelt cl_null_SV_ringelt = cl_SV_ringelt((uintL)0);
+const cl_SV_ringelt cl_null_SV_ringelt = cl_SV_ringelt((uintC)0);
+
+}  // namespace cln
 
 CL_PROVIDE_END(cl_SV_ringelt)