Changeset ea48f7d in git for kernel/clapsing.cc

Timestamp:

May 3, 2006, 2:12:51 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

c1c269121f4f2fd68d492b638e0e2419bcbfb2bf

Parents:

36faf9b22a1c2a501f140933bf515f564ff2abcc

Message:

hannes: rat switch


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

File:

• kernel/clapsing.cc (modified) (5 diffs)

kernel/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.12 2006-03-21 15:27:20 Singular Exp $
+// $Id: clapsing.cc,v 1.13 2006-05-03 12:12:51 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -209 +209 @@
   // for now there is only the possibility to handle polynomials over
   // Q and Fp ...
+  Off(SW_RATIONAL);
   if (( nGetChar() == 0 || nGetChar() > 1 )
   && (currRing->parameter==NULL))
@@ -215 +216 @@
     CanonicalForm F( convSingPClapP( f ) ), G( convSingPClapP( g ) );
     res=convClapPSingP( gcd( F, G ) );
-    Off(SW_RATIONAL);
   }
   // and over Q(a) / Fp(a)
@@ -254 +254 @@
       res= convClapPSingTrP( gcd( F, G ) );
     }
-    Off(SW_RATIONAL);
   }
   #if 0
@@ -271 +270 @@
     WerrorS( feNotImplemented );
 
+  Off(SW_RATIONAL);
   pDelete(&f);
   pDelete(&g);