Changeset 0acf3e in git for libpolys

Timestamp:

Dec 5, 2013, 4:29:00 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

867a0d61fbf7341926f962e8afb0e93257ff5745

Parents:

45cc51208cc1a51b7dc57d423a1031cd515be1c2

Message:

fix: more charstr stuff (tr.237)

Location:

libpolys/coeffs

Files:

• gnumpc.cc (modified) (1 diff)
• rmodulon.cc (modified) (1 diff)

libpolys/coeffs/gnumpc.cc

@@ -461 +461 @@
 {
   const char *p=n_ParameterNames(r)[0];
-  char *s=(char*)omAlloc(21+strlen(p));
-  sprintf(s,"complex,%d,%s",r->float_len,p);
+  char *s=(char*)omAlloc(31+strlen(p));
+  sprintf(s,"complex,%d,%d,%s",r->float_len,r->float_len2,p);
   return s;
 }

libpolys/coeffs/rmodulon.cc

@@ -49 +49 @@
 static char* nrnCoeffString(const coeffs r)
 {
-  char* s = (char*) omAlloc(7+11+2);
-  sprintf(s,"integer,%lu",r->modExponent);
+  long l = (long)mpz_sizeinbase(r->modBase, 10) + 2;
+  char* b = (char*) omAlloc(l);
+  b= mpz_get_str (b, 10, r->modBase);
+  char* s = (char*) omAlloc(7+2+l);
+  sprintf(s,"integer,%s",b);
+  omFreeSize(b,l);
   return s;
 }