]> www.ginac.de Git - cln.git/blobdiff - src/vector/cl_SV_ringelt.cc
Remove exception hooks in favor of real C++ exceptions:
[cln.git] / src / vector / cl_SV_ringelt.cc
index 4071daaf6a143c9a12a340893821bfd306e1ebba..b867b727cd896dca1cb379d8672afa97a4ff93af 100644 (file)
@@ -11,8 +11,6 @@ CL_PROVIDE(cl_SV_ringelt)
 
 // Implementation.
 
-#include "cln/abort.h"
-
 namespace cln {
 
 static void cl_svector_ringelt_destructor (cl_heap* pointer)
@@ -29,7 +27,7 @@ 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*) malloc_hook(sizeof(cl_heap_SV_ringelt)+sizeof(_cl_ring_element)*len);
        hv->refcount = 1;
@@ -39,19 +37,19 @@ 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*) 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