Changeset d713d7 in git

Timestamp:

Feb 4, 2003, 7:17:26 PM (21 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

f3b78df2d8dd94524cb7bd883213007f621c47cc

Parents:

ee0500619d4ccb022e98c54dce73c70b73a9f030

Message:

*hannes: factorize(x2-2,1) bug


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

File:

• Singular/clapsing.cc (modified) (3 diffs)

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.81 2003-01-30 14:55:01 Singular Exp $
+// $Id: clapsing.cc,v 1.82 2003-02-04 18:17:26 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -699 +699 @@
   #ifdef HAVE_NTL
   extern int prime_number;
-  //if(rField_is_Q()) prime_number=0;
+  if(rField_is_Q()) prime_number=0;
   #endif
   CFFList L;
@@ -915 +915 @@
   {
     int i=IDELEMS(res)-1;
-    for(;i>=1;i--)
+    int stop=1;
+    if (with_exps!=0) stop=0;
+    for(;i>=stop;i--)
     {
       pNorm(res->m[i]);
     }
-    pSetCoeff(res->m[0],old_lead_coeff);
+    if (with_exps==0) pSetCoeff(res->m[0],old_lead_coeff);
+    else nDelete(&old_lead_coeff);
   }
   else