]> www.ginac.de Git - cln.git/blobdiff - tests/timecatalan.cc
[BUGFIX]: cl_asm_.cc: fix include paths.
[cln.git] / tests / timecatalan.cc
index 920694e1a117c9bbe9ecc91fed68f0e5ec532508..36c1bf7f54e6aec864f99118c78fa8640225cb9a 100644 (file)
@@ -3,10 +3,25 @@
 #include <cln/float.h>
 #include <cln/real.h>
 #include <cln/random.h>
-#include <stdlib.h>
-#include <string.h>
+#include <cstdlib>
+#include <cstring>
 #include <cln/timing.h>
-#include "cl_LF.h"
+#include "float/lfloat/cl_LF.h"
+#include <iostream>
+namespace cln
+{
+// FIXME: using internal functions is a bad idea (even if it works
+// on some ELF systems)
+extern cl_LF compute_catalanconst_ramanujan (uintC len);
+extern cl_LF compute_catalanconst_ramanujan_fast (uintC len);
+extern cl_LF compute_catalanconst_expintegral1 (uintC len);
+extern cl_LF compute_catalanconst_expintegral2 (uintC len);
+extern cl_LF compute_catalanconst_cvz1 (uintC len);
+extern cl_LF compute_catalanconst_cvz2 (uintC len);
+}
+
+using namespace cln;
+using namespace std;
 
 int main (int argc, char * argv[])
 {
@@ -18,12 +33,8 @@ int main (int argc, char * argv[])
        if (argc < 2)
                exit(1);
        uintL len = atoi(argv[1]);
-       extern cl_LF compute_catalanconst_ramanujan (uintC len);
-       extern cl_LF compute_catalanconst_ramanujan_fast (uintC len);
-       extern cl_LF compute_catalanconst_expintegral1 (uintC len);
-       extern cl_LF compute_catalanconst_expintegral2 (uintC len);
-       extern cl_LF compute_catalanconst_cvz1 (uintC len);
-       extern cl_LF compute_catalanconst_cvz2 (uintC len);
+
+
        cl_LF p;
        ln(cl_I_to_LF(1000,len+10)); // fill cache
        { CL_TIMING;