Changeset 6180565 in git for Singular

Timestamp:

Aug 16, 2019, 2:10:20 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

15939114b9999f8ea7042c064d7ce2c5b8d987df

Parents:

40b65a33b8f97714b624e53cd7ece1518afa831b

Message:

fix: numerator/denominator

File:

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

Singular/iparith.cc

@@ -3963 +3963 @@
 
 /// Return the denominator of the input number
-/// NOTE: the input number is normalized as a side effect
 static BOOLEAN jjDENOMINATOR(leftv res, leftv v)
 {
-  number n = reinterpret_cast<number>(v->Data());
+  number n = reinterpret_cast<number>(v->CopyD());
   res->data = reinterpret_cast<void*>(n_GetDenom(n, currRing->cf));
+  n_Delete(&n,currRing);
   return FALSE;
 }
 
 /// Return the numerator of the input number
-/// NOTE: the input number is normalized as a side effect
 static BOOLEAN jjNUMERATOR(leftv res, leftv v)
 {
-  number n = reinterpret_cast<number>(v->Data());
+  number n = reinterpret_cast<number>(v->CopyD());
   res->data = reinterpret_cast<void*>(n_GetNumerator(n, currRing->cf));
+  n_Delete(&n,currRing);
   return FALSE;
 }