fix some memory leaks in mpf_mat

fredrik-johansson · Jun 23, 2014 · 84ac930 · 84ac930
1 parent 2589858
commit 84ac930
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 6 deletions.
diff --git a/fmpq_vec/dot.c b/fmpq_vec/dot.c
@@ -33,10 +33,9 @@ _fmpq_vec_dot(fmpq_t res, const fmpq * vec1, const fmpq * vec2, slong len)
 {
     slong i;
     fmpq_zero(res);
-
-    for(i = 0; i < len; i++) {
-		fmpq_addmul(res,
-					vec1 + i,
-					vec2 + i);
-	}
+
+    for (i = 0; i < len; i++)
+    {
+        fmpq_addmul(res, vec1 + i, vec2 + i);
+    }
 }
diff --git a/mpf_mat/gso.c b/mpf_mat/gso.c
@@ -110,4 +110,5 @@ mpf_mat_gso(mpf_mat_t B, const mpf_mat_t A)
             mpf_mul(mpf_mat_entry(B, j, k), mpf_mat_entry(B, j, k), s);
         }
     }
+    mpf_clears(t, s, tmp, eps, '\0');
 }
diff --git a/mpf_mat/qr.c b/mpf_mat/qr.c
@@ -120,4 +120,5 @@ mpf_mat_qr(mpf_mat_t Q, mpf_mat_t R, const mpf_mat_t A)
             mpf_mul(mpf_mat_entry(Q, j, k), mpf_mat_entry(Q, j, k), s);
         }
     }
+    mpf_clears(t, s, tmp, eps, '\0');
 }
diff --git a/mpf_mat/test/t-qr.c b/mpf_mat/test/t-qr.c
@@ -125,6 +125,7 @@ main(void)
         mpf_mat_clear(Q);
         mpf_mat_clear(R);
         mpf_mat_clear(B);
+        mpf_clears(dot, tmp, '\0');
     }
 
     FLINT_TEST_CLEANUP(state);