Changeset 733d24 in git for libpolys/coeffs/gnumpc.cc

Timestamp:

Sep 28, 2011, 7:33:12 PM (11 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

9310cbb099615137456c0252eaee33a50d9db993

Parents:

046a941e1caf6571a05abbcd7e9dc58a903aa4eb

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-28 19:33:12+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:13:43+01:00

Message:

FIX: default construction parameters for real/complex number fields

File:

• libpolys/coeffs/gnumpc.cc (modified) (2 diffs)

libpolys/coeffs/gnumpc.cc

@@ -389 +389 @@
 {
   assume( getCoeffType(n) == ID );
-  assume( parameter != NULL);
 
   n->cfKillChar = ndKillChar; /* dummy */
@@ -488 +487 @@
   r->has_simple_Inverse=FALSE;
 */
-
-  LongComplexInfo* p = (LongComplexInfo*)parameter;
-  n->complex_parameter = omStrDup(p->par_name);
-  n->float_len = p->float_len;
-  n->float_len2 = p->float_len2;
+   
+  if( parameter != NULL)
+  {
+    LongComplexInfo* p = (LongComplexInfo*)parameter;
+    n->complex_parameter = omStrDup(p->par_name);
+    n->float_len = p->float_len;
+    n->float_len2 = p->float_len2;
+    
+  } else // default values, just for testing!
+  {
+    n->complex_parameter = omStrDup("i");
+    n->float_len = SHORT_REAL_LENGTH;
+    n->float_len2 = SHORT_REAL_LENGTH;     
+  }
+   
+  assume( n->float_len <= n->float_len2 );
+  assume( n->float_len2 >= SHORT_REAL_LENGTH );
+  assume( n->complex_parameter != NULL );
 
   return FALSE;