Changeset 625fd1 in git

Timestamp:

Nov 26, 2014, 9:49:45 AM (9 years ago)

Author:

Adi Popescu <adi_popescum@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

301c99e5f641a22436436adcebf0d0c586d31315

Parents:

f0b1f9da89e5c7912542c2081fa3ad564386f01c

Message:

fix: LLL_Flint

Files:

• Singular/extra.cc (modified) (1 diff)
• libpolys/polys/flintconv.cc (modified) (2 diffs)

Singular/extra.cc

@@ -993 +993 @@
                   bigintmat* T = new bigintmat(m->rows(),m->rows(),m->basecoeffs());
                   for(int i = 1; i<=m->rows(); i++)
-                    BIMATELEM(*T,i,i)=n_Init(1, m->basecoeffs());
+                  {
+                    n_Delete(&(BIMATELEM(*T,i,i)),T->basecoeffs());
+                    BIMATELEM(*T,i,i)=n_Init(1, T->basecoeffs());
+                  }
                   m = singflint_LLL(m,T);
                   lists L = (lists)omAllocBin(slists_bin);

libpolys/polys/flintconv.cc

@@ -96 +96 @@
     {
       convFlintNSingN(n, fmpz_mat_entry(M, i-1, j-1));
-      BIMATELEM(*res,i,j)=n_InitMPZ(n,m->basecoeffs());
+      n_Delete(&(BIMATELEM(*res,i,j)),res->basecoeffs());
+      BIMATELEM(*res,i,j)=n_InitMPZ(n,res->basecoeffs());
     }
   }
@@ -106 +107 @@
       {
         convFlintNSingN(n, fmpz_mat_entry(Transf, i-1, j-1));
-        BIMATELEM(*T,i,j)=n_InitMPZ(n,m->basecoeffs());
+        n_Delete(&(BIMATELEM(*T,i,j)),T->basecoeffs());
+        BIMATELEM(*T,i,j)=n_InitMPZ(n,T->basecoeffs());
       }
     }