]> www.ginac.de Git - cln.git/blobdiff - src/integer/output/cl_I_print.cc
Finalize CLN 1.3.7 release.
[cln.git] / src / integer / output / cl_I_print.cc
index 541709b94252dc4289713ce00055fad0b23286c9..ff1f1582bb9f3346c8f777ff029f11835cab9747 100644 (file)
@@ -1,7 +1,7 @@
 // print_integer().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/integer_io.h"
@@ -10,8 +10,8 @@
 // Implementation.
 
 #include "cln/io.h"
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
 
 namespace cln {
 
@@ -25,19 +25,14 @@ void print_integer (std::ostream& stream, unsigned int base, const cl_I& z)
        } else
                abs_z = z;
        CL_ALLOCA_STACK;
-       var uintL need = cl_digits_need(abs_z,base);
-       var uintB* ziffern = cl_alloc_array(uintB,need); // Platz für die Ziffern
+       var uintC need = cl_digits_need(abs_z,base);
+       var uintB* ziffern = cl_alloc_array(uintB,need); // Platz für die Ziffern
        var cl_digits erg; erg.LSBptr = &ziffern[need];
-#if (defined(__GNUC__) && (__GNUC__ == 3) && (__GNUC_MINOR__ < 4))
-       // workaround GCC-3 compiler bug fixed in GCC-3.4.0 (cf. Debian bug#246319)
-       static char dummy[40];
-       snprintf(dummy,40,"%d%x%x",need,&erg,erg.LSBptr);
-#endif
        I_to_digits(abs_z,(uintD)base,&erg); // Umwandlung in Ziffern
        // Ziffern ausgeben:
        {
                var uintB* ptr = erg.MSBptr;
-               var uintL count = erg.len;
+               var uintC count = erg.len;
                do { fprintchar(stream,*ptr++); } until (--count==0);
        }
 }