Changeset b2bae5 in git

Timestamp:

Jul 8, 1999, 7:17:23 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

63374c2a45ce7f0660de1047f95a58b4d23d5055

Parents:

a2d44acc243e88c5c454431bcd3f88a63735a43e

Message:

*hannes: optimisation/clean up


git-svn-id: file:///usr/local/Singular/svn/trunk@3252 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/mpr_complex.cc (modified) (3 diffs)

Singular/mpr_complex.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpr_complex.cc,v 1.13 1999-07-08 10:18:11 wenk Exp $ */
+/* $Id: mpr_complex.cc,v 1.14 1999-07-08 17:17:23 Singular Exp $ */
 
 /*
@@ -14 +14 @@
 #include "mod2.h"
 //#ifdef HAVE_MPR
+#include "tok.h"
 #include "structs.h"
 #include "febase.h"
@@ -279 +280 @@
   {
     *size= 2*sizeof(char);
-    out= (char*)AllocL( *size );
-    strcpy(out,"0");
-    return out;
-  }
-
-  if ( ((unsigned int)abs(exponent) <= oprec)
+    return mstrdup("0");
+  }
+
+  if ( ((unsigned int)ABS(exponent) <= oprec)
        /*|| (exponent+sign >= (int)strlen(in))*/ )
   {