Changeset 8a150b in git for Singular/spolys.cc

Timestamp:

Apr 29, 1999, 1:38:59 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

ce5fb2786eb5fa61fee54f85fe8647ef13e7be20

Parents:

4be737ee7176ba0340ece58c1e6920d666833ac2

Message:

* hannes: added long reals


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

File:

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

Singular/spolys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: spolys.cc,v 1.18 1999-03-08 17:30:51 Singular Exp $ */
+/* $Id: spolys.cc,v 1.19 1999-04-29 11:38:57 Singular Exp $ */
 
 /*
@@ -794 +794 @@
 void spSet(ring r)
 {
-  if ((!rField_has_simple_inverse(r))
-    ||TEST_OPT_INTSTRATEGY   /* Q, Q(a), Fp(a) */
+  if ((TEST_OPT_INTSTRATEGY   /* Q, Q(a), Fp(a) */
+  || (rField_is_R()) || (rField_is_long_R()))
 #ifdef SRING
   && (pSRING==0)