Changeset fc8c5f in git

Timestamp:

Aug 10, 1999, 5:19:53 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5f5e2b8cc93bf9b4b5c99b57bc595bbb31bae87f

Parents:

e0d7335e4a8c0122a7bdf7265b0a806bfae52e94

Message:

*hannes: added (some?) missing ring to spSet


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

File:

• Singular/spolys.cc (modified) (5 diffs)

Singular/spolys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: spolys.cc,v 1.20 1999-05-10 15:10:56 Singular Exp $ */
+/* $Id: spolys.cc,v 1.21 1999-08-10 15:19:53 Singular Exp $ */
 
 /*
@@ -36 +36 @@
 poly (*spSpolyRedNew)(poly p1, poly p2,poly spNoether,
                       spSpolyLoopProc spSpolyLoop);
-poly (*spSpolyCreate)(poly p1, poly p2,poly spNoether, 
+poly (*spSpolyCreate)(poly p1, poly p2,poly spNoether,
                       spSpolyLoopProc SpolyLoop);
 poly (*spSpolyShortBba)(poly p1, poly p2);
@@ -257 +257 @@
 * do not destroy p1, but p2
 */
-static poly spPSpolyRed(poly p1, poly p2,poly spNoether, 
+static poly spPSpolyRed(poly p1, poly p2,poly spNoether,
                         spSpolyLoopProc SpolyLoop)
 {
@@ -351 +351 @@
 * do not destroy p1 and p2
 */
-static poly spPSpolyCreate(poly p1, poly p2,poly spNoether, 
+static poly spPSpolyCreate(poly p1, poly p2,poly spNoether,
                            spSpolyLoopProc SpolyLoop)
 {
@@ -794 +794 @@
 void spSet(ring r)
 {
-  if ((TEST_OPT_INTSTRATEGY   /* Q, Q(a), Fp(a) */
-  || (rField_is_R()) || (rField_is_long_R()) || (rField_is_long_C()))
+  if ((rField_is_Q())
+  || (rField_is_Extension()) /* Q(a), Fp(a) */
+  || (rField_is_numeric()) /* R, long R, long C*/
 #ifdef SRING
   && (pSRING==0)