Changeset 84fadb in git

Timestamp:

Jan 6, 2006, 12:22:50 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

c08fa4f808be83cf41fcb400fb7a88c7d32a8349

Parents:

5babe4715035ec6fb5205f7f5b1352a5eb023cbc

Message:

*hannes: clarify code


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

File:

• kernel/longrat.cc (modified) (2 diffs)

kernel/longrat.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longrat.cc,v 1.11 2005-12-20 12:18:34 Singular Exp $ */
+/* $Id: longrat.cc,v 1.12 2006-01-06 11:22:50 Singular Exp $ */
 /*
 * ABSTRACT: computation with long rational numbers (Hubert Grassmann)
@@ -1073 +1073 @@
   //nlNormalize(a);
   //nlNormalize(b);
-  if ((SR_HDL(a)==5)||(a==INT_TO_SR(-1))
-  ||  (SR_HDL(b)==5)||(b==INT_TO_SR(-1)))
+  if ((a==INT_TO_SR(1))||(a==INT_TO_SR(-1))
+  ||  (b==INT_TO_SR(1))||(b==INT_TO_SR(-1)))
     return INT_TO_SR(1);
   if (a==INT_TO_SR(0)) /* gcd(0,b) ->b */