Changeset ca0d043 in git for Singular/maps_ip.cc

Timestamp:

Mar 9, 2011, 4:41:24 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

93fdaea282c6e9d53a9eafe710ced85f7285647f

Parents:

528f5b7b3ceb19836379fc4ff7686f811093c001

Message:

fix tr. 317

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

File:

• Singular/maps_ip.cc (modified) (1 diff)

Singular/maps_ip.cc

@@ -69 +69 @@
         {
           number a=(number)res->data;
-          nNormalize(a);
-          res->data=(void *)a;
+          number one=nInit(1);
+          number product = nMult(a,one );
+          nDelete(&one);
+          nDelete(&a);
+          res->data=(void *)product;
         }
         #ifdef LDEBUG